July 24, 2024

Pencarian Data Pada Delphi Menggunakan Adoquery

2 min read

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.

[sourcecode]
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 ;
[/sourcecode]

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

0 thoughts on “Pencarian Data Pada Delphi Menggunakan Adoquery

Leave a Reply

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

Copyright © All rights reserved. | Newsphere by AF themes.