Membuat Quick Report Dengan Delphi

DalamCara mengatasai Cannot modify header PHP. Read more ... » setiap transaksi yangPengumuman Calon Asisten Praktikum Basisdata. Read more ... » dilakukan akan sangat baik jika di imbangi denganTUGAS STRUKTUR DATA KELAS SAMI. Read more ... » laporan, karena dengan laporan ini seseorang dapat membuat arsip yang dapat
dipertanggung jawabkan oleh yang berhak. Maka tulisan kaliMenjalankan Aplikasi Android di Windows. Read more ... » ini sedikit bagaimana membuat laporan atau Quick report di delphiPrinsip dasar pembuatan Keylogger. Read more ... ». Namun terlebih dahulu yang
siapkan beberapa hal yakni :

  • Instal komponen Quick Report
    Instal 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

    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)|
    —————————————————————
  1. Form1
    Tambahkan komponen adoconnection, adoquery, datasource, dbgrid, adocommand dan button. buat tampilan seperti berikut :

    Form1

    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.

  2. 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 Report

    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

Hasil Report

Selamat mencoba
by 1n53ct4

None found.
Posted in Delphi 7, Programing, SQL SERVER and tagged , .