05-01-2010, 04:06 PM
رايكم لو سمحتم في التالي :
[وهو لاظهار الكميا ت المخرجة خلال مدة معينة محدد بواسطة
TDateTimePicker
توجيه ان امكن لانه لم يعمل معي
[
كود :
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var date1 , date2 : STRING;
begin
date1 := datetostr(datetimepicker1.Date);
date2 := datetostr(datetimepicker2.Date);
adodataset1.Filter := 'dt >='''+date1+'''and dt <='''+date2+'''';
adodataset1.Filtered := true;
end;
end.TDateTimePicker
توجيه ان امكن لانه لم يعمل معي