Query-Komponente (Name : Query1)auf's Form, Database(name) setzen, im
OI doppelclick auf
SQL... , Statement eingeben:
SQL-Code:
SELECT Feld1 -- reale Feldnamen verwenden!
, Feld2
, Feld3
...
, FeldN
FROM TabellenName
, Datasource auf Form, im
OI als DataSet die
Query angeben, DBGrid mit DataSource verbinden.
Wenn dann gefiltert werden soll:
Delphi-Quellcode:
if Query1.SQL.Lines[Query1.SQL.Lines.Count-1] = ' FROM TabellenName'
then begin // noch nicht gefiltert
Query1.SQL.Add(' WHERE FilterFeld = '''+Edit1.Text+'''');
end else begin // filter schon gesetzt
Query1.SQL.Lines[Query1.SQL.Lines.Count-1] := (' WHERE FilterFeld = '''+Edit1.Text+'''');
end;
Gruß