3 Schichtversuch

[Cyberdine]

Hallo,
zuzeit befasse ich mit 3 Schichtarchitektur unter Delphi und bin da auf folgendes Problem gestoßen. Beim instanzieren des Mittleren und des untern DB(ADO)-Objekts kommt eine Fehlermeldung die besagt, dass ich Parameter bräuchte bei .Create obwohl ich garkeinen Konstruktor und somit keine Parameter implementiert habe.
Hier der Quelltext dazu

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ADOQuery: TADOQuery;
    EditVVertragsNr: TEdit;
    LabelVVertragsNr: TLabel;
    LabelVEFDatum: TLabel;
    DTPVEFDatum: TDateTimePicker;
    ButtonVSuchen: TButton;
    procedure FormShow(Sender: TObject);
    procedure ButtonVSuchenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type
  TVertrag = class(TForm1)
  private
    { Private-Deklarationen }
    iVertragsID : integer;
    sVertragsNummer : string;
    dErfasstAm : TDate;
  public
    { Public-Deklarationen }
    procedure SetVertragsNummer(VNr : string);
    procedure SetErfasstAm(EfDate : TDate);
    function GetVertragsNummer : string;
    function GetErfasstAm : TDate;
  end;

type TDBVertrag = class(TVertrag)
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    function Suchen(qry : TADOQuery) : boolean; Overload;
end;

var
  Form1: TForm1;
  Vertrag : TVertrag;
  DBVertrag : TDBVertrag;

implementation

{$R *.dfm}

{ TVertrag }

// Vertragsdatum für die GUI-Schicht auslesen
function TVertrag.GetErfasstAm: TDate;
begin
  GetErfasstAm := dErfasstAm;
end;

// Vertragsnummer für die GUI-Schicht auslesen
function TVertrag.GetVertragsNummer: string;
begin
  GetVertragsNummer := sVertragsNummer;
end;

// Vertragsdatum in der Mittelschicht eintragen
procedure TVertrag.SetErfasstAm(EfDate: TDate);
begin
  dErfasstAm := EfDate;
end;

// Vertragsnummer in der Mittelschicht eintragen
procedure TVertrag.SetVertragsNummer(VNr: string);
begin
  sVertragsNummer := VNr;
end;

{ TDBVertrag }

// ADO - Vertrag suchen
function TDBVertrag.Suchen(qry: TADOQuery): boolean;
var
  statement : string;
  bcheck : boolean;
begin
  bcheck := true;
  with qry do
  begin
    Close;
    SQL.Clear;
    statement := 'select * from VERTRAG order by ERFASSTAM asc';
    SQL.Text := statement;
  end;
  qry.ExecSQL;
  DMAdo.ADOConnection.BeginTrans;
  DMAdo.ADOConnection.CommitTrans;
  qry.Open;
  exit(true);
end;

// Button Vertrag suchen
procedure TForm1.ButtonVSuchenClick(Sender: TObject);
var
  stmp : string;
begin
  stmp := '';
  if (DBVertrag.Suchen(ADOQuery = true)) then
  begin
    stmp := ADOQuery.FieldByName('VERTRAGSNR').Value;
    Vertrag.SetVertragsNummer(stmp);
    EditVVertragsNr.Text := Vertrag.GetVertragsNummer;
  end;

end;

// Hauptformular laden
procedure TForm1.FormShow(Sender: TObject);
var
  bError : boolean;
  sVerbindungsString : string;
begin
  DMAdo := sVerbindungsString;
  try
    if(DMAdo.ADOConnection.Connected) then
      Exit;

    DMAdo.ADOConnection.Open;
  except // Benutzername oder Passwort nicht korrekt
    bError := False;
  end;
  ADOQuery.Connection := DMAdo.ADOConnection;

  Vertrag := TVertrag.Create();
  DBVertrag := TDBVertrag.Create();
end;

end.

[Neutral General]

Hallo,

Ganz einfach: Leite deinen TVertrag nicht von TForm1 ab.
Das macht einfach überhaupt keinen Sinn. Daher hast du auch den constructor von TForm geerbt.

Einfach

Delphi-Quellcode:

TVertrag = class(TForm1)

in

Delphi-Quellcode:

TVertrag = class

ändern

[Furtbichler]

Ich weiß jetzt auch nicht so genau, ob das das eine 3-Schicht Architektur ist (3-Tier). So wie ich das verstanden habe, sind die Schichten so aufgeteilt
1. Datenbank
2. Applikationsserver mit Mittelschicht, der sich mit der/den Datenbanken verbindet
3. Client, die die Daten von der 2.Schicht abholen und dorthin zurück schicken

Jedenfalls hab ich das immer so programmiert und das als 3-Tier verkauft.

[Sir Rufo]

Irgendwie ist das aber kein 3-Schichten-Modell sondern MVC (Model-View-Controller) bzw. MVVM (Model-View-ViewModel)

