Lokasi : Komplek Graha Bukit Raya 1 Blok G3 No 16 LT 3, Bandung Barat

Lokasi : Komplek Graha Bukit Raya 1 Blok G3 No 16 LT 3, Bandung Barat

VIDEO TUTORIAL MIKROTIK VIDEO + MODUL TRAINING ORDER BISA VIA TOKOPEDIA KLIK LINK GAMBAR

VIDEO TUTORIAL MIKROTIK  VIDEO + MODUL TRAINING ORDER BISA  VIA TOKOPEDIA KLIK LINK GAMBAR
Update Video Tutorial > Lebih dari 350 Video Tutorial MIkrotik

Jadwal Training Mikrotik Running Setiap Awal dan Akhir Bulan

Excel Fundamental, Excel Advanced, Dan Excel Programming VBA

IT TRAINING CENTER CONTACT : 0812-1451-8859 / 081-1219-8859

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


Share

Artikel Lainnya :



No comments:

Post a Comment

Training Bulan ini

Padepokan IT Course

Lokasi Training
Jl. H.Gofur Komplek Graha Bukit Raya 1 Blok G3 No 16 Lantai 3, Cilame, Bandung Barat

Telp : 081214518859 (WhatsApp)
E-Mail : padepokanit.course@gmail.com
Instagram : @padepokanit
Website : www.padepokanit.com

Info Site

User Online Padepokan-IT Course

IT Tutorial, Training & IT Solution