File Untuk Kompres dan Extrac Dowload Disini
File Profile :
File 1,
File 2,
File 3,
File 4,
File 5
Thursday, March 22, 2012
Wednesday, March 14, 2012
Crystal Report pada Delphi 7
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;
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;
Subscribe to:
Posts (Atom)