| Class TBW_QueryFetch (unit Bwfetch) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
function Execute : longInt ;
function Working_recordCount( sMsg : string ; bShowProgress : boolean ) : longint ;result := result + 1 ; {add one because the first record started at 0
procedure setEnableFetch( value : boolean ) ;
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| Events |
| Variables |
formworking : tFworking ;
fCloseOnCancel : boolean ;
fDialogCaption : string ;
fDisplayDialog : boolean ;
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 : tqueryPublished 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;