TUGAS 10 TOKO ALAT TULIS SALSABILA

TUGAS 10 BUKU TULIS.png

Private Sub Cmdadd_Click()

Data1.Recordset.AddNew

Txtkode.SetFocus

End Sub

 

Private Sub Cmdcancel_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub Cmdhitung_Click()

Txtby.Text = Val(Txthb.Text) * Val(Txtjb.Text)

If Val(Txtjb.Text) > “5” Then

Txtpot.Text = Val(Txtby) * 0.02

txttb.Text = Val(Txtby.Text) – (Txtpot.Text)

End If

End Sub

 

Private Sub Cmdkeluar_Click()

Form2.Show

End Sub

 

Private Sub Cmdproses_Click()

Dim H, nb, hb As String

H = Mid(Txtkode, 5, 2)

If H = “SP” Or H = “sp” Then

Txtnb.Text = “Spidol”

Txthb.Text = “9500”

ElseIf H = “BT” Or H = “bt” Then

Txtnb.Text = “Buku Tulis”

Txthb.Text = “12500”

ElseIf H = “TP” Or H = “tp” Then

Txtnb.Text = “Tip EX”

Txthb.Text = “3000”

ElseIf H = “PG” Or H = “pd” Then

Txtnb.Text = “Penggaris”

Txthb.Text = “2500”

ElseIf H = “PT” Or H = “pt” Then

Txtnb.Text = “Papan Tulis”

Txthb.Text = “5000”

End If

Txtjb.SetFocus

End Sub

 

Private Sub Cmdsave_Click()

Data1.Recordset.Update

End Sub

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

Advertisements

TUGAS 9 PT.PULANG PETANG SETIAP HARI

PT.PULANG PETANG SETIAP HARI 9.png

 

Private Sub Cbokode_Click()

Dim jenis, HS As String

 

Select Case Cbokode.Text

Case “P205”

jenis = “Pentium II 500 Mega Hz”

hargasatuan = “1500000”

Case “P308”

jenis = “Pentium III 800 Mega Hz ”

hargasatuan = “2100000 ”

Case “P310”

jenis = “Pentium III 1.0 Giga Hz”

hargasatuan = “3500000 ”

Case “P415”

jenis = “Pentium IV 1.5 Giga Hz”

hargasatuan = “4000000”

Case “P417”

jenis = “Pentium IV 1.7 Giga Hz ”

hargasatuan = “4200000 ”

Case “P419”

jenis = “Pentium IV 1.9 Giga Hz”

hargasatuan = “500000 ”

End Select

Textjk.Text = jenis

Texths.Text = hargasatuan

Textjj.SetFocus

 

End Sub

 

 

Private Sub Cmdkeluar_Click(Index As Integer)

Form2.Show

End Sub

 

Private Sub Cmdlagi_Click(Index As Integer)

Cbokode.SetFocus

Cbokode = “”

Textjk = “”

Texths = “”

Textjj = “”

Texthj = “”

Textdis = “”

Texttotal = “”

End Sub

 

Private Sub Cmdproses_Click()

Texthj.Text = Val(Texths) * Val(Textjj)

If Val(Texthj.Text) > “30000000” Then

Textdis.Text = Val(Texthj) * 15 / 100

ElseIf Val(Texthj.Text) > “25000000” Then

Textdis.Text = Val(Texthj) * 10 / 100

ElseIf Val(Texthj.Text) > “20000000” Then

Textdis.Text = Val(Texthj) * 5 / 100

ElseIf Val(Texths.Text) > “15000000” Then

Textdis.Text = Val(Texthj) * 2 / 100

End If

Texttotal.Text = Val(Texthj) – (Textdis)

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub Form_Load()

Cbokode.AddItem “P205”

Cbokode.AddItem “P308”

Cbokode.AddItem “P310”

Cbokode.AddItem “P415”

Cbokode.AddItem “P417”

Cbokode.AddItem “P419”

End Sub

Private Sub Command1_Click()

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

TUGAS 8 ENTRI PENJUALAN KOMPUTER

ENTRI PENJUALAN KOMPUTER.png

 

