[OOP] Objekt anderen Objekten bekannt machen

[TheMiller]

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