Wie zuverlässig bei IBDatabase Connect verhindern?

[shmia]

Ich glaube dass sich daran nichts ändern lässt (ausser in der IBDatabase-Komponente selbst).
Bei der ADOConnection habe ich genau das gleiche Problem:
wenn man zur Entwicklungszeit testweise eine Query öffnet wird automatisch auch die ADOConnection (bzw. IBDatabase) geöffnet.
Als Entwickler merkt man das nicht und so gibt es "draussen" immer wieder mal Probleme.

Ich habe bei mir etwas eingebaut, damit ich zumindest gewarnt werde, falls die Connection schon öffen ist:

Delphi-Quellcode:

procedure TMainDataModule.MainDataModuleCreate(Sender: TObject);
begin
   // Falls die ADO Connection schon verbunden ist, liegt ein Problem vor.
   if ADOCon.Connected then
   begin
      ShowMessage('Warnung: ADOConnection ist schon aktiv !!!');
   end;

   // Connection-Parameter laden
   ....
  ADOCon.Connected := True;  // Datenbankverb. öffnen