Private Sub Cbokode_Click()

Dim jenis, HS As String

 

Select Case Cbokode.Text

Case “P205”

jenis = “Pentium II 500 Mega Hz”

hargasatuan = “1500000”

Case “P308”

jenis = “Pentium III 800 Mega Hz ”

hargasatuan = “2100000 ”

Case “P310”

jenis = “Pentium III 1.0 Giga Hz”

hargasatuan = “3500000 ”

Case “P415”

jenis = “Pentium IV 1.5 Giga Hz”

hargasatuan = “4000000”

Case “P417”

jenis = “Pentium IV 1.7 Giga Hz ”

hargasatuan = “4200000 ”

Case “P419”

jenis = “Pentium IV 1.9 Giga Hz”

hargasatuan = “500000 ”

End Select

Textjk.Text = jenis

Texths.Text = hargasatuan

Textjj.SetFocus

 

End Sub

 

 

Private Sub Cmdkeluar_Click(Index As Integer)

Form2.Show

End Sub

 

Private Sub Cmdlagi_Click(Index As Integer)

Cbokode.SetFocus

Cbokode = “”

Textjk = “”

Texths = “”

Textjj = “”

Texthj = “”

Textdis = “”

Texttotal = “”

End Sub

 

Private Sub Cmdproses_Click()

Texthj.Text = Val(Texths) * Val(Textjj)

If Val(Texthj.Text) > “30000000” Then

Textdis.Text = Val(Texthj) * 15 / 100

ElseIf Val(Texthj.Text) > “25000000” Then

Textdis.Text = Val(Texthj) * 10 / 100

ElseIf Val(Texthj.Text) > “20000000” Then

Textdis.Text = Val(Texthj) * 5 / 100

ElseIf Val(Texths.Text) > “15000000” Then

Textdis.Text = Val(Texthj) * 2 / 100

End If

Texttotal.Text = Val(Texthj) – (Textdis)

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub Form_Load()

Cbokode.AddItem “P205”

Cbokode.AddItem “P308”

Cbokode.AddItem “P310”

Cbokode.AddItem “P415”

Cbokode.AddItem “P417”

Cbokode.AddItem “P419”

End Sub

Private Sub Command1_Click()

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

TUGAS 7 PENJUALAN TIKET KERETA API

kereta api

Private Sub cmdkeluar_Click()

Form2.Show

End Sub

 

Private Sub cmdproses_Click()

Dim S As String

S = Left(Txtkt.Text, 3)

If S = “BIM” Then

Txtjk.Text = “BIMA”

TxthT.Text = “50000”

Txtjb.Text = “16.00 WIB”

ElseIf S = “EKO” Then

Txtjk.Text = “EKONOMI”

TxthT.Text = “35000”

Txtjb.Text = “19.00 WIB”

ElseIf S = “MUT” Then

Txtjk.Text = “MUTIARA”

TxthT.Text = “23000”

Txtjb.Text = “17.00 WIB”

ElseIf S = “SEN” Then

Txtjk.Text = “SENJA”

TxthT.Text = “15000”

Txtjb.Text = “20.00 WIB”

End If

Txttotal.Text = Val(TxthT.Text) * Val(Txtjt.Text)

End Sub

 

 

 

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

 

End Sub

 

Private Sub txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttotal.Text = Val(TxthT.Text) * Val(Txtjt.Text)

End If

End Sub

 

Private Sub txtkt_KeyPress(KeyAscii As Integer)

Dim S As String

S = Left(Txtkt.Text, 3)

If S = “BIM” Then

Txtjk.Text = “BIMA”

TxthT.Text = “50000”

Txtjb.Text = “16.00 WIB”

ElseIf S = “EKO” Then

Txtjk.Text = “EKONOMI”

TxthT.Text = “35000”

Txtjb.Text = “19.00 WIB”

ElseIf S = “MUT” Then

Txtjk.Text = “MUTIARA”

TxthT.Text = “23000”

Txtjb.Text = “17.00 WIB”

ElseIf S = “SEN” Then

Txtjk.Text = “SENJA”

