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

Membuat Pencarian dengan multi kriteria menggunakan Delphi pada komponen ComboBox dengan SQL


Pada tutorial kali ini akan dibahas bagaimana membuat pencarian data multi kriteria di Delphi, dimana pencarian data  akan di filter berdasarkan unit kerja, nama karyawan, dan NIK. Untuk lebih jelasnya lihat desain form seperti dibawah ini


DATA KARYAWAN AKTIF


Logika Program
1.       Jika Form Aktif Semua Karyawan ditampilkan dan dihitung jumlah recordnya
2.       Jika ComboBox Unit Kerja di pilih kemudian klik tombol cari maka program menampilkan data karyawan berdasarkan unit kerja
3.       Jika ComboBox Nama Karyawan di pilih maka Combobox unit kerja akan menjadi ALL dan tombol cari akan menampilkan karyawan tersebut
4.       Dan Jika Tombol NIK di pilih maka Combobox Nama Karyawan Menjadi All dan data akan ditampilkan sesuai NIK nya
5.       SQL Menggunakan Inner Join 2 Tabel (Tabel Karyawan dan Detil Karyawan)



Untuk Memahami Logika diatas syntak Programnya adalah sebagai berikut



Syntak SQL Program
procedure TFGrade_Karyawan.BTCARIClick(Sender: TObject);
begin
 with qrkaryawan do
   begin
      close;
      SQL.Clear;
      sql.Add('select a.nik, a.nam_peg,a.bag,a.jab,b.tgl_masuk from idkaryawan a inner join karyawan_detail b on a.badgenumber=b.badgenumber ');
      sql.Add(' where a.status="1" ');

      if cbunit_kerja.ItemIndex <> 0 then
         sql.Add(' and a.bag="'+cbunit_kerja.Text+'" ');

      if cbnama_karyawan.ItemIndex <> 0 then
         sql.Add(' and a.nam_peg like "'+cbnama_karyawan.Text+'%" ');

      if cbnik_karyawan.ItemIndex <> 0 then
         sql.Add(' and a.nik like "'+cbnik_karyawan.Text+'%" ');

      sql.Add(' order by a.nam_peg ');
      open;
      if Active and not IsEmpty  then
        lhasil.Caption := 'Data :'+inttostr(qrkaryawan.RecordCount)+' Record'
      else
        lhasil.Caption := 'Data : 0 Record'
      end;
end;

 

Hasil Pencarian Data

Pencarian Berdasarkan Nama


Pencarian Berdasarkan Unit Kerja

 

https://drive.google.com/file/d/0B3cW7eEIjOtkM1A4OS1PS1lkMEE/view?usp=sharing

 


Selamat Mencoba

PADEPOKAN IT COURSES
IT Tutorial, Training Center & IT Solution
www.padepokanit.com






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