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.