09 April 2012

Latihan Kuis VB 2

 
VB.2 ( Data Koneksi : Adodc)

  •   Buat Database dgn Access: dvd.mb dan sesuaikan dengan design di atas.
            Buat Table: tb_film 
            Field name                Type                Size                
Kdfilm                      Text                 10        PK
Judul                        Text                 30
Kategori                   Text                 10
Jumlah                     Number
Harga                       Currency
 

Isikan data sbb:
Kdfilm            Judul                           Kategori          Jumlah             Harga
F001              Twilight                        Action             20                    70000
      F002              Kuntilanak                   Horor               30                    50000
 Ketentuan: 
1. Klik Baru,Semua textbox Bersih 
2. Klik Cari,data akan tampil  
3. Cari berdasarkan kdfilm,jika kode tidak ditemukan muncul pesan “Kode Tidak Tersedia” 
4. Klik Simpan,jika berhasil ada pesan “Data Berhasil Disimpan” 
5. Klik Keluar maka muncul “Yakin Keluar!!”
 
Listing nya....

Private Sub cmdbaru_Click()
txtkode = ""
txtjudul = ""
ckategori = ""
txtjumlah = ""
txtharga = ""
End Sub

Private Sub cmdsimpan_Click()
With Adodc1.Recordset
.AddNew
!kdfilm = txtkode
!judul = txtjudul
!kategori = ckategori
!jumlah = txtjumlah
!harga = txtharga
.Update
End With
MsgBox "Data Berhasil di Simpan"
End Sub

Private Sub cmdcari_Click()
With Adodc1.Recordset
.Find "kdfilm='" & txtkode & "'"
If .EOF Then
MsgBox "Kode Tidak Tersedia"
Else
txtkode = !kdfilm
txtjudul = !judul
ckategori = !kategori
txtjumlah = !jumlah
txtharga = !harga
End If
End With
End Sub

Private Sub cmdkeluar_Click()
x = MsgBox("Yakin Keluar!!....", vbYesNo + vbQuestion, "Info")
If x = vbYes Then
End
End If
End Sub 



2 comments: