Information Technology Inspiration: Membuat Laporan Menggunakan Fastreport

Fastreport adalah salah satu tools yang digunakan untuk mendesain laporan dari database yang sudah dibuat. Fastreport sangat mudah digunakan dan hasil desain juga sangat baik.

Download fastreport, setelah komponen di download lalu install komponen tersebut pada Delphi yang digunakan. Untuk mengetahui cara menginstall fastreport bisa dibaca di link Install Fastreport

Langkah - langkah membuat laporan fastreport sebagai berikut :

Buat Database dan isikan data untuk contoh dalam membuat laporan
buat project baru kemudian buat koneksi ke database, menggunakan zeos atau adodc
tambahkan komponen fastreport di form FRx Design dan FRXdbdataset

Atur pada FrxDBDatasetnya pilih datset yang akan dihubungkan

Klik 2x pada komponen fastreport FrxReport (FrxReport Design) setelah di buka pada menu report pilih data

Pilih dataset yang akan digunakan

Lalu Klik pada bagian master data lalu disebelah kiri pada bagian properti pilih dataset lalu pilih dataset yang tersedia

Setelah itu tinggal mendesign laporan dengan menambahkan header footer dan lain-lain

Tambahkan Judul alamat dan komponen lain

Pada menu sebelah kiri tarik dan geser data-data yang tampil ke bagian master data

desain laporan seperti ini

hasil akhir dari laporan ketika di preview

Add caption

Sedangkan untuk mengeksekusi Report dari aplikasi kita bisa gunakan kode :

procedure Tfutama.btn1Click(Sender: TObject);
begin
 FrxReport1.ShowReport();
end;

Jika inigin langsung Cetak Tanpa Preview :

procedure Tfutama.btn1Click(Sender: TObject);
begin
 FrxReport1.PrepareReport();
 FrxReport1.Print;
end;

Kalau cetak langsung tanpa preview dan tanpa print Dialog bisa menggunakan :

procedure Tfutama.btn1Click(Sender: TObject);
begin
 FrxReport1.PrepareReport();
 FrxReport1.PrintOptions.ShowDialog := False;
 FrxReport1.Print;
end;

Jika ingin mencetak lebih dari satu kopi bisa menyisipkan kode ini sebelum Print :

procedure Tfutama.btn1Click(Sender: TObject);
begin
 FrxReport1.PrepareReport();
 FrxReport1.PrintOptions.ShowDialog := False;
 FrxReport1.PrintOptions.Copies:=2;
 FrxReport1.Print;
end;