Tutorial Membuat Aplikasi Database Dengan Delphi 7 Part-4

Okey , sebelum mulai tutorial kali ini.Bagi anda yang pertama kali mengunjungi blog saya khususnya tutorial pembuatan aplikasi database dengan delphi 7 , ada baiknya untuk menyimak terlebih dahulu tutorial sebelumnya.PART-1 , PART-2 dan PART-3.Agar lebih memahami tutorial ini dari awal.Sebagaimana saya beritahukan pada tutorial sebelumnya , bahwa kali ini kita akan membuat report untuk form input data barang.Bila belum menginstall komponen Quickreport standart dan belum tau cara penggunaannya , bisa anda lihat DISINI.Sebagai catatan , dalam tutorial kali ini saya menggunakan Quickreport versi 4 Pro.Silahkan lihat infonya DISINI.Namun bila anda menggunakan Quickreport versi standart pun tidaklah jadi soal.Setelah semua siap , mari kita mulai.

Buka kembali project yang telah kita buat sebelumnya.Lalu tambahkan komponen Quickreport pada form input barang.Rubah property datasetnya menjadi DM.TBarang dan property namenya menjadi QRbarang.Sebenarnya , kita bisa membuat form khusus untuk menyimpan laporan.Hanya peluang untuk Acces Violation errornya cukup tinggi (pengalaman saya).Untuk itu saya menambahkan komponen reportnya pada form input barang.Tambahkan komponen button dengan property caption Cetak dan property name btnCetak.Tempatkan di bawah tombol hapus , diatas tombol keluar.Bila sudah , saatnya kita mengotak-ngatik komponen quickreport.Tambahkan komponen-komponen berikut pada QRbarang.

Nama komponen	Property	Keterangan
QRband	bandType:rbTitle	Sekat pada bagian atas sebagai title
QRband	bandType:rbDetail	Sekat pada bagian tengah
QRband	bandType:rbSubDetail	Sekat pada bagian bawah
QRlabel	Caption : Data Barang	Tempatkan pada rbTitle
QRlabel	Caption:NO	Tempatkan pada rbDetail
QRlabel	Caption :Kode Barang	Tempatkan pada rbDetail
Qrlabel	Caption :Nama Barang	Tempatkan Pada rbDetail
QRlabel	Caption:Jumlah Stok	Tempatkan Pada rbDetail
QRlabel	Caption:Satuan	Tempatkan Pada rbDetail
QREXPR	Function:Count	Tempatkan Pada rbSubDetail
QRDBText	Dataset:DM.Tbarang  , DataField:kdBarang	Tempatkan Pada rbSubDetail
QRDBText	Dataset:DM.Tbarang , DataField:Nama	Tempatkan Pada rbSubDetail
QRDBText	Dataset:DM.TBarang , DataField:JmlStok	Tempatkan Pada rbSubDetail
QRDBText	Dataset:DM.TBarang , DataField:Satuan	Tempatkan Pada rbSubDetail

Susun semua komponen tersebut sesuai gambar berikut.

Okey.Terlihat bahwa komponen QRbarang menutupi form Input Barang.Seret ke samping agar QRbarang tak terlihat.Lalu resize form input barang sesuai dengan kondisi semula.Selanjutnya , double-klik btnCetak lalu ketikan kode berikut.

procedure TFinputBarang.BtnCetakClick(Sender: TObject);
begin
 if QRbarang.available=true then
  begin
   QRbarang.Refresh;
   QRbarang.Prepare;
   QRbarang.PreviewModal;
  end;
end;

Coba jalankan program lalu inputkan beberapa data.Setelah di simpan , tekan tombol cetak.Maka bila tidak ada kesalahan akan tampil laporan data yang telah di input sebelumnya.Sekian tutorial kali , semoga bermanfaat.

Oia , bila anda berminat untuk mempelajari delphi 7 dari tingkat dasar sampai mahir membuat aplikasi database sendiri.Silahkan kunjungi blog video tutorial saya DISINI.Tersedia video tutorial praktek selama 3 jam yang akan menuntun anda dengan mudah mempelajari pemrograman Delphi 7.

Simak Juga Tutorial Lainnya:

Delphi 7

• Cara Mendeteksi Running Application di Delphi 7
• Cara Membuat dan Menggunakan DLL di Delphi 7
• Efek Teks Berjalan Dan Kerlap-Kerlip di Delphi 7
• Simulasi Declare Component Secara Run Time di Delphi 7
• Konsep Inheritance/Pewarisan Di Delphi 7
• Optimalisasi Penggunaan Procedure di Delphi 7
• [SHARE]Komponen Multi Line Untuk Delphi 7
• Fungsi Drag and Drop String ke Komponen TEdit di Delphi 7
• Cara Membuat Aplikasi SWF-EXE Converter di Delphi 7
• Cara Membuat Aplikasi Uninstall di Delphi 7
• Cara Membuat Aplikasi Teracopy di Delphi 7
• Cara Membuat Aplikasi WinRar di Delphi 7
• Cara Membuat Aplikasi Penghitung Kapasitas Hard Disk di Delphi 7
• Cara Membuat Aplikasi TuneUp Shredder di Delphi 7
• Cara Konversi Karakter TEdit Menjadi UpperCase di Delphi 7
• Cara Membuat Aplikasi HJ Split di Delphi 7
• Video Tutorial :: Membuat Pencarian Data Super Cepat di Delphi 7
• Cara Menggunakan Case Of di Delphi 7
• Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7
• Cara Mengecek Primary Key Pada Saat Input Di Delphi 7
• Cara Membersihkan TEdit Secara Cepat Di Delphi 7
• Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7
• Cara Menjalankan Aplikasi Lain Di Delphi 7
• Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7
• Cara Membuat Aplikasi Entri Data Dengan Delphi 7

Laporan

• Tutorial Cara Install Komponen Quick Report 4 Pro Pada Delphi 7
• Cara Install Komponen Quick Report Pada Delphi 7

Info

• Cara Mencegah Flash CS4 Terkunci DI Windows 7
• Mesin Penukar Koin
• Masuk Bengkel , Motor Malah Gosong
• Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7
• Proses Hamil Yang Bikin Ngakak
• Pesawat Terbang Yang Jadi Pajangan Di Halaman Rumah
• Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7
• Membuat Kue Dengan Photoshop
• Uniknya Photoshop Di Dunia Nyata
• Rush di Tabrak Mio Sampai Nungging
• Cara Membuat Animasi Sederhana Di Delphi 7
• Cara Menambahkan Fungsi Undo pada komponen edit di delphi 7
• Mengetahui lama komputer dinyalakan dengan delphi 7
• Cara filter input karakter pada komponen edit di delphi 7
• Tutorial Delphi 7 Menampilkan Data Pada Diagram Grafik
• Mengenal Procedure dan Function Pada Delphi 7
• Tutorial Cara Install Komponen Quick Report 4 Pro Pada Delphi 7
• Cara Install Komponen Quick Report Pada Delphi 7
• Tutorial Membuat Aplikasi Database Dengan Delphi 7 Part-3
• Cara Menulis dan Membaca String Pada Registry Dengan Delphi 7
• Koneksi XAMPP , DAC MySQL dan Delphi 7
• Enkripsi Yang Bisa Difungsikan Untuk Serial Number Ala Saya
• Menyembunyikan File *.rar Di Dalam File Foto..
• Perhitungan Tabel Dengan Query Pada Delphi 7