Source code Penyewaan DVD

Pusing ditagih melulu ama mahasiswa, ditambah lupa juga upload jawaban ini :p
sok silahkan dinikmati source code berikut :D
Source code ini adalah source code dari latihan yang ada di lab G tentang penyewaan,teapi menggunakan listbox sebagai pemilihan id dari produknya.

Penampakan form nya

gausah panjang lebar,udah malem juga. . .
lagian kalo panjang n lebar nanti jadinya luas :p
cara mengisi ListBox nya buat Procedure atau bisa langsung di taruh di event Form_load

1. Sub isi()  
2. Set db = OpenDatabase(App.Path & "\penyewaan.mdb")  
3. Set rsMyRS = db.OpenRecordset("film", dbOpenDynaset)  
4. If Not rsMyRS.EOF Then rsMyRS.MoveFirst  
5. Do While Not rsMyRS.EOF  
6.     List1.AddItem rsMyRS!kode_dvd  
7.     rsMyRS.MoveNext  
8. Loop  
9. End Sub  

Nah untuk proses pemilihannya di taruh pada ListBox_click

1. Private Sub List1_Click()  
2. rsMyRS.FindFirst ("[kode_dvd] = '" & List1.Text & "'")  
3. Tjudul.Text = rsMyRS!judul  
4. Thrg = rsMyRS!harga  
5. End Sub  

jika dalam keseluruhan listingnya bisa dilihat dibawah ini :

1. Dim db As Database  
2. Dim rsMyRS As Recordset  
3.   
4. Sub bersih()  
5. For Each x In Me  
6. If TypeName(x) = "TextBox" Then x.Text = ""  
7. Next  
8. End Sub  
9. Sub aktif()  
10. For Each x In Me  
11. If TypeName(x) = "TextBox" Then x.Enabled = True  
12. Next  
13. List1.Enabled = True  
14. End Sub  
15. Sub mati()  
16. For Each x In Me  
17. If TypeName(x) = "TextBox" Then x.Enabled = False  
18. Next  
19. List1.Enabled = False  
20. End Sub  
21.   
22. Private Sub CmdaNew_Click()  
23. bersih  
24. aktif  
25. isi  
26. Tno.SetFocus  
27. End Sub  
28.   
29. Private Sub CmdCancel_Click()  
30. bersih  
31. mati  
32. End Sub  
33.   
34. Private Sub CmdExt_Click()  
35. p = MsgBox("Yakin mau keluar??", vbQuestion + vbOKCancel, "Konfirmasi")  
36.     If p = vbOK Then End  
37. End Sub  
38.   
39. Private Sub CmdSave_Click()  
40. With dtSewa.Recordset  
41. .AddNew  
42. !no_pinjam = Tno  
43. !nama = Tnama  
44. !jumlah = Tjmlh  
45. !total = Ttotal  
46. !kode_dvd = Lbox1.Text  
47. .Update  
48. End With  
49. MsgBox "Data berhasil disimpan", vbInformation, "Simpan"  
50. bersih  
51. mati  
52. End Sub  
53.   
54. Private Sub Form_Load()  
55. mati  
56. bersih  
57. End Sub  
58. Sub isi()  
59. Set db = OpenDatabase(App.Path & "\penyewaan.mdb")  
60. Set rsMyRS = db.OpenRecordset("film", dbOpenDynaset)  
61. If Not rsMyRS.EOF Then rsMyRS.MoveFirst  
62. Do While Not rsMyRS.EOF  
63.     List1.AddItem rsMyRS!kode_dvd  
64.     rsMyRS.MoveNext  
65. Loop  
66. End Sub  
67. Private Sub List1_Click()  
68. rsMyRS.FindFirst ("[kode_dvd] = '" & List1.Text & "'")  
69. Tjudul.Text = rsMyRS!judul  
70. Thrg = rsMyRS!harga  
71. End Sub  
72.    
73. Private Sub Tbyr_KeyPress(KeyAscii As Integer)  
74. If KeyAscii = 13 Then Tukem = Val(Tbyr) - Val(Ttotal)  
75. End Sub  
76.   
77. Private Sub Tjmlh_Change()  
78. Ttotal = Val(Tjmlh) * Val(Thrg)  
79. End Sub  
80.   
81. Private Sub Tjmlh_KeyPress(KeyAscii As Integer)  
82. If KeyAscii = 13 Then Tbyr.SetFocus  
83. End Sub  
84.   
85. Private Sub Tnama_KeyPress(KeyAscii As Integer)  
86. If KeyAscii = 13 Then Tjmlh.SetFocus  
87. End Sub  
88.   
89. Private Sub Tno_KeyPress(KeyAscii As Integer)  
90. If KeyAscii = 13 Then Tnama.SetFocus  
91. End Sub  

Download disini :

Download

Source code

Close

---

Klik Like/share jika anda menyukai tulisan Share