TQuery ersetzen

[hoika]

Hallo #,

jaja, die gute alte BDE.
Um mir das ersetzen der BDE zu erleichtern,
habe ich von der normalen TQuery erst mal
eine eigene Klasse (TMyQuery) abgeleitet.

Weiterhin wird jede Query über eine CreateMyQuery erzeugt.

Der nächste Schritt ist jetzt das komplette Ersetzen der
TQuery-Sachen.

Also TBdeQuery von TMyQuery ableiten,
die intern eine normale TQuery (Bde) erzeugt.

Delphi-Quellcode:

type
  TBdeQuery = class(TMyQuery)
    private
      FQuery: TQuery;  // normale Bde-Query
  end;

Weiterhin ne TZeosQuery mit einer TZQuery (?) intern.

Das Open, Execute ist ja noch einfach, aber wie mache ich das mit SQL ?
Wie gesagt, ich will nichts im Programm umschreiben.

ein
Query:= CreateMyQuery mit BDE als "Datenlayer" erzeugt
eine TBdeQuery und gibt die als TMyQuery zurück.

ein Query.SQL.Clear müsste jetzt ja bei der Bde-Query das interne
FQuery.SQL.Clear aufrufen.

Wie könnte man das am einfachsten in der TMyQuery (also virtual) definieren ?

Ich könnte eine Klasse TSQLReplacement erzeugen, die alle SQL-Befehle implementiert,
dann aber eine Methode der TMyQuery aufruft, die wiederum virtual ist,
in den eigentlichen Queries (TBdeQuery, TZeosQuery) überschrieben wird
und dort die internen Queries aufruft.


Danke ich hier zu kompliziert,
geht das auch anders ?

Ist der eigentliche Ansatz zu kompliziert ?

Was ich auch machen möchte, ist mehrere Transaktionen pro Conneciton zu unterstützen,
sofern das der eigentliche Datenlayer unterstützt (also z.B. Zeos),
deshalb der "Umweg" über die eigenen Klassen.


Danke im voraus


Heiko