PT Pulang Petang Setiap Hari

Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama = “”
txtnik = “”
Txtgol = “”
Txtks = “”
txts = “”
txtth = “”
txtjb = “”
txtbg = “”
txtgp = “”
txttun = “”
txttg = “”
End Sub

Private Sub Cmdkeluar_Click()
End

End Sub

Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama = “”
txtnik = “”
Txtgol = “”
Txtks = “”
txts = “”
txtth = “”
txtjb = “”
txtbg = “”
txtgp = “”
txttun = “”
txttg = “”
End Sub

Private Sub cmdproses_Click()
Dim a As String
a = Mid(txtnik.Text, 5, 1)
If a = “A” Then
Txtgol = “A”
txtjb.Text = “MANAGER”
txtgp.Text = “4000000”
txttun.Text = “1025000”
ElseIf a = “B” Then
Txtgol.Text = “B”
txtjb.Text = “Ka.SEKSI”
txtgp.Text = “3500000”
txttun.Text = “975000”
ElseIf a = “C” Then
Txtgol.Text = “C”
txtjb.Text = “STAFF”
txtgp.Text = “3000000”
txttun.Text = “925000”
End If
a = Right(txtnik.Text, 3)
If a = “KEU” Then
txtbg.Text = “ACCOUNTING”
ElseIf a = “ADM” Then
txtbg.Text = “ADMINISTRASI”
ElseIf a = “SDM” Then
txtbg.Text = “GENERAL AFFAIR”
ElseIf a = “EDP” Then
txtbg.Text = “IT UNIT”
ElseIf a = “SPM” Then
txtbg.Text = “SECURITY”
End If
a = Mid(txtnik.Text, 7, 1)
If a = “S” Then
ks = “S”
S = “SINGLE”
ElseIf a = “M” Then
ks = “M”
S = “MENIKAH”
ElseIf a = “J” Then
ks = “J”
S = “JANDA”
ElseIf a = “D” Then
ks = “D”
S = “DUDA”
End If
Txtks.Text = ks
txts.Text = S
txtth.Text = Left(txtnik.Text, 4)
txttg.Text = Val(txtgp.Text) + Val(txttun.Text)
End Sub
Private Sub Txtmnk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub