Script Form Laporan Menggunakan Crystal Report

Berikut contoh scriptnya rubah sesuaikan dengan database dan bentuk laporan anda .

procedure TForm14.Button1Click(Sender: TObject);
begin
U_Menuku.FormStyle:=fsNormal;
begin
//datamodule2.ADOConnectionSISAbsen.ConnectionString:='''Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=1234;Initial Catalog=sysdatabase;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=server;Use Encryption for Data=False;Tag with column collation when possible=False''';
With CrystalReport1 do
begin
//ReportFileName := 'Laporan_Kerusakan.rpt';
CrystalReport1.Connect:='(Provider=SQLOLEDB.1;Persist Security Info=False;User ID=USER-PC;Initial Catalog=sysdatabase;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=server;Use Encryption for Data=False)';
SelectionFormula:='{TabelKerusakan.tanggal} >= ''' + DateToStr(DateTimePicker1.Date) + ''' and {TabelKerusakan.tanggal} <= ''' + DateToStr(DateTimePicker2.Date) + ''' ';
Destination:= crptToWindow;
WindowState:=crptMaximized;
RetrieveDataFiles;
Action:=1;
 Close;
end;

end;
     end;

Form Menampilkan Laporan

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.