Pencarian Data Dalam Delphi Part2

Kali ini sy akan membahas pencarian Data menggunakan Delphi dengan metode Filter. Pertama masukkan:

• Buat sebuah database tentunya
• Buka Delphi 7
• Buat sebuah form
• Masukkan komponen ADOConenection dan koneksikan ke database, jika belum tau koneksi ke database lihat disini
• Tambahkan 1 buah DataSource, 1 buah ADOTable.
• Tambahkan 1 buah DBGrid untuk menampilkan data
• Tambahkan tambahkan 1 buah Label
• Tambahkan 1 buah Edit
• Tambahkan 1 buah Button

Tampilan Program seperti gambar dibawah ini:

Klik 2x pada Edit1 dan masukkan Coding sebagai berikut :
if Edit1.Text:='' then begin ADOTable1.Filtered := false; ADOTable1.Filter:='NoKartu like '''+ /// Menampilkan data berdasarkan NoKartu Edit1.Text + '*'''; ADOTable1.Filtered:=true; end else ADOTable1.Filtered:=false;


Kli 2 x pada Button 1 dan isikan Coding sbb:
Edit1.Text:=’’;
Selesai Jalankan Program.


Untuk download program sederhananya klik disini. Semoga bermanfaat.