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
No comments:
Post a Comment