1.PENJUALAN TIKET KERETA API
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtkt = “”
txtkt.SetFocus
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub
Private Sub cmdlagi_Click()
txtkt.SetFocus
txtkt = “”
txtht = “”
txtjk = “”
txtjb = “”
txtjt = “”
txttotalp = “”
End Sub
Private Sub cmdproses_Click()
Dim KT, HT, JK, JB As String
KT = Left(txtkt, 3)
If KT = “BIM” Then
HT = “50.000”
JK = “BIMA”
JB = “Pukul 16:00”
ElseIf KT = “EKO” Then
HT = “35.000”
JK = “EKONOMI”
JB = “Pukul 19:00”
ElseIf KT = “MUT” Then
HT = “23.000”
JK = “MUTIARA”
JB = “Pukul 20:00”
ElseIf KT = “SEN” Then
HT = “15.000”
JK = “SENJA”
JB = “Pukul 20:00”
End If
KT = (txtkt)
txtjt.SetFocus
txtkt = KT
txtht = HT
txtjk = JK
txtjb = JB
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
Private Sub txtjt_Keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = txtht * txtjt
End If
End Sub
Private Sub txtkt_Keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim KT As String
Dim HT As String
Dim JK As String
Dim JB As String
KT = Left(txtkt, 3)
If KT = “BIM” Then
HT = “50.000”
JK = “BIMA”
JB = “Pukul 16:00”
ElseIf KT = “EKO” Then
HT = “35.000”
JK = “EKONOMI”
JB = “Pukul 19:00”
ElseIf KT = “MUT” Then
HT = “23.000”
JK = “MUTIARA”
JB = “Pukul 20:00”
ElseIf KT = “SEN” Then
HT = “15.000”
JK = “SENJA”
JB = “Pukul 20:00”
End If
txtjt.SetFocus
KT = (txtkt.Text)
txtkt = KT
txtht = HT
txtjk = JK
txtjb = JB
End If
End Sub
2.DATA BUKU
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtkb = “”
txtkb.SetFocus
End Sub
Private Sub cmdbatal_Click()
txtkb.SetFocus
txtkb = “”
txtjb = “”
txtp = “”
txttahun = “”
txtpenerbit = “”
txthg = “”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub
Private Sub cmdlagi_Click()
txtkb.SetFocus
txtkb = “”
txtjb = “”
txtp = “”
txttahun = “”
txtpenerbit = “”
txthg = “”
End Sub
Private Sub cmdproses_Click()
Dim KB, JB, PG, TT, PN, HG As String
KB = Mid(txtkb, 3, 3)
If KB = “SIM” Then
JB = “Sistem Informasi Manajemen”
PG = “Andra Setiawan”
HG = “Rp.75.900,-”
ElseIf KB = “EDP” Then
JB = “Elektronik Data Processing”
PG = “Desi Istiqomah”
HG = “Rp.62.000,-”
ElseIf KB = “MNJ” Then
JB = “Manajemen”
PG = “Sandy Fitrajaya”
HG = “Rp.42.000′-”
ElseIf KB = “CDR” Then
JB = “Corel Draw”
PG = “Tri Indah Sari”
HG = “Rp.53.000,-”
ElseIf KB = “RPL” Then
JB = “Rekayasa Perangkat Lunak”
PG = “Ernita”
HG = “Rp.83.000,-”
End If
KB = Left(txtkb, 1)
If KB = “A” Then
PN = “Andy Offset Yogyakarta”
ElseIf KB = “I” Then
PN = “Indah Surabaya”
ElseIf KB = “S” Then
PN = “Salemba Empat”
ElseIf KB = “E” Then
PN = “Elek Media Komputindo”
ElseIf KB = “M” Then
PN = “Maxicom”
End If
TT = “20” + Right(txtkb, 2)
KB = (txtkb.Text)
txtkb = KB
txtjb = JB
txtp = PG
txttahun = TT
txtpenerbit = PN
txthg = HG
End Sub
3.ENTRI PENJUALAN KOMPUTER
Private Sub cbokk_click()
Dim JK, HS As String
Select Case cbokk
Case “P205”
JK = “Pentium II 500 Mega Hz”
HS = “1500000”
Case “P308”
JK = “Pentium II 800 Mega Hz”
HS = “2100000”
Case “P310”
JK = “Pentium III 1,0 Giga Hz”
HS = “3500000”
Case “P415”
JK = “Pentium IV 1,5 Giga Hz”
HS = “4000000”
Case “P417”
JK = “Pentium IV 1,7 Giga Hz”
HS = “4200000”
Case “P419”
JK = “Pentium IV 1,9 Giga Hz”
HS = “5500000”
End Select
txtjj.SetFocus
txtjk = JK
txths = HS
End Sub
Private Sub cmdclose_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub
Private Sub cmdlagi_Click()
cbokk = “(pilih kode)”
txtjk = “”
txths = “”
txtjj = “”
txthp = “”
txtdis = “”
txtprs = “”
txthb = “”
End Sub
Private Sub cmdproses_Click()
Dim JJ, HP, DIS, HB, PRS As String
HP = (txths.Text * txtjj.Text)
If HP > 30000000 Then
DIS = HP * 0.15
HB = HP – DIS
PRS = “15%”
ElseIf HP > 25000000 Then
DIS = HP * 0.1
HB = HP – DIS
PRS = “10%”
ElseIf HP > 20000000 Then
DIS = HP * 0.05
HB = HP – DIS
PRS = “5%”
ElseIf HP > 15000000 Then
DIS = HP * 0.02
HB = HP – DIS
PRS = “2%”
ElseIf HP > 0 Then
DIS = “0”
HB = HP – DIS
PRS = “0%”
End If
txtjj.SetFocus
JJ = (txtjj.Text)
txtjj = JJ
txthp = HP
txtdis = DIS
txthb = HB
txtprs = PRS
End Sub
Private Sub Command1_Click()
Data1.Recordset.AddNew
cbokode = “(pilih kode)”
txthp = “”
txthb = “”
txtdis = “”
txtprs = “”
End Sub
Private Sub Command2_Click()
Data1.Recordset.Update
End Sub
Private Sub Command3_Click()
Data1.Recordset.Delete
End Sub
Private Sub Form_Load()
cbokk.AddItem “P205”
cbokk.AddItem “P308”
cbokk.AddItem “P310”
cbokk.AddItem “P415”
cbokk.AddItem “P417”
cbokk.AddItem “P419”
End Sub
Private Sub txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim JJ, HP, DIS, HB, PRS As String
HP = (txths.Text * txtjj.Text)
If HP > 30000000 Then
DIS = HP * 0.15
HB = HP – DIS
PRS = “15%”
ElseIf HP > 25000000 Then
DIS = HP * 0.1
HB = HP – DIS
PRS = “10%”
ElseIf HP > 20000000 Then
DIS = HP * 0.05
HB = HP – DIS
PRS = “5%”
ElseIf HP > 15000000 Then
DIS = HP * 0.02
HB = HP – DIS
PRS = “2%”
ElseIf HP > 0 Then
DIS = “0”
HB = HP – DIS
PRS = “0%”
End If
JJ = (txtjj)
txtjj = JJ
txthp = HP
txtdis = DIS
txthb = HB
txtprs = PRS
End If
End Sub
4.DATA BUKU MAHASISWA
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtkb = “”
txtkb.SetFocus
End Sub
Private Sub cmdbatal_Click()
txtkb.SetFocus
txtkb = “”
txtjb = “”
txtp = “”
txttahun = “”
txtpenerbit = “”
txthg = “”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub
Private Sub cmdlagi_Click()
txtkb.SetFocus
txtkb = “”
txtjb = “”
txtp = “”
txttahun = “”
txtpenerbit = “”
txthg = “”
End Sub
Private Sub cmdproses_Click()
Dim KB, JB, PG, TT, PN, HG As String
KB = Mid(txtkb, 3, 3)
If KB = “SIM” Then
JB = “Sistem Informasi Manajemen”
PG = “Andra Setiawan”
HG = “Rp.75.900,-”
ElseIf KB = “EDP” Then
JB = “Elektronik Data Processing”
PG = “Desi Istiqomah”
HG = “Rp.62.000,-”
ElseIf KB = “MNJ” Then
JB = “Manajemen”
PG = “Sandy Fitrajaya”
HG = “Rp.42.000′-”
ElseIf KB = “CDR” Then
JB = “Corel Draw”
PG = “Tri Indah Sari”
HG = “Rp.53.000,-”
ElseIf KB = “RPL” Then
JB = “Rekayasa Perangkat Lunak”
PG = “Ernita”
HG = “Rp.83.000,-”
End If
KB = Left(txtkb, 1)
If KB = “A” Then
PN = “Andy Offset Yogyakarta”
ElseIf KB = “I” Then
PN = “Indah Surabaya”
ElseIf KB = “S” Then
PN = “Salemba Empat”
ElseIf KB = “E” Then
PN = “Elek Media Komputindo”
ElseIf KB = “M” Then
PN = “Maxicom”
End If
TT = “20” + Right(txtkb, 2)
KB = (txtkb.Text)
txtkb = KB
txtjb = JB
txtp = PG
txttahun = TT
txtpenerbit = PN
txthg = HG
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
5.DATA BUKU
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtkb.SetFocus
End Sub
Private Sub cmdbatal_Click()
txtkb.SetFocus
txtkb = “”
txtjb = “”
txtpeng = “”
txttahun = “”
txtpen = “”
txthg = “”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub
Private Sub cmdlagi_Click()
txtkb.SetFocus
txtkb = “”
txtjb = “”
txtpeng = “”
txttahun = “”
txtpen = “”
txthg = “”
End Sub
Private Sub cmdproses_Click()
Dim KB, JB, PG, TT, PN, HG As String
KB = Left(txtkb, 3)
If KB = “SIM” Then
JB = “Sistem Informasi Manajemen”
PG = “Fadiya Ulfa”
HG = “Rp.75.900,-”
ElseIf KB = “EDP” Then
JB = “Electronic Data Processing”
PG = “Nurul Agustina”
HG = “Rp.62.000,-”
ElseIf KB = “MNJ” Then
JB = “Manajemen”
PG = “Rian Hidayat”
HG = “Rp.42.000,-”
ElseIf KB = “CDR” Then
JB = “Corel Draw”
PG = “Siti Nur Khotimah”
HG = “Rp.53.000,-”
ElseIf KB = “RPL” Then
JB = “Rekayasa Perangkat Lunak”
PG = “Winda Erlianti”
HG = “Rp.83.000,-”
End If
KB = Right(txtkb, 1)
If KB = “A” Then
PN = “Andi Offset Yogyakarta”
ElseIf KB = “I” Then
PN = “Indah Surabaya”
ElseIf KB = “S” Then
PN = “Salemba Empat”
ElseIf KB = “E” Then
PN = “Elek Media Komputindo”
ElseIf KB = “M” Then
PN = “Maxicom”
End If
TT = “20” + Mid(txtkb, 5, 2)
KB = (txtkb.Text)
txtkb = KB
txtjb = JB
txtpeng = PG
txttahun = TT
txtpen = PN
txthg = HG
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
6.ENTRI PENJUALAN
Private Sub cbokode_Click()
Dim MT, HS, JJ, HP, DIS, TP As String
cbokode = Right(cbokode, 5)
Select Case cbokode
Case “A43SA”
MT = “Asus A43SA-VX090D”
HS = “5.500.000”
Case “A43SD”
MT = “Asus A43SD-VX052D”
HS = “4.500.000”
Case “A43SJ”
MT = “Asus A43SJ-VX792D”
HS = “4.300.000”
Case “A43TA”
MT = “Asus A43TA-VX034D”
HS = “4.900.000”
Case “N43SL”
MT = “Asus N43SL-VX264D”
HS = “4.300.000”
Case “MD311”
MT = “Apple MacBook Pro MD311”
HS = “19.300.000”
Case “MD313”
MT = “Apple MacBook Pro MD313”
HS = “24.200.000”
Case “MD314”
MT = “Apple MacBook Pro MD314”
HS = “11.900.000”
Case “MD322”
MT = “Apple MacBook Pro MD322”
HS = “14.700.000”
Case “MC965”
MT = “Apple MacBook Air MC965”
HS = “21.300.000”
End Select
cbokode.Text = (cbokode.Text)
txtjj.SetFocus
txtmerk = MT
txths = HS
txtjj = JJ
txthp = HP
txtdis = DIS
txttp = TP
End Sub
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtdis = “”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub
Private Sub cmdlagi_Click()
cbokode = “(pilih kode)”
txtmerk = “”
txths = “”
txtjj = “”
txthp = “”
txtdis = “”
txttp = “”
End Sub
Private Sub cmdproses_Click()
txthp = txths * txtjj
If txthp > 140000000 Then
txtdis = txthp * 0.15
txttp = txthp – txtdis
txtprs = “15%”
ElseIf txthp > 135000000 Then
txtdis = txthp * 0.1
txttp = txthp – txtdis
txtprs = “10%”
ElseIf txthp > 130000000 Then
txtdis = txthp * 0.05
txttp = txthp – txtdis
txtprs = “5%”
ElseIf txthp > 125000000 Then
txtdis = txthp * 0.02
txttp = txthp – txtdis
txtprs = “2%”
ElseIf txthp > 0 Then
txtdis = txthp * 0
txttp = txthp – txtdis
txtprs = “0%”
End If
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
Private Sub Form_Load()
cbokode.AddItem “Asus A43SA”
cbokode.AddItem “Asus A43SD”
cbokode.AddItem “Asus A43SJ”
cbokode.AddItem “Asus A43TA”
cbokode.AddItem “Asus N43SL”
cbokode.AddItem “Apple MD311”
cbokode.AddItem “Apple MD313”
cbokode.AddItem “Apple MD314”
cbokode.AddItem “Apple MD322”
cbokode.AddItem “Apple MC965”
End Sub
7.TUGAS NPM
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnama.SetFocus
End Sub
Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
txtjur = “”
txtps = “”
txttm = “”
txtnu = “”
txtbp = “”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub
Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
txtjur = “”
txtps = “”
txttm = “”
txtnu = “”
txtbp = “”
End Sub
Private Sub cmdproses_Click()
Dim NAMA, NPM, JUR, PS, TM, NU, BP As String
TM = “20” + Left(txtnpm, 2)
NPM = Mid(txtnpm, 3, 1)
If NPM = “1” Then
JUR = “Sistem Informasi”
ElseIf NPM = “2” Then
JUR = “Tekhnik Informatika”
ElseIf NPM = “3” Then
JUR = “Manajemen Informatika”
ElseIf NPM = “4” Then
JUR = “Manajemen & Komputer Akuntansi”
End If
NPM = Mid(txtnpm, 4, 2)
If NPM = “00” Or “01” Then
PS = “Strata Satu”
BP = “Rp.1.950.000,-”
ElseIf NPM = “02” Then
PS = “Diploma Empat”
BP = “Rp.1.750.000,-”
ElseIf NPM = “03” Then
PS = “Diploma Tiga”
BP = “Rp.1.650.000,-”
ElseIf NPM = “04” Then
PS = “Diploma Dua”
BP = “Rp.1.450.000,-”
End If
NPM = (txtnpm)
NU = Right(txtnpm, 3)
txtnu = NU
txtps = PS
txtbp = BP
txtjur = JUR
txtnpm = NPM
txttm = TM
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub
8.ENTRI PENJUALAN KOMPUTER
Private Sub cbokode_Click()
KL = Right(cbokode, 5)
Dim JK, HS, JJ, HP, DIS, TP As String
cbokode = Right(cbokode, 5)
Select Case cbokode
Case “P205”
JK = “Pentium II 500 Mega Hz”
HS = “1.500.000”
Case “P308”
JK = “Pentium III 800 Mega Hz”
HS = “2.100.000”
Case “P310”
JK = “Pentium III 1.0 Giga Hz”
HS = “3.500.000”
Case “P415”
JK = “Pentium IV 1.5 Giga Hz”
HS = “4.000.000”
Case “P417”
JK = “Pentium IV 1.7 Giga Hz”
HS = “4.200.000”
Case “P419”
JK = “Pentium IV 1.9 Giga Hz”
HS = “5.500.000”
End Select
cbokode.Text = (cbokode.Text)
txtjj.SetFocus
txtjk = JK
txths = HS
txtjj = JJ
txthp = HP
txtdis = DIS
txttp = TP
End Sub
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
cbokode = “(pilih kode)”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub
Private Sub cmdlagi_Click()
cbokode = “(pilih kode)”
txtjk = “”
txths = “”
txtjj = “”
txthp = “”
txtdis = “”
txttp = “”
txtprs = “”
End Sub
Private Sub cmdproses_Click()
txthp = txths * txtjj
If txthp > 40000000 Then
txtdis = txthp * 0.15
txttp = txthp – txtdis
txtprs = “15%”
ElseIf txthp > 35000000 Then
txtdis = txthp * 0.1
txttp = txthp – txtdis
txtprs = “10%”
ElseIf txthp > 30000000 Then
txtdis = txthp * 0.05
txttp = txthp – txtdis
txtprs = “5%”
ElseIf txthp > 25000000 Then
txtdis = txthp * 0.02
txttp = txthp – txtdis
txtprs = “2%”
ElseIf txthp > 0 Then
txtdis = txthp * 0
txttp = txthp – txtdis
txtprs = “0%”
End If
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
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
9.TUGAS NPM
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnk.SetFocus
End Sub
Private Sub cmdbatal_Click()
txtnk.SetFocus
txtnk = “”
txtnik = “”
txtgol = “”
txtks = “”
txtstat = “”
txtth = “”
txtjb = “”
txtbg = “”
txtgp = “”
txttj = “”
txttg = “”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub
Private Sub cmdlagi_Click()
txtnk.SetFocus
txtnk = “”
txtnik = “”
txtgol = “”
txtks = “”
txtstat = “”
txtth = “”
txtjb = “”
txtbg = “”
txtgp = “”
txttj = “”
txttg = “”
End Sub
Private Sub cmdproses_Click()
Dim GOL, KS, ST, TH, JB, BG, GP, TJ, TG, NIK As Integer
TH = Left(txtnik, 4)
GOL = Mid(txtnik, 5, 1)
If GOL = “A” Then
JB = “Manajer”
GP = “4.000.000”
TJ = “1.025.000”
ElseIf GOL = “B” Then
JB = “Ka. Seksi”
GP = “3.500.000”
TJ = “975.000”
ElseIf GOL = “C” Then
JB = “Staff”
GP = “3.000.000”
TJ = “925.000”
End If
ST = Mid(txtnik, 7, 1)
If ST = “S” Then
ST = “Single”
KS = “S”
ElseIf ST = “M” Then
ST = “Menikah”
KS = “M”
ElseIf ST = “J” Then
ST = “Janda”
KS = “J”
ElseIf ST = “D” Then
ST = “Duda”
KS = “D”
End If
BG = Right(txtnik, 3)
If BG = “KEU” Then
BG = “Accounting”
ElseIf BG = “ADM” Then
BG = “Administrasi”
ElseIf BG = “SDM” Then
BG = “General Affair”
ElseIf BG = “EDP” Then
BG = “IT Unit”
ElseIf BG = “SPM” Then
BG = “Security”
End If
TG = txttj + txtgp
txtgol = GOL
txtks = KS
txtstat = ST
txtth = TH
txtjb = JB
txtbg = BG
txtgp = GP
txttj = TJ
txttg = TG
txtnik = NIK
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
Private Sub txtnk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub
10.NPM
rivate Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnama.SetFocus
End Sub
Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
txtjur = “”
txtps = “”
txttm = “”
txtnu = “”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub
Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama = “”
txtnpm = “”
txtjur = “”
txtps = “”
txttm = “”
txtnu = “”
End Sub
Private Sub cmdproses_Click()
Dim NPM, JUR, PS, TM, NU As String
TM = “20” + Left(txtnpm, 2)
NPM = Mid(txtnpm, 3, 1)
If NPM = “1” Then
JUR = “Sistem Informasi”
ElseIf NPM = “2” Then
JUR = “Teknik Informatika”
ElseIf NPM = “3” Then
JUR = “Manajemen Informatika”
ElseIf NPM = “4” Then
JUR = “Manajemen & Komputer Akutansi”
End If
NPM = Mid(txtnpm, 4, 2)
If NPM = “00” Or “01” Then
PS = “Strata Satu”
ElseIf NPM = “02” Then
PS = “Diploma Empat”
ElseIf NPM = “03” Then
PS = “Diploma Tiga”
ElseIf NPM = “04” Then
PS = “Diploma Dua”
End If
NU = Right(txtnpm, 3)
NPM = (txtnpm)
txtnpm = NPM
txtjur = JUR
txtps = PS
txttm = TM
txtnu = NU
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub
Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim NPM, JUR, PS, TM, NU As String
TM = “20” + Left(txtnpm, 2)
NPM = Mid(txtnpm, 3, 1)
If NPM = “1” Then
JUR = “Sistem Informasi”
ElseIf NPM = “2” Then
JUR = “Teknik Informatika”
ElseIf NPM = “3” Then
JUR = “Manajemen Informatika”
ElseIf NPM = “4” Then
JUR = “Manajemen & Komputer Akutansi”
End If
NPM = Mid(txtnpm, 4, 2)
If NPM = “00” Or “01” Then
PS = “Strata Satu”
ElseIf NPM = “02” Then
PS = “Diploma Empat”
ElseIf NPM = “03” Then
PS = “Diploma Tiga”
ElseIf NPM = “04” Then
PS = “Diploma Dua”
End If
NU = Right(txtnpm, 3)
NPM = (txtnpm)
txtnpm = NPM
txtjur = JUR
txtps = PS
txttm = TM
txtnu = NU
End If
End Sub
11.NIDN
Private Sub cbogol_Click()
Dim GP, TJ, PJ, TT As String
Select Case cbogol
Case “I”
GP = “1500000”
TJ = “150000”
Case “II”
GP = “2000000”
TJ = “200000”
Case “III”
GP = “2500000”
TJ = “250000”
Case “IV”
GP = “3000000”
TJ = “300000”
Case Else
GP = “0”
TJ = “0”
End Select
txtgp = GP
txttj = TJ
txtpj = PJ
txttt = TT
PJ = Val(txtgp + txttj) * 0.1
TT = Val(txtgp + txttj) – Val(txtpj)
End Sub
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnidn.SetFocus
End Sub
Private Sub cmdbatal_Click()
txtnidn.SetFocus
txtnidn = “”
txtnp = “”
cbogol = “”
txtgp = “”
txttj = “”
txtpj = “”
txttt = “”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub
Private Sub cmdlagi_Click()
txtnidn.SetFocus
txtnidn = “”
txtnp = “”
cbogol = “”
txtgp = “”
txttj = “”
txtpj = “”
txttt = “”
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
Private Sub Form_Load()
cbogol.AddItem “I”
cbogol.AddItem “II”
cbogol.AddItem “III”
cbogol.AddItem “IV”
End Sub
12. NPM
Private Sub cbogol_Click()
Dim GP, TJ, PJ, TT As String
Select Case cbogol
Case “I”
GP = “1500000”
TJ = “150000”
Case “II”
GP = “2000000”
TJ = “200000”
Case “III”
GP = “2500000”
TJ = “250000”
Case “IV”
GP = “3000000”
TJ = “300000”
Case Else
GP = “0”
TJ = “0”
End Select
txtgp = GP
txttj = TJ
txtpj = PJ
txttt = TT
PJ = Val(txtgp + txttj) * 0.1
TT = Val(txtgp + txttj) – Val(txtpj)
End Sub
Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnidn.SetFocus
End Sub
Private Sub cmdbatal_Click()
txtnidn.SetFocus
txtnidn = “”
txtnp = “”
cbogol = “”
txtgp = “”
txttj = “”
txtpj = “”
txttt = “”
End Sub
Private Sub cmdhapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdkeluar_Click()
If MsgBox(“ANDA YAKIN AKAN KELUAR”, vbQuestion + vbYesNo, “quit”) = vbYes Then
End
End If
End Sub
Private Sub cmdlagi_Click()
txtnidn.SetFocus
txtnidn = “”
txtnp = “”
cbogol = “”
txtgp = “”
txttj = “”
txtpj = “”
txttt = “”
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
Private Sub Form_Load()
cbogol.AddItem “I”
cbogol.AddItem “II”
cbogol.AddItem “III”
cbogol.AddItem “IV”
End Sub
13.TOKO ALAT TULIS SALSABILA
Private Sub cmdadd_Click()
Data1.Recordset.AddNew
txtkb.SetFocus
End Sub
Private Sub cmdbatal_Click()
Data1.Recordset.Delete
End Sub
Private Sub cmdhitung_Click()
txtby = txthb * txtjb
txtptong = txtby * 0.02
txttb = txtby – txtptong
End Sub
Private Sub cmdkeluar_Click()
If MsgBox(“Serius Bro Mau Keluar?”, vbQuestion + vbYesNo, “Quit”) = vbYes Then
End
End If
End Sub
Private Sub cmdproses_Click()
Dim NB, HB, KB, JB, BY, PTO, TB As String
KB = Mid(txtkb, 5, 2)
If KB = “SP” Then
NB = “SPIDOL”
HB = “9500”
ElseIf KB = “BT” Then
NB = “BUKU TULIS”
HB = “12500”
ElseIf KB = “TP” Then
NB = “TIPEX”
HB = “3000”
ElseIf KB = “PG” Then
NB = “PENGGARIS”
HB = “25000”
ElseIf KB = “PT” Then
NB = “PAPAN TULIS”
HB = “50000”
End If
txtkb = Val(txtkb)
txtjb.SetFocus
txtkb = KB
txtnb = NB
txthb = HB
txtby = BY
txtptong = PTO
txttb = TB
End Sub
Private Sub cmdsimpan_Click()
Data1.Recordset.Update
End Sub
Private Sub txtkb_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim NB, HB, KB, JB, BY, PTO, TB As String
KB = Mid(txtkb, 5, 2)
If KB = “SP” Then
NB = “SPIDOL”
HB = “9500”
ElseIf KB = “BT” Then
NB = “BUKU TULIS”
HB = “12500”
ElseIf KB = “TP” Then
NB = “TIPEX”
HB = “3000”
ElseIf KB = “PG” Then
NB = “PENGGARIS”
HB = “25000”
ElseIf KB = “PT” Then
NB = “PAPAN TULIS”
HB = “50000”
End If
txtkb = Val(txtkb)
txtjb.SetFocus
txtkb = KB
txtnb = NB
txthb = HB
txtby = BY
txtptong = PTO
txttb = TB
txtby = Val(txthb.Text) * Val(txtjb.Text)
txtptong = Val(txtjb.Text) * 0.02
txttb = Val(txtjb.Text) – Val(txtptong.Text)
End If
End Sub
SELESAI