Private Sub txtnama_keypress(keyascii As Integer)
If keyascii = 13 Then
TXTNIK.SetFocus
End If
End Sub
Private Sub cmdproses_Click()
TXTTAHUN = Left(TXTNIK.Text, 4)
G = Mid(TXTNIK.Text, 5, 1)
If G = “A” Then
TXTGOL = “A”
TXTJABATAN = “Manager”
TXTGAPOK = “4000000”
TXTTUN = “1025000”
ElseIf G = “B” Then
TXTGOL = “B”
TXTJABATAN = “Ka.Seksi”
TXTGAPOK = “3500000”
TXTTUN = “975000”
ElseIf G = “C” Then
TXTGOL = “C”
TXTJABATAN = “Staff”
TXTGAPOK = “3000000”
TXTTUN = “925000”
End If
S = Mid(TXTNIK.Text, 7, 1)
If S = “S” Then
TXTKODE = “S”
TXTSTATUS = “Single”
ElseIf S = “M” Then
TXTKODE = “M”
TXTSTATUS = “Menikah”
ElseIf S = “J” Then
TXTKODE = “J”
TXTSTATUS = “Janda”
ElseIf S = “D” Then
TXTKODE = “D”
TXTSTATUS = “Duda”
End If
B = Right(TXTNIK.Text, 3)
If B = “KEU” Then
TXTBAGIAN = “Accounting”
ElseIf B = “ADM” Then
TXTBAGIAN = “Administrasi”
ElseIf B = “SDM” Then
TXTBAGIAN = “General Affair”
ElseIf B = “EDP” Then
TXTBAGIAN = “IT Unit”
ElseIf B = “SPM” Then
TXTBAGIAN = “Security”
End If
TXTTOTAL = Val(TXTGAPOK.Text) + Val(TXTTUN.Text)
End Sub
Private Sub cmdlagi_Click()
TXTNAMA.SetFocus
TXTNAMA = “”
TXTNIK = “”
TXTGOL = “”
TXTKODE = “”
TXTSTATUS = “”
TXTTH = “”
TXTJABATAN = “”
TXTBAGIAN = “”
TXTGAPOK = “”
TXTTUN = “”
TXTTOTAL = “”
End Sub
Private Sub cmdbatal_Click()
TXTNAMA.SetFocus
TXTNAMA = “”
TXTNIK = “”
TXTGOL = “”
TXTKODE = “”
TXTSTATUS = “”
TXTTHN = “”
TXTJABATAN = “”
TXTBAGIAN = “”
TXTGAPOK = “”
TXTTUN = “”
TXTTOTAL = “”
End Sub
Private Sub cmdkeluar_Click()
p = MsgBox(“Anda yakin akan keluar”, vbQuestion + vbOKCancel, “informasi”)
If p = vbOK Then
End
End If
End Sub