Private Sub cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnik.Text = “”
Txtgol.Text = “”
Txtkode.Text = “”
Txtstatus.Text = “”
Txttahun.Text = “”
Txtjabat.Text = “”
Txtbagian.Text = “”
Txtgp.Text = “”
Txttunjangan.Text = “”
Txttg.Text = “”
Txtterbilang.Text = “”
End Sub
Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnik.Text = “”
Txtgol.Text = “”
Txtkode.Text = “”
Txtstatus.Text = “”
Txttahun.Text = “”
Txtjabat.Text = “”
Txtbagian.Text = “”
Txtgp.Text = “”
Txttunjangan.Text = “”
Txttg.Text = “”
Txtterbilang.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim G, C, Z As String
Txttahun.Text = Left(Txtnik.Text, 4)
G = Mid(Txtnik.Text, 5, 1)
If G = “A” Then
Txtjabat.Text = “Manager”
Txtgp.Text = 4000000
Txttunjangan.Text = 1025000
Txttg.Text = Val(Txtgp) + Val(Txttunjangan)
Txtterbilang.Text = “Lima Juta DuaPuluh Lima Ribu Rupiah”
ElseIf G = “B” Then
Txtjabat.Text = “Ka. Seksi”
Txtgp.Text = 3500000
Txttunjangan = 975000
Txttg.Text = Val(Txtgp) + Val(Txttunjangan)
Txtterbilang.Text = “Empat Juta EmpatRatusTujuhPuluh Lima Ribu Rupiah”
ElseIf G = “C” Then
Txtjabat.Text = “Staff”
Txtgp.Text = 3000000
Txttunjangan.Text = 925000
Txtterbilang.Text = “Tiga Juta Sembilan RatusDuaPuluh Lima Ribu Rupiah”
End If
C = Mid(Txtnik.Text, 7, 1)
If C = “S” Then
Txtstatus.Text = “Single”
ElseIf C = “M” Then
Txtstatus.Text = “Menikah”
ElseIf C = “J” Then
Txtstatus.Text = “Janda”
ElseIf C = “D” Then
Txtstatus.Text = ” Duda”
End If
Z = Right(Txtnik.Text, 3)
If Z = “KEU” Then
Txtbagian.Text = “Accounting”
ElseIf Z = “ADM” Then
Txtbagian.Text = “Administrasi”
ElseIf Z = “SDM” Then
Txtbagian.Text = “General Affair”
ElseIf Z = “EDP” Then
Txtbagian.Text = “IT Unit”
ElseIf Z = “SPM” Then
Txtbagian.Text = “Security”
End If
Txtgol.Text = G
Txtkode.Text = C
End Sub
Blog IT 