Kategori: Visual Basic 6

Ms Visual Basic 6. 0.12.2012. Tek Sipil S1

Ada dua jenis data gambar, yang pertama gambar diletakkan pada database, dan yang kedua gambar diletakan di folder tertentu sementara database hanya berisi link dan nama filenya. Buat dengan Microsoft access yang berisi nama gambar. Untuk mempermudah, copy gambar yang berada di my pictures ke lokasi folder VB anda.

Simpan dengan nama tertentu, misalnya gambar1.mdb (format ke access 2002-2003). Setelah itu buka Microsoft VB 6. Buat GUI sebagai berikut, seperti biasa tambahkan component adodc.

Lihat tata cara mengkoneksikan adodc1 ke database gambar1.mdb lewat connection string dan record source. Jika sudah, pada property text1, arahkan data source ke adodc1 dan data filed = picture.

Pada tombol LIHAT, masukan listing berikut ini:

F = “D:\rahmadya\” & Text1.Text

Image1.Picture = LoadPicture(F)

Perhatikan, lokasi D:\rahmadya\ sesuaikan dengan letak gambar di komputer Anda. Jalankan hingga muncul tampilan sebagai berikut.

Jika tombol LIHAT ditekan, akan memunculkan gambar1.jpg, atau tekan tombol next pada Adodc1 untuk melihat gambar yang lainnya.

Open Database Connectivity (ODBC) merupakan alat bantu buatan Windows untuk menghubungkan suatu aplikasi dengan database tanpa langsung terhubung. Untuk itu kita harus membuat ODBC dari database yang telah kita buat. Jika sudah terbentuk, VB akan berkomunikasi dengan database lewat ODBC. Keuntungannya adalah jika kita akan migrasi ke software database lain, atau dalam satu aplikasi dilayani oleh lebih dari satu jenis database application, kita tidak perlu merubah setingan program.

Buka Control Panel cari ODBC (untuk windows 7, bisa di cari di search ). Untuk windows xp, cari di Administrative Tools.

Pilih jenis driver yang sesuai, dalam hal ini Microsoft Access Driver (*.mdb, *.accdb). Klik Finish dan dilanjutkan dengan pembuatan nama ODBC. Pilih Database yang dituju:

Jika Anda berhasil membuat ODBC lengkap dengan target databasenya, pada jendela ODBC tampak database Anda.

Buka VB6 project yang lalu. Sekarang akan kita coba dengan menggunakan ODBC. Sorot objek ADODC1 yang menghubungkan vb dengan database.

Klik Build karena akan kita ganti koneksi dengan ODBC. Pilih provider: Microsoft OLE DB Provider for ODBC Driver karena kita akan menggunakan ODBC. Klik Next . Pilih ODBC yang baru saja Anda buat (Material).

Test Koneksinya.

