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;
Wednesday, March 14, 2012
Subscribe to:
Post Comments (Atom)
3 komentar:
Mas bro, kenapa RightStr na error ya..?
thanks..
Assalamualaikum Wr. Wb.
Pak Amarudin, komponen yang digunakan apa ? Tolong di-share untuk komponennya. Terimakasih.
al_konsultasi:
pada bagian uses, tambahkan StrUtils.
anonymous:
gunakan komponen Crystal Report Control, silakan di import dari Crystal Report 8.0 atau versi yg lain.
semoga bermanfaat.
Post a Comment
Kirimkan Komentar Anda Sepuasnya Ke Bloger ini.