Class TBW_QueryFetch (unit Bwfetch) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
destructor Destroy;
function Execute : longInt ;
if NOT fEnabled then
fCloseOnCancel := false ;
function Working_recordCount( sMsg : string ; bShowProgress : boolean ) : longint ;
Protected declarations result := result + 1 ; {add one because the first record started at 0
procedure setEnableFetch( value : boolean ) ;
should check design state here.
procedure SetMaxRecords(Value: longInt);
property CloseOnCancel : boolean
property DialogCaption : string
property DisplayDialog : boolean
property EnableFetch : boolean
property IncRecordCount : integer
property Interruptable : boolean
property MaxRecords : longint
property Query : tquery
Published declarations
formworking : tFworking ;
Public declarations
fCloseOnCancel : boolean ;
fDialogCaption : string ;
fDisplayDialog : boolean ;
Private declarations
fEnableFetch : boolean ;
fIncRecordCount : integer ;
fInterruptable : boolean ;
fMaxRecords : longint ;
fquery : tquery;
constructor Create(AOwner: TComponent);
destructor Destroy;
function Execute : longInt ;
if NOT fEnabled then
fCloseOnCancel := false ;
function Working_recordCount( sMsg : string ; bShowProgress : boolean ) : longint ;
Protected declarations
result := result + 1 ; {add one because the first record started at 0
procedure setEnableFetch( value : boolean ) ;
should check design state here...
procedure SetMaxRecords(Value: longInt);
property CloseOnCancel : boolean
property DialogCaption : string
property DisplayDialog : boolean
property EnableFetch : boolean
property IncRecordCount : integer
property Interruptable : boolean
property MaxRecords : longint
property Query : tquery
Published declarations
formworking : tFworking ;
Public declarations
fCloseOnCancel : boolean ;
fDialogCaption : string ;
fDisplayDialog : boolean ;
Private declarations
fEnableFetch : boolean ;
fIncRecordCount : integer ;
fInterruptable : boolean ;
fMaxRecords : longint ;
fquery : tquery;