Pujakattrin

Private Sub Cmdbatal_Click() Txtnk.SetFocus Txtgol = "" Txtks = "" Txtst = "" Txtth = "" Txtjb = "" Txtbag = "" Txtgp = "" Txttjg = "" Txttg = "" Txtterbilang = "" Txtnk = "" Txtnik = "" End Sub Private Sub Cmdkeluar_Click() End End Sub Private Sub Cmdlagi_Click() Txtnk.SetFocus Txtgol = "" Txtks = "" Txtst = "" Txtth = "" Txtjb = "" Txtbag = "" Txtgp = "" Txttjg = "" Txttg = "" Txtterbilang = "" Txtnk = "" Txtnik = "" End Sub Private Sub Cmdproses_Click() Dim s As String s = Mid(Txtnik, 5, 1) If s = "A" Then Txtgol = "A" Txtjb = "Manager" Txtgp = "4000000" Txttjg = "1025000" ElseIf s = "B" Then Txtgol = "B" Txtjb = "Ka. Seksi...

Private Sub Command1_Click() Dim s As String Txttt = "20" & Mid(Cbokode, 2) s = Right(Cbokode, 1) If s = "A" Then Txtpenerbit = "Andi Offset Yogyakarta" ElseIf s = "I" Then Txtpenerbit = "Indah Surabaya" ElseIf s = "S" Then Txtpenerbit = "Salema Empat" ElseIf s = "E" Then Txtpenerbit = "Elek Media Komputindo" ElseIf s = "M" Then Txtpenerbit = "Maxicom" End If s = Left(Cbokode, 3) If s = "SIM" Then Txtjb = "Sistem Informasi Manajemen" Txtpengarang = "Fadiya Ulfa" Txtharga = "75900" ElseIf s = "EDP" Then Txtjb = "Elektronik Data Processing" Txtpengarang = "Nurul Agustin" Txtharga = "62000" ElseIf s = "MNJ" Then Txtjb = "Manajemen" Txtpengarang = "Riyan Hidayat" Txtharga = "42000" ElseIf s = "C...

Private Sub Cmdproses_Click() Dim s As String s = Left(Txtkode, 3) If s = "BIM" Then Txtjk = "BIMA" Txtht = "50000" Txtjb = "16.00" ElseIf s = "EKO" Then Txtjk = "EKONOMI" Txtht = "35000" Txtjb = "19.00" ElseIf s = "MUT" Then Txtjk = "MUTIARA" Txtht = "23000" Txtjb = "17.00" ElseIf s = "SEN" Then Txtjk = "SENJA" Txtht = "15000" Txtjb = "20.00" End If Txttp = Val(Txtjt) * Val(Txtht) Txtjt.SetFocus End Sub Private Sub Command2_Click() Txtkode.SetFocus Txtkode = "" Txtht = "" Txtjk = "" Txtjb = "" Txtjt = "" Txttp = "" End Sub Private Sub Command3_Click() End End Sub Private Sub Txtjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txttp = Val(Txtjt) * Val(Txtht) End If End Sub

Private Sub Cmdproses_Click() Dim S As String Txttt = "20" & Right(Cbokodebuku, 2) S = Left(Cbokodebuku, 1) If S = "A" Then Txtpenerbit = "andi offset yogyakarta" ElseIf S = "I" Then Txtpenerbit = "indah surabaya" ElseIf S = "S" Then Txtpenerbit = "salemba empat" ElseIf S = "E" Then Txtpenerbit = "elek media computindo" ElseIf S = "M" Then Txtpenerbit = "maxicom" End If S = Mid(Cbokodebuku, 3, 3) If S = "SIM" Then Txtjb = "Sistem Informasi Managemen" Txtpengarang = "Yati Nur Oktavia" Txtharga = "75900" ElseIf S = "EDP" Then Txtjb = "Elektronik Data Processing" Txtpengarang = "Imam Tarmizi" Txtharga = "62000" ElseIf S = "MNJ" Then Txtjb = "Manajemen" Txtpengarang = "Valentina Mariana Adiwianti" Txtharga...