Pretraga u Delphi-ju

Na formu postavimo ‘’DBGrid’’ (Data Controls) i povezemo ga sa bazom podataka pomocu ADOConnectiona. Zatim na formu postavimo Edit (Standard) i dvostrukim klikom na Edit se pojavljuje prozor za upisivanje koda u koji upisujemo sledeci kod:

Begin If edit1.Text:=’then adotable1.filtered:=false else Begin ADOTable1.Filter:=’Kolona = ‘ + QuotedStr(Edit1.Text); ADOTable1.Filtered := true; End;

ili ako zelite pretragu po svakom slovu

begin if edit1.Text=” then adotable1.Filtered:=false else begin ADOTable1.Filter:=’ Kolona LIKE ‘ + QuotedStr(Edit1.Text +’%’); ADOTable1.Filtered:=true; end;

Upisivanjem ovog koda omogucava se pretraga po trazenom kriterijumu. Sa F9 pokrenite aplikaciju i pogledajte rezultat.