31-12-2015, 09:30 AM
السلام عليكم
اولا هذا ليس كود الفلترة بل هو كوذ من ادل تحديد البيانات التي تظهر من قاعدة البيانات على كل
الخطأ في هذا الكود هنا بدل
ضع
-----------------------------------------------------------------------------------------------------------
ثم في edit7 في الحدث OnChange ضع
اولا هذا ليس كود الفلترة بل هو كوذ من ادل تحديد البيانات التي تظهر من قاعدة البيانات على كل
الخطأ في هذا الكود هنا بدل
كود :
[align=left][font=monospace] ADOQuery1.SQL.text :=('SELECT * FROM ww where s like '+QuotedStr('%'+Edit7.text +'%')) ;[/font][/align]كود :
[align=left][font=monospace]ADOQuery1.SQL.Add:=('SELECT * FROM ww where s like '+QuotedStr('%'+Edit7.text +'%')) ;[/font][/align]-----------------------------------------------------------------------------------------------------------
الطريقة الأفضل لعمل فلترة هي ان تقوم بتكديك كل بيانات قاعد البانات ثم تقوم بالفلترة في edit الخاص بالبحجث بالفلترة
1- في الكود السابق ضع
كود :
[align=right][align=left][font=monospace]ADOQuery1.SQL.text :=('SELECT * FROM ww);[/font][/align]
[/align]كود :
[align=left]if edit7.text <> '' then[/align]
[align=left]begin[/align]
[align=left][font=monospace]ADOQuery1.Filtered:= false;[/font][/align]
[align=left][font=monospace][font=monospace]ADOQuery1.filter:='s LIKE ' + quotedstr(edit7.text +'%');[/font][/font][/align]
[align=left][font=monospace][font=monospace][font=monospace]ADOQuery1.[/font][font=monospace]Filtered[/font][font=monospace]:= true;[/font][/font][/font][/align]
[align=left]end else[/align]
[align=left]begin[/align]
[align=left][font=monospace]ADOQuery1.[/font][font=monospace]Filtered[/font][font=monospace]:= false;[/font][/align]
[align=left]end;[/align]
I just got here !