Berikut script membuat atau menampilkan laporan secara sederhana dengan delphi :
procedure Tlaporanbengkel.BtntampilkanClick(Sender: TObject);
begin
datamodule2.ADOQuerybengkel.Active:=true;
datamodule2.ADOQuerybengkel.Filter:='id_bngkl >='+QuotedStr(kd1.Text)+
'and id_bngkl<='+Quotedstr(kd2.Text);;
datamodule2.ADOQuerybengkel.FilterED:=TRUE;
qrlapbngkl.preview;
end;
Selamat mencoba.
Bring free traffic for your site from all over the world please just visit this link Click Here For Free Traffic
ReplyDelete