tugas 3.7
Private Sub cmdbatal_Click()
txtmnk = ""
txtmn = ""
txtmnk.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtmnk = ""
txtmn = ""
txtgol = ""
txtks = ""
txtst = ""
txtth = ""
txtjb = ""
txtbg = ""
txtgp = ""
txttj = ""
txttotal = ""
txtmnk.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim H, BAG, STAT, KS, GOL, JAB, GP, TJ As String
N = Right(txtmn.Text, 3)
If N = "KEU" Then
BAG = "Accounting"
ElseIf N = "ADM" Then
BAG = "Administrasi"
ElseIf N = "SDM" Then
BAG = "General Affair"
ElseIf N = "EDP" Then
BAG = "IT Unit"
ElseIf N = "SPM" Then
BAG = "Security"
End If
txtbg.Text = BAG
N = Mid(txtmn.Text, 7, 1)
If N = "S" Then
KS = "S"
STAT = "Singgle"
ElseIf N = "M" Then
STAT = "Menikah"
ElseIf N = "J" Then
KS = "J"
STAT = "Janda"
ElseIf N = "D" Then
KS = "D"
STAT = "Duda"
End If
txtks.Text = KS
txtst.Text = STAT
Select Case N = Mid(txtmn.Text, 5, 1)
Case N = "A"
GOL = "A"
JAB = "Manager"
GP = "4000000"
TJ = "1025000"
Case N = "B"
GOL = "B"
JAB = "Ka. Seksi"
GP = "3500000"
TJ = "975000"
Case N = "C"
GOL = "C"
JAB = "Staff"
GP = "3000000"
TJ = "925000"
End Select
txtgol.Text = GOL
txtjb.Text = JAB
txtgp.Text = GP
txttj.Text = TJ
txtth = Left(txtmn.Text, 4)
Total = Val(GP) + Val(TJ)
txttotal.Text = Total
End Sub
Private Sub Form_Activate()
txtmnk.SetFocus
End Sub
Private Sub txtmnk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtmn.SetFocus
End If
End Sub
txtmnk = ""
txtmn = ""
txtmnk.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
txtmnk = ""
txtmn = ""
txtgol = ""
txtks = ""
txtst = ""
txtth = ""
txtjb = ""
txtbg = ""
txtgp = ""
txttj = ""
txttotal = ""
txtmnk.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim H, BAG, STAT, KS, GOL, JAB, GP, TJ As String
N = Right(txtmn.Text, 3)
If N = "KEU" Then
BAG = "Accounting"
ElseIf N = "ADM" Then
BAG = "Administrasi"
ElseIf N = "SDM" Then
BAG = "General Affair"
ElseIf N = "EDP" Then
BAG = "IT Unit"
ElseIf N = "SPM" Then
BAG = "Security"
End If
txtbg.Text = BAG
N = Mid(txtmn.Text, 7, 1)
If N = "S" Then
KS = "S"
STAT = "Singgle"
ElseIf N = "M" Then
STAT = "Menikah"
ElseIf N = "J" Then
KS = "J"
STAT = "Janda"
ElseIf N = "D" Then
KS = "D"
STAT = "Duda"
End If
txtks.Text = KS
txtst.Text = STAT
Select Case N = Mid(txtmn.Text, 5, 1)
Case N = "A"
GOL = "A"
JAB = "Manager"
GP = "4000000"
TJ = "1025000"
Case N = "B"
GOL = "B"
JAB = "Ka. Seksi"
GP = "3500000"
TJ = "975000"
Case N = "C"
GOL = "C"
JAB = "Staff"
GP = "3000000"
TJ = "925000"
End Select
txtgol.Text = GOL
txtjb.Text = JAB
txtgp.Text = GP
txttj.Text = TJ
txtth = Left(txtmn.Text, 4)
Total = Val(GP) + Val(TJ)
txttotal.Text = Total
End Sub
Private Sub Form_Activate()
txtmnk.SetFocus
End Sub
Private Sub txtmnk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtmn.SetFocus
End If
End Sub
Komentar
Posting Komentar