Einzelnen Beitrag anzeigen

Cyberdine

Registriert seit: 21. Mai 2012
26 Beiträge
 
#11

AW: 3 Schichtversuch

  Alt 26. Mär 2013, 15:54
Das Problem mit "getrennten" Schichten seh ich hier

Delphi-Quellcode:
// 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;
Da verschwimmen alle 3 Schichten zusammen aber eigentlich sollten alle 3 Schichten klar getrennt sein. Ich frage mich nur, wie trenn ich das jetzt sauber?
Irgendwie muß ja Die Vertragsnummer "sauber" von der DB (ADO) Schicht über die Mittelschicht zum Frontend kommen.
  Mit Zitat antworten Zitat