Private Sub CmdBatal_Click()
TxtNama.SetFocus
TxtGolongan = “”
TxtKode = “”
TxtStatus = “”
TxtTahun = “”
TxtJabatan = “”
TxtBagian = “”
TxtGaji = “”
TxtTunjangan = “”
TxtGajitotal = “”
TxtNama = “”
TxtNIK = “”
End Sub
Private Sub CmdKeluar_Click()
Unload Me
End Sub
Private Sub CmdLagi_Click()
TxtNama.SetFocus
TxtGolongan = “”
TxtKode = “”
TxtStatus = “”
TxtTahun = “”
TxtJabatan = “”
TxtBagian = “”
TxtGaji = “”
TxtTunjangan = “”
TxtGajitotal = “”
TxtNama = “”
TxtNIK = “”
End Sub
Private Sub CmdPROSES_Click()
Dim H, GOLONGAN, KODESTATUS, STATUS, JABATAN, BAGIAN, GAJIPOKOK, TUNJANGAN, TOTALGAJI, asstring
TxtTahun.Text = “” & Left(TxtNIK.Text, 4)
H = Mid(TxtNIK.Text, 5, 1)
If H = “A” Then
GOLONGAN = “A”
ElseIf H = “B” Then
GOLONGAN = “B”
ElseIf H = “C” Then
GOLONGAN = “C”
End If
TxtGolongan.Text = GOLONGAN
H = Mid(TxtNIK.Text, 5, 1)
If H = “A” Then
JABATAN = “Manajer”
ElseIf H = “B” Then
JABATAN = “Ka. Seksi”
ElseIf H = “C” Then
JABATAN = “Staff”
End If
TxtJabatan.Text = JABATAN
H = Mid(TxtNIK.Text, 5, 1)
If H = “A” Then
GAJIPOKOK = “4000000”
ElseIf H = “B” Then
GAJIPOKOK = “3500000”
ElseIf H = “C” Then
GAJIPOKOK = “3000000”
End If
TxtGaji.Text = GAJIPOKOK
H = Mid(TxtNIK.Text, 5, 1)
If H = “A” Then
TUNJANGAN = “1025000”
ElseIf H = “B” Then
TUNJANGAN = “975000”
ElseIf H = “C” Then
TUNJANGAN = “925000”
End If
TxtTunjangan.Text = TUNJANGAN
H = Mid(TxtNIK.Text, 7, 1)
If H = “S” Then
KODESTATUS = “S”
ElseIf H = “M” Then
KODESTATUS = “M”
ElseIf H = “J” Then
KODESTATUS = “J”
ElseIf H = “D” Then
KODESTATUS = “D”
End If
TxtKode.Text = KODESTATUS
H = Mid(TxtNIK.Text, 7, 1)
If H = “S” Then
STATUS = “Single”
ElseIf H = “M” Then
STATUS = “Menikah”
ElseIf H = “J” Then
STATUS = “Janda”
ElseIf H = “D” Then
STATUS = “Duda”
End If
TxtStatus.Text = STATUS
H = Right(TxtNIK.Text, 3)
If H = “KEU” Then
BAGIAN = “Accounting”
ElseIf H = “ADM” Then
BAGIAN = “Administrasi”
ElseIf H = “SDM” Then
BAGIAN = “General Affair”
ElseIf H = “EDP” Then
BAGIAN = “IP Unit”
ElseIf H = “SPM” Then
BAGIAN = “Security”
End If
TxtBagian.Text = BAGIAN
TxtGajitotal.Text = Val(TXTGAJIText) + Val(TxtTunjangan.Text)
End Sub
Private Sub TxtNama_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
TxtNIK.SetFocus
End If
End Sub