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

 

 

Selamat Mencoba

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