API:FireDAC.Comp.Client.TFDCommand.AfterExecute

• Übergeordnet: TFDCommand

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.

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;

Siehe auch

• FireDAC.Comp.Client.TFDCustomCommand.BeforeExecute
• FireDAC.Comp.Client.TFDCustomCommand.Execute