rosistmikpringsewu

Private Sub cbokode_Click() Select Case cbokode Case "A-SIM-01" Case "I-EDP-02" Case "S-MNJ-03" Case "E-CDR-04" Case "M-RPL-05" End Select End Sub Private Sub cmdbatal_Click() cbokode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" cbokode.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() cbokode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" cbokode.SetFocus End Sub Private Sub cmdproses_Click() Dim A As String A = Left(cbokode, 1) If A = "A" Then txtpenerbit = "Andi Offset Yogyakarta" ElseIf A = "I" Then txtpenerbit = "Indah Surabaya" ElseIf A = "S" Then txtpenerbit = "Salemba Empat" ElseIf A = "E" Then txtpenerbit = "Elek Media Ko...