Pencarian Data Pada Delphi Menggunakan Adoquery

Kali ini kita akan membahas bagaimana caranya membuat pencarian data pada Delphi dengan menggunakan Adoquery.

Langkah 1

Langkah awal adalah siapkan terlebih dahulu database, desain form input beserta tombol dan koneksikan form Delphi dengan database tersebut. Jika lupa bagaimana koneksi ke database klik disini.

Siapkan terlebih dahulu database nya dengan menggunakan microsoft access seperti dibawah ini:

Berikut ini tampilan form input pada Delphi, komponen yang diperlukan :

• Label untuk tampilan teks.
• Edit sebagai inputan seperti textfield.
• Combobox untuk komponen form untuk menampilkan pilihan.

Pada properties combobox pilih item untuk mengisi pilihan apa saja yang ditampilkan. Dapat di lihat pada gambar dibawah ini.

• DBgrid untuk menampilkan data-data yang ada pada database.
• Label untuk tampilan teks.
• Edit sebagai inputan seperti textfield.
• Combobox untuk komponen form untuk menampilkan pilihan.
• Pada properties combobox pilih item untuk mengisi pilihan apa saja yang ditampilkan. Dapat di lihat pada gambar dibawah ini.
• DBgrid untuk menampilkan data-data yang ada pada database.
• Komponen koneksi database(AdoConnection, AdoQuery, DataSource).

Setelah selesai mendesain form dan mengkoneksikan ke database. Selanjutnya kita membuat koding untuk pencarian data tersebut. Dalam hal ini kita akan membuat pencarian data dengan ADOQUERY dan menggunakan perintah SQL(Structured Query Language). 

Langkah 2

Klik 2 kali komponen edit1 lalu masukkan perintah berikut ini dibawah kode BEGIN.

1 2 3 4 5 6 7 8 9 10 11 12 13

if combobox1.ItemIndex = 0 then  adoquery1.SQL.Text := 'Select * FROM mhs WHERE nim Like' + QuotedStr(Edit1.Text + '%')   else if combobox1.ItemIndex =1 then  adoquery1.SQL.Text := 'Select * FROM mhs WHERE nama Like' + QuotedStr(Edit1.Text + '%')   else if combobox1.ItemIndex =2 then  adoquery1.SQL.Text := 'Select * FROM mhs WHERE alamat Like' + QuotedStr(Edit1.Text + '%')   else if combobox1.ItemIndex =3 then  adoquery1.SQL.Text := 'Select * FROM mhs WHERE telp Like' + QuotedStr(Edit1.Text + '%') ;   adoquery1.Active := true ;

Penjelasan Kode :

if combobox1.ItemIndex = 0 then
adoquery1.SQL.Text := ‘Select * FROM mhs WHERE nim Like’ + QuotedStr(Edit1.Text + ‘%’)

combobox1 merupakan name dari komponen FORM combobox yang digunakan untuk menampikan pencarian berdasarkan apasaja,

ItemIndex = 0, 1, 2, 3 dan seterusnya merupakan isi / item-item yang ada di dalam combobox.

SELECT * FROM mhs WHERE nama Like + QuotedStr (Edit1.text) + ‘%’ ::: perintah SQL untuk menampilkan semua data yang terdapat di dalam tabel mhs berdasarkan kolom nama dengan karakter huruf awal yang diketik pada komponen FORM edit1.

Langkah 3

Tekan tombol F9 pada keyboard untuk mencoba apakah pencarian berhasil atau tidak.

SUMBER: http://news.palcomtech.com/2013/11/pencarian-data-pada-delphi-menggunakan-adoquery/