OnBeforeStatement event fires immediately before execution of SQL statement from SQL script by ExecSQL method.

Syntax:

type
  TMySqlBatchBeforeStatementEvent = procedure(Sender: TObject;
                                             SQLText: string;
  const StatementNo: Integer;
          var Allow: boolean) of object; 
  OnBeforeStatement: TMySqlBatchBeforeStatementEvent;

Description:

Parameters:

SQLText

SQL query statement text;

StatementNo

The number of the SQL statement in SQL script.

Allow

Sets if allow this statement execution (TRUE) or no (FALSE).