Pemrograman Berorientasi Objek I

1. Pemrograman Berorientasi Objek I Edri Yunizal Pertemuan Ke – V “Database dengan Visual Basic” Manajemen Informatika STAIN Batusangkar

2. Visual Data Manager • Fasilitas pengolahan database standar visual basic • Database yang didukung: • Access • Dbase • Foxpro • Paradox • ODBC • Text file Manajemen Informatika STAIN Batusangkar

3. Membuat Database Access • File>New>Microsoft Access>Version 7.0 MDB • Simpan File ditempat yang diinginkan, misal: D:\nomor_nim\prjdatabase\inventori.mdb Manajemen Informatika STAIN Batusangkar

4. Layar Visual Data Manager Jendela Database Jendela Perintah SQL Manajemen Informatika STAIN Batusangkar

5. Misalkan ingin membuat tabel tbBarang: Manajemen Informatika STAIN Batusangkar

6. Membuat Table • Klik Kanan pada database window, pilih New Table • Isi Table Name dengan Barang • Klik Add field • Tambahkan fieldnya sesuai dengan name, type dan sizenya Manajemen Informatika STAIN Batusangkar

7. Menambahkan index • Untuk pencarian dengan cepat diperlukan indeks • Klik add index, beri nama idxbarang • Klik kode sebagai field yang diindex, kemudian klik OK Manajemen Informatika STAIN Batusangkar

8. Build The Table Klik kanan untuk membuka, mengedit, mengubah nama, dan menghapus tabel Manajemen Informatika STAIN Batusangkar

9. Tambah, Edit, Hapus Record • Add untuk menambah record • Edit untuk mengubah record • Delete untuk menghapus record Manajemen Informatika STAIN Batusangkar

10. Tambahkan record berikut: Manajemen Informatika STAIN Batusangkar

11. Membuat Program DatabaseA. Mengaktifkan DAO (Koneksi ke database) • Buka Project Standard • Set nama Project dengan prjInventory • Set nama form dengan frmBarang • Aktifkan Data Access Object (DAO) dengan cara click pada menu Project >References > Microsoft DAO 3.6 Object Library Manajemen Informatika STAIN Batusangkar

12. B. Menambahkan Control-control • Set caption form denganEntry Data Barang • Tambahkan label set captionnya dengan PT ABC • Tambahkan 5 buah Label, set captionnya dengan: Kode Barang, Nama Barang, Satuan, Harga Barang, Stok Barang • Tambahkan 5 buah Textbox, set namenya dengan: txtKode, txtNama,txtHarga,txtStok • Tambahkan 1 buah ComboBox, set namenya dengan cboSatuan • Tambahkan 3 buah CommandButton, set namenya dengan: cmdSimpan, cmdHapus, cmdBersih,cmdTutup, set captionnya dengan:&Simpan, &Hapus, &Bersih, &Tutup Manajemen Informatika STAIN Batusangkar

13. Hasilnya Manajemen Informatika STAIN Batusangkar

14. C. Membuat Kode ProgramMenambahkan prosedur untuk menutup form • Double click pada cmdtutup akan muncul private sub cmdTutup_click() • Pada prosedur cmd tutup_click Tambahkan teks “unload me”, • sehingga akan nampak seperti ini: Private Sub cmdTutup_Click() Unload Me End Sub Manajemen Informatika STAIN Batusangkar

15. Menambahkan prosedur untuk Membersihkan layar • Double click pada cmdBersih • Pada prosedur cmdBersih_click Tambahkan teks berikut: txtKode.Text = "" txtNama.Text = "" cboSatuan.Text = "" txtHarga.Text = "" txtStok.Text = "" Manajemen Informatika STAIN Batusangkar

16. Menambahkan prosedur hapus tabel • Double click pada cmdHapus • Pada prosedur cmdHapus_click Tambahkan teks berikut: Dim dbBarang As Database Dim rsBarang As Recordset Set dbBarang = OpenDatabase(App.Path & "\inventori.mdb") Set rsBarang = dbBarang.OpenRecordset("tbbarang") rsBarang.Index = "idxkode" rsBarang.Seek "=", txtKode.Text If rsBarang.NoMatch Then MsgBox "data barang tersebut tidak ditemukan!", vbCritical, "Kesalahan!" Else rsBarang.Delete cmdBersih_click End If Manajemen Informatika STAIN Batusangkar

17. Menambahkan prosedur simpan • Double click pada cmdSimpan • Pada prosedur cmdSimpan_click Tambahkan teks berikut: Dim dbBarang As Database Dim rsBarang As Recordset Set dbBarang = OpenDatabase(App.Path & "\inventori.mdb") Set rsBarang = dbBarang.OpenRecordset("tbbarang") rsBarang.Index = "idxkode" rsBarang.Seek "=", txtKode.Text If rsBarang.NoMatch Then rsBarang.AddNew rsBarang!kode = txtKode.Text rsBarang!nama = txtNama.Text rsBarang!satuan = cboSatuan.Text rsBarang!harga = txtHarga.Text rsBarang!stok = txtStok.Text rsBarang.Update Else txtKode.Text = rsBarang!kode txtNama.Text = rsBarang!nama cboSatuan.Text = rsBarang!satuan txtHarga.Text = rsBarang!harga txtStok.Text = rsBarang!stok MsgBox "Barang tersebut sudah ada", vbCritical, "Kesalahan!" End If Manajemen Informatika STAIN Batusangkar

18. Menambahkan prosedur untuk form_load • Double click pada form • Pada prosedur form_load Tambahkan teks” cmdBersih_Click cboSatuan.AddItem "RIM" cboSatuan.AddItem "PCS" cboSatuan.AddItem "DUS" cboSatuan.AddItem "BOX" Manajemen Informatika STAIN Batusangkar

19. Menambahkan prosedur txtKode_change • Double click pada txtkode • Pada prosedur txtkode_change, tambahkan: Dim dbBarang As Database Dim rsBarang As Recordset Set dbBarang = OpenDatabase(App.Path & "\inventori.mdb") Set rsBarang = dbBarang.OpenRecordset("tbbarang") rsBarang.Index = "idxkode" rsBarang.Seek "=", txtKode.Text If Not rsBarang.NoMatch Then txtKode.Text = rsBarang!kode txtNama.Text = rsBarang!nama cboSatuan.Text = rsBarang!satuan txtHarga.Text = rsBarang!harga txtStok.Text = rsBarang!stok End If If txtKode.Text = "" Then cmdBersih_Click End If Manajemen Informatika STAIN Batusangkar

20. Tugas • Tambahkan pada Database: • Tabel pelanggan • Tabel distributor • Tambahkan pada program: • Form pelanggan • Form distributor Manajemen Informatika STAIN Batusangkar

21. Menambahkan Form • Project>Add Form Untuk mengatur form yang pertama kali dijalankan program • Klik kanan pada prjinventori>prjInventori properties>Startup object Manajemen Informatika STAIN Batusangkar