FireDAC.Comp.Client.TFDCommand.AfterExecute
Delphi
property AfterExecute: TNotifyEvent read FAfterExecute write FAfterExecute;
C++
__property AfterExecute;
Inhaltsverzeichnis
Eigenschaften
Typ | Sichtbarkeit | Quelle | Unit | Übergeordnet |
---|---|---|---|---|
event | published | FireDAC.Comp.Client.pas FireDAC.Comp.Client.hpp |
FireDAC.Comp.Client | TFDCommand |
Beschreibung
Dieses Ereignis wird nach dem Ausführen der Anweisung ausgelöst.
FireDAC.Comp.Client.TFDCommand.AfterExecute erbt von FireDAC.Comp.Client.TFDCustomCommand.AfterExecute. Der folgende Inhalt bezieht sich auf FireDAC.Comp.Client.TFDCustomCommand.AfterExecute.
Dieses Ereignis wird nach dem Ausführen der Anweisung ausgelöst.
Das Ereignis AfterExecute wird ausgelöst, nachdem die Anweisung durch Aufruf der Methode Execute ausgeführt wurde.
Beispiel
procedure TForm1.ADCommand1AfterExecute(ASender: TObject);
begin
if ADCommand1.RowsAffected = -1 then
StatusBar1.SimpleText := 'Ok'
else
case ADCommand1.CommandKind of
skDelete: StatusBar1.SimpleText := Format('%d rows deleted', [ADCommand1.RowsAffected]);
skInsert: StatusBar1.SimpleText := Format('%d rows inserted', [ADCommand1.RowsAffected]);
skUpdate: StatusBar1.SimpleText := Format('%d rows updated', [ADCommand1.RowsAffected]);
else StatusBar1.SimpleText := Format('%d rows affected', [ADCommand1.RowsAffected]);
end;
end;