[viv]

البحث بسيط جدا  اولا ضع مثلا اداة Edit من الحاوية Standerd لاحظ ان هناك ادوات في الحاوية مهمتها الربط مع مصادر البيانات تختلف عن هذه
هذه لا تعرض البيانات الا بطريقة الكود فقط وسوف نتطرق لها يوما

انظر للصورة

   

كما تلاحظ اداة الجدول لها خاصيتين خاصية 
هل نفعل عملية الفلترة ام لا وبحال كانت لا ، فحتى لو كانت خاصية جملة الفلترة مملؤة بنص لن تحدث الفلترة

   

ضع الاداة تم انقر عليها مرتين لتنتقل الى الحدث OnChange اي اذا حدث تغيير في الاداة وهناك اكتب التالي :

كود :

if Edit1.Text ='' then
ADOTable1.Filtered:=false
else
begin
ADOTable1.Filter:='mname LIKE ' + QuotedStr(Edit1.Text + '*');
ADOTable1.Filtered:=true;
end;

نقول هنا اذا كانت الاداة لاتحتوي على شئ الغي عملية الفلترة واظهر كل البيانات
والا فابحث عن النص الذي يبداء بالحروف وتتحكم فيه Like وكلكم تعرفون طبعا شروط البحث باستخدام مفاتيح معينة مثل النجمة وغيرها
وفلعنا خاصية البحث فيتم البحث
لاحظ لو بحتث عن حرف L  ولديك اسمه في قاعدة البيانات باسم Laptop  فلن تحصل على شئ لان هناك مسافة قبل حرف L  احذفها وجرب من جديد

---

لاحظ نتيجة البحث هنا