VIDEO TUTORIAL MIKROTIK ++225 VIDEO + MODUL TRAINING + SCRIPT

Jadwal Training Mikrotik Bulan ini 17,18,19 September (Basic-Mahir) 3 Hari

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
1. Komp Graha Bukit Raya 1 G3/16 Bandung Barat
2. Jl. Ciuyah No.45 RT.05/RW.10 Bandung Barat

Telp : 081 1219 8859 (Telkomsel)
W.A : 081214518859 (WhatsApp)
Website : www.padepokanit.com
E-Mail : padepokanit.course@gmail.com
Instagram : @padepokanit

Info Site

User Online Padepokan-IT Course

IT Tutorial, Training & IT Solution