DATA BASE

Gambar

Private Sub cmdproses_Click()
kode = Mid(txtnpm.Text, 3, 1)
If kode = “1” Then
txtjur.Text = “Sistem Informasi Manajemen”
ElseIf kode = “2” Then
txtjur.Text = “Manajemen Informatika”
ElseIf kode = “3” Then
txtjur.Text = “Tehnik Informatika”
ElseIf kode = “4” Then
txtjur.Text = “Komputer Akutansi”
End If
txtnpm.SetFocus
kode = Mid(txtnpm.Text, 4, 2)
If kode = “01” Then
txtprodi.Text = “Strata Satu”
ElseIf kode = “02” Then
txtprodi.Text = “Diploma Empat”
ElseIf kode = “03” Then
txtprodi.Text = ” Diploma Tiga”
ElseIf kode = “04” Then
txtprodi.Text = “Diploma Dua”
End If
txttm.Text = “20” & Left(txtnpm.Text, 2)
txtno.Text = Right(txtnpm.Text, 3)

End Sub

Private Sub Command1_Click()
Data1.Recordset.AddNew
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtno.Text = “”

End Sub

Private Sub Command2_Click()
Data1.Recordset.Update
End Sub

Private Sub Command3_Click()
Data1.Recordset.Delete
Data1.Recordset.AddNew
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtno.Text = “”
End Sub

Private Sub Command4_Click()
End
End Sub

Advertisements

penjualan buku 1

Gambar

Private Sub Command1_Click()
Dim a, judulbuku, pengarang, penerbiT, asstring
Text4.Text = “20” & Mid(text1.Text, 5, 2)
a = Left(text1.Text, 3)
If a = “sim” Then
judulbuku = “sistem informasi menejemen”
ElseIf a = “edp” Then
judulbuku = “elektronik data processing”
ElseIf a = “mnj” Then
judulbuku = “manajemen”
ElseIf a = “cdr” Then
judulbuku = “coreldraw”
ElseIf a = “rlp” Then
judulbuku = “rekayasa perangkat lunak”
End If
Text2.Text = judulbuku
a = Left(text1.Text, 3)
If a = “sim” Then
pengarang = “m.rizal sobri”
ElseIf a = “edp” Then
pengarang = “desti istiqoma”
ElseIf a = “mnj” Then
pengarang = “sandi fitra jaya”
ElseIf a = “cdr” Then
pengarang = “tri indah sari”
ElseIf a = “rlp” Then
pengarang = “ernita sari”
End If
Text3.Text = pengarang
a = Left(text1.Text, 3)
If a = “sim” Then
harga = “75900”
ElseIf a = “edp” Then
harga = “62000”
ElseIf a = “mnj” Then
harga = “43000”
ElseIf a = “cdr” Then
harga = “53000”
ElseIf a = “rlp” Then
harga = “83000”
End If
Text6.Text = harga
a = Right(text1.Text, 1)
If a = “a” Then
penerbiT = “andi offset yogyakarta”
ElseIf a = “i” Then
penerbiT = “indah surabaya”
ElseIf a = “s” Then
penerbiT = “salemba empat”
ElseIf a = “e” Then
penerbiT = “elek media komputindo”
ElseIf a = “m” Then
penerbiT = “maxicom”
Text5.Text = penerbiT
End If
End Sub

Private Sub Command2_Click()
text1.SetFocus
text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Command3_Click()
text1.SetFocus
text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub cmdproses_Click()

End Sub

Private Sub text1_Change()

End Sub

variasi

Gambar

 

Private Sub Chkbold_Click()
If Chkbold.Value = 1 Then
Lbltext.FontBold = True
Else
Lbltext.FontBold = False
End If
End Sub

Private Sub Chkitalic_Click()
If Chkitalic.Value = 1 Then
Lbltext.FontItalic = True
Else
Lbltext.FontItalic = False
End If
End Sub

Private Sub Chkstrike_Click()
If Chkstrike.Value = 1 Then
Lbltext.FontStrikethru = True
Else
Lbltext.FontStrikethru = False
End If
End Sub

Private Sub chkUnder_Click()
If chkUnder.Value = 1 Then
Lbltext.FontUnderline = True
Else
Lbltext.FontUnderline = False
End If
End Sub

