Private Sub Cmdbtl_Click()
Txtkbu.SetFocus
Txtkbu.Text = “”
Txtjbu.Text = “”
Txtpeng.Text = “”
Txtthn.Text = “”
Txtpnr.Text = “”
Txthrg.Text = “”
End Sub
Private Sub Cmdexit_Click()
Unload Me
End Sub
Private Sub Cmdlagi_Click()
Txtkbu.SetFocus
Txtkbu.Text = “”
Txtjbu.Text = “”
Txtpeng.Text = “”
Txtthn.Text = “”
Txtpnr.Text = “”
Txthrg.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim P As String
Txtthn.Text = “20” & Right(Txtkbu.Text, 2)
P = Left(Txtkbu.Text, 1)
If P = “A” Then
Pn = “Andi Offset Yogyakarta”
ElseIf P = “I” Then
Pn = “Indah Surabaya”
ElseIf P = “S” Then
Pn = “Salemba Empat”
ElseIf P = “E” Then
Pn = “Elek Media Komputindo”
ElseIf P = “M” Then
Pn = “Maxicom”
End If
P = Mid(Txtkbu.Text, 3, 3)
If P = “SIM” Then
Jbk = “Sisitem Informasi Manajemen”
Png = “Andra Setiawan”
Hrg = “75900”
ElseIf P = “EDP” Then
Jbk = “Elektronik Data Processing”
Png = “Desi Istiqomah”
Hrg = “62000”
ElseIf P = “MNJ” Then
Jbk = “Manajemen”
Png = “Sandy Fitrajaya”
Hrg = “42000”
ElseIf P = “CDR” Then
Jbk = “Corel draw”
Png = “Tri Indah Sari”
Hrg = “53000”
ElseIf P = “RPL” Then
Jbk = “Rekayasa Perangkat Lunak”
Png = “Ernita”
Hrg = “83000”
End If
Txtpnr.Text = Pn
Txtjbu.Text = Jbk
Txtpeng.Text = Png
Txthrg.Text = Hrg
End Sub
Private Sub form_load()
Cbokod.AddItem “A-SIM-01”
Cbokod.AddItem “I-EDP-02”
Cbokod.AddItem “S-MNJ-03”
Cbokod.AddItem “E-CDR-O4”
Cbokod.AddItem “M-RPL-05”
End Sub
Private Sub Cmdbtl_Click()
Cbokod.SetFocus
Cbokod.Text = “”
Txtjbu.Text = “”
Txtpeng.Text = “”
Txtthn.Text = “”
Txtpnr.Text = “”
Txthrg.Text = “”
End Sub
Private Sub Cmdexit_Click()
Unload Me
End Sub
Private Sub Cmdlagi_Click()
Cbokod.SetFocus
Cbokod.Text = “”
Txtjbu.Text = “”
Txtpeng.Text = “”
Txtthn.Text = “”
Txtpnr.Text = “”
Txthrg.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim P As String
Txtthn.Text = “20” & Right(Cbokod.Text, 2)
P = Left(Cbokod.Text, 1)
If P = “A” Then
Pn = “Andi Offset Yogyakarta”
ElseIf P = “I” Then
Pn = “Indah Surabaya”
ElseIf P = “S” Then
Pn = “Salemba Empat”
ElseIf P = “E” Then
Pn = “Elek Media Komputindo”
ElseIf P = “M” Then
Pn = “Maxicom”
End If
P = Mid(Cbokod.Text, 3, 3)
If P = “SIM” Then
Jbk = “Sisitem Informasi Manajemen”
Png = “Yati Nur Oktavia”
Hrg = “75900”
ElseIf P = “EDP” Then
Jbk = “Elektronik Data Processing”
Png = “Imam Tarmizi”
Hrg = “62000”
ElseIf P = “MNJ” Then
Jbk = “Manajemen”
Png = “Valentina Mariana Adiwianti”
Hrg = “42000”
ElseIf P = “CDR” Then
Jbk = “Corel draw”
Png = “Riyan Suhadi”
Hrg = “53000”
ElseIf P = “RPL” Then
Jbk = “Rekayasa Perangkat Lunak”
Png = “Sinta Umpu Singa”
Hrg = “83000”
End If
Txtpnr.Text = Pn
Txtjbu.Text = Jbk
Txtpeng.Text = Png
Txthrg.Text = Hrg
End Sub
Private Sub Cmdbtl_Click()
Txtnm.SetFocus
Txtnm = “”
Txtgol = “”
Txtkod = “”
Txtstat = “”
Txtthn = “”
Txtjab = “”
Txtbag = “”
Txtgpk = “”
Txttun = “”
Txttgj = “”
Txtnik = “”
End Sub
Private Sub Cmdexit_Click()
Unload Me
End Sub
Private Sub Cmdlagi_Click()
Txtnm.SetFocus
Txtnm = “”
Txtgol = “”
Txtkod = “”
Txtstat = “”
Txtthn = “”
Txtjab = “”
Txtbag = “”
Txtgpk = “”
Txttun = “”
Txttgj = “”
Txtnik = “”
End Sub
Private Sub Cmdproses_Click()
Dim Jbt, Bag, Gol, Ks, St As String
Dim Gjp, Tnj, Tgj As Currency
Txtthn.Text = Left(Txtnik.Text, 4)
Pt = Mid(Txtnik.Text, 5, 1)
If Pt = “A” Then
Gol = “A”
Jbt = “Manajer”
Gjp = “4000000”
Tnj = “1025000”
ElseIf Pt = “B” Then
Gol = “B”
Jbt = “Ka.seksi”
Gjp = “3500000”
Tnj = “975000”
ElseIf Pt = “C” Then
Gol = “C”
Jbt = “Staff”
Gjp = “3000000”
Tnj = “925000”
End If
Pt = Mid(Txtnik.Text, 7, 1)
If Pt = “S” Then
Ks = “S”
St = “Single”
ElseIf Pt = “M” Then
Ks = “M”
St = “Menikah”
ElseIf Pt = “J” Then
Ks = “J”
St = “Janda”
ElseIf Pt = “D” Then
Ks = “D”
St = “Duda”
End If
Pt = Right(Txtnik.Text, 3)
If Pt = “KEU” Then
Bag = “Accounting”
ElseIf Pt = “ADM” Then
Bag = “Administrasi”
ElseIf Pt = “SDM” Then
Bag = “General Affair”
ElseIf Pt = “EDP” Then
Bag = “IT Unit”
ElseIf Pt = “SPM” Then
Bag = “Security”
End If
Tgj = Val(Gjp) + Val(Tnj)
Txtgpk.Text = Gjp
Txtjab.Text = Jbt
Txttun.Text = Tnj
Txtstat.Text = St
Txtbag.Text = Bag
Txtgol.Text = Gol
Txtkod.Text = Ks
Txttgj.Text = Tgj
End Sub
Private Sub Txtnm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnik.SetFocus
End If
End Sub