Zitat:

Zitat von Furtbichler (Beitrag 1208863)

Ich weiß jetzt auch nicht so genau, ob das das eine 3-Schicht Architektur ist (3-Tier). So wie ich das verstanden habe, sind die Schichten so aufgeteilt
1. Datenbank
2. Applikationsserver mit Mittelschicht, der sich mit der/den Datenbanken verbindet
3. Client, die die Daten von der 2.Schicht abholen und dorthin zurück schicken

Jedenfalls hab ich das immer so programmiert und das als 3-Tier verkauft.

:thumb:

[QuickAndDirty]

Zitat:

Zitat von Furtbichler (Beitrag 1208863)

Ich weiß jetzt auch nicht so genau, ob das das eine 3-Schicht Architektur ist (3-Tier). So wie ich das verstanden habe, sind die Schichten so aufgeteilt
1. Datenbank
2. Applikationsserver mit Mittelschicht, der sich mit der/den Datenbanken verbindet
3. Client, die die Daten von der 2.Schicht abholen und dorthin zurück schicken

Jedenfalls hab ich das immer so programmiert und das als 3-Tier verkauft.

Und ich dachte immer, dass das eine normale old schoolige Client-Server-Architektur ist...also kann ich an sowas 3-Tier-Architektur dran kleben?
Weil das hört sich schon viel weniger altbacken an als Client-Server-Architektur.

[QuickAndDirty]

Zitat:

Zitat von Sir Rufo (Beitrag 1208864)

Irgendwie ist das aber kein 3-Schichten-Modell sondern MVC (Model-View-Controller) bzw. MVVM (Model-View-ViewModel)

???
Alles ohne Interfaces und mit globalen Variablen in einer Unit?

[Sir Rufo]

Zitat:

Zitat von QuickAndDirty (Beitrag 1208873)

Zitat:

Zitat von Furtbichler (Beitrag 1208863)

Ich weiß jetzt auch nicht so genau, ob das das eine 3-Schicht Architektur ist (3-Tier). So wie ich das verstanden habe, sind die Schichten so aufgeteilt
1. Datenbank
2. Applikationsserver mit Mittelschicht, der sich mit der/den Datenbanken verbindet
3. Client, die die Daten von der 2.Schicht abholen und dorthin zurück schicken

Jedenfalls hab ich das immer so programmiert und das als 3-Tier verkauft.

Und ich dachte immer, dass das eine normale old schoolige Client-Server-Architektur ist...also kann ich an sowas 3-Tier-Architektur dran kleben?
Weil das hört sich schon viel weniger altbacken an als Client-Server-Architektur.

Eine 3-Schicht-Architektur ist auch eine Client-Server-Architektur.
Eine Client-Server-Architektur ist aber nicht auch automatisch eine 3-Schicht-Architektur

[Sir Rufo]

Zitat:

Zitat von QuickAndDirty (Beitrag 1208875)

Zitat:

Zitat von Sir Rufo (Beitrag 1208864)

Irgendwie ist das aber kein 3-Schichten-Modell sondern MVC (Model-View-Controller) bzw. MVVM (Model-View-ViewModel)

???
Alles ohne Interfaces und mit globalen Variablen in einer Unit?

OK, ich hätte wohl eher schreiben sollen

Zitat:

... der Versuch ...

:mrgreen:

Aber das stand ja schon im Titel ;)

[QuickAndDirty]

Zitat:

Zitat von Sir Rufo (Beitrag 1208879)

OK, ich hätte wohl eher schreiben sollen

Zitat:

... der Versuch ...

:mrgreen:

Aber das stand ja schon im Titel ;)

Es wird einem mit Delphi auch nicht leicht gemacht. Wäre es sinnvoll Muster/Demo Projekte für derartige Design Pattern in der CodeLib zur Verfügung zu stellen?
MVC, MVP, MVVM,...
Und eine Muster Projektgruppe für eine 3 Schicht Architektur?

[Sir Rufo]

Zitat:

Zitat von QuickAndDirty (Beitrag 1208894)

Zitat:

Zitat von Sir Rufo (Beitrag 1208879)

OK, ich hätte wohl eher schreiben sollen

Zitat:

... der Versuch ...

:mrgreen:

Aber das stand ja schon im Titel ;)

Es wird einem mit Delphi auch nicht leicht gemacht. Wäre es sinnvoll Muster/Demo Projekte für derartige Design Pattern in der CodeLib zur Verfügung zu stellen?
MVC, MVP, MVVM,...
Und eine Muster Projektgruppe für eine 3 Schicht Architektur?

Nun es wird nicht unbedingt erschwert, aber der RAD Ansatz verleitet halt den Weg des geringsten Wiederstands zu gehen ;)

Sinnvoll und wünschenswert wäre sowas durchaus