Membuat Nota/ Kwitansi di Delphi 7

Kali ini saya tidak akan membahas panjang lebar dari cara membuat database, data module, dan sebagainya di Delphi 7. Saya anggap Anda telah menyiapkan semuanya, dan hanya tinggal ingin membuat Nota ataupun Kwitansi elektronik di Delphi 7.

Langsung saja kita masuk tahapan-tahapannya.

Harap diingat bahwa semua form yang berkaitan kita 'Use Unit' agar suatu nama form dapat dipanggil.

1. Buat sebuah Form baru dan kita isikan dengan elemen QuickRep.
2. Masukkan field-field yang akan dijadikan nota/ kwitansi kedalam QuickRep, dan field-field tersebut merupakan field database anda.
   
3. Pada form pemanggilan nota/ kwitansi, tempatkan elemen Button kedalam form pemanggilan yang disertai database anda dibawahnya. Rename Button dengan nama Nota.
   
4. Klik 2x pada Button Nota dan ketikkan code berikut.

   Ket : DM pada gambar merupakan nama Data Module saya, QUERYINPUT merupakan nama komponen ADOQuery dalam project saya. F_NOTA : nama form Nota, dan NOTA1 : nama QuickReport, Tinput merupakan nama tabel dalam Database (Ms.Access) saya.

5. Kembali ke form pemanggilan. Pada Object Inspector, tab Event, klik 2x pada On Cell Click.
   
6. Dan tambahkan kode berikut.
   
7. Balik ke form Report Nota. Klik pada halaman Nota (QuickRep). Pada Object Inspector, tab Event, klik 2x pada AfterPreview.
   
8. Ketikkan code berikut.
   
9. Setelah itu running program anda, pilih salah satu record yang ingin di cetak notanya. Kemudian klik tombol Nota.
   
10. Maka akan tampil seperti ini.