Selasa, 22 Juni 2010
di
21.26
|
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.
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.
Diposting oleh
Borland7
0 komentar:
Posting Komentar