TxthT.Text = “15000”

Txtjb.Text = “20.00 WIB”

End If

If KeyAscii = 13 Then

Txtjt.SetFocus

End If

End Sub

 

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

TUGAS 6 DATA BUKU STMIK PRINGSEWU

DATA BUKU TXT

Private Sub cmdbatal_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtjudul.Text = “”

Txtpengarang.Text = “”

Txttahun.Text = “”

Txtpenerbit.Text = “”

Txtharga.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

Form2.Show

End Sub

 

Private Sub cmdproses_Click()

Dim jb, pg, pn, hg As String

Txttahun.Text = “20” & Right(Txtkode, 2)

S = Mid(Txtkode, 3, 3)

If S = “SIM” Then

jb = “Sistem Informasi Manajemen”

pg = “Yati Nur Oktavia”

hg = “75900”

ElseIf S = “EDP” Then

jb = “Elektronik Data Processing”

pg = “Imam Tarmizi”

hg = “62000”

ElseIf S = “MNJ” Then

jb = “Manajemen”

pg = “Valentina Mariana Adiwianti”

hg = “42000”

ElseIf S = “CDR” Then

jb = “Corel Draw”

pg = “Riyan Suhandi”

hg = “53000”

ElseIf S = “RPL” Then

jb = “Rekayasa Perangkat Lunak”

pg = “Sinta Umpu Singa”

hg = “83000”

End If

Txtjudul.Text = jb

Txtpengarang.Text = pg

Txtharga.Text = hg

S = Mid(Txtkode, 1, 1)

If S = “A” Then

txtpn = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

txtpn = “Indah Surabaya”

ElseIf S = “S” Then

txtpn = “Salemba Empat”

ElseIf S = “E” Then

txtpn = “Elek Media Komputindo”

ElseIf S = “M” Then

txtpn = “Maxicom”

End If

Txtpenerbit.Text = txtpn

End Sub

 

Private Sub txtlagi_Click()

Txtkode.SetFocus

Txtkode.Text = “”

Txtjudul.Text = “”

Txtpengarang.Text = “”

Txttahun.Text = “”

Txtpenerbit.Text = “”

Txtharga.Text = “”

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

TUGAS 5 DATA BUKU STMIK CBO

 

DATA BUKU STMIK CBO.png

Private Sub cmdbatal_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtjudulb.Text = “”

txtpengarang.Text = “”

Txttahun.Text = “”

Txtpenerbit.Text = “”

Txtharga.Text = “”

End Sub

Private Sub cmdkeluar_Click()

Form2.Show

End Sub

Private Sub cmdlagi_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtjudulb.Text = “”

txtpengarang.Text = “”

Txttahun.Text = “”

Txtpenerbit.Text = “”

Txtharga.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim jb, pg, pn, hg As String

Txttahun.Text = “20” & Right(Cbokode, 2)

s = Mid(Cbokode, 3, 3)

If s = “SIM” Then

jb = “SistemInformasiManajeme”

pg = “YatiNurOktavia”

hg = “75900”

ElseIf s = “EDP” Then

jb = “ElektronikData Processing”

pg = “Imam Tarmizi”

hg = “62000”

ElseIf s = “MNJ” Then

jb = “Manajemen”

pg = “Valentina Mariana Adiwianti”

hg = “42000”

ElseIf s = “CDR” Then

jb = “Corel Draw”

pg = “RiyanSuhandi”

hg = “53000”

ElseIf s = “RPL” Then

jb = “RekayasaPerangkatLunak”

pg = “SintaUmpuSinga”

hg = “83000”

End If

Txtjudulb.Text = jb

Txtpeng.Text = pg

Txtharga.Text = hg

s = Mid(Cbokode, 1, 1)

If s = “A” Then

pn = “Andi Offset Yogyakarta”

ElseIf s = “I” Then

pn = “Indah Surabaya”

ElseIf s = “S” Then

pn = “SalembaEmpat”

ElseIf s = “E” Then

pn = “Elek Media Komputindo”

ElseIf s = “M” Then

pn = “Maxicom”

