LAPORAN PERMINGGU

KOMPONEN:
1.DateTimePicker3
2.DateTimePicker4
3.BitBtn3

procedure TForm52.BitBtn3Click(Sender: TObject);
begin
close;
 datamodule47.ADODataSet5.Filter:='tgl >='+QuotedStr(datetostr(DateTimePicker3.Date))+
' and tgl<='+Quotedstr(DateToStr(DateTimePicker4.Date)) ;;
 datamodule47.ADODataSet5.Filtered:=true;
 FORM9.SHOW;
end;