Kali ini saya mau share tentang rumus bagaimana cara membuat kuitansi menggunakan Delphi, atau bisa juga diartikan cara menyeleksi data sesuai statement yang diinginkan. Cara/rumus ini biasanya digunakan di program yang berkaitan dengan bukti pembayaran. Contoh ini saya ambil dari program APS(Aplikasi Pembayaran Sekolah) yang saya buat sebelumnya.
Ok, langsung saja kita mulai membuat kuitansi di Delphi:
1. Buat terlebih dahulu database dan tabelnya, database yang saya gunakan adalah
dbmicrosoft Access 2003.
2. Tampilan database dan tabelnya seperti ini.
 | ||||||||||
| klik gambar untuk memperbesar |
3. Masuk ke Delphi, tambahkan komponen ADOQuery, RvProject dan RvDatasetConection.
4. a). Atur ADOQuery (Object inspector -> Properties)
Name : ADOQTransaksi
Conection : (ADOConection yang digunakan)
SQL : select * from Transaksi_pembayaran
Active :True
 |
| klik gambar untuk memperbesar |
b). Atur RvDataConection
DataSet: ADOQTransaksi
Name : DSkuitansi
5. Run program Delphi (F9)
6. Pilih Menu Tools -> Rave Designer
7. Buat File new
8. Pilih Menu new data Object -> Direct data View -> Next -> Pilih DSkuitansi -> Finish
9. Pilih menu Tools -> Report Wizard -> Simple table -> Next -> All -> Next -> Next -> Ubah
Reprt Title -> Next -> Generate
10. Atur tampilan dataView sesuai keinginan. Missal seperti ini:
 |
| klik gambar untuk memperbesar |
11. Save dengan nama RvKuitansi (sebaiknya satu folder dengan tempat program
disimpan).
12. c). Atur RvProject
Name : RvKuitansi
ProjectFile : (cari lokasi RvKuitansi tadi disimpan)
13. Misal saya ingin RvKuitansi muncul setelah melakukan transaksi pembayaran (Btn Simpan di klik) dan menampilkan/mengeprint data yang hanya No transaksi sesuai No transaksi yang sedang berlangsung.
 |
| klik gambar untuk memperbesar |
14. Pada buton Simpan on click isikan source code :
if messageDlg('Print bukti pembayaran ?',mtConfirmation,[mbYes,mbNo],0)=mryes then
begin
ADOQTransaksi.Active:=false;
ADOQTransaksi.SQL.Clear;
ADOQTransaksi.SQL.Add('SELECT * FROM Transaksi_pembayaran WHERE
No_pembayaran='+QuotedStr(enopembayaran.Text)+'');
ADOQTransaksi.Active:=true;
if ADOQTransaksi.RecordCount<>0 THEN
RvKuitansi.Execute else
MessageDlg('Data Kosong!',mtError,[mbOK],0);
end ;
end;
15. Tinggal di Run(F9).
Diatas adalah cara yang saya ketahui, apabila sobat-sobat mempunyai rumus yang lebih mudah bisa di share.
Semoga berhasil dan bermanfaat :)
