3 Schichtversuch

Thema durchsuchen

Ansicht

Themen-Optionen

Ein Thema von Cyberdine · begonnen am 26. Mär 2013 · letzter Beitrag vom 30. Mär 2013

Vorheriger Beitrag

Nächster Beitrag

Cyberdine

Registriert seit: 21. Mai 2012
26 Beiträge

#13

AW: 3 Schichtversuch

26. Mär 2013, 15:06

Also währe das so sauberer?

markieren

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.