Mega Code Archive

 

Categories / Delphi / ADO Database

 

Ttable-tquery üzerinde arttırarak arama

Codec By GeNiUS ! genius@turkiye.com Tedit kullanarak, Ttable üzerinde arttırmalı arama yapmak için, Tedid bileşeninin OnChange olay yordamına, aşğıdaki kod yazılır. procedure TForm1.Edit1Change(Sender: TObject); begin With Edit1 do if Text <> '' then Table1.FindNearest([Text]); end; Bu türlü bir arama Tquerry üzerinde yapılacaksa, procedure TForm1.Edit1Change(Sender: TObject); begin With Edit1 do if Text <> '' then begin Query1.Filter := 'code = '''+Edit1.Text+''''; Query1.FindFirst; end; end; veya procedure TForm1.Edit1Change(Sender: TObject); begin With Edit1 do if Text <> '' then Query1.Locate('code',Edit1.Text,[loPartialKey]); end;