DBGrid sortieren bei Titel-Klick

[ickehausen]

Ich würde gern mein Grid bei eimem Klick auf die Spalte der Titelzeile entsprechend sortieren lassen. Leider gibt es ja beim Grid nur dass Ereignis OnClickTitle. Bei dem Ereignis ist es ja egal auf welche Spate ich Klick. Ich kann also nicht entscheiden, sortiere ich nach Spalte A oder nach Spalte B oder nach Spalte C. Kann mir wer weiterhelfen?

[DeddyH]

Delphi-Quellcode:

Type
  TDBGridClickEvent = procedure (Column: TColumn) of object;

In Column steht doch die Spalte.

[RWarnecke]

Hast Du schon nach dbgrid sortieren gesucht. Da bekommst Du reichlich Beispiele wie Du die Spalten in einem DBGrid sortieren kannst.

[ickehausen]

Danke für die schnelle Hilfe. Ich habe unter Grid sotieren gesucht und nichts passendes gefunden.

[stho]

Und da ich hier drauf sogar eine passende antwort habe:

Delphi-Quellcode:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
  if ADODataSet1.Active then
  begin
    ADODataSet1.Close;
  end;

  if column.title.caption = 'Nr.' then
  begin
    if not SortierID then
    begin
      ADODataSet1.CommandText := 'SELECT * from Finanzen ORDER BY ID ASC';
      SortierID := True;
    end
    else
    begin
      ADODataSet1.CommandText := 'SELECT * from Finanzen ORDER BY ID DESC';
      SortierID := False;
    end;
  end
  else if Column.Title.Caption = 'Datum' then
  begin
    if not SortierDatum then
    begin
      ADODataSet1.CommandText := 'SELECT * from Finanzen ORDER BY Datum, Zweck, Preis ASC';
      SortierDatum := True;
    end
    else
    begin
      ADODataSet1.CommandText := 'SELECT * from Finanzen ORDER BY Datum DESC, Zweck DESC, Preis DESC';
      SortierDatum := False;
    end;
  end
  else if Column.Title.Caption = 'Betrag' then
  begin
    if not SortierPreis then
    begin
      ADODataSet1.CommandText := 'SELECT * from Finanzen ORDER BY Preis ASC';
      SortierPreis := True;
    end
    else
    begin
      ADODataSet1.CommandText := 'SELECT * from Finanzen ORDER BY Preis DESC';
      SortierPreis := False;
    end;
  end
  else if Column.Title.Caption = 'Zweck' then
  begin
    if not SortierZweck then
    begin
      ADODataSet1.CommandText := 'SELECT * from Finanzen ORDER BY Zweck, Datum, Preis';
      SortierZweck := True;
    end
    else
    begin
      ADODataSet1.CommandText := 'SELECT * from Finanzen ORDER BY Zweck DESC, Datum DESC, Preis DESC';
      SortierZweck := False;
    end;
  end
  else if Column.Title.Caption = 'Kommentar' then
  begin
    if not SortierKommentar then
    begin
      ADODataSet1.CommandText := 'SELECT * from Finanzen ORDER BY Kommentar ASC';
      SortierKommentar := True;
    end
    else
    begin
      ADODataSet1.CommandText := 'SELECT * from Finanzen ORDER BY Kommentar DESC';
      SortierKommentar := False;
    end;
  end
  else
  begin
    ADODataSet1.CommandText := 'Select * from Finanzen';
    ADODataSet1.open;
    exit;
  end;
  ADODataSet1.open;
end;

P.S.
SortierKommentar, Sortier... das sind globale Variablen die zu beginn des Programms als False definiert wurden
Finanzen, so heißt meine Tabelle.

zwar nen bissel umständlich und aufwendig programmiert, aber dafür Anfängertauglich ^^

[joachimd]

Zitat von stho:

Und da ich hier drauf sogar eine passende antwort habe:

// viel zuviel code ...
zwar nen bissel umständlich und aufwendig programmiert, aber dafür Anfängertauglich ^^

Vieeeeeel zu aufwändig und nicht allgemein nutzbar

Delphi-Quellcode:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
  SQL: string;
begin
  SQL:='SELECT * FROM [mytable] ORDER BY ['+Column.Field.FieldName+']';
  // ...
end;

[BackOrifice]

Aber mit der Möglichkeit, auf- und absteigend zu sortieren. Das hat dein Code nicht

Ich hab mir damals ne Funktion zum SQL-Query-String-Zusammenbasteln gebaut.

[joachimd]

Zitat von BackOrifice:

Aber mit der Möglichkeit, auf- und absteigend zu sortieren. Das hat dein Code nicht

Ich hab mir damals ne Funktion zum SQL-Query-String-Zusammenbasteln gebaut.

Kindereien

Delphi-Quellcode:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
  SQL: string;
begin
  SQL:='SELECT * FROM [mytable] ORDER BY ['+Column.Field.FieldName+']';
  if (oldcolumn=Column) then SQL:=SQL+' DESC';
  oldcolumn:=column;
  // ...
end;

[DeddyH]

Bisschen kürzer:

Delphi-Quellcode:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
const Orders: array[Boolean] of string = ('',' DESC');
var
  SQL: string;
begin
  SQL:=Format('SELECT * FROM [mytable] ORDER BY [%s]%s',[Column.Field.FieldName,Orders[oldcolumn=Column]]);
  oldcolumn:=column;
  // ...
end;

Wobei ein "Umschalten" so wohl auch nicht ginge, da müsste man sich den alten Zustand merken.