DBgrid-Sortierung

[Hansa]

Bei mir wird zumindest nach angeklickter Spalte sortiert. Da fällt mir aber noch mehr auf:

1. Bei meiner fetten Tabelle sind zu viele Spalten drin, wegen des "Select * from", aber ich will den Anwender entscheiden lassen, was er sieht, also muß er an alles rankommen. Wie kann ich jetzt zulassen, daß einzelne Spalten ausgeblendet werden? Oder umgekehrt, ich biete ihm die Spalten an, die er sowieso braucht und er kann welche hinzufügen ? Wahrscheinlich brauche ich beide Varianten. Grob schwebt mir da eine Auswahlbox vor mit markieren, alle markieren usw. Aber irgendwie gefällt mir das nicht. Wie macht ihr sowas ?

2. Im Moment habe ich nur einen Primary Key, was ist mit Indices, Foreign Keys usw.? Sollte man das auch schon mal einbauen, oder erst, falls die Performance in die Knie gehen sollte (was im Moment nicht zu bemerken ist) ?

[Hansa]

Noch eine kurze Frage: Wie kann ich denn in der Titelleiste die Spalte, nach der sortiert wird irgendwie hervorheben

[Sharky]

Zitat von Hansa:

Noch eine kurze Frage: Wie kann ich denn in der Titelleiste die Spalte, nach der sortiert wird irgendwie hervorheben

Hai Hansa,

ich verwende immer die DB-Grids von den RX-Tools, dort gibt es recht einfach die Möglichkeit eine Markierung in der Titelleiste anzuzeigen.

Zu deiner anderen Frage:
In einem Grid würde ich immer nur die absolut notwendigen Spalten anzeigen. Wenn der Anwender details wissen möchte öffne ich bei einem Doppelklick ein neues Fenster in dem ich dann alle anderen Daten anzeige.

[Hansa]

Ich habe jetzt folgendes Problem: Es sind einfach zu viele Spalten vorhanden. Wie Sharky, will ich lieber automatisch die notwendigen Spalten automatisch im Grid drin haben und dann eine Auswahlbox bringen, wo die anderen Felder hinzugefügt werden können. Nun habe ich mir mal die Lieferanten vorgeknöpft :

Code:

procedure TForm2.DBGrid1TitleClick(Column: TColumn);
begin
  with LiefModul.LiefDS do begin
    Close;
    SelectSQL.Text := 'SELECT * FROM LIEF8 WHERE NR >= ' +
    LabeledEdit1.Text + ' AND NR <=' + LabeledEdit2.Text+' ORDER BY ' + Column.FieldName;
    if RadioGroup1.ItemIndex = 1 then
      SelectSQL.Text := SelectSQL.Text + ' DESC';
    Open;
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  with LiefModul do begin
    DBGrid1.Hide;
    LiefDS.Close;
    LiefDS.SelectSQL.Text := 'SELECT NR, NAME FROM LIEF8 WHERE NR >= ' +
    LabeledEdit1.Text + ' AND NR <=' + LabeledEdit2.Text+' ORDER BY NR';
    LiefDS.Open;
    DBGrid1.Show;
  end;
end;

Für Testzwecke setze ich die Select Anweisung per ButtonClick auf Anzeige nur der Nr und des Namens. Soweit geht das auch so, ABER die Titelzeile des Grids enthält immer noch alle Felder und ist genauso breit wie vorher. Das Grid weiß Sachen, die es nicht wissen soll/kann.

[Sharky]

Zitat von Hansa:

.... ABER die Titelzeile des Grids enthält immer noch alle Felder und ist genauso breit wie vorher. Das Grid weiß Sachen, die es nicht wissen soll/kann.

Schon mal mit der rechten Maustaste auf das Grid geklickt? (In der IDE).
Stichwort : SpaltenEditor.

[Hansa]

Das ist schon klar. Aber das muß zur Lufzeit geschehen.

Code:

DBGrid1.Add

ohne Parameter!! Das kann nicht alles sein. Wo und wie muß ich sagen, daß eine Spalte hinzukommen soll? Vor allem aber, wie soll das überhaupt gehen, wenn eine Spalte rausfliegen soll Mit Hide und Show des Grids geht das mal nicht einfach so.

