TUGAS SEMESTER 3

Candra11

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(“Anda yakin ingin keluar?”, vbQuestion + vbYesNo, “Out”) = 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

 

Private Sub txtmerk_Change()

 

End Sub

Iklan
Dipublikasi di Uncategorized | Meninggalkan komentar

TUGAS 13 DATABASE

CANDRA

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(“ANDA yakin ingin 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

 

Dipublikasi di Uncategorized | Meninggalkan komentar

TUGAS 12 DATABASE

CANDRA

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjur = “”

Txtps = “”

Txttm = “”

Txturut = “”

Txtbp = “”

End Sub

 

Private Sub Cmdkeluar_Click()

If MsgBox(“ANDA yakin ingin keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then

 

End

End If

 

End Sub

 

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjur = “”

Txtps = “”

Txttm = “”

Txturut = “”

Txtbp = “”

 

End Sub

 

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”

Txtps.Text = “strata satu”

Txtbp.Text = “1.950.000”

ElseIf s = “2” Then

Txtjur.Text = “tehnik informatika”

Txtps.Text = “diploma empat”

Txtbp.Text = “1.750.000”

ElseIf s = “3” Then

Txtjur.Text = “manajemen informatika”

Txtps.Text = “diploma tiga”

Txtbp.Text = “1.650.000”

ElseIf s = “4” Then

Txtjur.Text = “Manajemen & Komp. Akuntansi”

Txtps.Text = “diploma dua”

Txtbp.Text = “1.450.000”

End If

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

 

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.AddNew

Txtnama.SetFocus

 

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.Update

 

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

 

End Sub

 

Private Sub Txtnama_Change()

 

End Sub

Dipublikasi di Uncategorized | Meninggalkan komentar

TUGAS 11 DATABASE

candra

Private Sub cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

 

End Sub

 

Private Sub Cmdkeluar_Click()

If MsgBox(“ANDA yakin ingin keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then

 

End

End If

 

End Sub

 

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

 

End Sub

 

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, 3, 1)

If s = “1” Then

Txtps.Text = “Strata Satu”

ElseIf s = “2” Then

Txtps.Text = “Diploma Tiga”

ElseIf s = “3” Then

Textps.Text = “Diploma Empat”

ElseIf s = “4” Then

Txtps.Text = “Diploma Dua”

End If

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

 

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.addnew

Txtnama.SetFocus

 

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.Update

 

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

 

End Sub

 

Private Sub Textnama_Change()

Private Sub Form_activate()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

Txttm.Text = “”

Txturut.Text = “”

End Sub

 

Private Sub Textnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

Textnpm.SetFocus

End If

 

End Sub

 

Private Sub Txtjur_Change()

 

End Sub

Dipublikasi di Uncategorized | Meninggalkan komentar

TUGAS 10 DATABASE

CANDRA

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 cmdbatal_Click()

Txtnidn.SetFocus

Txtnidn.Text = “”

txtnama.Text = “”

Cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

 

End Sub

 

Private Sub cmdkeluar_Click()

If MsgBox(“ANDA yakin ingin keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then

 

End

End If

 

End Sub

 

Private Sub Cmdlagi_Click()

Txtnidn.SetFocus

Txtnidn.Text = “”

txtnama.Text = “”

Cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

 

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.AddNew

Txtnidn.SetFocus

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.Update

 

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 txtnama_Change()

 

End Sub

Dipublikasi di Uncategorized | Meninggalkan komentar

TUGAS 9 DATABASE

candra

Private Sub cmdbatal_Click()

txtnk.SetFocus

txtnk = “”

txtnik = “”

txtgol = “”

txtkstat = “”

txtstatus = “”

txttahun = “”

txtjbt = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotg = “”

 

End Sub

 

Private Sub cmdkeluar_Click()

 

If MsgBox(“ANDA yakin ingin keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then

End

 

End If

End Sub

 

 

Private Sub cmdlagi_Click()

txtnk.SetFocus

txtnk = “”

txtnik = “”

txtgol = “”

txtkstat = “”

txtstatus = “”

txttahun = “”

txtjbt = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotg = “”

End Sub

 

Private Sub cmdproses_Click()

Dim r As String

r = Mid(txtnik.Text, 5, 1)

If r = “A” Then

txtgol = “A”

txtjbt.Text = “MANAGER”

txtgapok.Text = “4000000”

txttunjangan.Text = “1025000”

ElseIf r = “B” Then

txtgol.Text = “B”

txtjbt.Text = “Ka.SEKSI”

txtgapok.Text = “3500000”

txttunjangan.Text = “975000”

ElseIf r = “C” Then

txtgol.Text = “C”

txtjbt.Text = “STAFF”

txtgapok.Text = “3000000”

txttunjangan.Text = “925000”

End If

r = Right(txtnik.Text, 3)

If r = “KEU” Then

txtbagian.Text = “ACCOUNTING”

ElseIf r = “ADM” Then

txtbagian.Text = “ADMINISTRASI”

ElseIf r = “SDM” Then

txtbagian.Text = “GENERAL AFFAIR”

ElseIf r = “EDP” Then

txtbagian.Text = “IT UNIT”

ElseIf r = “SPM” Then

txtbagian.Text = “SECURITY”

ElseIf r = “MNJ” Then

txtbagian.Text = “MANAGER”

 

End If

r = Mid(txtnik.Text, 7, 1)

If r = “S” Then

kode = “S”

Status = “SINGLE”

ElseIf r = “M” Then

kode = “M”

Status = “MENIKAH”

ElseIf r = “J” Then

kode = “J”

Status = “JANDA”

ElseIf r = “D” Then

kode = “D”

Status = “DUDA”

End If

txtkstat.Text = kode

txtstatus.Text = Status

txttahun.Text = Left(txtnik.Text, 4)

txttotg.Text = Val(txtgapok.Text) + Val(txttunjangan.Text)

 

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.addnew

txtnk.SetFocus

 

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.Update

 

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

 

End Sub

 

Private Sub txtkstat_Change()

 

End Sub

Dipublikasi di Uncategorized | Meninggalkan komentar

TUGAS 8 DATABASE

CANDRA22

Private Sub cbokode_Click()

Dim jk, hs, TB As Integer

Select Case cbokode.Text

Case “P205”

jk = “Pentium II  500 Mega Hz”

hs = “1500000”

Case “P308”

jk = “Pentium III 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

Txtjk.Text = jk

Txths.Text = hs

Txtjj.SetFocus

End Sub

Private Sub cmdkeluar_Click()

If MsgBox(“ANDA yakin ingin keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then

End

 

End If

 

End Sub

 

 

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode.Text = “”

Txtjk.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 > 40000000

Txtdis.Text = Val(Txthp) * 0.15

Case Is > 35000000

Txtdis.Text = Val(Txthp) * 0.1

Case Is > 30000000

Txtdis.Text = Val(Txthp) * 0.05

Case Is > 25000000

Txtdis.Text = Val(Txthp) * 0.02

End Select

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

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.AddNew

cbokodekomputer = “”

 

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.Update

 

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 Txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

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

Select Case Txthp.Text

Case Is > 40000000

Txtdis.Text = Val(Txthp) * 0.15

Case Is > 35000000

Txtdis.Text = Val(Txthp) * 0.1

Case Is > 30000000

Txtdis.Text = Val(Txthp) * 0.05

Case Is > 25000000

Txtdis.Text = Val(Txthp) * 0.02

End Select

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

End If

 

End Sub

 

Private Sub Txtjk_Change()

 

End Sub

Dipublikasi di Uncategorized | Meninggalkan komentar

TUGAS 7 DATABASE

CANDRA

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjur = “”

Txtps = “”

Txttm = “”

Txturut = “”

Txtbp = “”

End Sub

 

Private Sub Cmdkeluar_Click()

If MsgBox(“ANDA yakin ingin keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then

 

End

End If

 

End Sub

 

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjur = “”

Txtps = “”

Txttm = “”

Txturut = “”

Txtbp = “”

 

End Sub

 

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”

Txtps.Text = “strata satu”

Txtbp.Text = “1.950.000”

ElseIf s = “2” Then

Txtjur.Text = “tehnik informatika”

Txtps.Text = “diploma empat”

Txtbp.Text = “1.750.000”

ElseIf s = “3” Then

Txtjur.Text = “manajemen informatika”

Txtps.Text = “diploma tiga”

Txtbp.Text = “1.650.000”

ElseIf s = “4” Then

Txtjur.Text = “Manajemen & Komp. Akuntansi”

Txtps.Text = “diploma dua”

Txtbp.Text = “1.450.000”

End If

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

 

End Sub

 

Private Sub Command1_Click()

Data1.Recordset.AddNew

Txtnama.SetFocus

 

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.Update

 

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

 

End Sub

 

Private Sub Txtnama_Change()

 

End Sub

Dipublikasi di Uncategorized | Meninggalkan komentar

TUGAS 6 DATABASE

CANDRA

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 cmdkeluar_Click()

If MsgBox(“ANDA yakin ingin keluar?”, vbQuestion + vbYesNo, “quit”) = vbYes Then

 

Unload Me

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 Command1_Click()

Data1.Recordset.AddNew

cbokode.SetFocus

 

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.Update

 

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

 

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

 

 

 

Dipublikasi di Uncategorized | Meninggalkan komentar

TUGAS 5 DATABASE

CANDRA

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb = “”

txtjb = “”

txtpeng = “”

txttahun = “”

txtpen = “”

txthg = “”

End Sub

 

Private Sub cmdkeluar_Click()

If MsgBox(“ANDA yakin ingin 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 Command1_Click()

Data1.Recordset.addnew

txtkb.SetFocus

 

End Sub

 

Private Sub Command2_Click()

Data1.Recordset.Update

 

End Sub

 

Private Sub Command3_Click()

Data1.Recordset.Delete

 

End Sub

 

Private Sub txtjb_Change()

 

End Sub

Dipublikasi di Uncategorized | Meninggalkan komentar