PT.pulang Pagi Setiap Hari

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama = “”
txtnik = “”
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama = “”
txtnik = “”
txtgol = “”
txtks = “”
txtstatus = “”
txttahun = “”
txtjb = “”
txtbg = “”
txtgp = “”
txttj = “”
txttg = “”
txtterbilang = “”
End Sub
Private Sub cmdproses_Click()
Dim NIK As String
NIK = Mid(txtnik.Text, 9, 1)
If NIK = “A” Then
txtgol.Text = “A”
txtjb.Text = “MANAGER”
txtgp.Text = “3000000″
txttj.Text = “875000″
ElseIf NIK = “B” Then
txtgol.Text = “B”
txtjb.Text = “KA. SEKSI”
txtgp.Text = “2500000″
txttj.Text = “525000″
ElseIf NIK = “C” Then
txtgol.Text = “C”
txtjb.Text = “STAF”
txtgp.Text = “2000000″
txttj.Text = “325000″
End If

NIK = Mid(txtnik.Text, 5, 4)
txttahun.Text = NIK
NIK = Right(txtnik.Text, 1)
If NIK = “S” Then
txtks = “S”
txtstatus.Text = “SINGLE”
ElseIf NIK = “D” Then
txtks.Text = “D”
txtstatus.Text = “DUDA”
ElseIf NIK = “M” Then
txtks.Text = “M”
txtstatus.Text = “MENIKAH”
ElseIf NIK = “J” Then
txtks.Text = “J”
txtstatus.Text = “JANDA”
End If

NIK = Left(txtnik.Text, 3)
If NIK = “EDP” Then
txtbg.Text = “IT UNIT”
ElseIf NIK = “ADM” Then
txtbg.Text = “ADMINISTRASI”
ElseIf NIK = “SPM” Then
txtbg.Text = “SECURITY”
ElseIf NIK = “KEU” Then
txtbg.Text = “ACCOUNTING”
ElseIf NIK = “SDM” Then
txtbg.Text = “GENERAL AFFAIR”
End If

txttg.Text = Val(txtgp.Text) + Val(txttj.Text)
End Sub