- Buat Database dgn Access: dvd.mb dan sesuaikan dengan design di atas.
Buat Table: tb_film
Field name Type Size
Field name Type Size
Kdfilm Text 10 PK
Judul Text 30
Kategori Text 10
Jumlah Number
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

Selamat belajar bro .....
ReplyDeleteYup ... pastinya bos..
ReplyDelete