Ready >175 Video Tutorial Praktek Mikrotik yang sering di Implementasikan

Ready >175 Video Tutorial Praktek Mikrotik yang sering di Implementasikan
Setelah Pembelian Video Tutorial Mikrotik Free Konsultasi By WhatSApp dan Remote

Training Router Mikrotik 10,11,12 Juli (Basic-Advance) 3 Hari Full

Training Router Mikrotik 10,11,12 Juli  (Basic-Advance) 3 Hari Full
Materi Utama : Setting Gateway, Bandwidth Management, DHCP Server, Static Mapping, Firewall, Scripting & Sheduler. Hotspot & User Manager, Membuat Sistem Voucher dan virtual AP, Mangle, Static Routing, VPN, Load Balancing & Fail Over

IT Course, IT Tutorial, IT Solution, In House Training dan Online Training

IT Course,  IT Tutorial, IT Solution, In House Training dan Online Training
Lokasi Private/Training Komputer : Jl.Ciuyah No.45 RT.05 RW.10 Bandung Barat (dari Komp Pancanaka Royal Garden +/- 100 M Sebrang SD Cipanas 1)

Info Training W.A : 081214518859 Instagram dan Line : @padepokanit

Info Training W.A  : 081214518859     Instagram dan Line : @padepokanit

Training, Private, Les, Kursus Komputer, Online Training, dan IT Solution

Excel Fundamental, Excel Advanced, Dan Excel Programming VBA

Excel Fundamental, Excel Advanced, Dan Excel Programming VBA
Open Private Ms Excel Tingkat Basic, Advanced dan Excel Programming With Macro

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

Jl. Ciuyah No.45 RT.05/RW.10 Bandung Barat 40551

Call : 0812 1451 8859 (Telkomsel)
W.A : 081214518859
Website : www.padepokanit.com
E-Mail : padepokanit.course@gmail.com
Instagram : @padepokanit

Info Site

User Online Padepokan-IT Course

IT Tutorial, Training & IT Solution