OOP Grundsatzfrage Klasse TKunde

[khh]

Hallo zusammen,

ich habe eine Klasse Kunde, die alles erledigt, was mit dem Kunden an sich zu tun hat.
Also speichern in DB, ändern in DB, zugehörige Plausibilitätsprüfungen usw.
Jetzt habe ich eine DB-Tabelle "Nummernkreise" in der diverse Nummernkreise definiert sind.
In dieser hole ich die letzte kdnr und setze diese,nach dem Speichern des Kunden auch dort entsprechend hoch.
Jetz bin ich mir nicht sicher, unter Berücksichtigung irgendwelcher Grundsätze zur OOP, ob ich diese "Arbeit", also das Holen und Speichern des Kd-Nummernkreises die Klasse erledigen lassen soll, oder dies auserhalb der Klasse erledige.
Oder ist das eigentlich schnurzegal.


Danke für eure Meinungen.



Gruss KH

[mkinzler]

Gibt es auch andere Nummernkreise?

[khh]

Zitat:

Zitat von mkinzler

Gibt es auch andere Nummernkreise?

ja, diese sind alle in der Tabelle nummernkreise.

[DeddyH]

Gibt es denn auch eine Nummernkreis-Klasse? Wenn ja, gehört m.E.n. eine Referenz davon in die Kundenklasse, die Nummerkreisverwaltung wird dann von diesem Objekt übernommen.

[sx2008]

Zitat:

Zitat von khh

ich habe eine Klasse Kunde, die alles erledigt, was mit dem Kunden an sich zu tun hat.
Also speichern in DB, ändern in DB, zugehörige Plausibilitätsprüfungen usw.

Das ist zuviel Arbeit für eine Klasse.
Eine Klasse soll ein eng umrissenes Aufgabengebiet bearbeiten.
Zuviel in einer Klasse wäre ein Antipattern (God-Object).
Du kannst z.B. die Plausiprüfungen in eine eigene Klasse auslagern:

Delphi-Quellcode:

TCustomerPlausi = class(TPersistent)
private
  FCustomer : TCustomer;
  procedure PlausiCheckA;
  procedure PlausiCheckB;
  ..
public
  constructor Create(ACustomer:TCustomer);
  procedure DoAllChecks;
end;

Dadurch, dass die Klasse TCustomerPlausi im Konstruktor ein TCustomer-Objekt übergeben bekommt,
kann es die Plausiprüfungen durchführen.
Das lohnt aber erst dann, wenn die Plausiprüfungen recht umfangreich werden.

Ob eine Klasse einen Job selber erledigt oder an eine andere Klasse delegiert,
ist immer abhängig von der jeweiligen Aufgabenstellung.

Was man aber auf jeden Fall sagen kann, ist dass du eine Klasse für die Nummernkreise benötigst.
Ein Objekt von TNummernkreis ist dann in deiner Kundenklasse eingebettet.

[khh]

Zitat:

Zitat von sx2008

Dadurch, dass die Klasse TCustomerPlausi im Konstruktor ein TCustomer-Objekt übergeben bekommt,
kann es die Plausiprüfungen durchführen.
Das lohnt aber erst dann, wenn die Plausiprüfungen recht umfangreich werden.

Ob eine Klasse einen Job selber erledigt oder an eine andere Klasse delegiert,
ist immer abhängig von der jeweiligen Aufgabenstellung.

Was man aber auf jeden Fall sagen kann, ist dass du eine Klasse für die Nummernkreise benötigst.
Ein Objekt von TNummernkreis ist dann in deiner Kundenklasse eingebettet.

ok, also eine eigene Klasse für die Nummernkreise.
und die Klasse für die Plausibilitätsprüfungen ist nur für die klasse TKunden.

Gönnt Ihr eigentlich jeder Klasse eine eigene Datei, oder fasst Ihr mehrere Klassen in einem File zusammen ?


Gruss Kh

[mkinzler]

Ich würde so großzügig sein

[khh]

hallo zusammen,
also ich habe jetzt eine Klasse:

TCustomerPlausi = class(TPersistent)
private
FCustomer : TCustomer;
procedure PlausiCheckA;
procedure PlausiCheckB;
..
public
constructor Create(ACustomer:TCustomer);
procedure DoAllChecks;
end;

der Tcustomer hat eine property
die public so deklariert ist:

property plz: string read Fplz write Fplz;

wen ich jetzt in der procedure PlausiCkeckA auf die property plz mit
xy := TCustomer.PLZ ; zugreife bekomme ich eine meldung:

Error: Only class methods can be referred with class references.


Wie funktioniert das richtig,was mache ich falsch, wie komme ich an die property?


danek gruss KH

[DeddyH]

Bitte künftig die Delphi-Tags benutzen. Und ändere mal

Zitat:

Delphi-Quellcode:

xy := TCustomer.PLZ ;

in

Delphi-Quellcode:

xy := FCustomer.PLZ ;

[khh]

Zitat:

Zitat von DeddyH

Bitte künftig die Delphi-Tags benutzen. Und ändere mal

Zitat:

Delphi-Quellcode:

xy := TCustomer.PLZ ;

in

Delphi-Quellcode:

xy := FCustomer.PLZ ;

das hatte ich erst so versucht, da bekomme ich aber eine exception :-(