Class TOEExtHstmt (unit oenav) |
Inherits from
THstmt
constructor Create(Owner: TComponent);
- TOEExtHstmt
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;
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
event OnError : EErrorEvent
event OnInsert : TOnInsertEvent
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;
constructor Create(Owner: TComponent);
TOEExtHstmt
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;
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
event OnError : EErrorEvent
event OnInsert : TOnInsertEvent
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;