DBgrid te arama yapmak icin asagidaki snippet i kullaniyorum.
Kod: Tümünü seç
procedure TDM.Search(ds: TADQuery; text: string; grd: TdbAdvGrid);
var
i: integer;
s: string;
begin
ds.FilterOptions := [foCaseInsensitive];
ds.Filtered := True;
s := '';
if text <> '' then
for i := 1 to grd.ColCount-1 do begin
if not grd.Columns[i].Field.Lookup then
if s = '' then
s := '(' + grd.Columns[i].FieldName + ' LIKE ' + QuotedStr('%' + text + '%') + ')'
else
s := s + ' OR (' + grd.Columns[i].FieldName + ' LIKE ' + QuotedStr('%' + text + '%') + ') ';
end;
ds.filter := s;
end;
Kod: Tümünü seç
procedure TfrmIhale.eSearchChange(Sender: TObject);
begin
DM.Search(ds, eSearch.Text, DBAdvGrid1);
end;
Buna nasil halledebilirim?