PT.Pulang Petang Setiap Hari tgs 3.7

Private Sub cmdbatal_Click()
txtnk = ""
txtmn = ""
txtnk.SetFocus
End Sub


Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnk = ""
txtmn = ""
txtgol = ""
txtkod = ""
txtstatus = ""
txttahun = ""
txtjab = ""
txtbag = ""
txtgp = ""
txttj = ""
txttotal = ""
txtnk.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim H, BAG, STAT, KODS, GOL, JAB, GP, TJ As String
H = Right(txtmn.Text, 3)
If H = "KEU" Or H = "keu" Then
BAG = "Accounting"
ElseIf H = "ADM" Or H = "adm" Then
BAG = "Administrasi"
ElseIf H = "SDM" Or H = "sdm" Then
BAG = "General Affair"
ElseIf H = "EDP" Or H = "edp" Then
BAG = "IT Unit"
ElseIf H = "SPM" Or H = "spm" Then
BAG = "Security"
End If
txtbag.Text = BAG

H = Mid(txtmn.Text, 7, 1)
If H = "S" Or H = "s" Then
KODS = "S"
STAT = "Singgle"
ElseIf H = "M" Or H = "m" Then
STAT = "Menikah"
ElseIf H = "J" Or H = "j" Then
KODS = "J"
STAT = "Janda"
ElseIf H = "D" Or H = "d" Then
KODS = "D"
STAT = "Duda"
End If
txtkod.Text = KODS
txtstatus.Text = STAT

Select Case H = Mid(txtmn.Text, 5, 1)
Case H = "A" Or H = "a"
GOL = "A"
JAB = "Manager"
GP = "4000000"
TJ = "1025000"
Case H = "B" Or H = "b"
GOL = "B"
JAB = "Ka. Seksi"
GP = "3500000"
TJ = "975000"
Case H = "C" Or H = "c"
GOL = "C"
JAB = "Staff"
GP = "3000000"
TJ = "925000"
End Select
txtgol.Text = GOL
txtjab.Text = JAB
txtgp.Text = GP
txttj.Text = TJ

txttahun = Left(txtmn.Text, 4)

Total = Val(GP) + Val(TJ)
txttotal.Text = Total
End Sub

Private Sub Form_Activate()
txtnk.SetFocus
End Sub

Private Sub txtnk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtmn.SetFocus
End If
End Sub