FireDAC.Comp.Client.TFDCustomCommand.AfterExecute

De RAD Studio API Documentation
Aller à : navigation, rechercher

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;

Voir aussi