rosistmikpringsewu

Private Sub cmdbatal_Click() txtkode.SetFocus txtkode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkode.SetFocus txtkode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" End Sub Private Sub cmdproses_Click() Dim A As String A = Left(txtkode, 3) If A = "SIM" Then txtjudul = "Sistem Informasi Manageman" txtpengarang = "Fadila Ulfa" txtharga = "75900" ElseIf A = "EDP" Then txtjudul = "Elektronik Data Processing" txtpengarang = "Nurul Agustina" txtharga = "62000" ElseIf A = "MNJ" Then txtjudul = "Manajeman" txtpengarang = "Riyan Hidayat" txtharga = "42000" ElseIf A = "CDR" Then txtjudul = ...