API:FireDAC.Comp.Client.TFDCommand.AfterExecute
Delphi
property AfterExecute: TNotifyEvent read FAfterExecute write FAfterExecute;
C++
__property AfterExecute;
Contents
Properties
Type | Visibility | Source | Unit | Parent |
---|---|---|---|---|
event | published | FireDAC.Comp.Client.pas FireDAC.Comp.Client.hpp |
FireDAC.Comp.Client | TFDCommand |
Description
This event fires after the command is executed.
FireDAC.Comp.Client.TFDCommand.AfterExecute inherits from FireDAC.Comp.Client.TFDCustomCommand.AfterExecute. All content below this line refers to FireDAC.Comp.Client.TFDCustomCommand.AfterExecute.
This event fires after the command is executed.
The AfterExecute event fires after the command is executed by calling the Execute method.
Example
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;