TUGAS 3.7 PT. PULANG PETANG SETIAP HARI

Private Sub cmdbatal_Click()

txtnama = ""

txtnik = ""

txtgolongan = ""

txtkode = ""

txtstatus = ""

txttahun = ""

txtjabatan = ""

txtbagian = ""

txtgaji = ""

txttunjangan = ""

txttotal = ""

txtnama.SetFocus

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtnama = ""

txtnik = ""

txtgolongan = ""

txtkode = ""

txtstatus = ""

txttahun = ""

txtjabatan = ""

txtbagian = ""

txtgaji = ""

txttunjangan = ""

txttotal = ""

txtnama.SetFocus

End Sub

Private Sub cmdproses_Click()

Dim S As String

txttahun = Left(txtnik, 4)

S = Mid(txtnik, 5, 1)

If S = "A" Then

txtgolongan = "A"

txtjabatan = "Manajer"

txtgaji = "4000000"

txttunjangan = "1025000"

ElseIf S = "B" Then

txtgolongan = "B"

txtjabatan = "Ka. Seksi"

txtgaji = "3500000"

txttunjangan = "975000"

ElseIf S = "C" Then

txtgolongan = "C"

txtjabatan = "Staff"

txtgaji = "3000000"

txttunjangan = "925000"

End If

S = Mid(txtnik, 7, 1)

If S = "S" Then

txtkode = "S"

txtstatus = "Single"

ElseIf S = "M" Then

txtkode = "M"

txtstatus = "Menikah"

ElseIf S = "J" Then

txtkode = "J"

txtstatus = "Janda"

ElseIf S = "D" Then

txtkode = "D"

txtstatus = "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

txttotal = Val(txtgaji) + Val(txttunjangan)

End Sub