Download source code vb6, source code delphi7, tutorial vb, tutorial delphi, tutorial php

Source code Penyewaan DVD

Share on :
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 :
Source code
Close

Klik Like/share jika anda menyukai tulisan Share

2 komentar on Source code Penyewaan DVD :

NN mengatakan... 10 Januari 2012 pukul 15.59

Kak, mana listing yg rental dvd? koq blm diupload

Unknown mengatakan... 13 Oktober 2012 pukul 07.55

mas minta bantuan nih email saya manalagi.yanto@gmail.com
masalah saya bagaimana ya cara membuat teks tapi hanya ada dibagian teks yang itu saja yang kosong pada pembuatan data base setelah dikompile saya memakai vb 6.0

Post a Comment and Don't Spam!

Terimakasih Sudah Berkomentar di artikel ini