Zusätzliche Spalte im DbGrid durchnummerieren

[Postman1986]

Hallo,

hab hier ein kleines Problem mit einem DbGrid. Ich lade eine Reihe von Daten aus einer MySQL Tabelle. Die erste Spalte bleibt dabei frei, dort sollen die Einträge durchnummeriert werden. Wie kann ich die Tabelle nun manuell mit dieser Nummerierung füllen? Mit OnDrawDataCell bekomme ich irgendwie keinerlei Ereignis ausgelöst, zumal ich dann noch nicht die aktuelle Zeilennr. habe usw.

Jemand ne Idee?

[marabu]

Hallo,

wenn die Zugriffskomponenten von TDataSet abgeleitet sind, dann kannst du vielleicht TDataSet.RecNo in einem calculated field bereit stellen.

Grüße vom marabu

[Postman1986]

Ja, nur in welches Ereignis soll ich das einfügen.

Hab bereits OnDrawDataCell im DBGrid und AfterExecute in TMyQuery ausprobiert und noch nicht mal ein simples Showmessage() ausgelöst bekommen.

[marabu]

Hallo,

kannst du nicht einfach per Doppelklick auf die Dataset-Komponente zur Entwurfszeit ein berechnetes Feld hinzufügen und den Wert beim Ereignis OnCalcFields() setzen?

Freundliche Grüße

[Postman1986]

Also Felder bzw. Spalten habe ich dort bereits einige eingefügt, alle außer der 1. Spalte werden halt mit Daten aus dem Query gefüllt. Wenn ich nun allerdings sowas hier probiere passiert garnichts:

Delphi-Quellcode:

 for i := 0 to 10 do
    Dataset.FieldByName('Nr').AsString := IntToStr(i);

Der FieldName der Spalte ist "Nr"

[marabu]

Ich kann nicht erkennen, wann und wo du deinen Code ausführst. Ich stelle mir das so vor, dass du im Object Inspector den Rahmen für das Ereignis OnCalcFields() erzeugst und dann diesen Code einfügst:

Delphi-Quellcode:

procedure TDemoForm.QueryCalcFields(DataSet: TDataSet);
begin
  with DataSet do
    FieldValues['NR'] := RecNo;
end;

[Postman1986]

Hm, damit klappt's leider auch nicht, die 1. Spalte bleibt einfach leer.

Delphi-Quellcode:

procedure TMain.mydacQueryMainCalcFields(DataSet: TDataSet);
begin
  with DataSet do
    FieldValues['Nr'] := RecNo;
end;

[marabu]

Solange niemand antwortet, der konkrete Erfahrung mit den von dir verwendeten Komponenten besitzt, solltest du systematisch vorgehen: Versuche festzustellen, ob RecNo überhaupt den verlangten Inhalt hat. Und deinen Event Handler kannst du auch prüfen, indem du eine Konstante zuweißt.

[Postman1986]

Was genau meinst du mit Konstante?

Sowas wie

Delphi-Quellcode:

procedure TMain.mydacQueryMainCalcFields(DataSet: TDataSet);
begin
showmessage('test');
end;

führt jedenfalls auch zu keinem Ergebnis :(

[marabu]

Wenn du dein Projekt (oder besser ein kleines Demoprojekt - ohne EXE und DCU) zum Herunterladen bereit stellst, kommen wir vielleicht weiter.

[Postman1986]

Naja ohne die Datenbank-Anbindung nützt das ja nicht viel :?

Kann man die Nummerierung nicht irgendwie mit einem SQL Befehl realisieren?

[MrSpock]

Hallo Postman,

das geht dann über StoredProcedures. Dazu gibt es ein Stored Procedures Tutorial für MySQL.

[Jelly]

Postman,

hast du deine Nummerierungsspalte auch als Calculated Field im Feldeditor angelegt. Ausserdem müssen alle anderen, richtigen DB Felder dort auch persistent angelegt werde?

[Postman1986]

Felder habe ich alle zur Designzeit angelegt, angegeben habe ich nur die FieldNames. Was genau muss ich tun, damit die jeweilige Spalte als Calculated Field definiert ist? Im OI finde ich nichts dergleichen :(

[Jelly]

Rechtsklick auf deine TDataset Komponente (TMyQuery oder was auch immer du nutzt), und dann "Alle Felder hinzufügen". Damit sind die reellen DB Spalten erstmal persitent angelegt.

Ein berechnetes Feld legst du mit Rechtklick, "Feld hinzufügen" an. Dort wählst du dann aus, dass es sich um ein berechnendes Feld handelt. Noch Datentyp und Feldname auswählen, und fertig.

Diese berechnete Feld füllst du dann im OnCalcFields Ereignis deiner TDataset Komponente, wi in Beitrag #6 von Marabu angegeben.

[marabu]

Hallo Postman,

ich bevorzuge das fortlaufende Nummerieren der Sätze in der Ergebnismenge auf der Client-Seite. An deinem Quellcode in Verbindung mit den DFM-Dateien hätte ich erkennen können, ob du grundlegende Fehler machst. Ich habe den Eindruck, dass du sowohl mit den fremden DB-Komponenten als auch mit den Basiskomponenten von Borland nicht sehr vertraut bist.

Natürlich kann man die Nummerierung auch auf der Server-Seite durchführen. Eine Stored Procedure ist da eine von mehreren Möglichkeiten. Der Nachteil dabei ist, dass du Queries aufbaust, deren fachliche Motivation durch die dann notwendige technische Spielerei verschleiert wird.

Für Interessierte zeige ich, wie man einen theta self join dafür benutzen kann. Es geht dabei nur um das Prinzip, denn eigentlich ist die Nummerierung auf der Client-Seite in der Regel bereits vorhanden (RecNo o.ä.).

Gehen wir von einer Tabelle CUSTOMERS mit den Spalten ID (PK), NAME und EMAIL aus.

Wenn auf der Client-Seite nummeriert werden soll, dann sieht die Query etwa so aus:

SQL-Code:

SELECT name, email
FROM customers
ORDER BY email

Soll die Nummerierung bereits auf der Server-Seite erfolgen, so muss die Query umgebaut werden.

SQL-Code:

SELECT count(*) AS seqno, l.name, l.email
FROM customers l LEFT JOIN customers r ON l.email >= r.email
GROUP BY l.name, l.email
ORDER BY seqno

Das eigentliche Ordnungskriterium wird zum Theta Prädikat und die laufende Nummer tritt an seine Stelle. Ich bin sicher nicht der einzige, der beim Betrachten dieser Query scharf nachdenken muss, was der ursprüngliche Zweck war. Über die Skalierbarkeit möchte ich jetzt und hier gar nicht philosophieren.

Ich empfehle dir jedenfalls dringend dich weiter mit den Ereignissen OnCalcFields() und der Eigenschaft RecNo von TDataSet auseinanderzusetzen. Zumindest solange bis geklärt ist, ob die Komponenten von Core Labs die Nummerierung auf der Client-Seite unterstützen - oder nicht.

Freundliche Grüße

[Postman1986]

Vielen Dank für die Hilfe, der Tipp mit dem Rechtsklick auf die TMyQuery Komponente hat funktioniert.

Dort kann man dann, sofern vorher ein Query gesetzt wurde (was ich erst zur Laufzeit gemacht hatte), die Spalten erstellen. Und mit dem Code von marabu hat es denn auch auf Anhieb funktioniert :)

Danke euch :thumb: