آخرين پست هاي ارسالي انجمن ايران دلفي

دانلود رایگان کامپوننت های دلفی طراحی تخصصی ربات تلگرام
نمایش نتایج: از 1 به 10 از 10

موضوع: جستجو در بانک اطلاعاتی

  1. #1
    کاربر سایت habib256 آواتار ها
    تاریخ عضویت
    تیر ۱۳۹۲
    سن
    5
    نوشته ها
    4
    تشکر ها
    0
    تشکر شده 0 بار در 0 ارسال.

    جستجو در بانک اطلاعاتی

    با سلام *می خواستم در دلفی *بانک اطلاعاتی ایجاد کنم که امکان جستجو به صورت زیر را داشته باسد درصورت امکان لطف کنید کد آنرا بنویسید البته با Sql*یک بانک اطلاعاتی شامل 2 فیلد نام ونام خانوادگی داریم
    1- اگر فقط فیلد نام را کاربر وارد کرد *با کلیک بر روی دکمه جستجو لیست نام ها را نمایش دهد.
    2- *اگر فقط فیلد نام خانوادگی را کاربر وارد کرد *با کلیک بر روی دکمه جستجو لیست نام ها ی خانوادگی *را نمایش دهد.
    3- اگر هر دو فیلد فوق را پر کرد تمام رکوردهایی که نام ونام خانوادگی انها به مقادیر فوق یکی میباشد را نمایش دهد.
    4- اگر کاربر هیچ کدام از فیلدها *را وارد نکرد *با کلیک بر روی دکمه جستجو تمام رکوردهای بانک رانمایش دهد .
    با سپاس




  2. #2
    مدیرکل سایت admin آواتار ها
    تاریخ عضویت
    مهر ۱۳۸۷
    محل سکونت
    تهران ، بندرعباس ، آیسک
    سن
    33
    نوشته ها
    510
    تشکر ها
    238
    تشکر شده 215 بار در 136 ارسال.
    Blog Entries
    1
    سلام کاربر [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
    شما بایستی در
    مرحله اول یک دیتابیس در SQLServer یا Access یا ... طراحی کنید نه در دلفی .
    مثال :
    در SQLServerکد:

    کد:
    create database test
    go
    use test
    go
    create table tblPerson(prsnName nvarchar(15),prsnFamily nvarchar(15));
    go
    مرحله دوم :
    یک پروژه ی جدید ایجاد کنید و روی فرم اصلی یک DataSource و ADOQuery بگذارید و تنظیمات مربوطه رو انجام دهید.
    مرحله سوم :
    دو
    Edit و یک Button و یک DBgrid روی فرم قرار دهید و Datasource مربوط به DBgrid* رو* برابر با دیتاسورس مربوطه قرار دهید.
    مرحله چهارم :
    با کلیک بر روی Button کدهای مربوط به جستجو رو بنویسید.

    اگه در طول انجام مراحل بالا به مشکل برخوردید ، مطرح کنید .


    دلفی ،*جذاب ترین زبان طراحی نرم افزار ...

  3. #3
    کاربر سایت habib256 آواتار ها
    تاریخ عضویت
    تیر ۱۳۹۲
    سن
    5
    نوشته ها
    4
    تشکر ها
    0
    تشکر شده 0 بار در 0 ارسال.
    با تشکر مشکل من در مرحله 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&quot.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&quot.Value :="%"+edit3.Text +"%" ;


    * * * * * * open ;


    * * * * *end
    * *
    * * * else
    * * * *sql.Text :="select * from tbl_st";
    * * * * * end;
    * * * * **
    end;* * **




  4. #4
    مدیرکل سایت admin آواتار ها
    تاریخ عضویت
    مهر ۱۳۸۷
    محل سکونت
    تهران ، بندرعباس ، آیسک
    سن
    33
    نوشته ها
    510
    تشکر ها
    238
    تشکر شده 215 بار در 136 ارسال.
    Blog Entries
    1
    اینم کد مورد نظر :
    کد:

    کد:
    procedure TForm1.btnSearchClick(Sender: TObject);
    begin
    DBGrid1.DataSource := DataSource1;
    ** with ADOQuery1* do**
    ********* begin
    ******* if (txtFamily.Text <> &quot;&quot;) and (txtName.Text =&quot;&quot;) then*
    ******* begin***
    ********** SQL.Clear;*
    *********** sql.Text :=&quot;select * from tblPerson where prsnFamily like :prsnFamily&quot;;*
    *********** parameters.ParamByName(&quot;prsnFamily&quot;).Value :=&quot;%&quot;+txtFamily.Text +&quot;%&quot; ;**
    ********* open ;*
    ******* end******
    ** else if (txtName.Text <>&quot;&quot;) and (txtFamily.Text = &quot;&quot;) then****
    ***** begin*****
    ******** SQL.Clear;**
    *********** sql.Text :=&quot;select * from tblPerson where prsnName like :prsnName&quot;;*
    ************ parameters.ParamByName(&quot;prsnName&quot;).Value :=&quot;%&quot;+txtName.Text +&quot;%&quot;;***
    ********** open;***
    ***** end** *
    **** else if** (txtName.Text =&quot;&quot;) and (txtFamily.Text = &quot;&quot;) then*
    ****** begin**
    ***** SQL.Clear;**
    **** sql.Text :=&quot;select * from tblPerson&quot;;****
    *** open;***
    ******* end****
    ****** else if** (txtName.Text <>&quot;&quot;) and (txtFamily.Text <> &quot;&quot;) then
    ******* begin*****
    ******** SQL.Clear;***
    ********** sql.Text := &quot;select * from tblPerson where ( prsnName like :prsnName) and (prsnFamily like :prsnFamily)&quot;;*
    *
    *********** parameters.ParamByName(&quot;prsnName&quot;).Value :=&quot;%&quot;+txtName.Text +&quot;%&quot;;**
    *********** * * parameters.ParamByName(&quot;prsnFamily&quot;).Value :=&quot;%&quot;+txtFamily.Text +&quot;%&quot; ;*
    *********** open;*
    ********* end;**
    ** end;**
    * ******* ******** end;

    البته یادتون نره که میشه این رو با چندین روش نوشت ، من فقط یه روش ساده و کاربردی رو نوشتم .
    دلفی ،*جذاب ترین زبان طراحی نرم افزار ...

  5. #5
    مدیرکل سایت admin آواتار ها
    تاریخ عضویت
    مهر ۱۳۸۷
    محل سکونت
    تهران ، بندرعباس ، آیسک
    سن
    33
    نوشته ها
    510
    تشکر ها
    238
    تشکر شده 215 بار در 136 ارسال.
    Blog Entries
    1
    اینم یک پروژه ی ساده برای جستجو از ترکیب دلفی + اکسس
    البته فقط با ADOQuery، با ADOTable هم که دیگه خیلی ساده تره ...
    [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

    دانلود پروژه : [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
    دلفی ،*جذاب ترین زبان طراحی نرم افزار ...

  6. #6
    کاربر سایت max آواتار ها
    تاریخ عضویت
    آذر ۱۳۹۲
    سن
    5
    نوشته ها
    3
    تشکر ها
    0
    تشکر شده 0 بار در 0 ارسال.
    با سلام
    منم همچین چیزی رو میخوام* یعنی من یه جستجوی ساده میخوام که روی فرم قرار بدم و بین نام نام خانوادگی و معدل جستجو کنه لطفا با جزئیات چون من زیاد دلفی رو بلد نیستم.
    با تشکر

  7. #7
    مدیرکل سایت admin آواتار ها
    تاریخ عضویت
    مهر ۱۳۸۷
    محل سکونت
    تهران ، بندرعباس ، آیسک
    سن
    33
    نوشته ها
    510
    تشکر ها
    238
    تشکر شده 215 بار در 136 ارسال.
    Blog Entries
    1
    سلام.
    شما پروژه رو دانلود کنید ، با تمام جزئیات می باشد ...

    دلفی ،*جذاب ترین زبان طراحی نرم افزار ...

  8. #8
    کاربر سایت max آواتار ها
    تاریخ عضویت
    آذر ۱۳۹۲
    سن
    5
    نوشته ها
    3
    تشکر ها
    0
    تشکر شده 0 بار در 0 ارسال.
    سلام به نظر شما این پروژه یه کمی حرفه ای تر از اون چیزی نیست که من میخوام؟

  9. #9
    مدیرکل سایت admin آواتار ها
    تاریخ عضویت
    مهر ۱۳۸۷
    محل سکونت
    تهران ، بندرعباس ، آیسک
    سن
    33
    نوشته ها
    510
    تشکر ها
    238
    تشکر شده 215 بار در 136 ارسال.
    Blog Entries
    1
    سلام.والا به نظر من باید از اینجا شروع کنید ...
    دلفی ،*جذاب ترین زبان طراحی نرم افزار ...

  10. #10
    کاربر سایت max آواتار ها
    تاریخ عضویت
    آذر ۱۳۹۲
    سن
    5
    نوشته ها
    3
    تشکر ها
    0
    تشکر شده 0 بار در 0 ارسال.
    سلام مهندس چگونگی قرار دادن* یک جستجوی ساده برای بانک database desktop رو اگه میشه توضیح بدین از نوع paradox7
    تشکر

علاقه مندي ها (Bookmarks)

علاقه مندي ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •