شرح - تصفية قاعدة البيانات حسب نفس الاسم [الأرشيف] - منتديات الجلفة لكل الجزائريين و العرب

طيباوي ابو علي1

2013-07-25, 19:12

بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين

عرض مجموعة من الاشخاص حسب نفس الاسم

فتح قاعدة البيانات
procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Open;
end;
تصفية قاعدة البيانات حسب نفس الاسم
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Filter := 'Nom='+chr(39)+Edit1.Text+chr(39);
Table1.Filtered := true;
end;
الغاء عملية تصفية
procedure TForm1.Button2Click(Sender: TObject);
begin
Table1.Filtered := false;
end;