Oleh : Uus Rusmawan http://www.konsultasivb.com Harga program Rp. 50.000 (Lima Puluh Ribu Rupiah) Bagi yang berminat silakan transfer ke nomor rekening : 066 - 0525 - 947 (Bank BCA) an: Uus Rusmawan 156 - 00 - 0250214 - 6 (Bank Mandiri) an: Uus Rusmawan 0139 - 01- 063038 - 50 - 4 (Bank BRI) an: Uus Rusmawan Kemudian segera lakukan konfirmasi melalui email :
[email protected]
PROGRAM RENTAL VCD Program rental VCD sebenarnya satu type dengan program Perpustakaan dimana prinsip dasarnya adalah adanya proses peminjaman dan pengembalian. Sisi perbedaannya hanya sedikit, yaitu (jika memang diperlukan) dalam program rental VCD tidak perlu adanya batasan peminjaman agar pemasukan dari penyewaan film semakin banyak.
10.1 Normalisasi File Program Rental VCD ini dirancang dengan Normaliasi level ketiga (3NF) dengan bentuk seperti Gambar 10.1.
Gambar 10.1 Normalisasi File
Program rental VCD ini menyimpan data ke dua tabel yaitu tabel Pinjam dan DetailPjm seperti terlihat pada tabel-tabel berikut ini.
1
Oleh : Uus Rusmawan http://www.konsultasivb.com Harga program Rp. 50.000 (Lima Puluh Ribu Rupiah) Bagi yang berminat silakan transfer ke nomor rekening : 066 - 0525 - 947 (Bank BCA) an: Uus Rusmawan 156 - 00 - 0250214 - 6 (Bank Mandiri) an: Uus Rusmawan 0139 - 01- 063038 - 50 - 4 (Bank BRI) an: Uus Rusmawan Kemudian segera lakukan konfirmasi melalui email :
[email protected]
Tabel Pinjam
Pinjam Nomorpjm Tanggalpjm Totalpjm TotalHrg Dibayar Kembali Nomoragt 07111401 14/11/07 3 6500 10000 3500 A001 Tabel DetailPjm
DetailPjm Nomorpjm NomorFlm JumlahFlm 071114011 F001 1 071114012 F004 1 071114013 F007 1
10.2 Database Dan Tabel Untuk mengetahui file database dan struktur masing-masing tabel berikut type data dan kunci primer maupun kunci tamunya silakan buka CD pendukung buku ini.
2
Oleh : Uus Rusmawan http://www.konsultasivb.com Harga program Rp. 50.000 (Lima Puluh Ribu Rupiah) Bagi yang berminat silakan transfer ke nomor rekening : 066 - 0525 - 947 (Bank BCA) an: Uus Rusmawan 156 - 00 - 0250214 - 6 (Bank Mandiri) an: Uus Rusmawan 0139 - 01- 063038 - 50 - 4 (Bank BRI) an: Uus Rusmawan Kemudian segera lakukan konfirmasi melalui email :
[email protected]
Gambar 10.2 Database Dan Tabel
10.3 Membuat Module Untuk memulai membuat program Rental VCD, aktifkanlah VB kemudian awali dengan membuat module lalu ketik coding berikut ini. Coding : Public Public Public Public Public Public Public Public Public
Conn As New adodb.Connection RSAnggota As adodb.Recordset RSFilm As adodb.Recordset RSPinjam As adodb.Recordset RSDetailPjm As adodb.Recordset RSKembali As adodb.Recordset RSDetailKbl As adodb.Recordset RSTansPjm As adodb.Recordset RSTansKbl As adodb.Recordset
Public Sub BukaDB() Set Conn = New adodb.Connection Set RSAnggota = New adodb.Recordset Set RSFilm = New adodb.Recordset Set RSPinjam = New adodb.Recordset Set RSDetailPjm = New adodb.Recordset Set RSKembali = New adodb.Recordset Set RSDetailKbl = New adodb.Recordset
3
Oleh : Uus Rusmawan http://www.konsultasivb.com Harga program Rp. 50.000 (Lima Puluh Ribu Rupiah) Bagi yang berminat silakan transfer ke nomor rekening : 066 - 0525 - 947 (Bank BCA) an: Uus Rusmawan 156 - 00 - 0250214 - 6 (Bank Mandiri) an: Uus Rusmawan 0139 - 01- 063038 - 50 - 4 (Bank BRI) an: Uus Rusmawan Kemudian segera lakukan konfirmasi melalui email :
[email protected] Set RSTansPjm = New adodb.Recordset Set RSTansKbl = New adodb.Recordset Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ADOVCD.mdb" End Sub
10.4 Transaksi Peminjaman Film Dengan asumsi form login, data film, anggota telah dibuat, kini saatnya membuat form Rental VCD dengan bentuk seperti Gambar 10.3 berikut ini. Ilustrasi pada program ini adalah sebagai berikut: 1.
Nomor pinjam dan tanggal muncul secara otomatis, berubah setiap hari dan setiap ganti transaksi (disarankan untuk mengecek kembali validasi tanggal dengan format dd/mm/yy sebelum program dijalankan)
2.
Hal pertama yang harus dilakukan adalah mengetik Nomor Anggota. Jika ditemukan maka akan tampil namanya, jika pernah meminjam maka jumlahnya akan ditampilkan di DataGrid bagian bawah, jika belum pernah pinjam maka kursor pindah ke grid transaksi peminjaman.
4
Oleh : Uus Rusmawan http://www.konsultasivb.com Harga program Rp. 50.000 (Lima Puluh Ribu Rupiah) Bagi yang berminat silakan transfer ke nomor rekening : 066 - 0525 - 947 (Bank BCA) an: Uus Rusmawan 156 - 00 - 0250214 - 6 (Bank Mandiri) an: Uus Rusmawan 0139 - 01- 063038 - 50 - 4 (Bank BRI) an: Uus Rusmawan Kemudian segera lakukan konfirmasi melalui email :
[email protected]
Gambar 10.3 Transaksi Peminjaman
10.5 Transaksi Pengembalian Film Transaksi pengembalian film ini dilakukan dengan cara mengetik nomor anggota kemudian memilih data film yang akan dikembalikan di DataGrid2, setelah itu pehatikanlah jumlah dendanya, jika ada denda yang harus dibayar maka isilah jumlah pembayaran dendanya. Aturan dalam denda dapat Anda tentukan sendiri. Dalam program ini maksimal lama pinjam adalah 5 hari dengan denda Rp. 500,- per hari per film.
5
Oleh : Uus Rusmawan http://www.konsultasivb.com Harga program Rp. 50.000 (Lima Puluh Ribu Rupiah) Bagi yang berminat silakan transfer ke nomor rekening : 066 - 0525 - 947 (Bank BCA) an: Uus Rusmawan 156 - 00 - 0250214 - 6 (Bank Mandiri) an: Uus Rusmawan 0139 - 01- 063038 - 50 - 4 (Bank BRI) an: Uus Rusmawan Kemudian segera lakukan konfirmasi melalui email :
[email protected]
Gambar 10.4 Transaksi Pengembalian
Catatan : Dalam CD pendukung kami telah melengkapi program rental VCD ini dengan beberapa laporan dan rincian masing-masing transaksi, baik peminjaman maupun pengembalian.
6