Pencarian Data Pada Delphi Menggunakan Adoquery

Pencarian Data Pada Delphi Menggunakan Adoquery Posted by: Herlinda K in Programming Programming,, Tutorial & Tips November Tips November 6, 2013 3 omments 10,231 !ie"s Hai##Palom$ter%  'alau sebelumnya 'ita tela( memba(as ) bagaimana 'one'si database  pada *elp(i *elp(i   ) dan )+an )+anipu ipulas lasii *at *ataa den dengan gan d do-ue o-uery ry pada *el *elp(i p(i.# .# Kali Kali ini ini 'ita 'ita a'an a'an memba(a memba(ass bagaima bagaimana na /arany /aranyaa membuat membuat pen/ari pen/arian an data data pada *elp(i *elp(i dengan dengan menggun mengguna'an a'an do-uery#

Langkah 1 ang'a( a"al adala( siap'an terlebi( da(ulu database, desain orm input beserta tombol dan 'one'si'an orm *elp(i dengan database tersebut# i'a lupa bagaimana 'one'si 'e database 'li'  disini## disini $iap'an terlebi( da(ulu database nya dengan mengguna'an mi/rosot a//ess seperti diba"a( ini:

eri'ut ini tampilan orm input pada *elp(i, 'omponen yang diperlu'an : •

abel untu' tampilan te's#

•

4dit sebagai inputan seperti te5tield#

•

ombobo5 untu' 'omponen orm untu' menampil'an pili(an#

Pada properties /ombobo5 pili( item untu' mengisi pili(an apa saa yang ditampil'an# *apat di li(at pada gambar diba"a( ini# •

*grid untu' menampil'an data7data yang ada pada database#

•

abel untu' tampilan te's#

•

4dit sebagai inputan seperti te5tield#

•

ombobo5 untu' 'omponen orm untu' menampil'an pili(an#

•

Pada properties /ombobo5 pili( item untu' mengisi pili(an apa saa yang ditampil'an# *apat di li(at pada gambar diba"a( ini#

•

*grid untu' menampil'an data7data yang ada pada database#

•

Komponen 'one'si database8doonne/tion, do9uery, *ata$our/e#

$etela( selesai mendesain orm dan meng'one'si'an 'e database# $elanutnya 'ita membuat 'oding untu' pen/arian data tersebut# *alam (al ini 'ita a'an membuat pen/arian data dengan *;9<4=> dan mengguna'an perinta( $98Structured Query Language).

Langkah 2 Kli' 2 'ali 'omponen edit1 lalu masu''an perinta( beri'ut ini diba"a( 'ode 4?@N# A e5pand sour/e Penelasan Kode : if combobox1.ItemIndex  ! then adoquery1."#L.$ext % &"elect ' ()*M mh+ ,-) nim Like/ 0 #uoted"trdit1.$ext 0 &/3 combobox1 merupa'an name dari 'omponen B;=+ /ombobo5 yang diguna'an untu'  menampi'an pen/arian berdasar'an apasaa, ItemIndex  C 0, 1, 2, 3 dan seterusnya merupa'an isi D item7item yang ada di dalam /ombobo5#

"L4$ ' ()*M mh+ ,-) nama Like 0 #uoted"tr dit1.text3 0 &/   ::: perinta( $9 untu' menampil'an semua data yang terdapat di dalam tabel m(s berdasar'an 'olom nama dengan 'ara'ter (uru a"al yang di'eti' pada 'omponen B;=+ edit1#

Langkah 5 Te'an tombol BE pada 'eyboard untu' men/oba apa'a( pen/arian ber(asil atau tida'#