PT TIDAK MASUK TIDAK APA-APA

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

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