End If

Txtpenerbit.Text = pn

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

Private Sub Form_Load()

Cbokode.AddItem “A-SIM-01”

Cbokode.AddItem “I-EDP-02”

Cbokode.AddItem “S-MNJ-03”

Cbokode.AddItem “E-CDR-04”

Cbokode.AddItem “M-RPL-05”

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

TUGAS 4 ENTRI PENJUALAN LAPTOP

tugas 4 entri penjualan laptop.png

Private Sub Cbokode_Click()

Dim mt, hs, TB As Integer

Select Case Cbokode.Text

Case “Apple MC965 MacBook Air”

mt = “Apple MacBook Air MC965”

hs = “12800000”

Case “Apple MC966 MacBook Air”

mt = “Apple MacBook Air MC966”

hs = “15800000”

Case “Apple MC968 MacBook Air”

mt = “Apple MacBook Air MC968”

hs = “9900000”

Case “Apple MC969 MacBook Air”

mt = “Apple MacBook Air MC969”

hs = “11900000”

Case “Apple MC700 MacBook Pro”

mt = “Apple MacBook Pro MC700”

hs = “10800000”

Case “Apple MC721 MacBook Pro”

mt = “Apple MacBook Pro MC721”

hs = “15900000”

Case “Apple MC723 MacBook Pro”

mt = “Apple MacBook Pro MC723”

hs = “19300000”

Case “Apple MC724 MacBook Pro”

mt = “Apple MacBook Pro MC724”

hs = “13700000”

Case “Apple MC311 MacBook Pro”

mt = “Apple MacBook Pro MC311”

hs = “24200000”

Case “Apple MC313 MacBook Pro”

mt = “Apple MacBook Pro MC313”

hs = “11900000”

Case “Apple MC314 MacBook Pro”

mt = “Apple MacBook Pro MC314”

hs = “14700000”

Case “Apple MC318 MacBook Pro”

mt = “Apple MacBook Pro MC318”

hs = “17600000”

Case “Apple MC322 MacBook Pro”

mt = “Apple MacBook Pro MC322”

hs = “21300000”

Case “Apple MC965 MacBook Air”

mt = “Apple MacBook Air MC965”

hs = “12800000”

Case “Apple MC966 MacBook Air”

mt = “Apple MacBook Air MC966”

hs = “15800000”

End Select

 

Txtmerk.Text = mt

Txths.Text = hs

Txtjj.SetFocus

End Sub

Private Sub Cmdkeluar_Click()

Form2.Show

End Sub

Private Sub Cmdlagi_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtmerk.Text = “”

Txths.Text = “”

Txtjj.Text = “”

Txthp.Text = “”

Txtdis.Text = “”

Txttb.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Txthp.Text = Val(Txths) * Val(Txtjj)

Select Case Txthp.Text

Case Is > 140000000

Txtdis.Text = Val(Txthp) * 0.15

Case Is > 135000000

Txtdis.Text = Val(Txthp) * 0.1

Case Is > 130000000

Txtdis.Text = Val(Txthp) * 0.05

Case Is > 125000000

Txtdis.Text = Val(Txthp) * 0.02

End Select

Txttotal.Text = Val(Txthp) – Val(Txtdis)

End Sub

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

Private Sub Form_Load()

Cbokode.AddItem “Apple MC965 MacBook Air”

Cbokode.AddItem “Apple MC966 MacBook Air”

Cbokode.AddItem “Apple MC968 MacBook Air”

Cbokode.AddItem “Apple MC969 MacBook Air”

Cbokode.AddItem “Apple MC700 MacBook Pro”

Cbokode.AddItem “Apple MC721 MacBook Pro”

Cbokode.AddItem “Apple MC723 MacBook Pro”

Cbokode.AddItem “Apple MC724 MacBook Pro”

Cbokode.AddItem “Apple MC311 MacBook Pro”

Cbokode.AddItem “Apple MC313 MacBook Pro”

Cbokode.AddItem “Apple MC314 MacBook Pro”

Cbokode.AddItem “Apple MC318 MacBook Pro”

