Hallo Leute,
hab mal wieder ein Problem... - könnte aber auch an der Uhrzeit liegen.
Ich habe eine Datenbankklasse erstellt, welche die ZConnection und ZQuery beinhaltet (ZEOS). Nun leite ich im Programm ein Objekt davon ab und alles funktioniert einwandtfrei. Jetzt möchte ich Objekte erstellen, die die
DB-Verbindung nutzen sollen. Ableiten von der Datenbankklasse kann/will ich nicht, da sonst mehrere bzw. viele Verbindungen zur Datenbank erstellt werden (ich mag nur eine pro Programm haben).
Nun mag ich aber, dass die Objekte das Datenbankobjekt trotzdem kennen, ohne, dass ich es ihnen jedes mal übergeben muss. Hier mal meine Klassen
Delphi-Quellcode:
//Globales Firebird-Datenbankobjekt, abgeleitet von DB_Base_Firebird <- DB_BASE
TJKDB =
class(TDBBase_FB)
private
//nothing
protected
public
constructor Create;
override;
//Hier wird die einzige DB-Verbindung erstellt.
destructor Destroy;
override;
procedure Save(Data: TObject);
end;
//Globales Datenobjekt, zum erneuten Ableiten und Erweitern
TJKObject =
class(TObject)
private
fDBO: TJKDB;
//Hier könnte das DB-Objekt übergeben werden, ist aber auf Dauer zu "unbequem"
public
constructor Create;
end;
Alle Objekte sind in einer gemeinsamen extra-
Unit. Soll ich in dieser eine globale Variable deklarieren? Ist kein schöner Stil, zumal ich von dem Hauptprogramm auch auf das
DB-Objekt zugreifen möchte...
Sollte ich es vielleicht so machen, dass ich alle Objekte - soweit erforderlich - vom
DB-Objekt ableite und die Verbindung immer dann öffne und schließe, wenn es wirklich nötig ist?
Ich hatte auch schon eine Lösung mit einem Datenmodul. Da griffen alle Objekte, die eine
DB-Verbindung wollten, auf das Datenmodul zu. Nachteil ist hier halt, dass ich nur eine
DB-Verbindung haben kann und nicht mehrere - es sind ja keine Objekte.
Ich bitte verzweifelt um einen Rat
Danke im Voraus