FireDAC.Comp.Client.TFDCustomCommand.AfterExecute
Delphi
property AfterExecute: TNotifyEvent read FAfterExecute write FAfterExecute;
C++
__property System::Classes::TNotifyEvent AfterExecute = {read=FAfterExecute, write=FAfterExecute};
Propriétés
Type | Visibilité | Source | Unité | Parent |
---|---|---|---|---|
event | public | FireDAC.Comp.Client.pas FireDAC.Comp.Client.hpp |
FireDAC.Comp.Client | TFDCustomCommand |
Description
Cet événement se déclenche après l'exécution de la commande.
L'événement AfterExecute se déclenche après l'exécution de la commande en appelant la méthode Execute.
Exemple
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;