22-02-2010, 04:35 PM
السلام عليكم و رحمة الله و بركاته
أهدف إلى حساب عدد التكرار لكل cod_ana في مدة زمنية يحددها المستعمل.
لقد حاولت و لكن تظهر لي رسالة defirence type عند تنقفيذ الفلترة .
و هذه هي محاولتي
أهدف إلى حساب عدد التكرار لكل cod_ana في مدة زمنية يحددها المستعمل.
لقد حاولت و لكن تظهر لي رسالة defirence type عند تنقفيذ الفلترة .
و هذه هي محاولتي
كود :
procedure Tstatjour.filtClick(Sender: TObject);
var a,b:tdate;
begin
a:=dtp1.date;
b:=dtp2.date;
Query1.Active:=False;
Query1.SQL.Clear;
Query1.SQL.Add('Select cod_ana,count(resultat) from resultat where (Dat_ana>='+datetostr(a)+') and (Dat_ana<='+DateToStr(b)+')');
Query1.Active:=True;
filt.Visible:=false;
affi.Visible:=true;
end;