Class TBW_QueryFetch (unit Bwfetch)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);



Functions

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);


Properties

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

Events

Variables

formworking : tFworking ;

Public declarations

fCloseOnCancel : boolean ;


fDialogCaption : string ;


fDisplayDialog : boolean ;

Private declarations

fEnableFetch : boolean ;


fIncRecordCount : integer ;


fInterruptable : boolean ;


fMaxRecords : longint ;


fquery : tquery;



Constructors


constructor Create(AOwner: TComponent);


Functions


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);


Properties


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


Events


Variables


formworking : tFworking ;

Public declarations


fCloseOnCancel : boolean ;


fDialogCaption : string ;


fDisplayDialog : boolean ;

Private declarations


fEnableFetch : boolean ;


fIncRecordCount : integer ;


fInterruptable : boolean ;


fMaxRecords : longint ;


fquery : tquery;