Membuat Aplikasi Pencarian Multiple Key Dengan MSFlexgrid Di Visual Basic 6.0

Membuat Aplikasi Pencarian Multiple Key Dengan MSFlexgrid Di Visual Basic 6.0 | Gho Blog's - Kenapa MSFlexGrid…?, Jujur saja saya tidak punya alasan  khusus kenapa mengangkat topik ini. Sederhananya, disemua artikel yang pernah saya tulis baik itu di blog maupun di Ebook saya menggunakan Datagrid sebagai bahan pembahasan karena sangat mudah dari segi pengkodean programnya.

Singkatnya, saya dimintai tolong oleh teman kantor untuk membuat aplikasi penjualan dan stok barang yang akan digunakan di toko yang Dia punya. Jadi saya berfikir untuk sedikit keluar dari kebiasaan saya menggunakan DataGrid untuk management table dan mencoba hal yang lain. Disini saya pun baru pertama kali fokus dan mencoba MSFlexgrid yang lumayan jauh berbeda dan sedikit ribet disbanding DataGrid

Sekarang tidak ada salah nya kita sedikit mengembangkan pengetahuan dasar pemrograman Visual Basic 6.0 kita dengan menggunakan Component yang sedikit berbeda dari biasanya. Tujuan yang paling utama pembuatan Ebook ini adalah sebatas sharing buat sobat yang mungkin juga tertarik untuk menggunakan komponen yang satu ini.

Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!

Maksud dari pencarian multiple key akan saya jelaskan melaui gambar dibawah ini, silakan sobat perhatikan dan coba pahami.

Sudah paham kan...?

Sekarang kita buat sebuah database terlebih dahulu untuk bahan latihan kita, disini saya menggunakan Microsoft Access sebagai DBMS nya. Saya tidak lagi menjelaskan step-step membuat database dan tabelnya, saya anggap sobat sudah mampu, saya hanya akan memberikan disainnya saja dan silakan sobat buat seperti berikut ini :

• Nama Database : latihan.mdb (simpan dalam format Access 2003)
• Nama Tabel : barang (lihat disain tabel dibawah ini)

Isikan beberapa buah record kedalam tabel barang yang telah dibuat tadi.

Selanjutnya, buka sebuah project baru di Visual basic 6.0, sobat boleh memilih Standard EXE ataupun VB Enterprise Edition Control. Jika sobat memilih VB Enterprise Edition Control maka component MSFlexgrid akan otomatis include ke dalam Tools Box, tapi jika sobat memilih Standard EXE, sobat harus menambah secara manual component MSFlexgrid ke Tools Box Project.

Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!

Jika sobat terlanjur memilih Standard EXE, silakan sobat buka menu Project ? pilih Components, atau dengan menekan tobol CTRL + T dari keyboard. Kemudian cari dan beri check list pada pilihan Microsoft MSFlexgrid Control 6.0 dan jangan lupa sekalian menambahkan component Microsoft ADO Data Control 6.0 (OLEDB) lalu klik tombol OK. 

Jika suda, buat disan form seperti gambar berikut ini :

Sekarang kita buat koneksi ke database terlebih dahulu, masukkan script berikut pada bagian General Declaration

Public conn As ADODB.Connection Public rs As ADODB.Recordset

Kemudian double klik form dan masukkan coding berikut diantara Private Sub_Form Load() dan End Sub :

Set conn = New ADODB.Connection conn.CursorLocation = adUseClient conn.Provider = "microsoft.jet.oledb.4.0" conn.Open App.Path & "\latihan.mdb"

Sebelum kita lanjutkan, simpan project ini dan letakkan satu folder dengan database yang telah dibuat sebelumnya.

Kembali ke form yang telah dibuat sebelumnya, Di MSFlexgrid, kita akan membentuk tabel menggunakan script alias coding. Disini saya membuat sebuah fungsi pembentuk tabel dan pemanggilan data dalam satu procedure yang saya beri nama “tampilgrid”.

Berikut ini coding untuk membentuk tabel di MSFlexgrid tersebut :

