Cara Membuat Laporan Menggunakan QReport pada Delphi

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:

1. Delphi IDE
2. QReport
3. Koneksi ke database

Langkah-langkah

Berikut adalah langkah-langkah yang perlu dilakukan untuk membuat laporan menggunakan QReport pada Delphi:

1. Buka Delphi IDE dan buatlah sebuah form
2. Tambahkan komponen QReport dan QuickRep pada form
3. Tambahkan komponen lain yang diperlukan seperti TQuery, TTable, atau TADOQuery, sesuai dengan jenis koneksi ke database yang Anda gunakan
4. Tambahkan event OnBeforePrint pada komponen QuickRep
5. 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;

6. Tambahkan komponen TQRDBText pada form
7. Tambahkan property DataField pada TQRDBText, dan isikan dengan nama field yang akan ditampilkan pada laporan
8. Tambahkan beberapa TQRLabel pada form, dan isikan dengan teks yang sesuai dengan kebutuhan laporan
9. Tambahkan komponen TQRBand pada form, dan isikan dengan property Height sesuai dengan kebutuhan laporan
10. Tambahkan semua komponen yang telah disiapkan ke dalam TQRBand
11. Tambahkan event OnNeedData pada komponen TQRBand
12. 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;

13. Simpan form dengan nama yang sesuai
14. 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.

15. Simpan unit tersebut dengan nama yang sesuai
16. Compile dan jalankan program Delphi
17. Pilih menu File > New > Other, dan pilihlah “QReport”
18. Pilihlah form dan unit yang telah dibuat pada langkah-langkah sebelumnya
19. Ubahlah properti Connection pada komponen Query sesuai dengan koneksi ke database yang digunakan
20. Sesuaikan tampilan laporan sesuai dengan kebutuhan
21. 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!