Cbokode.AddItem “Apple MC322 MacBook Pro”

Cbokode.AddItem “Apple MC965 MacBook Air”

Cbokode.AddItem “Apple MC966 MacBook Air”

End Sub

 

Private Sub Txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txthp.Text = Val(Txths) * Val(Txtjj)

Select Case Txthp.Text

Case Is > 140000000

Txtdis.Text = Val(Txthp) * 0.15

Case Is > 135000000

Txtdis.Text = Val(Txthp) * 0.1

Case Is > 130000000

Txtdis.Text = Val(Txthp) * 0.05

Case Is > 125000000

Txtdis.Text = Val(Txthp) * 0.02

End Select

Txttb.Text = Val(Txthp) – Val(Txtdis)

End If

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

TUGAS 3 NPM ASLI

TUGAS3 NPM ASLI.png

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttahun.Text = “”

txturut.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

Form1.Show

End Sub

 

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttahun.Text = “”

txturut.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim S As String

txttahun.Text = “20” & Left(txtnpm.Text, 2)

S = Mid(txtnpm.Text, 3, 3)

If S = “100” Then

txtjur.Text = “sistem informasi”

txtps.Text = “manajemen informatika”

ElseIf S = “200” Then

txtjur.Text = “manajemen informatika”

txtps.Text = “diploma Tiga”

End If

txturut.Text = Right(txtnpm.Text, 3)

End Sub

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

Private Sub Command2_Click()

Data1.Recordset.AddNew

txtnama.SetFocus

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttahun.Text = “”

txturut.Text = “”

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form2.show

End Sub

 

TUGAS 2 NPM PALSU

NPM PALSU.png

Private Sub cmdproses_Click()

Dim S As String

Txttm.Text = “20” & Left(Txtnpm.Text, 2)

S = Mid(Txtnpm.Text, 3, 1)

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

Txtjur.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf S = “4” Then

Txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(Txtnpm.Text, 4, 2)

If S = “01” Then

Txtps.Text = “Strata Satu”

ElseIf S = “02” Then

Txtps.Text = “Diploma Tiga”

ElseIf S = “03” Then

Txtps.Text = “Diploma Empat”

ElseIf S = “04” Then

Txtps.Text = “Diploma Dua”

End If

Txturut.Text = Right(Txtnpm.Text, 3)

End Sub

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

Private Sub Form_activate()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Form2.Show

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub

TUGAS PERTAMA NIDN

Untitled.png

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case Cbogolongan.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

Txtgapok.Text = gapok

Txttunjangan.Text = tunjangan

Txtpajak.Text = pajak

Txttotal.Text = total – pajak

End Sub

Private Sub CmdKeluar_Click()

Form2.Show

End Sub

Private Sub Cmdlagi_Click()

Txtnidn.SetFocus

Txtnidn = “”

Txtnama = “”

txtgolongan = “”

Txtgapok = “”

Txttunjangan = “”

Txtpajak = “”

Txttotal = “”

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

Private Sub Form_load()

Cbogolongan.AddItem “I”

Cbogolongan.AddItem “II”

Cbogolongan.AddItem “III”

Cbogolongan.AddItem “IV”

End Sub

Private Sub txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnama.SetFocus

End If

End Sub

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case Cbogolongan.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

Txtgapok.Text = gapok

Txttunjangan.Text = tunjangan

Txtpajak.Text = pajak

Txttotal.Text = total – pajak

End Sub

Private Sub CmdKeluar_Click()

Form2.Show

End Sub

Private Sub Cmdlagi_Click()

Txtnidn.SetFocus

Txtnidn = “”

Txtnama = “”

txtgolongan = “”

Txtgapok = “”

Txttunjangan = “”

Txtpajak = “”

Txttotal = “”

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.AddNew

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub Form_load()

Cbogolongan.AddItem “I”

Cbogolongan.AddItem “II”

Cbogolongan.AddItem “III”

Cbogolongan.AddItem “IV”

End Sub

 

Private Sub txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnama.SetFocus

End If

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Command2_Click()

Form1.Show

End Sub