habib256
16 / February / 1970, 11:36 AM
با تشکر مشکل من در مرحله 4 که مطرح کرده اید می باشد.مرحله چهارم :*
با کلیک بر روی Button کدهای مربوط به جستجو رو بنویسید.*
تمام کار های فوق انجام داده ام*
این هم کد آن ولی مشکل من این است که قسمت اول یعنی سوالات 1 و 4 اجرا میشود ولی سوالات 2و3 جواب نمی دهد؟
1- اگر*فقط*فیلد نام را کاربر وارد کرد *با کلیک بر روی دکمه جستجو لیست نام ها را نمایش دهد.*
2- *اگر*فقط*فیلد نام خانوادگی را کاربر وارد کرد *با کلیک بر روی دکمه جستجو لیست نام ها ی خانوادگی *را نمایش دهد.*
3- اگر هر دو فیلد فوق را پر کرد تمام رکوردهایی که نام ونام خانوادگی انها به مقادیر فوق یکی میباشد را نمایش دهد.*
4- اگر کاربر هیچ کدام از فیلدها *را وارد نکرد *با کلیک بر روی دکمه جستجو تمام رکوردهای بانک رانمایش دهد .*
با سپاس*
procedure TForm1.Button2Click(Sender: TObject);
begin
with dm.ADOQuery1 *do
* * *begin
* * * *if edit1.Text " " then
* * * * * begin
* * * * * * * sql.Text :="select * from tbl_st where name_st like :name_st1";
* * * * * * * parameters.ParamByName("name_st1").Value :="%"+edit2.Text +"%";
* * * * * * * open;
* * * * *end
* else *if edit3.Text " " then
* * * * *begin
* * * * * * *sql.Text :="select * from tbl_st where family_st like :family_st1";
* * * * * * *parameters.ParamByName("family_st1").Value :="%"+edit3.Text +"%" ;
* * * * * * open ;
* * * * *end
* *
* * * else
* * * *sql.Text :="select * from tbl_st";
* * * * * end;
* * * * **
end;<span style="font-family: trebuchet ms"><font size="3"><font color="Indigo"><b><font color="red">[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]</font></b></font></font></span>* * **