Menambahkan Quick Report

Menambahkan Quick Report
Report merupakan komponen utama untuk mendesain tampilan laporan
Menggunakan QuickReport untuk printable(format sesuai cetakan via printer)

1.      Buka form baru
2.      Tempelkan komponen Quick Rept
3.      Tambahkan komponen Database,Query pada form tersebut.
4.      Klik komponen QRBand  dengan Property BandType : rbTitle.Letakkan di jendela QuickRep.QRBand-rbTitle ini digunakan sbg judul laporan.
5.      Tempatkan QR Label pada QRBand-rbTitle.
6.       Klik komponen QRBand  dengan Property BandType : rbColumnHeader (digunakan untuk menempatkan judul kolom).kemudian tempatkan komponen QRLabel sesuai dengan jumlah kolom yg diinginkan dan isi Caption dari Qrlabel sesuai judul kolom masing-masing.
7.      Klik komponen QRBand  dengan Property BandType : rbDetail (digunakan untuk menempatkan data yang berasal dari database)
8.      Tempatkan Button untuk tombol Preview dan Print, kemudian isi properti seperti dibawah ini

Contoh form report

Menambahkan Quick Report

Komponen
Property
Event
keterangan
Database
Alias name : SI Perpustakaan
Database Name:  SI Perpustakaan
Connected: true
Login Prompt : false
Name : Database1 (default)

Digunakan untuk koneksi ke database
Query
Database name :  SI Perpustakaan
Active : true
Name : Query1 (default)

Untuk menuliskan printah SQL
DataSource
Dataset: Query1
Name : DataSource1 (default)

Untuk menghubungkan ke Query dengan DBGrid





QuickRep
Data Source : DataSource1

Untuk menampilkan hasil query dalam bentuk tabulasi
QRLabel1
Caption : DAFTAR buku

Memberi judull aporan
QRLabel2
Caption : Nama_buku

Memberi judul kolom
QRLabel3
Caption : id_buku

Memberi judul kolom
QRLlabel4
Caption : penulis

Memberi judul kolom
QRDBText1
Dataset: Query1
DataField: nama

Agar kolom diisi data dari field nama
QRDBText2
Dataset: Query1
DataField: penerbit

Agar kolom diisi data dari field penerbit
QRDBText3
Dataset: Query1
DataField: judul

Agar kolom diisi data dari field judul
Button1
Caption : Preview
Event-OnClick
TForm1::Button1Click(TObject *Sender)
{
QuickRep1->Preview();
}
Hasil tercetak di layar
Button2
Caption : Print
Event-OnClick
TForm1::Button1Click(TObject *Sender)
{
QuickRep1->Preview();
}
Agar hasil tersetak di printer
Form1

Event-OnCreate
TForm1::FormCreate(TObject *Sender)
{
QuickRep1->Visible=false;
}
Untuk menyembunyikan format Quick Report, shg yang nampak hanya form dialog

Subscribe to receive free email updates: