DATABASE MICROSOFT VISUAL BASIC 6.0 A.
Pengertian Database
Database adalah kumpulan beberapa data yang saling berhubungan berdasarkan kode-kode tertentu sehingga membentuk sebuah sistem. Secara hirarki database bisa digambarkan sebagai berikut : Character
Field
Record
File
Database
Character sebagai satuan data terkecil dikumpulkan menjadi field (kolom), kumpulan field membentuk sebuah record (baris), beberapa record disimpan dalam file (tabel), dan kumpulan file akan membentuk sebuah database. Ada beberapa tipe field yang digunakan dalam pembuatan tabel pada database Visual Basic 6.0 : Tipe Field Long Currency Single Double Date/Time Text Memo B.
Fungsi Digunakan untuk menampung data numerik untuk bilangan bulat Digunakan untuk menampung data numerik. Kelebihannya adalah currency tidak akan melakukan pembulatan bilangan pada operasi matematik Digunakan untuk menampung data numerik untuk bilangan pecahan Fungsinya sama dengan single Digunakan untuk menampung data tanggal atau jam Digunakan untuk menyimpan data karakter dengan daya tampung sebesar 255 karakter Sama dengan text tetapi dapat menampung sampai dengan 64.000 karakter
Membuat Database dan Tabel Untuk membuat Database dengan Visual Data Manager, Langkah-langkahnya : 1.
Pilih Menu Add-Ins pada menu utama Visual Basic, lalu pilih Visual Data Manager
2.
Pilih : File/New/Microsoft Access/Version 7.0 MDB
3.
4.
Berikanlah nama pada database yang akan dibuat. Dengan nama RentalMobil sebelumnya tentukan dahulu tempat penyimpanan, simpan pada folder masing-masing . Klik Kanan pada Properties, pilih New Table
5.
Pada Table Name ketik: Tbl_Mobil, lalu klik Add Field
6.
Buatlah Beberapa field sebagai berikut : Name Kd_Mobil Nama_Mobil Jumlah_Mobil Harga_Sewa
7.
Type Text Text Byte Double
Size 5 10
Jika telah selesai mengisikan field, klik Ok, Close
C. Membuat Index Index Data adalah urutan data pada tabel Database. Index data diperlukan terutama untuk pencarian data dengan cepat dan pengelompokan data. Cara membuat Index : o Pada Tampilan Table Structure, pilih Add Index
o o o
Ketik nama index, yaitu misalnya Kode pada kolom Name Klik kunci index pada Available Fields, otomatis Indexed Fields akan muncul. Tentukan pilihan index (Primary, Unique, IgnoreNulls). Primary digunakan sebagai pengenal suatu record, jika tabel yang bersangkutan dihubungkan dengan tabel lain (dalam satu tabel hanya boleh ada satu primary key). Unique dipilh jka ingin index bersifat unik. IgnoreNulls digunakan untuk mengabaikan field yang kosong. Jika selesai klik Build the Table.
D. Mengisi Data Pada Tabel Untuk mengisikan data pada tabel, Double klik pada nama tabel tersebut atau klik kanan-Open :
Pada pengisian Klik Add, isi setiap fieldnya lalu klik Update. Fungsi menu yang ada pada tabel barang : o Add : menambah record baru. o Update : mengoreksi record. o Delete : menghapus record aktif. o Find : mencari record. o Refresh : menampilkan ulang setelah record mengalami perubahan. o Close : menutup tabel. Isikan Datanya dengan : Kode Mobil MCD01 SLN01 KJG01 KDA01 PTR01
Nama Mobil Mercedes Soluna Kijang Kuda Panther
Jumlah Mobil 5 6 8 9 7
Harga Mobil 50000 70000 90000 60000 80000
Latihan 1 :
Koneksikan Database dengan cara : Object
Properties
Nilai
Data1
DatabaseName RecordSource
(Klik tombol…cari database yang telah dibuat pada folder kerja) Tbl_Mobil
Text1
Name DataSource DataField
TxtKode Data1 Kd_Mobil
Text2
Name DataSource DataField
TxtNama Data1 Nama_Mobil
Text3
Name DataSource DataField
TxtJumlah Data1 Jumlah_Mobil
Text4
Name DataSource DataField
TxtHarga Data1 Harga_Sewa
Command1
Name Caption Picture
Command2
Style ToolTipText Name Caption Picture
CmdTop
C:\Program Files\Microsoft Visual Studio\Vfp98\Wizard\Graphics\Top 1 – Graphical Top CmdPrevious C:\Program Files\Microsoft Visual Studio\Vfp98\Wizard\Graphics\Previ ous 1 – Graphical Previous CmdNext C:\Program Files\Microsoft Visual Studio\Vfp98\Wizard\Graphics\Next 1 – Graphical Next CmdLast C:\Program Files\Microsoft Visual Studio\Vfp98\Wizard\Graphics\Botto m 1 – Graphical Last
Style ToolTipText Command3
Command4
Name Caption Picture Style ToolTipText Name Caption Picture Style ToolTipText
Listing : Private Sub CmdBACK_Click() Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then MsgBox "Sudah Awal Record", , "Info" Data1.Recordset.MoveFirst End If End Sub Private Sub CmdBatal_Click() Data1.Recordset.CancelUpdate End Sub Private Sub CmdEND_Click() Data1.Recordset.MoveLast End Sub Private Sub CmdHapus_Click() Data1.Recordset.Delete Data1.Recordset.MoveLast End Sub
Private Sub CmdNEXT_Click() Data1.Recordset.MoveNext If Data1.Recordset.EOF Then MsgBox "Sudah Akhir Record", , "Info" Data1.Recordset.MoveLast End If End Sub Private Sub Cmdsimpan_Click() Data1.Recordset.Update End Sub Private Sub CmdTambah_Click() Data1.Recordset.AddNew End Sub Private Sub CmdTOP_Click() Data1.Recordset.MoveFirst End Sub
Private Sub CmdKeluar_Click() MsgBox "Yakin Ingin Keluar Nih", 32 + 1, "Rental Mobil" End End Sub
Latihan 2 : 1. Buat Database dengan nama : Jual, Simpan difolder masing2 2. Buat Tabel Baru dengan nama : Tbl_Barang Name Kd_Brg Nm_Brg Harga Stok Satuan
Type Text Text Currency Integer Text
Size 5 20
10
3. Buat Index dengan nama : Kode dari Kd_Brg 4. Isi Tabel sebanyak 5 Record Kd_Brg BKSD1 PGH01 PGR01 PLG01 PSL2B
Nm_Brg Buku Sinar Dunia Penghapus Pengaris Pulpen Gel Warna Pensil 2B
Harga 25000 4500 5000 11000 2500
Stok 75 20 30 35 45
Satuan Buah Buah Unit Buah Unit
Setelah Database Koneksi, Klik Kanan :Retrieve Fields
DBGrid1 (Objek Baru pada VB)
Microsoft Data Bound Grid Control 5.0 (SP3), Name : DBGrid1 Cara Menambah Objek baru pada Toolbox yaitu dengan : CTRL + T atau Klik kanan pada ToolBox pilih Component, atau Klik menu Project pada menu utama VB, pilih Component. Objek Command1 Command2 Timer1 Data1
DBGrid1
Properties Name Enabled Name Enabled Interval DatabaseName RecordSource Name DataSource
Nilai CmdSimpan False CmdBatal False 100 (Klik tombol…cari database) Tbl_Barang BARANG BARANG
Listing : Sub mati() CmdTambah.Enabled = False CmdSIMPAN.Enabled = True CmdBatal.Enabled = True CmdCARI.Enabled = False CmdHapus.Enabled = False CmdKELUAR.Enabled = False End Sub Sub hidup() CmdTambah.Enabled = True CmdSIMPAN.Enabled = False CmdBatal.Enabled = False CmdCARI.Enabled = True CmdHapus.Enabled = True CmdKeluar.Enabled = True End Sub
Sub tampil() TxtKode = Barang.Recordset!kd_brg TxtNAMA = Barang.Recordset!nm_brg TxtHARGA = Barang.Recordset!harga TxtJUMLAH = Barang.Recordset!stok Cbosat = Barang.Recordset!satuan End Sub Sub kosong() TxtKode = "" TxtNAMA = "" TxtHARGA = "" TxtJUMLAH = "" Cbosat = "" End Sub Private Sub CmdBatal_Click() Data1.Recordset.Cancelupdate kosong hidup End Sub
Private Sub CmdBACK_Click() On Error Resume Next Barang.Recordset.MovePrevious tampil If Barang.Recordset.BOF Then MsgBox "Sudah Awal Record", 64, "Informasi" Barang.Recordset.MoveFirst tampil End If End Sub Private Sub CmdCARI_Click() On error resume next cari = InputBox("Masukan Kode Yang Dicari", "Pencarian") Data1.Recordset.Index=”kode” Data1.Recordset.seet “=”, cari If Barang.Recordset.NoMatch Then MsgBox "Data Tidak Ditemukan", 48, "Informasi" Else tampil End If End Sub Private Sub CmdEND_Click() Barang.Recordset.MoveLast tampil End Sub Private Sub CmdHAPUS_Click() If MsgBox("Yakin Akan Hapus Data ?", vbYesNo + vbQuestion, "Info") = vbYes Then Barang.Recordset.Delete Barang.Recordset.MoveFirst tampil End If End Sub Private Sub CmdKELUAR_Click() pesan = MsgBox("Yakin Mau Keluar Program?", vbYesNo + vbQuestion, "Perhatian") If pesan = vbNo Then Cancel = 1 Else End End If End Sub Private Sub CmdNEXT_Click() On Error Resume Next Barang.Recordset.MoveNext tampil If Barang.Recordset.EOF Then MsgBox "Sudah Akhir Record", 48, "Informasi" Barang.Recordset.MoveLast tampil End If End Sub Private Sub CmdSIMPAN_Click() On error resume next Barang.Recordset!kd_brg = TxtKode Barang.Recordset!nm_brg = TxtNAMA Barang.Recordset!harga = TxtHARGA Barang.Recordset!stok = TxtJUMLAH Barang.Recordset!satuan = Cbosat.Text Barang.Recordset.Update hidup End Sub Private Sub CmdTAMBAH_Click() Data1.Recordset.addnew kosong mati TxtKode.SetFocus End Sub Private Sub CmdTOP_Click() Barang.Recordset.MoveFirst tampil End Sub
Private Sub Form_Load() Cbosat.AddItem "Unit" Cbosat.AddItem "Potong" Cbosat.AddItem "Buah" Cbosat.AddItem “Pasang” End Sub Private Sub Timer1_Timer() LblJam.Caption = Time End Sub
SQL (Structured Query Language) SQL adalah bahasa yang digunakan untuk memuat, mengurutkan, menyaring, mengupdate dan mengolah relasi antar database suatu data sehingga dihasilkan suatu data yang spesifik dari suatu database. Bentuk Umum : . RecordSource = <String SQL> Ket: <String SQL> adalah string yang berisi pernyataan dalam SQL. Bentuk-Bentuk dalam SQL 1. Select….From Digunakan Untuk memilih field dan tabel data dengan SQL BU : Select From In Ket : Adalah nama-nama field yang diinginkan, bisa satu /lebih field adalah salah satu nama tabel yang ada dalam database (*) untuk semua field 2. Select….From…Where Digunakan Untuk Menyaring data berdasarkan Kriteria tertentu BU : Select From Where <Syarat> 3. Select…From…OrderBy Digunakan untuk mengakses suatu data dengan hasil yang terurut (mengurutkan data secara Assembly) BU : Select From In Order By , Latihan : 1. Buat Database dengan nama : Mahasiswa, simpan difolder masing-masing. 2. Buat Tabel baru dengan nama : Tbl_Mhs Name Nim Nama Jurusan Kelas IPK Nim 12011 11025 13020 12055 13021
Type Text Text Text Text Single
Nama Erni Dwi Surya Aldy Wandi Ariyati
Size 5 25 25 5
Jurusan Manajemen Informatika Komputerisasi Akutansi Teknik Komputer Manajemen Informatika Teknik Komputer
Kelas MI4D KA4C TK4E MI4R TK4F
IPK 3.12 3.15 3.23 3.19 3.45
Recordset type = 1-Dynaset
Listing Form : Private Sub Cmdselesai_Click() Pesan = MsgBox("Yakin Nih Ingin Keluar ?", 32 + 1, "Info") If pesan = vbOK Then End Else Pesan = MsgBox(“Ga Jadi Keluar Ah!”, vbInformation + vbOkOnly, ”Informasi”) End If End Sub Private Sub CmdTampil_Click() Data1.RecordSource = Text1.Text Data1.Refresh End Sub Proses Program : Cara menjalankan program dengan mengetikkan perintah SQL pada Text Box, kemudian klik Command Tampil Data maka data yang dimunculkan pada DBGrid1 akan terseleksi dengan perintah SQL yang diketik. Buatlah perintah SQL dibawah ini : 1.
Select nim, nama, kelas from Tbl_Mhs
2.
Select * from Tbl_Mhs
3.
Select * from Tbl_Mhs where jurusan = „Teknik Komputer‟
4.
Select * from Tbl_Mhs where ipk > 3.00
5. Select * from Tbl_Mhs order by nama 6.
Select * from Tbl_Mhs order by ipk
Relasi One to One Relasi One to One adalah hubungan antara file pertama dengan file kedua adalah satu berbanding satu. A. Relasi Combobox dengan code list Latihan : 1. Buat Database Elektronik Simpan difolder masing-masing. 2. Buat Tabel dengan nama : Tbl_Barang Name Kd_Brg Nm_Brg Harga
Type Text Text Currency
Size 5 20
Isi Data Sebanyak 3 Record : Kd_Brg LMR2P MSNCI TVL14 3. 4.
Nm_Brg Lemari Es 2 Pintu Mesin Cuci Televisi LG 14‟
Buat Index dengan nama Kode Lalu buat Tabel satu lagi dengan nama : Tbl_Jual Name No_Faktur Tanggal Kd_Brg Jml_Beli Total
5.
Harga 40000 15000 25000
Type Text Date/time Text Byte Currency
Size 5 5
Buat Index dengan nama Faktur
DTPicker Componnent: Microsoft Windows Common Control 26.0
Objek
Properties
Nilai
Data1
DatabaseName Name RecordSource
(Klik tombol…cari database) Barang Tbl_Barang
Data2
DatabaseName Name RecordSource
(Klik tombol…cari database) Jual Tbl_Jual
Listing : Sub aktif() CmdSIMPAN.Enabled = True CmdBATAL.Enabled = True CmdTAMBAH.Enabled = False CmdKELUAR.Enabled = False TxtNo.Enabled = True TxtPembeli.Enabled = True TxtJumlah.Enabled = True Combo1.Enabled = True End Sub Sub tampilkode() If BARANG.Recordset.RecordCount <= 0 Then GoTo ni End If With BARANG.Recordset .MoveFirst Do Until .EOF Combo1.AddItem (!kd_brg).MoveNext Loop End With ni: End Sub
Sub nonaktif() CmdSIMPAN.Enabled = False CmdBATAL.Enabled = False CmdTAMBAH.Enabled = True CmdKELUAR.Enabled = True TxtNo.Enabled = False TxtPembeli.Enabled = False TxtJumlah.Enabled = False Combo1.Enabled = True Tgl.Enabled = False End Sub
Sub tampilnama() On Error Resume Next With BARANG.Recordset finds = "Kd_Brg= ' " & Combo1 & " ' " .FindFirst finds If Not .NoMatch Then Txtbarang = !nm_brg TxtHarga = !Harga Else GoTo ni End If End With ni: End Sub Sub kosong() TxtNo = "" TxtPembeli = "" TxtHarga = "" TxtJumlah = "" Txtbarang = "" TxtTotal = "" Combo1 = "" End Sub Private Sub Form_Activate() tampilkode End Sub Private Sub Timer1_Timer() Label10.Caption = "Jam " & Time End Sub Private Sub TxtJumlah_Change() TxtTotal = Val(TxtHarga) * Val(TxtJumlah) End Sub Private Sub TxtNo_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then cari = " No_Faktur = ' " & TxtNo.Text & " ' " Jual.Recordset.FindFirst cari If Jual.Recordset.NoMatch Then TxtPembeli.SetFocus Else MsgBox "No Faktur Sudah Ada, Isikan no Lainnya", 48, "Info" TxtNo.SetFocus TxtNo = "" End If End If End Sub Private Sub TxtPembeli_KeyPress(KeyAscii As Integer) If (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Then KeyAscii = 0 End If If KeyAscii = 13 Then Combo1.SetFocus End If End Sub Private Sub CmdBatal_Click() kosong nonaktif CmdTAMBAH.SetFocus End Sub Private Sub CmdKELUAR_Click() pesan = MsgBox("Yakin Nih Ingin Keluar ?", 32 + 1, "Info") If pesan = vbOK Then Private Sub End CmdTAMBAH_Click() End If kosong End Sub aktif TxtNo.SetFocus Private Sub CmdSIMPAN_Click() End Sub Jual.Recordset.AddNew Jual.Recordset!No_Faktur = TxtNo Jual.Recordset!Tanggal = CDate(Tgl.Value) Private Sub Combo1_Change() Jual.Recordset!kd_brg = Combo1 tampilnama Jual.Recordset!Jml_Beli = Val(TxtJumlah) End Sub Jual.Recordset!Total = Val(TxtTotal) Jual.Recordset.Update Private Sub Combo1_Click() nonaktif tampilnama CmdTAMBAH.SetFocus End Sub End Sub
B. Relasi DBCombo dengan properties 1. 2.
Buat Database dengan nama DataObat, simpan di folder masing-masing Buat Table : Obat Field Name kode_obat nama_obat jenis_obat harga_obat
Type Text Text Text Double
Size 5 25 15
Isi data sebanyak 3 record Kode_obat OSF01 OSK02 OMA03 3.
Nama_obat Obat Sakit Flu Obat Sakit Kepala Obat Masuk Angin
Harga_obat
1500 1750 2000
Buat table :Transaksi Field Name kode_obat harga_obat jumlah bayar discount total
4.
Jenis_obat Tablet Kapsul Cair
Type Text Double Integer Double Double Double
Size 5
Desain Form seperti tampilan dibawah ini !
DBCombo Componnent: Microsoft Data Bound List Controls 6.0.
Listing : Private Sub aktif() dbkode.Enabled = True txtjumlah.Enabled = True txtbayar.Enabled = True txtdiscount.Enabled = True txttotal.Enabled = True cmdinput.Enabled = False cmdsave.Enabled = True End Sub Private Sub Form_Activate() nonaktif End Sub Private Sub dbkode_Change() Data1.Recordset.index=”kode” Data1.Recordset.seek “=”, Dbcombo1 txtnama = Data1.Recordset!nama_obat txtjenis = Data1.Recordset!jenis_obat txtharga = Data1.Recordset!harga_obat txtjumlah.SetFocus End Sub Private Sub cmdinput_Click() Data2.Recordset.addnew aktif txtjumlah = "" txtbayar = "" txtdiscount = "" txttotal = "" dbkode.SetFocus End Sub
Private Sub nonaktif() dbkode.Enabled = False txtnama.Enabled = False txtjenis.Enabled = False txtharga.Enabled = False txtjumlah.Enabled = False txtbayar.Enabled = False txtdiscount.Enabled = False txttotal.Enabled = False cmdinput.Enabled = True cmdsave.Enabled = False End Sub
Objek
Properties
Nilai
DBCombo
DataSource Name RowSource ListField
Data_obat DBKode Data_obat Kode_obat
Private Sub txtjumlah_Change() txtbayar = Val(txtjumlah) * Val(txtharga) If Val(txtbayar) >= 15000 Then txtdiscount = 0.1 * Val(txtbayar) Else txtdiscount = 0 End If End Sub Private Sub cmdtotal_Click() txttotal = Val(txtbayar) - Val(txtdiscount) End Sub Private Sub cmdsave_Click() Data2.Recordset!kode_obat = dbkode Data2.Recordset!harga_obat = txtharga Data2.Recordset!jumlah = txtjumlah Data2.Recordset!bayar = txtbayar Data2.Recordset!discount = txtdiscount Data2.Recordset!total = txttotal Data2.Recordset.Update Data2.Refresh cmdinput.Enabled = True cmdsave.Enabled = False End Sub
Relasi One To Many (Koneksi Multi Table) Latihan : 1. 2.
Buat Database dengan nama : MahasiswaBsi Buat Tabel : Tbl_Siswa Name Nim Nama Kelas
3. 4. 5.
Type Text
Size 5 20 6
Buat Index dengan nama : nomor, dengan pilihan index Primary saja Isikan Data pada Tbl_Siswa sebanyak 5 Record Buat Tabel : Tbl_Nilai Name Nim MatKul Nilai
Type Text
Size 5 15
Integer
Buat Tampilan Form sbb : Objek Data1
Data2
Properties DatabaseName RecordSource Caption DatabaseName RecordSource Visible
Text1 Text2
DataSource Datafield
Text3 DBGrid1
Sub Tampil() TxtNIM.Text = Data1.Recordset!Nim TxtNama.Text = Data1.Recordset!Nama TxtKELAS.Text = Data1.Recordset!Kelas End Sub Private Sub CmdBack_Click() On Error Resume Next Data1.Recordset.MovePrevious Tampil If Data1.Recordset.BOF Then MsgBox "Sudah Awal Record" Data1.Recordset.MoveFirst Tampil End If End Sub
DataSource
Nilai (Klik tombol…cari database) Tbl_Siswa Data Mahasiswa (Klik tombol…cari database) Tbl_Siswa False Data1 Nim Data1 Nama Data1 Kelas Data2
Private Sub Cmddelete_Click() If MsgBox("yakin akan hapus data?", vbYesNo, "info") = vbYes Then Data2.Recordset.Delete Data2.Recordset.MoveLast End If End Sub Private Sub CMDEDIT_Click() DBGrid1.AllowUpdate = True DBGrid1.SetFocus End Sub Private Sub CmdEnd_Click() Data1.Recordset.MoveLast Tampil End Sub
Private Sub CmdExit_Click() End End Sub Private Sub Cmdinput_Click() DBGrid1.SetFocus DBGrid1.Col = 1 Data2.Recordset.AddNew Data2.Recordset!Nim = TxtNIM.Text Data2.Recordset.Update DBGrid1.AllowAddNew = True DBGrid1.AllowUpdate = True DBGrid1.SetFocus Private Sub CmdTop_Click() End Sub Data1.Recordset.MoveFirst Tampil Private Sub CmdNext_Click() End Sub On Error Resume Next Data1.Recordset.MoveNext Private Sub Txtnim_Change() Tampil Data2.RecordSet.index=”nomor” If Data1.Recordset.EOF Then Data2.RecordSet.seek “=”, txtnim MsgBox "Sudah Akhir Record" Data2.Refresh Data1.Recordset.MoveLast End Sub Tampil End If End Sub Private Sub CmdSave_Click() DBGrid1.AllowAddNew = False DBGrid1.AllowUpdate = False End Sub
KONEKSI DATABASE DENGAN MENGGUNAKAN ADODC 1.
Klik Kanan Toolbox, Components pilih Microsoft ADO Data Control 6.0 (OLEDB), diChecklist lalu klik Apply, OK.
2.
Pilih Properties ConnectionString (Pada Adodc1), klik
3.
String lalu klik lalu pada Tab Data link Properties pilih Tab Provider kemudian pilih Microsoft Jet 4.0 OLE DB Provider klik Next. Pada Tab Connection pilih nama Database yang akan digunakan yaitu : Penjualan, klik Test Connection, OK, Klik OK.
4.
lalu pada Tab Property Pages Pilih Use Connection
Pilih Properties RecordSource (Masih pada Adodc1), ), klik lalu pada Tab Property Pages pilih Command Type : 2-adCmdTable, lalu pada Table or Stored Procedure Name pilih tabel yang akan digunakan yaitu : Tbl_Barang, klik Apply, Klik OK. Objek Properties Nilai Text1 Adodc1 Kd_Brg DataSource Text2 Adodc1 DataField Nm_Brg Text3 Adodc1 Harga
Adodc1 Command5
Visible Name Caption Picture
Style Command6
Name Caption Picture
Style Command7 Command8 Command9
Name Caption Name Caption Name Caption
False CmdNew C:\Program Files\Microsoft Visual Studio\Common\Graphics\Bitmaps\ OffCtlBr \Large\Color\New 1 – Graphical CmdSave C:\Program Files\Microsoft Visual Studio\Common\Graphics\Bitmaps\ OffCtlBr \Large\Color\Save 1 – Graphical CmdBatal &Batal CmdHapus &Hapus CmdExit &Exit
Listing : Private Sub Cmdback_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst MsgBox "Awal Record", , "info" End If End Sub Private Sub CmdExit_Click() Pesan = MsgBox("Yakin Nih Ingin Keluar ?", 32 + 1, "Info") If pesan = vbOK Then End Else Pesan = MsgBox(“Ga Jadi Keluar Ah!”, vbInformation + vbOkOnly, ”Informasi”) End If End Sub Private Sub Cmdhapus_Click() On Error Resume Next If MsgBox("yakin akan hapus data?", vbQuestion + vbYesNo, "info") = vbYes Then Adodc1.Recordset.Delete adAffectCurrent If Adodc1.Recordset.BOF Then MsgBox "Data udah kosong", , "info" Else Adodc1.Recordset.MoveLast End If End If End Sub Private Sub Cmdnext_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast MsgBox "Akhir Record", , "info" End If End Sub Private Sub Cmdsimpan_Click() On Error Resume Next Adodc1.Recordset.Update MsgBox "data sudah tersimpan", , "penyimpanan" Exit Sub pesan: MsgBox "isikan kode yang lainnya", , "info" Exit Sub End Sub Private Sub Cmdbatal_Click() Adodc1.Recordset.CancelUpdate End Sub Private Sub Cmdend_Click() Adodc1.Recordset.MoveLast End Sub Private Sub Cmdtambah_Click() Adodc1.Recordset.AddNew Text1.SetFocus End Sub Private Sub Cmdtop_Click() Adodc1.Recordset.MoveFirst End Sub
37
PENGGUNAAN DATA ENVIRONMENT & DESIGN REPORT 1. 2. 3.
Pada Menubar Project pilih More Active Designers lalu Add Data Environment Maka akan muncul jendela Data Environment, lalu klik kanan pada Connection1 pilih Properties. Maka akan muncul jendela Data Link Properties, pada Tab Provider pilih Microsoft Jet 4.0 OLE DB Provider lalu klik Next.
4.
Pada Tab Connection pilih Select or Enter a database name, klik kemudian cari database yaitu : Penjualan, klik Test Connection, OK,klik OK. Klik Kanan pada Connection1 pilih Add Command. Klik Kanan pada Command1, lalu pilih Properties Pada Command Name ketik judul laporan yaitu : Lap_Barang Pada Database Object pilih: Table, lalu Object Name pilih : Tbl_Barang. Klik Apply lalu OK. Klik Menubar Project pilih Add Data Report dan akan muncul jendela Data Repport
5. 6. 7. 8. 9.
Bagian –Bagian Data Report : Bagian Report Header Page Header Detail Page Footer Report Footer
Keterangan Berisi Judul Laporan Berisi Judul Kolom data yang akan ditampilkan Berisi nama field yang akan ditampilkan pada kolom Berisi catatan kaki di akhir kolom-kolom report Berisi catatan kecil/ keterangan report
Selain Jendela Report, Pada Toolbox akan muncul Tab Data Report yaitu : Nama Kontrol RtpTexBox RptLine RptFunction
RptLabel RptImage RptShape
Keterangan Kontrol serupa textbox yang hanya menampilkan teks database saat runtime. Kontrol yang dapat menggambar garis secara horizontal, vertical, maupun diagonal. Kontrol yang dapat menset hasil perhitungan pada saat runtime (misalnya jumlah toatal, standar deviasi, dsb) Kontrol untuk memberikan label pada report. Kontrol untuk menempatkan image pada report Kontrol untuk menggambar shape pada report
10. 11.
Lalu pada Command1yaitu Lap_Barang Drag ke Data Design (Tempatkan Pada Bagian Detail). Kemudian Atur field-fieldnya Sebagai Berikut
12.
Lalu atur Properties Data Report sebagai berikut : Name DataReport1 DataSource Data Environment1 Data Member Lap_Barang
13.
Untuk Melihat Hasilnya yaitu klik MenuBar Project pilih Project1Properties pada Star Up Object pilih Data Report1. lalu Run, Lihatlah Hasilnya.
PEMBUATAN MENU UTAMA Menu utama atau menu program digunakan untuk mengintegrasikan program-program sehingga pemakai program tidak kesulitan menggunakan program yang telah dibuat. Microsoft Visual Basic 6.0 menyediakan fasilitas untuk membuat menu program, yaitu Menu Editor. Dengan fasilitas ini, anda dapat membuat menu program dengan cepat dan mudah. Adapun langkah-langkah pembuatan menu sebagai berikut: 1. 2.
Buka Project yang sudah dibuat Pada Menubar Pilih Menu Project, lalu pilih Add MDI Form.
3.
Keluarkan Menu Editor dengan cara klik Toolbar Menu Editor atau pilih Menubar Tools, lalu pilih Menu Editor (Ctrl+E). Fungsi-Fungsi Tombol Menu Editor : Tombol Fungsi Untuk menaikan level urutan menu Untuk menurunkan level urutan menu Untuk memindahkan posisi menu keatas Untuk memindahkan posisi menu kebawah Untuk pindah ke menu berikutnya Untuk menyisipkan pilihan baru (menu) diatas sebuah menu Untuk menghapus sebuah menu
Caption Level 1
Level 2
Level 3
&File
Name mnuFile
&DataBarang &Transaksi &Penjualan &Laporan
mnuDataBarang mnugaris1 mnuTransaksi mnugaris2 mnuPenjualan mnuLaporan
Laporan &Barang E&xit
mnuLaporanBarang mnuExit
&Keluar
Listing : Private Sub mnuDataBarang_Click() FrmBarang.Show End Sub Private Sub mnuLaporanBarang_Click() DataReport1.Show End Sub
mnuKeluar
Private Sub mnuPenjualan_Click() FrmJual.Show End Sub Private Sub mnuTransaksi_Click() FrmTransaksi.Show End Sub 4. Catatan : FrmBarang : (Form Toko Beruntung), FrmTransaksi : (Form ADODC), dan FrmJual : (Form One to One). 5. Pada MDI Form1 Properties yang dirubah yaitu Picture (Cari Gambar di C:/Master/Full Clipart/Clipart/cari Gambar yang disukai) dan WindowState : 2-Maximized. 6. Setelah selesai klik OK dan simpanlah proyek dan formnya dengan nama MDIFrmMenu. 7. Untuk Melihat Hasilnya yaitu klik MenuBar Project pilih Project1Properties pada Star Up Object pilih MDIForm1. lalu Run, maka Hasilnya sebagai berikut :
