Private Sub Txtmnk_keypress(keyascii As Integer)
If keyascii = 13 Then
Txtmn.SetFocus
End If
End Sub
Private Sub CmdK_Click()
End
End Sub
Private Sub CmdL_Click()
Txtmnk.SetFocus
Txtmnk = “”
Txtmn = “”
Txtgol = “”
Txtks = “”
Txts = “”
Txtt = “”
Txtj = “”
Txtb = “”
Txtgp = “”
Txttj = “”
Txttg = “”
End Sub
Private Sub CmdB_Click()
Txtmnk.SetFocus
Txtmnk = “”
Txtmn = “”
Txtgol = “”
Txtks = “”
Txts = “”
Txtt = “”
Txtj = “”
Txtb = “”
Txtgp = “”
Txttj = “”
Txttg = “”
End Sub
Private Sub CmdP_Click()
Txtt = Left(Txtmn.Text, 4)
G = Mid(Txtmn.Text, 5, 1)
If G = “A” Then
Txtgol = “A”
Txtj = “Manager”
Txtgp = “4000000”
Txttj = “1025000”
ElseIf G = “B” Then
Txtgol = “B”
Txtj = “Ka.Seksi”
Txtgp = “3500000”
Txttj = “975000”
ElseIf G = “C” Then
Txtgol = “C”
Txtj = “Staff”
Txtgp = “3000000”
Txttj = “925000”
End If
S = Mid(Txtmn.Text, 7, 1)
If S = “S” Then
Txtks = “S”
Txts = “Single”
ElseIf S = “M” Then
Txtks = “M”
Txts = “Menikah”
ElseIf S = “J” Then
Txtks = “J”
Txts = “Janda”
ElseIf S = “D” Then
Txtks = “D”
Txts = “Duda”
End If
B = Right(Txtmn.Text, 3)
If B = “KEU” Then
Txtb = “Accounting”
ElseIf B = “ADM” Then
Txtb = “Administrasi”
ElseIf B = “SDM” Then
Txtb = “General Affair”
ElseIf B = “EDP” Then
Txtb = “IT Unit”
ElseIf B = “SPM” Then
Txtb = “Security”
End If
Txttg = Val(Txtgp.Text) + Val(Txttj.Text)
End Sub