Tugas VB (Data Pegawai)

9

Private Sub cmdBTL_Click()

txtNK.SetFocus

txtGOL.Text = “”

txtKS.Text = “”

txtS.Text = “”

txtTH.Text = “”

txtJB.Text = “”

txtBG.Text = “”

txtGPOK.Text = “”

txtTNJ.Text = “”

txtTTAL.Text = “”

txtNK.Text = “”

txtNIK.Text = “”

End Sub

 

Private Sub cmdKL_Click()

End

End Sub

 

Private Sub cmdLG_Click()

txtNK.SetFocus

txtGOL.Text = “”

txtKS.Text = “”

txtS.Text = “”

txtTH.Text = “”

txtJB.Text = “”

txtBG.Text = “”

txtGPOK.Text = “”

txtTNJ.Text = “”

txtTTAL.Text = “”

txtNK.Text = “”

txtNIK.Text = “”

End Sub

 

Private Sub cmdPRS_Click()

Dim gl, ks, s As String

Dim th, jb, bg As Variant

Dim gp, tnj, ttal As Long

txtTH.Text = Left(txtNIK.Text, 4)

a = Mid(txtNIK.Text, 5, 1)

If a = “A” Then

gl = “A”

jb = “Manager”

gp = “4000000?

tnj = “1025000?

ElseIf a = “B” Then

gl = “B”

jb = “Ka.Seksi”

gp = “3500000?

tnj = “975000?

ElseIf a = “C” Then

gl = “C”

jb = “Staff”

gp = “3000000?

tnj = “950000?

End If

txtGOL.Text = gl

txtJB.Text = jb

txtGPOK.Text = gp

txtTNJ.Text = tnj

a = Right(txtNIK.Text, 3)

If a = “KEU” Then

bg = “Accounting”

ElseIf a = “ADM” Then

bg = “Administrasi”

ElseIf a = “SDM” Then

bg = “General Affair”

ElseIf a = “EDP” Then

bg = “IT Unit”

ElseIf a = “SDP” Then

bg = “Security”

End If

txtBG.Text = bg

a = Mid(txtNIK.Text, 7, 1)

If a = “S” Then

ks = “S”

s = “Single”

ElseIf a = “M” Then

ks = “M”

s = “Menikah”

ElseIf a = “J” Then

ks = “J”

s = “Janda”

ElseIf a = “D” Then

ks = “D”

s = “Duda”

End If

txtKS.Text = ks

txtS.Text = s

txtTTAL.Text = Val(txtGPOK.Text) + Val(txtTNJ.Text)

End Sub

 

Private Sub txtNK_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtNIK.SetFocus

End If

End Sub

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s