Contoh Membuat Laporan Pada Borland Delphi dengan Quick Report

Quick Report adalah suatu komponen penulisan laporan sederhana dari database dimana komponennya sudah terinstall ketika kita menginstall program Delphi. Kali ini penulis akan membuat penulisan laporan dari database mahasiswa dari artikel yang telah disebutkan di atas.

1. Membuat Quick Report

Pertama kali kita buat tampilan baru QReport melalui File - New - Report. Jika Anda tidak menemui menu report maka pilih menu File - New - Other - New - Report. Kemudian kita buat tampilan laporan yang kita inginkan. Kali ini penulis ingin menuliskan judul dari laporan, lambang, daftar mahasiswa, jumlah mahasiswa, tanggal, jam, serta nomor halaman, maka diperlukan komponen sebagai berikut:

- QRBand, untuk memberikan batasan - batasan sesuai dengan jenis penulisan.
- QRLabel, untuk menampilkan tulisan yang kita inginkan
- QRDBtext, untuk menampilkan data field yang kita inginkan
- QRExpr, untuk melakukan mengolah data field database dengan operasi matematika, statistic , tanggal dan waktu,logical, information dan yang lainnya.
- QRSysData, untuk menampilkan tanggal dan jam (qrstime,qrsdate,qrsdatetime), jumlah record (qrsdetailcount), Nomor urut record (qrsdetailno), nomor halaman (qrspagenumber).
- QRShape, untuk mengambar bentuk - bentuk tertentu misalnya garis, lingkaran, bujur sangkar dan lainnya.
- QRImage, untuk menampilkan picture dari file tertentu.

Penulis akan membuat tampilan laporan seperti berikut ini:

Sebelum membuat tampilan lebih dulu kita kopi Table1 di Form1 dan di-paste pada Quick Report. Pastikan property Active pada Table1 adalah true, cek isi property TableName dan property DatabaseName apakah sudah betul. Kemudian ubah property DataSet di Quick Report ke nama tabel yang kita gunakan (Table1).

Untuk laporan diatas terdiri dari 4 (empat) bagian , kita akan membuat masing masing bagian dengan menggunakan QRSBand.

2. Menghubungkan form dengan Quick Report

Kita tambahkan komponen button "preview" dan "print" yang akan menghubungkan form dengan Quick Report.

Untuk menghubungkan Unit1 (Form1) dengan Unit2 (QuickReport) maka ditulis perintah sesudah perintah implementation.

uses Unit2; // uses namaunitlaporan;

Program button preview:

procedure TForm1.btnviewClick(Sender: TObject);
begin
quickreport.Preview;
//namalaporan.preview (untuk menampilkan laporan)
end;

Program button print:

procedure TForm1.btnprintClick(Sender: TObject);
begin
quickreport.Print;
// namalaporan.print (untuk menge-print laporan langsung
// dari form tanpa masuk ke tampilan laporan)
end;

Demikian artikel tentang membuat laporan (report) sederhana dari database dengan menggunakan Quick Report. Source code program bisa di download di delphiqreport1.zip.

Terima kasih.

Credit To 1st Uploader

Baca Juga Artikel Menarik Lainnya :