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

[mkinzler]

Zitat:

Was ist eigentlich so schwer daran, einen aussagefähigen Titel für einen Thread zu finden? Ein Komponentenname ist zumindest kein solcher.

Zuerst kommst du einmal darauf, wie man sich in einem Forum verhält! :warn:

Wenn du mehrmals von verschiedenen Mitgliedern darauf hingewiesen wirst, dass deine Betreffs gegen die Forenregeln verstossen (auch von Moderatoren!), dir das aber scheinbar am A... vorbei geht.:wall:

Deshalb werde ich den Beitrag nun schliessen, bis du mir oder einem anderen Moderator einen passenden Titel nennst.

Btw. das werde ich auch mit jeden weitren Beitrag machen, bist du bereit bist, unsere Regeln zu akzeptieren.

[Edit]
Der Titel wurde nun geändert.

Ich mache den Thread jetzt wieder auf. Werde aber nicht zögern andere Fragen von dir zu schliessen, wenn deren Titel nicht passen!

[Perlsau]

Zitat:

Zitat von Alterauge (Beitrag 1176886)

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:

Delphi-Quellcode:

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 ...)