Cara Mudah Mencari data di Delphi Menggunakan Fasilitas Radio Button

Ditutorial sebelumnya telah dibahas  mencari data di Delphi menggunakan fasilitas combobox, kali ini akan dibahas menggunakan fasilitas Radio Button misal kita akan mencari data supplier berdasarkan jenis supplier sehingga data akan terfilter sesuai dengan jenis yang dipilih..

Langkahnya adalah sebagai berikut:

1.       Pastikan Aplikasi dan Database sudah Terkoneksi

2.       Data Sudah di input ke database

3.       Design Form Pencarian Seperti Berikut

Keterangan

Tabel Supplier ini outputnya adalah join dari dua tabel yaitu tabel master supplier dan tabel tipe supplier

4.       Pada komponen zquery di properties SQL isi query SQL seperti ini

select a.kodesup,a.supplier,a.attn_sup,a.alamat,a.notel,a.fax,a.email,a.status,b.jenis_supplier,

a.user,a.update from tsupplier a inner join tjenis_supplier b on a.jenis=b.id_jenis

5.       Kemudian Buat Coding di Tombol Cari  dengan Event On Klick seperti berikut

Komponen	Button
Event	On Click
Coding begin     with FLAP_SUPPLIER do       Begin          with qrlap_sup do            Begin                if rb1.Checked then                Begin                  close;                  SQL.Clear;                  SQL.Add('select a.kodesup,a.supplier,a.attn_sup,a.alamat,a.notel,a.fax, ');                  SQL.Add('a.email,a.status,b.jenis_supplier,a.user,a.update from tsupplier a inner join tjenis_supplier b on a.jenis=b.id_jenis ');                  sql.Add(' where a.jenis=0 ');                  Open;                 end;                if rb2.Checked then                begin                  close;                  SQL.Clear;                  SQL.Add('select a.kodesup,a.supplier,a.attn_sup,a.alamat,a.notel,a.fax, ');                  SQL.Add('a.email,a.status,b.jenis_supplier,a.user,a.update from tsupplier a inner join tjenis_supplier b on a.jenis=b.id_jenis ');                  sql.Add(' where a.jenis=1 ');                  Open;                 end;                if rb3.Checked then                begin                  close;                  SQL.Clear;                  SQL.Add('select a.kodesup,a.supplier,a.attn_sup,a.alamat,a.notel,a.fax, ');                  SQL.Add('a.email,a.status,b.jenis_supplier,a.user,a.update from tsupplier a inner join tjenis_supplier b on a.jenis=b.id_jenis ');                  sql.Add(' where a.jenis=2 ');                  Open;                 end;                if rb4.Checked then                begin                  close;                  SQL.Clear;                  SQL.Add('select a.kodesup,a.supplier,a.attn_sup,a.alamat,a.notel,a.fax, ');                  SQL.Add('a.email,a.status,b.jenis_supplier,a.user,a.update from tsupplier a inner join tjenis_supplier b on a.jenis=b.id_jenis ');                  Open;                end;            end;       end; end;

Selanjutnya Ujicoba Hasil Coding Tersebut, hasilnya seperti berikut
 

HASIL PENCARIAN DATA BERDASARKAN JENIS SUPPLIER

Padepokan-IT Course
IT Training Center & Solution