DATA PT.PULANG PETANG

Private Sub CmdKeluar_Click()
End
End Sub

Private Sub CmdLagi_Click()
txtnama.SetFocus
txtnik.Text = “”
txtgolongan.Text = “”
txtkode.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtjabatan.Text = “”
txtbagian.Text = “”
txtgaji.Text = “”
txttunjangan.Text = “”
txttotal.Text = “”
End Sub

Private Sub CmdProses_Click()
Dim x As String
txtgolongan.Text = Mid(txtnik.Text, 5, 1)
txtkode.Text = Mid(txtnik.Text, 7, 1)
txttahun.Text = Left(txtnik.Text, 4)

x = Mid(txtnik.Text, 7, 1)
If x = “S” Then
txtstatus.Text = “Single”
ElseIf x = “M” Then
txtstatus.Text = “Menikah”
ElseIf x = “J” Then
txtstatus.Text = “Janda”
ElseIf x = “D” Then
txtstatus.Text = “Duda”
End If

x = Mid(txtnik.Text, 5, 1)
If x = “A” Then
txtjabatan.Text = “Manager”
txtgaji.Text = “4000000”
txttunjangan.Text = “1025000”

ElseIf x = “B” Then
txtjabatan.Text = “Ka.Seksi”
txtgaji.Text = “3500000”
txttunjangan.Text = “97500”

ElseIf x = “C” Then
txtjabatan.Text = “Staff”
txtgaji.Text = “3000000”
txttunjangan.Text = “925000”

End If

x = Right(txtnik.Text, 3)
If x = “KEU” Then
txtbagian.Text = “Accounting”

ElseIf x = “ADM” Then
txtbagian.Text = “Administrasi”

ElseIf x = “SDM” Then
txtbagian.Text = “General Affair”

ElseIf x = “EDP” Then
txtbagian.Text = “IT Unit”

ElseIf x = “SPM” Then
txtbagian.Text = “Security”
End If

txttotal.Text = Val(txtgaji.Text) + Val(txttunjangan.Text)
End Sub

Private Sub CmdBatal_Click()
txtnama.SetFocus
txtnik.Text = “”
txtgolongan.Text = “”
txtkode.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtjabatan.Text = “”
txtbagian.Text = “”
txtgaji.Text = “”
txttunjangan.Text = “”
txttotal.Text = “”
End Sub