Tugas 3_7

Private Sub cmdbatal_Click()
textnama = ""
textnik = ""
textgolongan = ""
textkode = ""
textstatus = ""
texttahun = ""
textjabatan = ""
textbagian = ""
textgaji = ""
texttunjangan = ""
texttotal = ""
textnama.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
textnama = ""
textnik = ""
textgolongan = ""
textkode = ""
textstatus = ""
texttahun = ""
textjabatan = ""
textbagian = ""
textgaji = ""
texttunjangan = ""
texttotal = ""
textnama.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim S As String
texttahun = Left(textnik, 4)
S = Mid(textnik, 5, 1)
If S = "A" Then
textgolongan = "A"
textjabatan = "Manajer"
textgaji = "4000000"
texttunjangan = "1025000"
ElseIf S = "B" Then
textgolongan = "B"
textjabatan = "Ka. Seksi"
textgaji = "3500000"
texttunjangan = "975000"
ElseIf S = "C" Then
textgolongan = "C"
textjabatan = "Staff"
textgaji = "3000000"
texttunjangan = "925000"
End If
S = Mid(textnik, 7, 1)
If S = "S" Then
textkode = "S"
textstatus = "Single"
ElseIf S = "M" Then
textkode = "M"
textstatus = "Menikah"
ElseIf S = "J" Then
textkode = "J"
textstatus = "Janda"
ElseIf S = "D" Then
textkode = "D"
textstatus = "Duda"
End If
S = Right(textnik, 3)
If S = "KEU" Then
textbagian = "Accounting"
ElseIf S = "ADM" Then
textbagian = "Administrasi"
ElseIf S = "SDM" Then
textbagian = "General Affair"
ElseIf S = "EDP" Then
textbagian = "IT Unit"
ElseIf S = "SPM" Then
textbagian = "Security"
End If
texttotal = Val(textgaji) + Val(texttunjangan)
End Sub