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