Pencarian Dengan InputBox
digunakan untuk menghemat
komponen yang digunakan dalam
membuat aplikasi. semakin sedikit
komponen yang digunakan maka size
Aplikasi akan semakin kecil.
semakin kecil size aplikasi maka
proses loading-nya pun akan
semakin cepat. Maka Admin Akan
Kembali Berbagi Tips Tentang cara
Menggunakan InputBox dalam
Delphi yang akan dimanfaatkan
untuk melakukan pencarian data
dalam Tabel.
Pertama : Pastikan Sudah Tidak ada
Masalah dengan koneksi Database
Kedua : Bebas Menggunakan
Database Apa Saja yang penting
memiliki minimal 1 Tabel.
Ketiga : Tambahkan Code dibawah
ini didalam button Cari. Kode
dibawah ini akan melakukan
pencarian data dalam Tabel
Berdasarkan Field Nama dari Tabel
var
cari:string;
begin
cari:=InputBox('Nama Yang
Dicari ??','Nama : ',
'');
// Prose Pencarian Data
if not ADOTable1.Locate('
Nama',cari,[]) then
ShowMessage('Tidak Ada
Data !!') else
abort;
end;
