TCustomSQLScript

type TCustomSQLScript = class(TComponent)

protected

  procedure ClearStatement; virtual;

  procedure InternalStatement(); virtual;

  procedure InternalDirective(); virtual;

  procedure InternalCommit(); virtual;

  function ProcessConditional(); virtual;

  function NextStatement; virtual;

  procedure ProcessStatement; virtual;

  function Available; virtual;

  procedure DefaultDirectives; virtual;

  procedure ExecuteStatement(); virtual; abstract;

  procedure ExecuteDirective(); virtual; abstract;

  procedure ExecuteCommit(); virtual; abstract;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Execute; virtual;

protected

  property Aborted: Boolean; [r]

  property Line: Integer; [r]

  property AutoCommit: Boolean; [rw]

  property CommentsInSQL: Boolean; [rw]

  property UseSetTerm: Boolean; [rw]

  property UseCommit: Boolean; [rw]

  property UseDefines: Boolean; [rw]

  property UseDollarString: Boolean; [rw]

  property DollarStrings: TStrings; [rw]

  property Defines: TStrings; [rw]

  property Directives: TStrings; [rw]

  property Script: TStrings; [rw]

  property Terminator: AnsiString; [rw]

  property OnException: TSQLScriptExceptionEvent; [rw]

end;

TCustomSQLScript

TObject