ID Column Sortierung in einem DBGrid / Auf u. Abwärts

[Perlsau]

Zitat von Alterauge:

Hallo, habe ein DBGrid eingesetzt, soweit alles gut!
Die Daten werden so angezeigt:
1.)
2.)
3.) usw.
möchte aber das die Daten so angezeigt werden:
3.)
2.)
1.)
Was muss ich machen)

Du wählst eine Query-Komponente als Datenquelle, in deren Select-Befehl du statt "select * from MeineTabelle" reinschreibst "select * from MeineTabelle order by Index_MeineTabelle". "Index_MeineTabelle" ist dabei das Feld mit dem Index deiner Tabelle, meistens das Feld mit dem PrimaryKey.

Willst du es dem Anwender überlassen, die Sortierung der Tabelle selbst zu wählen, mußt du etwas mehr Aufwand treiben. Du könntest z.B. das Ereignis OnTitleClick deines DBGrids dazu verwenden, bei einem Klick auf den Spaltentitel deines DBGrids die Sortierung neu zu gestalten. Dazu benötigst du zwei globale Variablen: SortIndex : Integer und SortOrder : Boolean;

Dann schreibst du dir erst einmal eine unter private { Private-Deklarationen } einzutragende Procedure:

PROCEDURE Sortiere_MeineTabelle(Spalte : Integer); Nehmen wir an, du hast in deiner Tabelle drei Spalten: Index_MeineTabelle, Nachname und Vorname. Deine Procedure sieht dann vielleicht so aus:

Delphi-Quellcode:

PROCEDURE MeinHauptFormular.Sortiere_MeineTabelle(Spalte : Integer);
VAR
   SortOrderText : String;
BEGIN
     IF SortOrder THEN SortOrderText := ' ASC' ELSE SortOrderText := ' DESC';

     DataSource_MeineTabelle.Enabled := FALSE;
     Query_MeineTabelle.Close;

     CASE Spalte OF
     0 : Query_MeineTabelle.SQL.Text := 'select * from MeineTabelle order by Index_MeineTabelle' + SortOrderText;
     1 : Query_MeineTabelle.SQL.Text := 'select * from MeineTabelle order by Nachname'           + SortOrderText;
     2 : Query_MeineTabelle.SQL.Text := 'select * from MeineTabelle order by Vorname'            + SortOrderText;
     END;

     SortIndex := Spalte;

     Query_MeineTabelle.ExecQuery;
     DataSource_MeineTabelle.Enabled := TRUE;
END;

Danach geht es an die Ereignis-Procedure deines DBGrid:

Delphi-Quellcode:

procedure MeinHauptFormular.MeinDBGrid_MeineTabelleTitleClick(Column: TColumn);
VAR
   Spalte : Integer;

begin
     Spalte := Column.Index;

     IF Spalte = SortIndex         THEN
        SortOrder := NOT SortOrder ELSE
        SortOrder := TRUE;

     Sortiere_MeineTabelle(Spalte);
end;

Hoffe, das hilft dir weiter ...

(Nicht getestet, einach so runtergeschrieben, weil ich das ziemlich häufig anwende ...)