Kamis, 14 Februari 2013

Membuat Quick Report Dengan Delphi


        Dalam setiap transaksi yang dilakukan akan sangat baik jika di imbangi dengan laporan, karena dengan laporan ini seseorang dapat membuat arsip yang dapat
dipertanggung jawabkan oleh yang berhak. Maka tulisan kali ini sedikit bagaimana membuat laporan atau Quick report di delphi. Namun terlebih dahulu yang
siapkan beberapa hal yakni :

Instal komponen Quick Report


Instal Quick Report

Caranya : Buka Delphi, pilih Menu Component ==> Install Package, Klik Add cari “file dclqrt70.bpl” (biasanya pada C:Program FilesBorlandDelphi7Bin). Selanjutnya Klik Ok, jika berhasil akan tampak tab component baru seperti berikut.




Instal Sukses
Siapkan Database yang akan dibuat Quick report, Sebagai contoh buat database db_barang dengan tabel tb_brg dan isi tabel tersebut dengan apa saja (terserah) :
—————————————————————
|kd_brg |nama_brg | hrg_beli |hrg_jual |
————————————————————–
|varcha(30)| Varchar(50) | money(8) |money(8)|
—————————————————————
Setelah mempersiapkan database, tahap berikutnya buat 2 form pada delphi, dengan form1 Merupakan Form utama untuk menampilkan data yang akan dibuat quick report dan form kedua merupakan form Quick report.
Form1
Tambahkan komponen adoconnection, adoquery, datasource, dbgrid, adocommand dan button. buat tampilan seperti berikut :


Form1

Atur komponen:
*Adoconnection
loginprompt = false
connectionstring ==> sambungkan ke database db_barang
connected = true
*Adoquery
Connection = adoconnection1
SQL = SELECT * FROM tb_brg
active = true.
* datasource
dataset = adoquery1
* dbgrid
datasource = datasource1
* adocommand
connection = adoconnection1
Jika settingan benar maka dbgrid akan menampilkan data.


Form2
Dalam membuat quick report, biasanya terdapat header (untuk menampilkan nama laporan), kolom laporan, data laporan dan footer berisi halaman serta pada bagian akhir terdapat nama petugas yang akan menandatangani report tersebut. Untuk membuat quick report caranya tambahkan 4 QrBand atur seperti berikut :


Form Repor

-QRband1
bandtype = rbTitle
Haschild = True
-QRband2
bandtype = rbDetail
-Qrband3
bandtype = rbSummary
-Qrband4
bandtype = rbpagefooter

Penjelas gambar
Gambar * merupakan Komponen QRLabel
Gambar # Merupakan Komponen QRdbText
Gambar + Komponen QR Sis (setting tiap QRsis berikut : pada tanggal pilih data = QRS Date, pada no pilih data = QRS, Pada halaman pilih data = QRs Pagenumber).
Tahap berikutnya adalah menyambungkan Form1 dengan Form2 dan sebaliknya, caranya dengan menekan Alt + F11 ==> Pilih Unit lalu ok.
Masuk ke form1, klik 2 button Cetak dan ketikan berikut


with Form2.QuickRep1 do
begin
dataset:=form1.ADOQuery1;
form2.QRDBText1.DataSet:=Form1.ADOQuery1; form2.QRDBText1.DataField:=’kd_brg’;
form2.QRDBText2.DataSet:=Form1.ADOQuery1; form2.QRDBText2.DataField:=’nama_brg’;
form2.QRDBText3.DataSet:=Form1.ADOQuery1; form2.QRDBText3.DataField:=’harga_beli’;
form2.QRDBText4.DataSet:=Form1.ADOQuery1; form2.QRDBText4.DataField:=’harga_jual’;
Preview;
end;
Selesai untuk mencoba Running dan klik Button Cetak.


Hasil Report

Selamat mencoba


Read more: http://burhanudin.web.id/
Judul: Membuat Quick Report Dengan Delphi; Ditulis oleh Unknown; Rating Blog: 5 dari 5

3 komentar:

  1. bos, bagaimana caranya bikin report dengan 2 bh rbdetail ?
    soalnya saya coba bikin yg mucul tetap rbdetail yg pertama yg kedua tidak muncul, saya ganti dg rbsubdetail juga tidak muncul di reportnya.

    BalasHapus
  2. Thanks gan , bermanfaat ane coba nih !!!
    Semoga Sukses.

    BalasHapus
  3. Gan, blognya bikin pusing, ane mw baca aja susah, ada yang nutupin...

    BalasHapus