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.