09-08-2016, 10:33 AM
تعديل على محاولتك
يمكن حذف الزر وكتابة الكود بحدث مناسب مثلا OnClick للمكون ComboBox وجعله نفس الحدث لباقي مكونات ComboBox
كود :
Var
s,s1,s2,s3 : String;
begin
s:='';
s1:=ComboBox1.Text;
s2:=ComboBox2.Text;
s3:=ComboBox3.Text;
if s1<>'' then s:='(AnneeScolaire='+QuotedStr(s1)+')';
if s2<>'' then begin
if s<>'' then s:=s+' AND ';
s:=s+'(Niveau='+QuotedStr(s2)+')';
end;
if s3<>'' then begin
if s<>'' then s:=s+' AND ';
s:=s+'(Classe='+QuotedStr(s3)+')' ;
end;
ADOTable1.Filtered:= (s<>'');
end;
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