PT. PULANG PETANG SETIAP HARI

Private Sub cmdbatal_Click()
txtnakar = ""
txtnik = ""
txtgo = ""
txtkode = ""
txtsta = ""
txttah = ""
txtjaba = ""
txtbagian = ""
txtgapo = ""
txttunja = ""
txttoga = ""
txtnakar.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnakar = ""
txtnik = ""
txtgo = ""
txtkode = ""
txtsta = ""
txttah = ""
txtjaba = ""
txtbagian = ""
txtgapo = ""
txttunja = ""
txttoga = ""
txtnakar.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim S As String
txttah = Left(txtnik, 4)
S = Mid(txtnik, 5, 1)
If S = "A" Then
txtgo = "A"
txtjaba = "Manajer"
txtgapo = "4000000"
txttunja = "1025000"
ElseIf S = "B" Then
txtgo = "B"
txtjaba = "Ka. Seksi"
txtgapo = "3500000"
txttunja = "975000"
ElseIf S = "C" Then
txtgo = "C"
txtjaba = "Staff"
txtgapo = "3000000"
txttunja = "925000"
End If
S = Mid(txtnik, 7, 1)
If S = "S" Then
txtkode = "S"
txtsta = "Single"
ElseIf S = "M" Then
txtkode = "M"
txtsta = "Menikah"
ElseIf S = "J" Then
txtkode = "J"
txtsta = "Janda"
ElseIf S = "D" Then
txtkode = "D"
txtsta = "Duda"
End If
S = Right(txtnik, 3)
If S = "KEU" Then
txtbagian = "Accounting"
ElseIf S = "ADM" Then
txtbagian = "Administrasi"
ElseIf S = "SDM" Then
txtbagian = "General Affair"
ElseIf S = "EDP" Then
txtbagian = "IT Unit"
ElseIf S = "SPM" Then
txtbagian = "Security"
End If
txttoga = Val(txtgapo) + Val(txttunja)
End Sub