Pt.pulang petang setiap setiap hari 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 = ""
txtkode = ""
txtstatus = ""
txttahun = ""
txtjabatan = ""
txtbagian = ""
txtgp = ""
txttj = ""
txttotal = ""
txtnk.SetFocus

End Sub

Private Sub cmdproses_Click()
Dim H, BAGIAN, STATUS, KODE, GOL, JABATAN, GP, TJ As String
H = Right(txtmn, 3)
If H = "KEU" Or H = "keu" Then
BAGIAN = "Accounting"
ElseIf H = "ADM" Or H = "adm" Then
BAGIAN = "administrasi"
ElseIf H = "SDM" Or H = "sdm" Then
BAGIAN = "general affair"
ElseIf H = "EDP" Or H = "edp" Then
BAGIAN = "it unit"
ElseIf H = "SPM" Or H = "spm" Then
BAGIAN = "security"
End If
txtbagian = BAGIAN

H = Mid(txtmn, 7, 1)
If H = "S" Or H = "s" Then
KODE = "S"
STATUS = "singgle"
ElseIf H = "M" Or H = "m" Then
KODE = "M"
STATUS = "menikah"
ElseIf H = "J" Or H = "j" Then
KODE = "J"
STATUS = "janda"
ElseIf H = "D" Or H = "d" Then
KODE = "D"
STATUS = "duda"
End If
txtkode = KODE
txtstatus = STATUS

Select Case H = Mid(txtmn, 5, 1)
Case H = "A" Or H = "a"
GOL = "A"
JABATAN = "manager"
GP = "4000000"
TJ = "1025000"
Case H = "B" Or H = "b"
GOL = "B"
JABATAN = "ka.seksi"
GP = "3500000"
TJ = "975000"
Case H = "C" Or H = "c"
GOL = "C"
JABATAN = "staff"
GP = "3000000"
TJ = "925000"
End Select

txtgol = GOL
txtjabatan = JABATAN
txtgp = GP
txttj = TJ

txttahun = Left(txtmn, 4)
total = Val(GP) + Val(TJ)
txttotal = 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