Delphi adalah bahasa pemrograman berbasis objek yang cukup populer di kalangan programmer. Salah satu fitur menarik yang tersedia di Delphi adalah kemampuan untuk membuat laporan menggunakan QReport. Dalam artikel ini, kita akan membahas secara detail tentang cara membuat laporan menggunakan QReport pada Delphi.
Persiapan
Sebelum memulai membuat laporan menggunakan QReport pada Delphi, pastikan Anda telah mempersiapkan beberapa hal berikut:
- Delphi IDE
- QReport
- Koneksi ke database
Langkah-langkah
Berikut adalah langkah-langkah yang perlu dilakukan untuk membuat laporan menggunakan QReport pada Delphi:
- Buka Delphi IDE dan buatlah sebuah form
- Tambahkan komponen QReport dan QuickRep pada form
- Tambahkan komponen lain yang diperlukan seperti TQuery, TTable, atau TADOQuery, sesuai dengan jenis koneksi ke database yang Anda gunakan
- Tambahkan event OnBeforePrint pada komponen QuickRep
- Isikan kode berikut pada event OnBeforePrint
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;var PrintReport: Boolean);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT * FROM table1');
Query1.Open;
end;
- Tambahkan komponen TQRDBText pada form
- Tambahkan property DataField pada TQRDBText, dan isikan dengan nama field yang akan ditampilkan pada laporan
- Tambahkan beberapa TQRLabel pada form, dan isikan dengan teks yang sesuai dengan kebutuhan laporan
- Tambahkan komponen TQRBand pada form, dan isikan dengan property Height sesuai dengan kebutuhan laporan
- Tambahkan semua komponen yang telah disiapkan ke dalam TQRBand
- Tambahkan event OnNeedData pada komponen TQRBand
- Isikan kode berikut pada event OnNeedData
procedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand;var PrintBand: Boolean);
begin
QRLabel1.Caption := Query1.FieldByName('field1').AsString;
QRLabel2.Caption := Query1.FieldByName('field2').AsString;
QRLabel3.Caption := Query1.FieldByName('field3').AsString;
end;
- Simpan form dengan nama yang sesuai
- Buatlah sebuah unit baru, dan isikan kode berikut pada unit tersebut
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, QuickRpt, QRCtrls, DB, DBTables;
type
TForm2 = class(TForm)
QuickRep1: TQuickRep;
QRBand1: TQRBand;
QRDBText1: TQRDBText;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
Query1: TQuery;
procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
procedure QRBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT * FROM table1');
Query1.Open;
end;
procedure TForm2.QRBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
QRLabel1.Caption := Query1.FieldByName('field1').AsString;
QRLabel2.Caption := Query1.FieldByName('field2').AsString;
QRLabel3.Caption := Query1.FieldByName('field3').AsString;
end;
end.
- Simpan unit tersebut dengan nama yang sesuai
- Compile dan jalankan program Delphi
- Pilih menu File > New > Other, dan pilihlah “QReport”
- Pilihlah form dan unit yang telah dibuat pada langkah-langkah sebelumnya
- Ubahlah properti Connection pada komponen Query sesuai dengan koneksi ke database yang digunakan
- Sesuaikan tampilan laporan sesuai dengan kebutuhan
- Simpan laporan dan jalankan program untuk melihat hasilnya
Kesimpulan
Membuat laporan menggunakan QReport pada Delphi ternyata cukup mudah dilakukan. Dengan mengikuti langkah-langkah yang telah dijelaskan di atas, Anda dapat membuat laporan dengan mudah dan cepat. Selamat mencoba!
