2 Units zusammenfassen in eine Untergeordnete Logikschicht

[Impulz]

Zitat von DeddyH:

Du vermischst Objekte, die eigentlich nichts (direkt) mit einander zu tun haben.

ja, das soll sich ja jetzt ändern damit ich die gleichzeitig zur anzeige sortiert bringen kann


wieso die connect klasse kunden speichert?

weil wenn die Oberfläche speichern würde und es zurückschicken würde wäre es A: doppelter weg
B falsche schichtenarchitektur

[DeddyH]

Meine Frage zielte dahin ab, wieso die Connection Kunden etc. kennen muss? Sie ist dem Namen nach doch dazu da, eine Verbindung zur DB zu verwalten. Kunden/Bücher/WasWeißIchSonstNoch hat sie doch überhaupt nicht zu interessieren.

[Impulz]

Die aufgabe der Connection Unit besteht darin:

wie du schon richtig sagtest: die Verbindung herzustellen.


Nur außerdem Erstellt sie die Queries und die Transaktionen und feuert die SQL's ab für verschiedene Situationen, DatenSpeichern, Laden,Löschen,bearbeiten.

Sie übernimmt die Funktion der Logik zwischen Datenbank und Oberfläche also alles was von der DB an die Oberfläche geht geht aus der Connection
als beispiel hier zb:

Code:

procedure TDataconnect.LegeSendungAn(ASendung: TSendung);

var
  neuerSeQuery: TIBOQuery;
  neuerSeTransa:TIBOTransaction;
begin
  neuerSeQuery:= TIBOQuery.Create(nil);
  neuerSeTransa:= TIBOTransaction.Create(nil);
  neuerSeTransa.IB_Connection:=neuerseQuery.IB_Connection ;
  try
    neuerSeQuery.IB_Connection:= FDataBase;
    neuerSeTransa.IB_Connection:= FDatabase;
    try
      neuerSeQuery.SQL.Text:= 'INSERT INTO Sendungsverfolgung (Status,Rechnung) Values ('+QuotedStr(ASendung.Status)+','+QuotedStr(ASendung.Rechnung)+') returning Sendungsverfolgung_ID';
      neuerSeQuery.ExecSQL;
      neuerSETransa.Commit;
    Except
      on E : Exception do
      begin
        ShowMessage('FEHLER IN LEGE Sendung AN');
        neuerSeTransa.Rollback;
      end;
    end;
  Finally
    neuerSeQuery.Free;
    neuerSeTransa.Free;
  end;
end;

und auf die funktion greift die oberfläche zu und zwar hier:::::::::::::
*SIEHE SENDUNG*

Code:

procedure TStartseite.Hinzufgen1Click(Sender: TObject);
var
  Kunde: TKunde;
  Buch: TBuch;
  Sendung: TSendung;
  Autor: TAutor;
begin
  Dateneditieren.StrGrAuswahl.Cells[0,0]:='';
  Dateneditieren.StrGrAuswahl.Cells[1,0]:='';
  if IsPositiveResult(Dateneditieren.ShowModal()) then
  begin
    case (rgAuswahl.ItemIndex) of
      0 : begin
            Kunde :=TKunde.create (0,Dateneditieren.StrGrAuswahl.Cells[0,0],Dateneditieren.strgrauswahl.cells[1,0]);
            connect.LegeKundeAn(Kunde);
            addKundetoLV(Kunde);

          end;
      1 : begin
            Sendung:= TSendung.Create(0,Dateneditieren.StrGrAuswahl.Cells[0,0],Dateneditieren.strgrauswahl.cells[1,0]);
            connect.LegeSendungAn(Sendung);
            addSendungetoLV(Sendung);
          end;
      2 : begin
            Autor:= TAutor.Create(0,dateneditieren.StrGrAuswahl.Cells[0,0],Dateneditieren.strgrauswahl.cells[1,0]);
            connect.LegeAutorAn(Autor);
            addAutortoLV(Autor);
          end;
      3 : begin
            Buch:= TBuch.Create(0,StrToInt(Dateneditieren.StrGrAuswahl.Cells[0,0]),Dateneditieren.StrGrAuswahl.Cells[1,0]);
            connect.LegeBuchAn(Buch);
            addBuchtoLV(Buch);
          end;
    else
      begin
        ShowMessage('Ups, beim Anlegen des Kunden lief etwas schief');
      end;
    end;
  end;
end;

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