Thema: Delphi BDE -> FIBPlus

Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.273 Beiträge
 
Delphi 10.4 Sydney
 
#1

BDE -> FIBPlus

  Alt 4. Aug 2009, 16:06
Datenbank: Firebird • Version: 1.5 • Zugriff über: BDE/FIBPlus
Hallo,

um ein grossen Programm (~600k DB-Code) umzustellen,
bin ich wie folgt vorgegangen.

Ich muss noch dazu sagen, dass das Programm dabei immer noch weiterentwickelt
und ausgeliefert wird.

Noch ein Vorwort.
Da ich mit Interfaces schon mal böse zusammengestossen bin,
verwende ich das Ableiten.

- Definition einer generischen TBaseQuery
alle Methoden/Properties (Open/Close/SQL) sind virtual abstract

- Ableitung einer BDE-Query
es gibt eine interne Query (TQuery)
die abstrakten Methoden werden an diese interne Query einfach weitergeleitet

- Entfernen jeglichen DB-Codes aus den Forms
unit DBTables entfernen, gucken wo es klemmt

- Ersatz aller TTable durch TBaseQuery in den einzelnen
Umschreiben des TTable-Codes auf
-> Heidenarbeit ;(

So !!!!

Das Erzeugen der Queries erfolgt so

Delphi-Quellcode:
function CreateQuery(const theDBEngineType: Integer): TBaseQuery;
begin
  Result:= NIL;

  case theDBEngineType of
    C_EngineType_Bde:
      begin
        Result:= TQuery_Bde.Create(NIL);
      end;
    C_EngineType_FIBPLUS:
      begin
        Result:= TQuery_FIBPlus.Create(NIL);
      end;
  end;
end; { CreateQuery }
theDBEngineType habe ich erst mal per IFDEF gesetzt


Ich kann jetzt also das Programm als BDE-Version kompilieren,
ohne im Code direkt die BDE zu benutzen.


Jetzt kommt der nächste Schritt .
Transaktionen !!!

Wie das in FIBPlus funktioniert, ist schon klar.

Ich muss aber immer noch den BDE-Code warten,
solange nicht alles funktioniert.

Der Einfachheit halber nehmen wir mal an,
ich brauche erst mal nur ein Transaktion (wie bei der BDE).
Aufrüsten kann man ja immer noch

Jetzt meine Frage.

Ich benutze stellenweise das AutoCommit der BDE,
will auch nicht alle Stellen abändern, um über TDataBase.Cmmit zu arbeiten.

Die TpFIBQuery hat ja auch so ein AutoCommit,
wirkt das genauso ?

Wie bilde ich das sonst am besten nach ?

Also
Query.ExecSQL ohne StartTransaction -> AutoCommit
Query.ExecSQL mit StartTransaction -> kein AutoCommit
(ExecSQL ist ein Bsp, ich weiss es heisst etwas anders)


Ausserdem wird bei der BDE ja per
Query.DataBaseName:= DataBase.DataBaseName das ganze ja per Namen gemacht.

Da ich stellenweise mehrere DB's zur gleichen Zeit abfrage
(verschiedene Queries), müsste ich das ähnlich machen.


Hat jemand eine paar Tips,
wie ich das mit den Transaktionen machen soll ?


Danke


Heiko
Heiko
  Mit Zitat antworten Zitat