Untuk membuat kotak pencarian yang real time pada Delphi kayak di ajax gitu, misalnya untuk menampilkan data barang ketika user mengetikkan kode stok barang, dan barang akan otomatis ditampilkan saat itu juga secara real time, anda bisa melakukannya dengan menggunakan filtering.

Gambar Form Pencarian

Ini adalah contoh source code untuk melakukan pencarian data barang dengan keyword kode stok barang:

procedure TForm1.ComboKodeStockChange(Sender: TObject);

begin

//cari

with ZTable1 do

if (ComboKodeStock.Text <> ”) then

begin

Filtered:= false;

Filter:= ‘Kodest like’ + QuotedStr(ComboKodeStock.Text+’*');

Filtered:= true;

//tampilkan di dbgrid

DataSource1.Enabled:=true;

end;

end;

Cara membuat procedure ” TForm1.ComboKodeStockChange”  yaitu klik pada combobox, kemudian di jendela property pilih event, onChanges.

Components yang saya gunakan antara lain TZTable, TDatasource, TDbGrid, dan TZConnection.

Advertisement