TghSQLHandler

type TghSQLHandler = class(TghSQLStatement)

protected

  FIsBatch: Boolean;

  FPacketRecords: Integer;

  FPrepared: Boolean;

  FBeforeOpen: TNotifyEvent;

  FAfterOpen: TDataSetNotifyEvent;

  FBeforePost: TNotifyEvent;

  FAfterPost: TNotifyEvent;

  FBeforeExecute: TNotifyEvent;

  FAfterExecute: TNotifyEvent;

  procedure SetPacketRecords(); virtual;

  procedure DoBeforeOpen;

  procedure DoAfterOpen();

  procedure DoBeforePost;

  procedure DoAfterPost;

  procedure DoBeforeExecute;

  procedure DoAfterExecute;

  procedure InternalOpen(); virtual;

  function InternalExecute(); virtual;

public

  constructor Create; override;

  procedure Assign(); override;

  procedure AssignEvents(); virtual;

  procedure Clear; override;

  procedure Open(); virtual;

  function Execute; virtual;

  property IsBatch: Boolean; [rw]

  property PacketRecords: Integer; [rw]

  property Prepared: Boolean; [rw]

  property BeforeOpen: TNotifyEvent; [rw]

  property AfterOpen: TDataSetNotifyEvent; [rw]

  property BeforePost: TNotifyEvent; [rw]

  property AfterPost: TNotifyEvent; [rw]

  property BeforeExecute: TNotifyEvent; [rw]

  property AfterExecute: TNotifyEvent; [rw]

end;

TghSQLHandler

TghSQLStatement

TghSQLObject

TghDataObject

TghObject

TObject