شرح - تصفية قاعدة البيانات حسب نفس الاسم

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

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

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

فتح قاعدة البيانات
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;