TUGAS 3.7

 TUGAS 3.7

PT.PULANG PETANG SETIAP HARI

Private Sub cmdbatal_Click()

txtnik = ""

Txtnama = ""

txtnik.SetFocus

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

txtnik = ""

Txtnama = ""

txtgol = ""

Txtkode = ""

Txtstatus = ""

Txttahun = ""

txtjab = ""

Txtbag = ""

Txtgp = ""

Txttj = ""

Txttotal = ""

txtnik.SetFocus

End Sub

Private Sub cmdproses_Click()

Dim A, bag, stat, kode, gol, jab, gp, tj As String

A = Right(txtnik, 3)

If A = "KEU" Or A = "keu" Then

bag = "Accounting"

ElseIf A = "ADM" Or A = "adm" Then

bag = "Administrasi"

ElseIf A = "SDM" Or A = "sdm" Then

bag = "General Affair"

ElseIf A = "EDP" Or A = "edp" Then

bag = "IT Unit"

ElseIf A = "SPM" Or A = "spm" Then

bag = "Security"

End If

Txtbag = bag

A = Mid(txtnik, 7, 1)

If A = "S" Or A = "S" Then

kode = "S"

stat = "Single"

ElseIf A = "M" Or A = "m" Then

kode = "M"

stat = "Menikah"

ElseIf A = "J" Or A = "J" Then

kode = "J"

stat = "Janda"

ElseIf A = "D" Or A = "D" Then

kode = "D"

stat = "Duda"

End If

Txtkode = kode

Txtstatus = stat

Select Case A = Mid(txtnik, 5, 1)

Case A = "A" Or A = "a"

gol = "A"

jab = "Manager"

gp = "4000000"

tj = "1025000"

Case A = "B" Or A = "b"

gol = "B"

jab = "Ka.Seksi"

gp = "3500000"

tj = "975000"

Case A = "C" Or A = "c"

gol = "C"

jab = "Staff"

gp = "3000000"

tj = "925000"

End Select

txtgol = gol

txtjab = jab

Txtgp = gp

Txttj = tj

Txttahun = Left(txtnik, 4)

total = Val(gp) + Val(tj)

Txttotal = total

End Sub

Private Sub Form_Activate()

Txtnama.SetFocus

End Sub

Private Sub txtnik_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnik.SetFocus

End If

End Sub