Private Sub Cmdkeluar_Click()
Form2.Show
End Sub
Private Sub cmdlagi_Click()
Cmbcode.SetFocus
Cmbcode = “”
Textjb = “”
Textpeng = “”
Texttt = “”
Textpen = “”
Textharga = “”
End Sub
Private Sub cmdproses_Click()
Dim judul, pengarang, tahun, penerbit, harga As String
Select Case Cmbcode
Case “A-SIM-01”
judul = “SistemInformasiManajemen”
pengarang = “YatiNurOktavia”
tahun = “2001”
penerbit = “Andi Offset Yogyakarta”
harga = “75900”
Case “I-EDP-02”
judul = “ElektronikData Processing”
pengarang = “Imam Tarmizi”
tahun = “2002”
penerbit = “Indah Surabaya”
harga = “62000”
Case “S-MNJ-03”
judul = “Manajemen”
pengarang = “Valentina Mariana Adiwianti”
tahun = “2003”
penerbit = “SalembaEmpat”
harga = “42000”
Case “E-CDR-04”
judul = “Corel Draw”
pengarang = “RiyanSuhandi”
tahun = “2004”
penerbit = “Elek Media Komputindo”
harga = “53000”
Case “M-RPL-05”
judul = “RekayasaPerangkatLunak”
pengarang = “SintaUmpuSinga”
tahun = “2005”
penerbit = “Maxicom”
harga = “83000”
End Select
Textjb = judul
Textpeng = pengarang
Texttt = tahun
Textpen = penerbit
Textharga = harga
End Sub
Private Sub Cndbatal_Click()
Cmbcode.SetFocus
Cmbcode = “”
Textjb = “”
Textpeng = “”
Texttt = “”
Textpen = “”
Textharga = “”
End Sub
Private Sub Command1_Click()
Data2.Recordset.AddNew
Cmbcode.SetFocus
End Sub
Private Sub Command2_Click()
Data2.Recordset.Update
End Sub
Private Sub Command3_Click()
Data2.Recordset.Delete
End Sub
Private Sub Form_Load()
Cmbcode.AddItem “A-SIM-01”
Cmbcode.AddItem “I-EDP-02”
Cmbcode.AddItem “S-MNJ-03”
Cmbcode.AddItem “E-CDR-04”
Cmbcode.AddItem “M-RPL-05”
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
Private Sub Form_Load()
End Sub