Pemrograman VB (Part 7 & 8)

PERTEMUAN  ke 7 diadakan QUIZ ..... lumayan lah nilainya, ada yang bagus dan ada yang tidak bagus. tapi bisa kamu perbaiki di pertemuan berikutnya .... semangat!!! :)

PERTEMUAN 8

1. Buatlah database menggunakan visual data manager dengan nama "DataBuku"
2. Isi tabel sbb
1. idbuku
2. namabuku
3. pengarang
4. tahun
5. jenisbuku
3. kemudian tambahkan index dengan nama "dtbuku" dari "idbuku"

• langkah berikutnya buatlah form sbb :

• setting properties pada "Data1" sbb
• DatabaseName : (cari data base yang kamu buat tadi dengan nama "DataBuku"
• EOFAction : 2-AddNew
• RecordsetType : 0-Table
• RecordSource : databuku
• setelah itu setting pada Text1 di properties sbb:
• DataSource : Data1
• DataField : idbuku
• lakukan hal yang sama dengan Text2, Text3, Text4 dan Combo1 dengan menyesuaikan DataSource dan DataField
• klik command button "ADD" masukkan kode source

               Data1.Recordset.AddNew

               Text1.SetFocus

• klik command button "SAVE" masukkan kode source

               Data1.Refresh

               Data1.Recordset.MoveLast

• klik command button "EDIT" masukkan kode source

          Data1.Recordset.Edit

• klik command button "DELETE" masukkan kode source

          Data1.Recordset.Delete

          Data1.Recordset.MoveNext

• klik command button "CANCEL" masukkan kode source

         Text1.Text = ""

         Text2.Text = ""

         Text3.Text = ""

         Text4.Text = ""

         Combo1.Text = ""

         Text1.SetFocus

• sekarang pada source code pencarian index
• pada Text5 diganti menjadi "txtcari"
• command7 diganti menjadi "cmdcari"
• klik txtcari kemudian masukkan source code sbb:

          Private Sub txtcari_GotFocus()

          cmdcari.Default = True

          End Sub

dan 

           Private Sub txtcari_LostFocus()

           cmdcari.Default = False

           End Sub

• kemudian klik cmdcari masukkan sourcecode sbb:

          Dim mbuku As String

          mbuku = Text5.Text

          msyarat = "idbuku = '" & mbuku & " ' "

          Data1.Recordset.Index = "dtbuku"

          Data1.Recordset.Seek "=", mbuku

          If Data1.Recordset.NoMatch Then

               X = MsgBox("Data tidak ditemukan!", vbOKOnly, "Pencarian DataBuku")

          End If

• klik form kemudian masukkan source code sbb:

          Private Sub Form_Activate()

          Text1.SetFocus

          End Sub

SELAMAT MENCOBA YACH!!!