Private Sub CMDDELETE_Click()

Data1.Recordset.Delete

End Sub

Private Sub CMDNEW_Click()

Data1.Recordset.AddNew

End Sub

Private Sub CMDPROSES_Click()

Dim s, A, B, C, X, Z As String

s = Left(Text11.Text, 1)

If s = “A” Then

Text1.Text = “A”

Text5.Text = “MANAGER”

Text7.Text = “625 000”

Text8.Text = “2500 000”

ElseIf s = “B” Then

Text1.Text = “B”

Text5.Text = “KA SEKSI”

Text7.Text = “1500 000”

Text8.Text = “375 000”

 

ElseIf s = “C” Then

Text1.Text = “C”

Text5.Text = “STAFF”

Text7.Text = “1000 000”

Text8.Text = “250 000”

End If

X = Right(Text11.Text, 1)

If X = “S” Then

Text2.Text = “S”

Text3.Text = “SINGLE”

ElseIf X = “M” Then

Text2.Text = “M”

Text3.Text = “MENIKAH”

ElseIf X = “D” Then

Text2.Text = “D”

Text3.Text = “DUDA”

ElseIf X = “J” Then

Text2.Text = “J”

Text3.Text = “JANDA”

End If

Z = Mid(Text11.Text, 6, 3)

If Z = “KEU” Then

Text6.Text = “ACCOUNTING”

ElseIf Z = “ADM” Then

Text6.Text = “ADMNISTRATION”

ElseIf Z = “SPM” Then

Text6.Text = “SECURITY”

ElseIf Z = “EDP” Then

Text6.Text = “IT UNIT”

ElseIf Z = “SDM” Then

Text6.Text = “GENERAL AFFAIR”

End If

A = Mid(Text11.Text, 2, 4)

If A = “2000” Then

Text4.Text = “2000”

ElseIf A = “1993” Then

Text4.Text = “1993”

ElseIf A = “1994” Then

Text4.Text = “1994”

End If

Text9.Text = Val(Text7.Text) + Val(Text8.Text)

If Text9.Text = “3125000” Then

Text12.Text = “tiga juta seratus dua puluh lima ribu”

 

ElseIf Text9.Text = “1875000” Then

Text12.Text = “SATU JUTA DELAPAN RATUS LIMA PULUH RIBU”

ElseIf Text9.Text = “1250000” Then

Text12.Text = “SATU JUTA DUA RATUS LIMA PULUH RIBU”

End If

End Sub

Private Sub CMDSAVE_Click()

Data1.Recordset.Update

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