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

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

[Furtbichler]

Du könntest die Tabelle absteigend sortieren, z.B. mit einem

Code:

SELECT... ORDER BY ... ASC

[Alterauge]

Mit der Komponente MyTable1 ?

[Bernhard Geyer]

Zitat von Alterauge:

Mit der Komponente MyTable1 ?

Nee mit einer TMyQuery-Instanz als Text des SQL-properties.

[Alterauge]

Möchte einen Button einsetzen!

[DeddyH]

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

[himitsu]

Zitat von Alterauge:

Möchte einen Button einsetzen!

Was willst du?
Und der Titel ist auch sehr schön gewählt. [edit] Detlef war bis eben noch nicht su zehn [/edit]

So, man kann entweder über ORDER BY der SELECT-Abfrage eine Sortierung erreichen, oder man macht es über die Query/Table-Komponente und natürlich wäre es auch über das Grid möglich, also unabhängig von den ausgelesenen Daten.
Die entgültig angezeigte Sortierung richtes sich nach ser zuletzt angewendeten Sortierung ... im vorherrigen Satz von vorne nach hinten.

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