استفاده از فیلتر با در نظر گرفتن لیست باکس و ادیت!

[Narges-s]

سلام

من یه پروژه دارم که Delphi - SQL2000 هستش .

این عکس از فرمم هستش :

http://upload.faryadco.com/images/ywhjau8sufinxiwu303.jpg

با توجه به عکس باید امکانی رو فراهم کنم تا با انتخاب نام ستون از لیست باکس مربوط به فیلدها و سپس انتخاب نوع عملگر از لیست باکس مربوط به عملگرها و در نهایت وارد کردن مقدار مورد نظر در Edit1 ، دیتاست را نسبت به عبارت حاصله فیلتر کند.

مثال : لیست باکس فیلد ها : انتخاب "نام"
لیست باکس عملگر ها : انتخاب Like
ادیت 1 : وارد کردن "مریم"

حالا انتظار میره با کلیک بر دکمه ی مربوط به "اعمال فیلتر" دیتا ست 1 را نسبت به سطرهایی با نام "مریم" فیلتر کند.

حالا من از شما راهنمایی میخوام . نمیدونم چطوری باید ارتباط رو بین اونا ایجاد کنم . ممنون میشم کمکم کنید.:خجالت:

[alinikaein]

سلام دوست عزيز

به مثال زير دقت كن و خودت تكميل‌ش كن:




var
SelectedField: String;
SelectedOperation: String;
Begin
case ListBoxField of
0: SelectedField := 'Name';
1: ...
...
end;
case ListBoxOp of
0: SelectedOperation := '=';
1: ...
...
end;
DataSource.DataSet.Filter := Selected Field + SelectedOperation + QuotedStr(EditFilter.Text);
end; //procedure

يا علي... موفق باشيد...