Source Kode Report Delphi 7 dengan Crystal Report...

Berikut ini ada sintak untuk membuat laporan atau report menggunakan crystal report. Yang di letakkan pada sebuah Button atau tombol pada Event On Click..

Langsung aja....

1. Sintac report untuk membuat report berdasarkan periode tanggal tertentu....

procedure Tfrm_cetak_pinjaman.Button1Click(Sender: TObject);
begin
With CrystalReport1 do
begin
ReportFileName := 'lap_pinjaman.rpt';
SelectionFormula:='{tbl_pinjaman.tanggal_pinjam} >= Date (' + RightStr(DateToStr(DateTimePicker1.Date),4) + ',' + MidStr(DateToStr(DateTimePicker1.Date),4,2)+ ',' + LeftStr(DateToStr(DateTimePicker1.Date),2) + ')' +
' and {tbl_pinjaman.tanggal_pinjam} <= Date (' + RightStr(DateToStr(DateTimePicker2.Date),4) + ',' + MidStr(DateToStr(DateTimePicker2.Date),4,2)+ ',' + LeftStr(DateToStr(DateTimePicker2.Date),2) + ')';
Destination:= crptToWindow;
WindowState:=crptMaximized;
RetrieveDataFiles;
Action:=1;
end;
end;

//=================================================================================

2. Sintac report untuk membuat report seluruh data atau tanpa kkriteria tertentu...

procedure Tfrm_cetak_pinjaman.Button1Click(Sender: TObject);
begin
With CrystalReport1 do
begin
ReportFileName := 'lap_pinjaman.rpt';
SelectionFormula:='';
Destination:= crptToWindow;
WindowState:=crptMaximized;
RetrieveDataFiles;
Action:=1;
end;
end;