Private Sub tampilgrid() Dim baris As Integer Set rs = New ADODB.Recordset rs.Open "select * from barang", conn, adOpenDynamic, adLockOptimistic With MSFlexGrid1 .Cols = 7 .ColWidth(0) = 400 .ColWidth(1) = 1100 .ColWidth(2) = 4000 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 700 .ColWidth(6) = 1000 .ColAlignment(0) = flexAlignCenterCenter .TextMatrix(0, 0) = "No" .TextMatrix(0, 1) = "Kode Barang" .TextMatrix(0, 2) = "Nama Barang" .TextMatrix(0, 3) = "Satuan" .TextMatrix(0, 4) = "Harga" .TextMatrix(0, 5) = "Diskon" .TextMatrix(0, 6) = "Stok" For baris = 1 To rs.RecordCount DoEvents .Rows = baris + 1 .TextMatrix(baris, 0) = baris .TextMatrix(baris, 1) = _ rs.Fields(0) .TextMatrix(baris, 2) = _ rs.Fields(1) .TextMatrix(baris, 3) = _ rs.Fields(2) .TextMatrix(baris, 4) = _ rs.Fields(3) .TextMatrix(baris, 5) = _ rs.Fields(4) .TextMatrix(baris, 6) = _ rs.Fields(5) rs.MoveNext Next baris End With End Sub

Lalu kita panggil fungsi “tampilgrid” di bagian Form Load, dengan cara menyisipkan coding pemanggilan yang ditempatkan setelah coding koneksi seperti berikut ini :

Private Sub Form_Load() Set conn = New ADODB.Connection conn.CursorLocation = adUseClient conn.Provider = "microsoft.jet.oledb.4.0" conn.Open App.Path & "\latihan.mdb" tampilgrid '<<--- Sisipkan Disini End Sub

Selanjutnya kita buat aplikasi pencarian data multy keyword, kita gunakan Event Change di Text1 yang nantinya akan melakukan filter berdasarkan character yang kita inputkan. Caranya, double klik di Text1 dan masukkan script berikut diantara Private Sub Text1_Change() dengan End Sub :

MSFlexGrid1.Clear MSFlexGrid1.Rows = 2 baris = 0 Set rs = New ADODB.Recordset rs.Open "SELECT * FROM barang " _ & "WHERE kode_brg LIKE '%" & Text1.Text & "%' " _ & "OR nm_brg LIKE '%" & Text1.Text & "%' " _ & "OR harga LIKE '%" & Text1.Text & "%' " _ & "OR stok LIKE '%" & Text1.Text & "%'", _ conn, adOpenDynamic, adLockOptimistic If rs.BOF Then Exit Sub Else With MSFlexGrid1 .Cols = 7 .ColWidth(0) = 400 .ColWidth(1) = 1100 .ColWidth(2) = 4000 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 700 .ColWidth(6) = 1000 .ColAlignment(0) = flexAlignCenterCenter .TextMatrix(0, 0) = "No" .TextMatrix(0, 1) = "Kode Barang" .TextMatrix(0, 2) = "Nama Barang" .TextMatrix(0, 3) = "Satuan" .TextMatrix(0, 4) = "Harga" .TextMatrix(0, 5) = "Diskon" .TextMatrix(0, 6) = "Stok" With rs .MoveFirst Do While Not .EOF baris = baris + 1 MSFlexGrid1.Rows = baris + 1 MSFlexGrid1.TextMatrix(baris, 0) = baris MSFlexGrid1.TextMatrix(baris, 1) = !kode_brg MSFlexGrid1.TextMatrix(baris, 2) = !nm_brg MSFlexGrid1.TextMatrix(baris, 3) = !satuan MSFlexGrid1.TextMatrix(baris, 4) = !harga MSFlexGrid1.TextMatrix(baris, 5) = !disc MSFlexGrid1.TextMatrix(baris, 6) = !stok .MoveNext Loop End With End With End If rs.Close

Sekarang silakan sobat test program yang barusan kita buat. untuk lebih jelasnya silakan sobat download contoh program diatas melalui link berikut ini :

Sekian dulu posting saya yang berjudul Membuat Aplikasi Pencarian Multiple Key Dengan MSFlexgrid Di Visual Basic 6.0. Ulasan yang sedikit lebih lengkap mengenai MSFlexGrid ini akan saya bahas pada Ebook yang sedang saya susun. Selamat mencoba dan semoga bermanfaat.