Menambah Fitur atau Memunculkan QReport Pada Panel Pallet.

Borland Delphi ketika diinstall tidak memberikan atau terinstall langsung pada pallet Delphi, adapun langkah-langkahnya sebagai berikut :

1. Pilih Menu Component – Install Packages
2. Setelah Jendela Kerja Packages terbuka Klik Tombol Add.
3. Pilih Directory (Folder) Bin pada Delphi dan cari file dclqrt70.bpl
4. Select file dclqrt70.bpl lalu tekan Tombol Open
5. Klik OK

Desing QReport

Setelah membuat design form untuk laporan langkah selanjutnya adalah membuat design laporan dari Qreport, untuk designnya bisa dilihat gambar berikut ini :

 

Setting Desing QReport

1. Propertis Bands

-          HasColumnHeader : False

-          HasDetail : True

-          HasPageFooter : True

-          HasPageHeader : True

-          HasSummary : False

-          HasTitle :True

1. DataSet : ADOQuery1
2. Page Header : Adalah Untuk membuat bagian atas, Anda bisa isikan dengan menggunakan QRLabel, anda bisa lihat gambar di atas.
3. Title Band : Adalah Title yang harus kita isi dengan nama field pada database atau table. Lihat gambar di atas.
4. Detail Band : Adalah Isi dari field pada database atau table, untuk penggunaannya anda bisa menggunakan QRDBText dan atur properties sesuai dengan nama field yang ada pada title band.

Data set : ADOQuery1

Data Field : Field Tabel

1. Page Footer Band : Adalah halaman untuk bagian bawah, anda bisa menggunakan QRLabel disesuaikan dengan kebutuhan, lihat gambar di atas.

Listing Kode Form Laporan

Klik pada tombol Preview yang telah kita buat, dan isikan listing kode berikut ini :

procedure TForm1.PreviewClick(Sender: TObject);

begin

With ADOQuery1 do Begin

Close;

SQL.Clear;

SQL.Add('SELECT b.nota,b.kd_barang,b.nama_barang,b.satuan,b.qty,b.harga,b.total,a.tanggal FROM tb_penjualan a, tb_detailpenjualan b WHERE a.nota=b.nota and a.tanggal between"'+ FormatDateTIme('YYYY/MM/DD',DateTimePicker1.Date)+'" and "'+ FormatDateTIme('YYYY/MM/DD',DateTimePicker2.Date)+'"');

open;

DariTanggal.Caption:=FormatDateTime('DD/MM/YYYY',DateTimePicker1.Date);

Sampai.Caption:=FormatDateTime('DD/MM/YYYY',DateTimePicker2.Date);

QuickRep1.Preview;

end;

end;

Sumber: 

http://www.zoanfantasi.com/