Saturday, March 3, 2012

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;