Searching pada Delphi

Searching: findnearest // tidak sama persis
tbbarang.indexname:=’namabrg’;
ada:=tbbarang.findnearest([edcari.text])

Searching: findkey // sama persis
tbbarang.indexname:=’namabrg’;
ada:=tbbarang.findkey([edcari.text])
if ada then
begin
tbbarang.edit;
tbbarang[‘stock’]:=tbbarang.text;
end;

Searching majemuk:
var caritgl:tdate;
begin
tbbeli.indexname:=’kdbrgtgl’; // index majemuk
try
begin
caritgl:=strtodate(edtgl.text);
tbbeli.findkey([edkodebrg.text, caritgl]);
end
except
tbbeli.findkey([edkodebrg.text]);
end;
end;

delete tabel:
tbtemp.first;
while not tbtemp.eof do
begin
tbtemp.delete;
end;

Append tabel;
begin
for i=1 to 10 do
begin
tbtemp.append;
tbtemp[‘kodebrg’]:=’ ‘;
tbtemp.post;
end;
end;

5 thoughts on “Searching pada Delphi

  1. wah artikelnya bagus banget…, seperti apa yg saya butuhkan.
    tapi gmn ya kalau mencari nilai dari field tertentu, yang di tentukan oleh 2 index pencarian??? kemudian nilai field yang di cari itu disimpan di variabel a.
    tolong kasi clue nya…., thanks b4.
    BSP:mohon kasus konkret nya…

  2. wah artikelnya bagus banget…, seperti apa yg saya butuhkan.
    tapi gmn ya kalau mencari nilai dari field tertentu, yang di tentukan oleh 2 index pencarian??? kemudian nilai field yang di cari itu disimpan di variabel a.
    tolong kasi clue nya…., thanks b4.
    BSP:mohon kasus konkret nya…

  3. ass. mau tax nih. jika proses pencarian tidak bisa menapilkan nilai ksong ( field) dbgrid, contohx ada data 001 , 002, 005. dalam pencarian 003 tdk ada dalam tabel tapi kursos di paksakan enjunjuk ke file yg nilaix paling dekat dgn field yg di cari, artinya dalam kasus ini dia akan tunjuk 002 krn 005 jauh dari nilai 003 bagaimana carax? pakai fungsi like tapi tdk bisa, koneksi tabel pake adoquery, dbase pake mysql, adoconnection sbg penghubung mysql dgn dephi. trims

Leave a Reply

Your email address will not be published. Required fields are marked *