2 Units zusammenfassen in eine Untergeordnete Logikschicht

[DeddyH]

Das ist IMHO der falsche Ansatz. Gib mir ein paar Minuten Zeit, dann skizziere ich mal, wie ich das meinte.

[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.

[Impulz]

okay.

aber wie löse ich nun mein problem.
ich müsste ja die Kunden, Buecher etc an ein 'Übergeordnetes' Objekt weitergeben und dann das Objekt zur anzeige bringen?

und dieses Übergeordnete objekt brauche ich ja auch um die beziehungen zwischen den tabellen auch in der syntax darzustellen.


und mein problem ist es: einen ansatz bei dem objekt zufinden um die Kunden usw zusammenzufassen.

wie sieht sowas aus?

BEISPIELWEISE

KUNDENOBJEKT= KUNDEN ID VORNAME NACHNAME
BUCHOBJEKT= ID PREIS NAME

ich will aber das zur anzeige bringen:


KUNDEN VORNAME NACHNAME BUCH PREIS BUCH NAME:

usw...

[DeddyH]

Man könnte die Kundenklasse ja dahingehend erweitern, dass sie die ihr zugewiesenen Bücher ermittelt und in einer TBuchliste ablegt (das Gleiche dann vice versa, man kann das auch noch weiter abstrahieren, aber davon nehme ich hier erst einmal Abstand). So, als Ergebnis hättest Du dann z.B. so etwas im Speicher:

Code:

42, Meier, Heinz, Am Bahnhof 5, 12345 Hinterpfuiteifi
  - 100, Krieg und Frieden, Tolstoi, ISBN Lalala
  - 120, Es, Stephen King, ISBN Wuppdi

Hier pickst Du Dir die Daten des Kunden heraus, die Du anzeigen möchtest, dasselbe dann bei den ermittelten Büchern.

[Impulz]

ok also könnte das so aussehen das ich vllt die kundenklasse im create veränder? und noch Buch name usw deklariere?

[DeddyH]

Das TKunde-Objekt benötigt in dem Fall eine TBuchliste-Property. Pseudocode:

Delphi-Quellcode:

procedure TKunde.GetBuecher;
begin
  Buchliste.SetFilter('Kunden_ID', ID);
  Buchliste.HoleDaten;
end;

[haentschman]

Hallo...

unabhängig von deiner Frage sind mir ein paar Sachen aufgefallen...
Beispiel für mehrere Stellen:

Delphi-Quellcode:

function TDataconnect.getKunden():TKundeList;
var
   Kunde  : TKunde;
   KundeQuery : TIBOQuery;
   KundeTransa : TIBOTransaction;
begin
  Result:= TKundeList.create(); // wird als Result erzeugt... wo gibst du die Liste wieder frei ? --> Speicherleck. Objekt als Rückgabewert ist immer schwierig... Nur mit dirty Tricks. 
  KundeQuery:= TIBOQuery.Create(nil); // Wo gibst du die Query frei ? --> Speicherleck
  KundeQuery.SQL.Text:= 'SELECT * FROM KUNDEN ';
  KundeQuery.IB_Connection:= FDataBase;
  KundeTransa:= TIBOTRansaction.Create(nil);
  KundeTransa.IB_Connection:= FDataBase;
  KundeQuery.IB_Transaction:= KundeTransa;
  KundeTransa.StartTransaction(); // warum läßt du ein select Statment in einer Transaktion ablaufen ?
  try
    KundeQuery.Open();
    while not KundeQuery.Eof do
    begin
     kunde:= TKunde.Create(KundeQuery.Fieldbyname('Kunden_ID').asInteger,
                            KundeQuery.FieldbyName('Vorname').asString,
                            KundeQuery.FieldbyName('nachname').AsString);
      Result.addkunde(Kunde);
      KundeQuery.Next();
    end;
    KundeTransa.Commit(); // Was gibt es nach dem Durchlaufen der Query zu committen ?
  except
    on e:Exception do
    begin
      ShowMessage('FEHLER IN GETKUNDEN');
      KundeTransa.Rollback(); // entsprechend dem Commit...
    end;
  end;
end;

PS: Mach mal ReportMemoryLeaksOnShutdown an... aber erschrick nicht

[Impulz]

Vielen Dank, werde mein Code nochmal ausbessern.

@DeddyH ich mach mich gleich mal ran an das umbauen
@haentschman vielen dank, programmiere halt nicht so lange, was ich kann hab ich mir auch selbst beigebracht... desswegen mangelt es an Qualität xD
werde es mir aber zu herzen nehmen und gleich ausbessern.

[Impulz]

also ich krieg das irgendwie mit dem FastLeakMemoryon... nicht hin.
Habe FastMM4 mir gerade geholt und das als erste unit in mein Projekt eingebunden.
dann bin ich auf meine oberfläche und habe fastmm4 in uses teil gebracht.

aber das fastleakmemoryon das kennts nich
und jetzt?