كيف اقوم بفلترة مزدوجة في قواعد البيانات

[Dz_MicroSoft]

السلام عليكم

أود أن أعمل فلترة مزدوجة لجدول معين

مثلاً

PHP كود :

procedure TForm1.spSkinEdit5Change(Sender: TObject);
begin
if spSkinEdit5.Text <>'' then
begin
ADOTable7.Filter := 'Nom like ' + quotedstr('*'+ spSkinEdit5.Text +'*');
ADOTable7.Filtered :=true;
end else
ADOTable7.Filtered :=false;
end; 


هذا الإجراء خاص بفلترة الجدول حسب Nom .. أود بعد هذه الفلترة إضافة فلترة جديدة مثلاً

PHP كود :

procedure TForm1.spSkinEdit6Change(Sender: TObject);
begin
if spSkinEdit6.Text <>'' then
begin
ADOTable7.Filter := 'Prénom like ' + quotedstr('*'+ spSkinEdit6.Text +'*');
ADOTable7.Filtered :=true;
end else
ADOTable7.Filtered :=false;
end; 


أود بقاء الأولى يعني فلترة الجدول الجديد حسب Prénom

لإني لما وضعت فلترة جديدة الأولى تلغى و يتم إعتماد الثانية فقط !