2 Units zusammenfassen in eine Untergeordnete Logikschicht

[DeddyH]

So, hier nun ein gaaanz grobes Modell:

Code:

TDataConnection
  - Servername
  - Benutzername
  - Passwort
  - DBName
  - Connect()
  - Disconnect()
  
TBasisdaten
  - Anlegen()
  - Bearbeiten()
  - Löschen()
  
TBasisliste(TObjectlist)
  - Connection: TDataConnection
  - Filter
  - Datenholen()
  - Aktualisieren()
  
TKunde(TBasisdaten)
  - ID 
  - Name
  - Vorname
  
TKundenliste(TBasisliste)

Dasselbe dann für Bücher, etc.

Wenn man so etwas wie Referenzzählung und Klasseneigenschaften unter Delphi 7 hinbekommt, dann kommt man mit einer einzigen Connection aus, die vom ersten erzeugten Objekt erstellt und vom letzten zerstörten wieder freigegeben wird. Aber das sind Details, um die man sich später kümmern kann.