[Sharky]

Zitat von Hansa:

Das ist schon klar. Aber das muß zur Lufzeit geschehen.

Code:

DBGrid1.Add

ohne Parameter!! Das kann nicht alles sein. Wo und wie muß ich sagen, daß eine Spalte hinzukommen soll? Vor allem aber, wie soll das überhaupt gehen, wenn eine Spalte rausfliegen soll Mit Hide und Show des Grids geht das mal nicht einfach so.

hmm... dafür hast Du doch die Eigenschaft columns im Grid.

Delphi-Quellcode:

Var
 spalte : TColumns

begin
 spalte := RXdbGrid1.Columns.Add
 spalte.Field.Name
end;

[Hansa]

Code:

DBGrid1.Column.Add;

das wird compiliert (laut Hilfe ist die Deklaration: function Add: TColumn Nur was wird wo geadded? Vor allem aber: wenn ich etwas hinzufügen kann, dann muß ich es auch wieder wegkriegen.

[Sharky]

Zitat von Hansa:

Code:

DBGrid1.Column.Add;

das wird compiliert (laut Hilfe ist die Deklaration: function Add: TColumn Nur was wird wo geadded? Vor allem aber: wenn ich etwas hinzufügen kann, dann muß ich es auch wieder wegkriegen.

Hai Hansa,

hier mal etwas Code. Du brauchst:

1 x Button
1 x Query
2 x ComboBox

Delphi-Quellcode:

procedure TForm1.ComboBox1Click(Sender: TObject);  //Feld zum Grid zufügen.
var
 spalte   : TColumn;
begin
 spalte := RxDBGrid1.Columns.Add;
 spalte.FieldName := ComboBox1.Text;
 ComboBox2.Items.Add (ComboBox1.Text);  // In die C-Box zum löschen der Spalte eintragen.
end;

{****************************************************}

procedure TForm1.ComboBox2Click(Sender: TObject);  //Feld aus dem Grid löschen
begin
 RxDBGrid1.Columns.Delete (ComboBox2.ItemIndex);
 ComboBox2.Items.Delete (ComboBox2.ItemIndex);
end;

{****************************************************}

procedure TForm1.Button1Click(Sender: TObject); //Felder der Tabelle in ComboBox.
begin
 ComboBox1.Clear;
 ADOQuery1.GetFieldNames(ComboBox1.Items);
end;

ACHTUNG: Wenn einem Grid keine Spalten zugewiesen wurden werden immer alle Spalten der Tabelle angezeigt

Ich hoffe das hilft dir so.

[oki]

Hi Hansa.

Sharky hat schon mal in die richtige Richtung geschossen.

Es gibt genau zwei Möglichkeiten (ohne riesen Aufwand).

Die erste ist die von Sharky benannte. du definierst zur Designzeit mittels Spalteneditor des DBGrid die Spalten, die du anzeigen möchtest. Der Vorteil ist, dass Du auch Spaltenbreite etc. voreinstellen und zur Erstellungszeit kontrollieren kannst.

Zweite Möglichkeit. Du gibst in Deiner Select-Anweisung nicht den Platzhalter * für alle Felder an, sondern nur die, die du im Grid sehen willst. Ist der Name doof, so kannst du ihn ja dort noch mit der as-Anweisung umbenennen.
Bsp.:

[/delphi]
select KdNr as Kundennummer from ...
[delphi]

Die dritte Variante zur Laufzeit die Columns des Grid zu kreieren verkneif ich mir hier. Das macht Arbeit und deshalb blöd (zumindest wenn es einfacher geht und so ausreicht).
Für ganz arbeitsame ist das aber dann eine Variante wo man dem Anwender nicht nur die Möglichkeit der Auswahl der anzuzeigenden Spalten, sondern auch noch das Design in die Hand geben kann (aber wer will das schon).

Gruß oki

[edit] Tschuldigung! irgentwie paßt mein Beitrag nicht in die Reihenfolge. Aber vielleicht kannst du trotzdem was damit anfangen.