DELPHI-Fehler in Master/Detail-Verknüfungem über MasterFields

[daddy]

Ich bin dabei ein Projekt von Delphi 7 auf Delphi 11 zu migrieren und habe ein Problem, das ich damals durch einen eigenen Eingriff in die Delphi-Quellcodes gelöst habe, das aber überraschenderweise auch in Delphi 11 immer noch besteht.

Es geht um eine VCL-Anwendung mit Firebird-Anbindung. Der Zugriff auf Firebird erfolgt über TClientDataSets, die über TDataSetProvider mit TSQLDataSets kommunizieren. An vielen Stellen werden Master-Detail-Verknüpfungen benötigt. Diese werden bereitgestellt, indem im TClientDataSet der Detailtabelle die Eigenschaften "MasterSource", "MasterFields" und "IndexFieldNames" gefüllt sind. Bei einfachen SQL-Selects funktioniert das auch:

Beispiel Master:

Delphi-Quellcode:

Select * from Liefeant

Beispiel Detail:

Delphi-Quellcode:

Select * from LieferantKontakt

Die Tabelle Lieferant hat ein Feld "Nummer", die Tabelle Kontakt ein Feld "LNummer", das sich auf das Feld Nummer bezieht. Mein Programm verhält sich genauso wie gewünscht.

Meistens sind die Detailtabellen aber ein wenig komplexer aufgebaut und stellen auch Daten anderer Tabellen bereit. Und dies führt zwangsläufig zu Fehlermeldungen von Delphi, egal ob Version 7 oder 11.
Hier einfache Beispiele für nicht funktionierende Abfragen, bei denen zur Tabelle LieferantKontakt noch ein Bezeichner aus einer Tabelle KontakArt geholt wird:
Detail:

Delphi-Quellcode:

Select L.*, K.Bezeichnung from LieferantKontakt left join KontaktArt K on L.KANummer = K.Nummer

oder

Delphi-Quellcode:

Select L.*, (Select K.Bezeichnung from KontaktArt where Nummer = L.KANummer) as Bezeichnung from LieferantKontakt

Ich habe per Debugging im Delphi-Quellcode die Funktion "AddParamSQLForDetail" in der Unit "Data.DBCommon.Pas" als Ursache für das Problem herausgefunden, die einfach fehlerhaft arbeitet und offensichtlich nur mit einfach gestrickten Anweisungen der Art "Select * from <Table> order by <Column>" zurechtkommt. Weder Joins noch Unterselects werden in irgendeiner Form korrekt erkannt und berücksichtigt. Das in meinem obigen Beispiel von der Funktion eingefügte "where LNummer = ?" landet in diesen Fällen an der falschen Stelle und führt somit zu einer ungültigen Select-Anweisung.
Natürlich könnte ich das Problem irgendwie umschiffen oder wieder - wie damals bei Delphi 7 - den delphieigenen Code korrigieren. Aber das erste macht mir aufgrund des Projektumfangs ziemlich viel Aufwand und das zweite zwingt mich bei jedem Delphi-Update die Korrekturen erneut vorzunehmen.

Kennt irgend jemand von euch (oder von Embarcadero) dieses Problem und hat evtl. eine bessere Lösung?

[Sinspin]

Ich verwende FireDac zum zugriff auf alle DB und mache alles selber, dann muss sich FD nicht was ausdenken:

Code:

SELECT L.*, K.Bezeichnung 
FROM LieferantKontakt L 
LEFT JOIN KontaktArt K ON L.KANummer = K.Nummer
WHERE L.Nummer = :MasterField
ORDER BY L.Whatever

Ich hatte mit dieser Methode noch nie Probleme.
Noch MasterFields und DetailFields eintragen um FD noch ein bisschen weiter entgegen zu kommen... aber das muss nicht sein.

[himitsu]

Hat devart auch direkt was für Firebird?

Wir nutzen pgDAC für den Zugriff auf PostreSQL.
OK, inzwischen auch an einigen Ecken schonmal FireDAC (das war aber vor allem wegen des LocalSQL)

[Uwe Raabe]

Zitat:

Zitat von himitsu (Beitrag 1537760)

Hat devart auch direkt was für Firebird?

IBDAC oder UniDAC

Ich verwende aber auch in der Regel nur noch FireDAC, allein schon weil es in meiner Architect Edition dabei ist.