Pada pertemuan minggu lalu (https://rahmadyatrias.wordpress.com/2012/10/30/koneksi-dua-tabel-dalam-satu-form/) kita membuat satu form yang berisi koneksi dua tabel (adodc1 dan adodc2). Sekarang kita akan mencoba mengimplementasikan suatu manipulasi terhadap tabel kedua, misalnya transaksi barang. Barang yang dijual harus berada pada tabel material.

Buat isian pada input transaksi. Karena barang yang dijual harus berada di tabel material (bagian atas), maka di sini diberi tombol tekan “cari brg” agar sebelum transaksi, barang dipastikan ada pada tabel material. Gunakan kode berikut di tombol ‘Cari Brg’

Private Sub Command5_Click()

Adodc1.Recordset.MoveFirst

Adodc1.Recordset.Find “kode=” + Text5.Text + “”

If Not Adodc1.Recordset.EOF Then

Text6.Text = Adodc1.Recordset.Fields(1)

Else

MsgBox “maaf barang tidak ada”

End If

End Sub

Sedangkan untuk mengaktifkan tombol tekan input, gunakan kode berikut (perhatikan posisi text1, text2, dst harus sesuai dengan nama yang anda buat).

Private Sub Command4_Click()

Adodc2.Recordset.AddNew

Me.Adodc2.Recordset.Fields(0) = Text4.Text

Me.Adodc2.Recordset.Fields(1) = Text6.Text

Me.Adodc2.Recordset.Fields(2) = Text7.Text

End Sub

Ketika tombol CARI BRG ditekan akan menampilkan nama barang. Selanjutnya tinggal mengisi kolom isian lainnya sebelum tombol input ditekan

Pemr VB 6, 30.10.2012, Tek Sipil S1

Melanjutkan materi minggu lalu, kita mencoba menambahkan satu table dalam satu Form di VB. Tambahkan satu tabel baru di Database yang telah Anda buat, misalnya tabel transaksi. Tabel ini berisi transaksi penjualan material.

Untuk latihan, isi field-field di tabel transaksi yaitu No, kode dan Total. Masukan satu record awal, misalnya pembelian barang dengan kode 001 sebesar 110000. Klik Database Tools, buat relasi antara tabel material dengan tabel transaksi. Perhatikan, kode barang pada transaksi harus terkoneksi dengan kode barang pada tabel material.

Jika sudah selesai, buka project VB yang lalu, tambahkan DBGrid dan ADODC baru untuk mengkoneksikan tabel transaksi ke form tersebut. Gunakan cara yang sama dengan materi minggu lalu.

Coba koneksikan sehingga jika dijalankan Data Grid di bawah akan berisi data transaksi. Lanjut minggu depan bagaimana mengisi kode-nya.

Setelah pertemuan yang lalu berhasil membuat aplikasi RAB, sekarang kita coba membuat tampilan awal program yang disertai dengan menu. Suatu aplikasi terkadang memiliki lebih dari satu Form dalam sebuah project. Oleh karena itu kita harus mampu mengatur form mana yang muncul lebih dahulu. Biasanya form yang muncul terlebih dahulu adalah MDI Form. Buka IDE Microsoft Visual basic 6.0 Anda.

Setelah membuka VB 6.0 buka project RAB yang terdahulu. Atau jika filenya tidak ada buat form kosong saja seolah-oleh itu adalah form menghitung RAB. Pilih dengan mengklik bagian panah ke bawahnya, kemudian pilih MDI Form.

Karena MDI Form nanti yang pertama kali tampil saat program dijalankan, maka kita harus mengeset form mana yang muncul terlebih dahulu. Klik ‘Project’ – ‘project1.properties’. Pada isian startup object pilih ‘MDI Form’.

Jika dijalankan, VB akan menampilkan terlebih dahulu MDI Form Anda. Berikutnya kita akan membuat MENU yang berfungsi memanggil form RAB dan ‘keluar’. Klik ‘Tool’ – ‘Menu Editor ..’, isi menu sebagai berikut:

Pilih panah ke kenan atau kekiri untuk menjadikan menu itu sub menu atau tidak. Karena RAB dan Exit merupakan submenu File, maka harus kita geser ke kanan dengan menekan tombol panah ke kanan. Klik ‘OK’ jika sudah selesai. Maka pada MDI Form akan muncul menu yang baru saja dibuat. Klik ‘File- RAB’ pada MDI Form, maka Anda masuk ke kode memanggil program RAB. Isi dengan istruksi ‘Form1.show’ yang artinya menampilkan Form1. Jika Form1 sudah Anda ganti namanya, maka ikuti sesuai dengan nama formnya.

Test program Anda dengan menekan tombol run maka MDI akan muncul terlebih dahulu. Jika menu ‘File’ ditekan, akan muncul ‘RAB’ dan ‘Exit’. Tes dengan menekan ‘RAB’, harusnya form RAB akan muncul. Jika sudah, coba tambahkan gambar di MDI Form Anda, dengan mengklik ‘Picture’ di ‘Property
editor’ VB.