Private Sub Cmdexit_Click()
Unload Me
End Sub

Private Sub Optblue_Click()
Lbltext.ForeColor = vbBlue
End Sub

Private Sub Optgreen_Click()
Lbltext.ForeColor = vbGreen
End Sub

Private Sub Optred_Click()
Lbltext.ForeColor = vbRed
End Sub

Private Sub Optyellow_Click()
Lbltext.ForeColor = vbYellow
End Sub

gambar warna

Gambar

 

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check1.Value
End Sub

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

 

Gambar

Private Sub CmdBATAL_Click()
txtNAMA.SetFocus
txtNAMA.Text = “”
TxtNPM.Text = “”
TxtJURUSAN.Text = “”
TxtPROGRAM.Text = “”
TxtTAHUN.Text = “”
TxtURUT.Text = “”
End Sub

Private Sub CmdKELUAR_Click()
Unload Me
End Sub

Private Sub CmdLAGI_Click()
txtNAMA.SetFocus
txtNAMA.Text = “”
TxtNPM.Text = “”
TxtJURUSAN.Text = “”
TxtPROGRAM.Text = “”
TxtTAHUN.Text = “”
TxtURUT.Text = “”
End Sub
Private Sub CmdPROSES_Click()
Dim A As Integer
TxtTAHUN.Text = “20” & Left(TxtNPM, 2)
A = Mid(TxtNPM.Text, 3, 1)
If A = “1” Then
TxtJURUSAN.Text = “sistem informasi”
ElseIf A = “2” Then
Jr = “manajemen informatika”
ElseIf A = “3” Then
TxtJURUSAN.Text = “teknik informatika”
ElseIf A = “4” Then
TxtJURUSAN.Text = ” komputer akutansi”
End If
A = Mid(TxtNPM.Text, 4, 2)
If A = “01” Then
TxtPROGRAM.Text = “strata satu”
ElseIf A = “02” Then
TxtPROGRAM.Text = “diploma empat”
ElseIf A = “03” Then
TxtPROGRAM.Text = “diploma tiga”
ElseIf A = “04” Then
TxtPROGRAM.Text = ” diploma dua”
End If
TxtURUT.Text = Right(TxtNPM, 3)
End Sub
Private Sub TxtNAMA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtNPM.SetFocus
End If
End Sub

 

Gambar

Private Sub cmdbatal_Click()
txtkode.SetFocus
txtjb.Text = “”
txtpg.Text = “”
txtthn.Text = “”
txtpb.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtkode.SetFocus
txtjb.Text = “”
txtpg.Text = “”
txtthn.Text = “”
txtpb.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim A, jb, pg, th, pb, h As Integer
txtthn.Text = “20” & Mid(txtkode, 5, 2)
A = Left(txtkode, 3)
If A = “SIM” Then
jb = “sistem informasi manajemen”
ElseIf A = “EDP” Then
jb = “elektronik data processing”
ElseIf A = “MNJ” Then
jb = “manajemen”
ElseIf A = “CDR” Then
jb = “coreldraw”
ElseIf A = “RPL” Then
jb = “rekayasa perangkat lunak”
End If
txtjb.Text = jb

A = Left(txtkode, 3)
If A = “SIM” Then
pg = “fadiya ulfa”
ElseIf A = “EDP” Then
pg = “nurul agustina”
ElseIf A = “MNJ” Then
pg = “riyan hidayat”
ElseIf A = “CDR” Then
pg = “siti nur khotimah”
ElseIf A = “RPL” Then
pg = “winda ertianti”
End If
txtpg.Text = pg

A = Right(txtkode, 1)
If A = “A” Then
pb = “andi offset jogjakarta”
ElseIf A = “I” Then
pb = “indah surabaya”
ElseIf A = “S” Then
pb = “salemba empat”
ElseIf A = “E” Then
pb = “elexmedia komputindo”
ElseIf A = “M” Then
pb = “maxicom”
End If
txtpb.Text = pb

A = Left(txtkode, 3)
If A = “SIM” Then
hg = “79500”
ElseIf A = “EDP” Then
hg = “62000”
ElseIf A = “MNJ” Then
hg = “42000”
ElseIf A = “CDR” Then
hg = “53000”
ElseIf A = “RPL” Then
hg = “83000”
End If
txtharga.Text = hg
End Sub