Spalten in einem DBGrid verschieben und auch sortieren!

[d3g]

Hi m-werk,

IMHO: in my humble opinion.

Was das Speichern angeht, könntest du ja die Property Cols[] abspeichern und neu laden.

MfG,
d3g

[Luckie]

IMHO = in my humble opinion = in meiner bescheiden Meinung

Keine Ahnung wie so eine Abfrage auszusehen hat. Von Datenbanken habe ich keinen Schimmer. Ich weiß nur so viel, dass das DBGrid nicht dazu da ist Daten zu manipulieren, zu filtern etc., dazu gehört auch das Sortieren. Bitte korrigieren, wenn ich falsch liegen sollte, aber ich bin mir hier ziemlich sicher.

Die Abfrage hängt auch von der Datenbank ab: mySQL, BDE, Paradox. Access, ...

[d3g]

Aua, es handelt sich, um ein DB- kein StringGrid.
Bitte mein obiges Posting vergessen...

MfG,
d3g

[MrSpock]

Hallo m-werk,

zunächst einmal zum Thema Sortierung:

Es gibt da grundsätzlich zwei Möglichkeiten. Die erste ist das Arbeiten mit Indices. Dazu legst du für alle möglichen Sortierungen Sekundärindices an. Dann wählst du einfach den gewünschten Index aus und die Sortierung funktioniert automatisch.

Die zweite Möglichkeit ist eine Abfrage zu erstellen in der Form:

Code:

SELECT * FROM Kunde ORDER BY Vorname DESC

Diese Abfrage packst du in eine TQuery Kompo und führst diese durch "Open" aus.

Zum Thema "Speichern der Reihenfolge der Felder". Dazu würde ich die Eigenschaft "Index" der TField Objekte auslesen und in einer Ini-Datei speichern. Beim Starten der Anwednung liest du diese Werte wieder aus und weist sie der Index-Eigenschaft wieder zu.

[m-werk]

Danke für den Tip beim Sortieren. Ich werde die 2. Variante nehmen.

Mit dem Speichern der Spaltenpositionen komm ich nicht so zurecht. Kannst du mir dabei bitte helfen?

[MrSpock]

Hallo m-werk,

sowohl TQuery als auch TTable sind (indirekt) von TDataSet abgeleitet. Dort ist die Eigenschaft Fields definiert.

Je nachdem wann du die Reihenfolge der Felder im Grid speichern willst, könntest du in der entsprechenden Ereignismethode folgendes schreiben:

Code:

var
  Ini         : TIniFile;
  i           : Integer;
  reihenfolge : String;
 
...
try
  Ini := TIniFile.Create(ChangeFileExt(Application.ExeName), '.INI');
  reihenfolge := '';
  for i := 0 to MyTable.FieldCount-1 do
    reihenfolge := reihenfolge+IntToStr(MyTable.Fields[i].Index)+';'

  Ini.WriteString('Grid', 'Reihenfolge', reihenfolge);
  Ini.Free;
except
...

Das Einlesen läuft analog, z.B. in der OnActivate Methode.

Ist zwar nicht getestet, sollte aber funktionieren.

[m-werk]

OK, das mit dem Speichern habe ich jetzt hinbekommen. Funktioniert tatellos.

Es ist nur noch ein Problem:
Im DBGrid müssen erst Datensätze stehen, dannach kann ich die Spalten verschieben und die Position wird dann erst in der INI gespeichert.
Vielleicht könnte man das auch dann machen, wenn keine Daten im Grid stehen.

Aber nun zum nächsten.
Wie rufe ich die Position der Spalten beim öffnen des Formulares wieder auf, die in der INI stehen?

[Luckie]

Sollte eigentlich. Aber dein gesamter try-Block ist Mist. Bei einem Fehler wird Ini nicht wieder freigegeben usw.

So ist es besser:

Code:

[b]procedure[/b] TKundenDruckMenue.FormClose(Sender: TObject; 
[b]var[/b] Action: TCloseAction); 
[b]var[/b] 
  Ini : TIniFile; 
  i : Integer; 
  reihenfolge : [b]String[/b]; 
[b]begin[/b] 
  reihenfolge := ''; 
  [b]for[/b] i := 0 [b]to[/b] DBGrid1.FieldCount-1 [b]do[/b] 
    reihenfolge := reihenfolge+IntToStr(DBGrid1.Fields[i].Index)+';'; 
  Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName)+ 'Einstellungen.ini'); 
  [b]try[/b]
    Ini.WriteString('Grid', 'Reihenfolge', reihenfolge); 
  [b]finally[/b]
    Ini.Free; 
  [b]end[/b]; 
[b]end[/b];

Eventuell behebt das auch dein Poblem.

[m-werk]

Danke für die verbesserung, aber das Problem ist damit nicht behoben!

[Luckie]

Wärend ich gepostet habe, hast du doch geschrieben, dass es jetzt gehen würde oder was oder wie oder wo oder...