Einzelnen Beitrag anzeigen

Cyberdine

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

AW: 3 Schichtversuch

  Alt 26. Mär 2013, 16:06
Also währe das so sauberer?

Delphi-Quellcode:
// Button Vertrag suchen
procedure TForm1.ButtonVSuchenClick(Sender: TObject);
begin
  Vertrag.Suchen;
  EditVVertragsNr.Text := Vertrag.GetVertragsNummer;
end;
Vertrag.Suchen leitet die Anfrage weiter an die DB(ADO)-Schicht, von dieser wird dann mit "Set" die Vertragsnummer im Objekt Vertrag aus der Query gesetzt(übertragen) und hier bei ButtonSuchen letztendlich an das Frontend weitergegeben.
  Mit Zitat antworten Zitat