Class TOEExtHstmt (unit oenav)

Inherits from

THstmt

Constructors


constructor Create(Owner: TComponent);

TOEExtHstmt


Functions

procedure eCancel;


procedure eDelete;

post any changed

procedure eFirst;

must have been at end, reset to last

procedure eInsert(var iContinue: Boolean);

put it back } { FetchPrev;{ try to put it to a valid record before the one that was deleted

procedure eLast;


procedure eNext;

must have been at first, therefore reset to first

procedure ePost;


procedure ePrior;

function TExtHstmt.

procedure eRefresh;


Properties

property AfterCancel : EFetchEvent


property AfterDelete : EFetchEvent


property AfterFirst : EFetchEvent


property AfterInsert : TNotifyEvent


property AfterLast : EFetchEvent


property AfterNext : EFetchEvent


property AfterPost : EFetchEvent


property AfterPrior : EFetchEvent

function execute: Boolean; override;

property AfterRefresh : EFetchEvent


property BeforeCancel : EBeforeUpdateEvent


property BeforeDelete : EBeforeUpdateEvent


property BeforePost : EBeforeUpdateEvent


property BeforeRefresh : EBeforeUpdateEvent


Events

event OnError : EErrorEvent


event OnInsert : TOnInsertEvent


Variables

FAfterCancel : EFetchEvent;


FAfterDelete : EFetchEvent;


FAfterFirst : EFetchEvent;


FAfterInsert : TNotifyEvent;


FAfterLast : EFetchEvent;


FAfterNext : EFetchEvent;


FAfterPost : EFetchEvent;


FAfterPrior : EFetchEvent;


FAfterRefresh : EFetchEvent;


FBeforeCancel : EBeforeUpdateEvent;


FBeforeDelete : EBeforeUpdateEvent;


FBeforePost : EBeforeUpdateEvent;


FBeforeRefresh : EBeforeUpdateEvent;


FOnError : EErrorEvent;


FOnInsert : TOnInsertEvent;



Constructors


constructor Create(Owner: TComponent);

TOEExtHstmt


Functions


procedure eCancel;


procedure eDelete;

post any changed


procedure eFirst;

must have been at end, reset to last


procedure eInsert(var iContinue: Boolean);

put it back } { FetchPrev;{ try to put it to a valid record before the one that was deleted


procedure eLast;


procedure eNext;

must have been at first, therefore reset to first


procedure ePost;


procedure ePrior;

function TExtHstmt.execute: Boolean; begin Result := inherited execute; if Result then begin FEOF := False; FBOF := True; end else begin FEOF := False; FBOF := False; end; end;


procedure eRefresh;


Properties


property AfterCancel : EFetchEvent


property AfterDelete : EFetchEvent


property AfterFirst : EFetchEvent


property AfterInsert : TNotifyEvent


property AfterLast : EFetchEvent


property AfterNext : EFetchEvent


property AfterPost : EFetchEvent


property AfterPrior : EFetchEvent

function execute: Boolean; override;


property AfterRefresh : EFetchEvent


property BeforeCancel : EBeforeUpdateEvent


property BeforeDelete : EBeforeUpdateEvent


property BeforePost : EBeforeUpdateEvent


property BeforeRefresh : EBeforeUpdateEvent


Events


event OnError : EErrorEvent


event OnInsert : TOnInsertEvent


Variables


FAfterCancel : EFetchEvent;


FAfterDelete : EFetchEvent;


FAfterFirst : EFetchEvent;


FAfterInsert : TNotifyEvent;


FAfterLast : EFetchEvent;


FAfterNext : EFetchEvent;


FAfterPost : EFetchEvent;


FAfterPrior : EFetchEvent;


FAfterRefresh : EFetchEvent;


FBeforeCancel : EBeforeUpdateEvent;


FBeforeDelete : EBeforeUpdateEvent;


FBeforePost : EBeforeUpdateEvent;


FBeforeRefresh : EBeforeUpdateEvent;


FOnError : EErrorEvent;


FOnInsert : TOnInsertEvent;