API:FireDAC.Comp.Client.TFDCommand.AfterExecute

Aus RAD Studio API Documentation

Delphi

property AfterExecute: TNotifyEvent read FAfterExecute write FAfterExecute;

C++

__property AfterExecute;

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. {{#multireplace:FireDAC.Comp.Client.TFDCommand.AfterExecute|H21=!|H25=%|H28=(|H29=)|H2A=*|H2B=+|H2F=/|H3C=<|H3D==|H3E=>|H5B=[|H5D=]|H5E=^|H7C=|}} erbt von {{#multireplace:FireDAC.Comp.Client.TFDCustomCommand.AfterExecute|H21=!|H25=%|H28=(|H29=)|H2A=*|H2B=+|H2F=/|H3C=<|H3D==|H3E=>|H5B=[|H5D=]|H5E=^|H7C=|}}. Der folgende Inhalt bezieht sich auf {{#multireplace:FireDAC.Comp.Client.TFDCustomCommand.AfterExecute|H21=!|H25=%|H28=(|H29=)|H2A=*|H2B=+|H2F=/|H3C=<|H3D==|H3E=>|H5B=[|H5D=]|H5E=^|H7C=|}}.

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;

Siehe auch