Cara Membuat Form Cari dengan VB 2008

Halo sahabat Onan ..... Zaman semakin modern semua aktifitas bisa dikerjakan dengan sebuah program, hampir semua pekerjaan yang sedemikan banyak dapat dikerjakan dengan 1 program saja. Pengalaman ini saya dapatkan ketika sedang membuat sebuah program restaurant.

Dalam program tersebut ada banyak menu pilihan untuk memudahkan user bekerja misalnya ada input data pegawai, transaksi pembelian, penghitungan laba / rugi dan program cari data pegawai.

Dalam artikel ini saya akan membahas lebih spesifikasi mengenai menu cari. Menu cari dalam sebuah program sangat penting dibuatkan karena dapat membantu kinerja user untuk mencari sebuah data. Jika data tersebut hanya puluhan mungkin bisa dicari manual tapi jika data tersebut berjumlah jutaan maka akan merepotkan juga.

Menu cari yang saya buat kali ini menggunakan aplikasi VB 2008. Simak penjelasan dibawah ini  :

• Lahkah pertama tambahakan sebuah form baru, ubah nama menjadi Form_Cari
• Tambahkan komponen Listview, Label, dan Textbox sehingga seperti gambar dibawah ini

• Lalu copy kode Sub Bacaanggota dibawah ini. Sub ini berguna untuk membaca data yang sudah ada di database

Sub bacaanggota()
Dim isi As ListViewItem
ListView1.Items.Clear()
Mycdm = MyConnection.open.CreateCommand
Mycdm.CommandText = "SELECT * FROM pegawai order by Idpegawai asc"

objdatareader = Mycdm.ExecuteReader
While objdatareader.Read()
isi = ListView1.Items.Add(objdatareader.Item("Idpegawai").ToString)
isi.SubItems.Add(objdatareader.Item("nama").ToString)
isi.SubItems.Add(objdatareader.Item("Alamat").ToString)
isi.SubItems.Add(objdatareader.Item("JK").ToString)
isi.SubItems.Add(objdatareader.Item("JABATAN").ToString)
isi.SubItems.Add(objdatareader.Item("alamat1").ToString)
End While
MyConnection.close()
End Sub

•  Letakkan Sub Bacaanggota di Form_Load

Private Sub Form_Cari_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
bacaanggota()
End Sub

• Copy kode cari dibawah ini dan letakan pada komponen textbox dengan event TextChange

Private Sub Textbox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TXTNAMA.TextChanged

Dim isi As ListViewItem
ListView1.Items.Clear()
Mycdm = MyConnection.open.CreateCommand
Mycdm.CommandText = "SELECT * FROM pegawai where nama like '%" & Replace(Me.TXTNAMA.Text, "'", "''") & "%'"
objdatareader = Mycdm.ExecuteReader
While objdatareader.Read()
isi = ListView1.Items.Add(objdatareader.Item("Idpegawai").ToString)
isi.SubItems.Add(objdatareader.Item("nama").ToString)
isi.SubItems.Add(objdatareader.Item("Alamat").ToString)
isi.SubItems.Add(objdatareader.Item("JK").ToString)
isi.SubItems.Add(objdatareader.Item("JABATAN").ToString)
isi.SubItems.Add(objdatareader.Item("alamat1").ToString)
End While
MyConnection.close()
End Sub

• Selesai menu cari anda selesai

Semoga artikel diatas dapar membantu pekerjaan anda dan jangan lupa baca juga ^_^ Cara Membuat Report dengan Delphi 7