تصفية قاعدة بيانات بعدة حقول هنا اربعة حقول

[بورمله]

السلام عليكم
ارى ان هذا القسم يشوبه بعض الخمول ولهذا اطرح على اخوانى المبتدئين هذا الكود لتصفية جدول بيانات بعدة حقول
وعلى الاساتذة ان يقوموا بتعليمنا كيفية العمل باحسن من ذالك procedure TFtdos.BitBtn4Click(Sender: TObject);
begin
if(edit2.Text>'')and(edit4.Text>'')and(edit3.Text>'')and (edit5.Text>'') then
begin
dmarchive.ABSTable1.Filter:='code_dos='+quotedstr( edit2.Text+edit4.Text+edit3.Text+edit5.Text);
dmarchive.ABSTable1.Filtered:=true ;
end
else
showmessage(' حدد المكان ');
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';

end;

[ليلى الجزائرية1]

شكرا أخي الكريم dragon1 على الكود.
نحن في إنتظار المزيد من مواضيعك.

[بورمله]

شكرا أخي الكريم dragon1 على الكود.
نحن في إنتظار المزيد من مواضيعك.
شكرا على الاهتمام