vb2/perpustakaan/quiz2

Buat Database dengan nama Perpustakaan dan buat 1 table dengan nama Buku

FIelds	Type	Size	Ket
Kdbuku	Text	5	PK
Judul	Text	30
Pengarang	Text	30
Jenis	Text	7

Buat Project dengan nama PerpustakaanKu dan Form dengan nama Form_buku.

Ketentuan:

1. Form dalam keadaan aktif, kosong dan tanggal beserta jam tampil
2. Tombol “Data Baru” untuk menampilkan Kode Buku secara otomatis dengan format BK001 (BK Kode buku – 3 digit urutan data)
3. Tombol “Simpan” untuk menyimpan data yang sudah di input dan jika sudah tersimpan maka data di TextBox akan terhapus dan tampil pada DataGrid
4. Untuk mencari data, isi kode anggota yang sudah ada di Txtkode lalu tekan tombol “Cari”. Jika ditemukan maka tampil data nama, alamat dan jenis kelaminnya.
5. Tombol “Ubah” untuk mengubah data yang sudah dicari dengan menonaktifkan TextBox kode anggota
6. Tombol “Hapus” untuk menghapus data
7. Tombol “Keluar” untuk keluar dari form

 

   Listing :

   Dim isidata As Boolean

 

   Private Sub baru_Click()

 isidata = True

   bersih

   nomor

   judul.SetFocus

   End Sub

 

   Private Sub cari_Click()

   With Adodc1.Recordset

   .Find “Kdbuku='” & kd.Text & “‘”

   If .EOF Then

   MsgBox “Kode” + kd.Text + “Tidak ada”, vbInformation, “info”

   kd.Text = “”

   Else

    DataGrid1.Refresh

   judul.Text = .Fields(“Judul”)

   pengarang.Text = .Fields(“pengarang”)

    jenis.Text = .Fields(“Jenis”)

   End If

   End With

   End Sub

 

   Private Sub Form_Load()

   bersih

   tgl.Text = Date

    jam.Text = Time

   End Sub

 

    Sub bersih()

    kd.Text = “”

   judul.Text = “”

   pengarang.Text = “”

   jenis.Text = “-Pilih-“

   End Sub

 

   Sub nomor()

   Adodc1.Refresh

   If Adodc1.Recordset.RecordCount = 0 Then

    a = “001”

   Else

   Adodc1.Recordset.MoveLast

    a = Val(Right(Adodc1.Recordset.Fields(“kdbuku”), 3)) + 1

   a = Right((“00” + Trim(Str(a))), 3)

   End If

   kd.Text = “BK” + a

   End Sub

   Private Sub hapus_Click()

   p = MsgBox(“Yakin mau dihapus?”, vbQuestion + vbYesNo, “Tanya”)

   If p = vbYes Then

   Adodc1.Recordset.Delete

   bersih

   Else

   bersih

    End If

   End Sub

 

   Private Sub keluar_Click()

    p = MsgBox(“Yakin mau keluar?”, vbQuestion + vbYesNo, “Tanya”)

   If p = vbYes Then

   End

   End If

   End Sub

 

    Private Sub simpan_Click()

   Adodc1.Refresh

   With Adodc1.Recordset

    If isidata = True Then

    .AddNew

    End If

    .Fields(“Kdbuku”) = kd.Text

    .Fields(“judul”) = judul.Text

    .Fields(“pengarang”) = pengarang.Text

    .Fields(“jenis”) = jenis.Text

    .Update

   End With

   bersih

   End Sub

 

    Private Sub ubah_Click()

    isidata = False

    kd.Enabled = False

  End Sub

 

****Las Partido Bravo****