Pencarian Data Pada Database dengan InputBox Delphi

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;