Zutaten:
- 1 TEdit / (schöner: TcxTextEdit)
- 1 TTable
- 1 DBGrid (Z.B)
- 1 TDataSource
Zubereitung:
Wir stellen unser Grid, unseren Table und unsere DataSource auf die gewünschte Datenabnk und die gewünschte Tabelle ein.
Ich hoffe du weisst wie das geht ansonsten frag nochmal
Zusätzlich stellenwir in der TTable-Kompo die eigenschaft foCaseInsensitive(unter Filter) auf True
Das verhindert eine unterscheidung zwischen gross und kleinbuchstaben nacher bei der Suche.
Danach machen wir bei dem TEdit-Feld ein OnChange ereigniss mit folgendem
Code:
Delphi-Quellcode:
with Table1 do
begin
if TEdit.Text <> '' then
begin
Active := False;
Filtered := False;
Filter := 'Rezept =' + QuotedStr(TEdit.Text + '*');
Filtered := True;
Active := True;
end
else
Filtered := False;
end;
Anstatt Rezept dann das Feld angeben in dem gesucht werden kann!
Und dann
Bon Apetit (oda so)
^^