Pencarian Data Pada Delphi Menggunakan Adoquery

Hai..PalComSter… !!! kalau sebelumnya kita telah membahas “bagaimana koneksi database pada Delphi “ dan “Manipulasi Data dengan Adoquery pada Delphi”. 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:

tbbarang

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).

tbbarang1

tbbarang2

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.

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.

tbbarang3tbbarang4

tbbarang5

Herlinda K

Herlinda adalah seorang Kepala Program Studi (Ka. Prodi) Sistem Informasi di STMIK PalComTech Palembang

5 comments

  1. terima kasih atas ilmunya,moga sukses slalu

  2. terimakasih :D sangat amat membantu

  3. Ko’Punya saya pas d Input d edit1nya jd Error ya..?

  4. Sembiring Kembaren

    makasih banyak atas ilmunya
    mantap banget

  5. boleh minta contoh projectnya?

Leave a Reply

Your email address will not be published. Required fields are marked *

*

[+] kaskus emoticons nartzco

This site uses Akismet to reduce spam. Learn how your comment data is processed.


Yuk kita share...