Cara Membuat Report dengan Delphi 7

Hai Sahabat Onan ..... Sebuah aplikasi perkantoran maupun pertokoan pasti didalamnya membutuhkan komponen yang dinamakan report. Report adalah sebuah nama komponen yang beruna untuk membuat struk dan nota dalam sebuah aplikasi

Didalam report ini kita bisa menyesuaikan dengan tabel yang ada didatabase yang nantinya akan dijadikan struk dan nota. Dalam pembahasan kali ini saya akan memberikan contoh cara membuat sebuah struk atau nota didalam Delphi 7 menggunakan Qreport.

Jika anda belum mempunyai komponen QReport baca juga Cara Instalasi Qreport pada Delphi 7

•             Siapkan 2 form baru untuk dijadikan report anda
•             Jika sudah masukan Button didalam form pertama tersebut
•             Lalu tambahkan QuickRep dan Myquery pada tab Qreport pada form yang kedua
•             Masuk ke menu properties, ubah komponen Bands seperti gambar dibawah ini

•             Setelah muncul, masukan komponen QRLabel dan QRDBText

• Masuk lagi diform yang pertama, lalu copy kode dibawah ini untuk disisipkan di Button

  Frm_CetakTMasuk.MyQuery1.Active := false;
  Frm_CetakTMasuk.MyQuery1.SQL.Clear ;
  Frm_CetakTMasuk.MyQuery1.SQL.Add(' select * from tbl_detailtrans');
  Frm_CetakTMasuk.MyQuery1.Execute ;
  Frm_CetakTMasuk.MyQuery1.Active := true;

  Frm_CetakTMasuk.QuickRep1.PreviewModal;

• Selesai, Report anda akan muncul ^_^

Kode diatas untuk menampilkan semua data yang ada didatabase, jika anda ingin memfilter berdasarakan data yang lain kodenya ada dibawah sini ^_^

  Frm_CetakTMasuk.MyQuery1.Active := false;

            Frm_CetakTMasuk.MyQuery1.SQL.Clear ;

            Frm_CetakTMasuk.MyQuery1.SQL.Add(' select * from ' +

            'tbl_detailtrans where no_transaksi like ''%' + Edit4.Text  + '%''' ) ;

            Frm_CetakTMasuk.MyQuery1.Execute ;

            Frm_CetakTMasuk.MyQuery1.Active := true;

            Frm_CetakTMasuk.QuickRep1.PreviewModal;

Semoga artikel diatas dapat membantu anda ^_^