Im DbGrid Daten geordnen anzeigen?

[smart]

Kann man mit DbGrid Daten so anzeigen, dass wenn man z.B. ein A eingibt, alle Daten die mit A anfangen angezeigt werden? Oder wie macht man soetwas?

[Sharky]

Zitat:

Zitat von smart

Kann man mit DbGrid Daten so anzeigen, dass wenn man z.B. ein A eingibt, alle Daten die mit A anfangen angezeigt werden? Oder wie macht man soetwas?

Hai Heike,

eine möglichkeit wäre die Eigenschaft .Filter des DataSets zu verwenden. Das könnte zum Beispiel so aussehen für das Datenbankfeld name

Delphi-Quellcode:

procedure TForm1.DBGrid2KeyPress(Sender: TObject; var Key: char);
begin
  with (Sender as TDBGrid).DataSource.DataSet do
  begin
    if (Key in ['a'..'z']) then
    begin
      FilterOptions := [foCaseInsensitive];
      Filter := 'name = ' + QuotedStr(Key + '*');
      Filtered := True;
    end;
    if Key = #27 then
    begin
      Filtered := False;
    end;
  end;
end;

[r_kerber]

Zitat:

Zitat von Sharky

eine möglichkeit wäre die Eigenschaft .Filter des DataSets zu verwenden.

Oder man verwendet eine Query und setzt die Eigenschaft SQL entsprechend:

SQL-Code:

SELECT * FROM tabelle WHERE spalte1 LIKE :muster

Den Parameter muster füllt man den zur Laufzeit (z.B.: 'a%').

[woki]

Hi,

oder ganz grundsätzlich der Hinweis, für das Filtern und Sortieren von Daten ist das TDataset verantwortlich, nicht das TDBGrid, egal ob man serverseitig oder clientseitig filtert oder sortiert. Nur damit du an der richtigen Stelle suchst.

Grüsse
Wolki

[smart]

Zitat:

Zitat von Sharky

eine möglichkeit wäre die Eigenschaft .Filter des DataSets zu verwenden. Das könnte zum Beispiel so aussehen für das Datenbankfeld name

Vielen Dank, Stephan!

Ich habe das ganze noch einwenig geändert:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  with ABSTable1.DataSource.DataSet do
  begin
       FilterOptions := [foCaseInsensitive];
       Filter := 'Name = ' + QuotedStr(Edit1.Text + '*');
       ABSTable1.Filtered := True;
  end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If Key = #27 then
  begin
    Edit1.Clear;
    ABSTable1.Filtered := False;
  end;
end;