Private Sub cmdbatal_Click()

Unload Me

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnik.Text = “”

txtgol.Text = “”

txtks.Text = “”

txtstatus.Text = “”

txttahun.Text = “”

txtjb.Text = “”

txtbg.Text = “”

txtgp.Text = “”

txttj.Text = “”

txttg.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim nik As String

nik = Left(txtnik.Text, 4)

txttahun.Text = nik

nik = Mid(txtnik.Text, 5, 1)

If nik = “A” Then

txtgol.Text = “A”

txtjb.Text = “MANAGER”

txtgp.Text = “4000000”

txttj.Text = “1025000”

ElseIf nik = “B” Then

txtgol.Text = “B”

txtjb.Text = “KA.SAEKSI”

txtgp.Text = “3500000”

txttj.Text = “975000”

ElseIf nik = “C” Then

txtgol.Text = “C”

txtjb.Text = “STAFF”

txtgp.Text = “3000000”

txttj.Text = “925000”

End If

nik = Mid(txtnik.Text, 7, 1)

If nik = “S” Then

txtks.Text = “S”

txtstatus.Text = “SINGLE”

ElseIf nik = “M” Then

txtks.Text = “M”

txtstatus.Text = “MENIKAH”

ElseIf nik = “D” Then

txtks.Text = “D”

txtstatus.Text = “DUDA”

ElseIf nik = “J” Then

txtks.Text = “J”

txtstatus.Text = “JANDA”

End If

nik = Right(txtnik.Text, 3)

If nik = “KEU” Then

txtbg.Text = “ACCOUTING”

ElseIf nik = “ADM” Then

txtbg.Text = “ADMINISTRASI”

ElseIf nik = “SDM” Then

txtbg.Text = “GENERAL AFFAIR”

ElseIf nik = “EDP” Then

txtbg.Text = “IT UNIT”

ElseIf nik = “SPM” Then

txtbg.Text = “SECURITY”

End If

txttg.Text = Val(txtgp.Text) + Val(txttj.Text)

End Sub