Nur in Ausnahmefällen muss ich mich an abweichende Kundenvorgaben halten.

Zitat:

Zitat von daddy (Beitrag 1537754)

Ich habe per Debugging im Delphi-Quellcode die Funktion "AddParamSQLForDetail" in der Unit "Data.DBCommon.Pas" als Ursache für das Problem herausgefunden, die einfach fehlerhaft arbeitet und offensichtlich nur mit einfach gestrickten Anweisungen der Art "Select * from <Table> order by <Column>" zurechtkommt. Weder Joins noch Unterselects werden in irgendeiner Form korrekt erkannt und berücksichtigt. Das in meinem obigen Beispiel von der Funktion eingefügte "where LNummer = ?" landet in diesen Fällen an der falschen Stelle und führt somit zu einer ungültigen Select-Anweisung.

Gibt es dafür einen Bugreport? Falls nicht: https://qp.embarcadero.com/

[himitsu]

privat nur 'ne Pro.
da fehlt leider auch Linux und iProdukte hab'sch net.

[daddy]

@ Sinspin
Mir ist natürlich klar, dass ich das Problem durch Änderungen in der Programmierung lösen kann. Es handelt sich aber um ein sehr umfangreiches Projekt und ich würde sehr viel Arbeit damit haben, alle Beziehungen dieser Art zu ändern. Ich bin einfach sehr überrascht, dass ein solch grober Fehler auch nach fast 20 Jahren noch in Delphi enthalten ist. Bin ich der Einzige der mit der genannten Konstellation von Komponenten arbeitet und Master/Detail-Beziehungen wie ursprünglich von Delphi vorgesehen nutzt?

@ Uwe Raabe
Ja, ich werde das mal an Embarcadero weitergeben. Das wird vermutlich nur keine schnelle Lösung für mein aktuelles Problem bringen.

[Uwe Raabe]

Zitat:

Zitat von daddy (Beitrag 1537768)

Ich bin einfach sehr überrascht, dass ein solch grober Fehler auch nach fast 20 Jahren noch in Delphi enthalten ist.

Wenn das niemand gemeldet hat...

[Frickler]

Mittels Views könntest Du komplexe Selektionen vereinfachen.

Code:

Create Or Alter View Name1 As Select L.*, K.Bezeichnung from LieferantKontakt left join KontaktArt K on L.KANummer = K.Nummer

und

Code:

Create Or Alter View Name2 As Select L.*, (Select K.Bezeichnung from KontaktArt where Nummer = L.KANummer) as Bezeichnung from LieferantKontakt

und dann hast Du wieder die ganz einfachen Anweisungen

Code:

Select * From Name1

und

Code:

Select * from Name2

.

[Uwe Raabe]

Ich kenne jetzt zwar das genaue Problem nicht, aber bei Master-/Detail-Beziehungen geht es ja darum, ein Master-Dataset und ein Detail-DataSet zu haben, wobei letzteres alle Detail-Records zu dem jeweils aktuellen Master-Record enthält. Ich kann im Moment noch nicht sehen, wie da die Select-Anweisungen reinspielen.

Andererseits liegt der Fehler ja offenbar innerhalb der Funktion AddParamSQLForDetail, in der eine SQL-Anweisung geparst und ergänzt wird. Da der Parser relativ simpel gestrickt ist (wobei das schon eine Wissenschaft für sich ist), kann ich mir schon vorstellen, dass der nicht für komplexe SQLs funktioniert. Umso wichtiger ist eben, die entsprechenden Fehlerfälle zu melden. Andernfalls wird das nämlich nie behoben.

[himitsu]

Vielleicht bei automatischer Verknubbelung der DataSets?

Weiß jetzt nicht wie FireDAC arbeitet, aber bei pgDAC gibt es mehrere Modi.

* man gibt das/die Field(s) des Masters an und das/die Field(s) des Details ... das WHERE wird automatisch gebaut und angehängt
* man gibt das/die Field(s) des Masters an und das/die Param(s) des Details ... das WHERE ist manuell ins SELECT eingebaut

und noch etwas für Grids (DevExpress oder so) mit eingebettetem SubGrid (je Datenzeile)
* man gibt das/die Field(s) des Masters an und das/die Field(s) des Details ... die Details sind ALLE geladen und werden per Filter zur Laufzeit gesucht
so ist es möglich bei allen/mehreren Masterzeilen je ein SubGrid einzublenden (gleichzeitig)