Class TDataCollector (unit Datacole) |
Inherits from
TComponent
This is the definition of the tDataCollector component. It is this
component that is installed in your component palette.
constructor Create(AOwner : tComponent);
- Public declarations
--------------------------------------------------------------------------- } { ------- tDataCollector Code starts here --------------------------------- } { ---------------------------------------------------------------------------
procedure CheckAfterSQL;
---------------------------------------------------------------------------
procedure CheckBeforeSQL;
---------------------------------------------------------------------------
function Execute : boolean;
--------------------------------------------------------------------------- }
This is the main function that start the ball rolling for the component.
function GetDataGrids(var Count : integer) : tList;
---------------------------------------------------------------------------
procedure RebuildSQL;
---------------------------------------------------------------------------
property AfterSQL : TAfterSQLEvent
property AllowOR : boolean
property BeforeSQL : TScreenGridEvent
property DebugMode : boolean
Published declarations
property HelpContext : tHelpContext
property PrintCaption : string
property ShowPrintButtons : boolean
property SourceTable : tTable
property SplitDates : boolean
property SQLFields : string
property SQLSortOrder : string
property TableSetup : tScreenGridEvent
property WindowCaption : string
property DataGrid : tStringGrid
property ResultQuery : tQuery
event OnReportPreview : TPrintReportEvent
event OnReportPrint : TPrintReportEvent
FAfterSQLEvent : tAfterSQLEvent;
FAllowOR : boolean;
FBeforeSQLEvent : TScreenGridEvent;
FDebugMode : boolean;
FFields : string;
FGrid : tStringGrid;
fHelpId : tHelpContext;
Source table
FOnReportPreview : tPrintReportEvent;
FOnReportPrint : tPrintReportEvent;
Private declarations
FPrintCaption : string;
FQuery : tQuery;
FShowPrint : boolean;
FSort : string;
FSplitDates : boolean;
FTable : tTable;
FTableSetup : tScreenGridEvent;
FWinCaption : string;
constructor Create(AOwner : tComponent);
Public declarations
--------------------------------------------------------------------------- } { ------- tDataCollector Code starts here --------------------------------- } { ---------------------------------------------------------------------------
procedure CheckAfterSQL;
---------------------------------------------------------------------------
procedure CheckBeforeSQL;
---------------------------------------------------------------------------
function Execute : boolean;
--------------------------------------------------------------------------- }
This is the main function that start the ball rolling for the component.
function GetDataGrids(var Count : integer) : tList;
---------------------------------------------------------------------------
procedure RebuildSQL;
---------------------------------------------------------------------------
property AfterSQL : TAfterSQLEvent
property AllowOR : boolean
property BeforeSQL : TScreenGridEvent
property DebugMode : boolean
Published declarations
property HelpContext : tHelpContext
property PrintCaption : string
property ShowPrintButtons : boolean
property SourceTable : tTable
property SplitDates : boolean
property SQLFields : string
property SQLSortOrder : string
property TableSetup : tScreenGridEvent
property WindowCaption : string
property DataGrid : tStringGrid
property ResultQuery : tQuery
event OnReportPreview : TPrintReportEvent
event OnReportPrint : TPrintReportEvent
FAfterSQLEvent : tAfterSQLEvent;
FAllowOR : boolean;
FBeforeSQLEvent : TScreenGridEvent;
FDebugMode : boolean;
FFields : string;
FGrid : tStringGrid;
fHelpId : tHelpContext;
Source table
FOnReportPreview : tPrintReportEvent;
FOnReportPrint : tPrintReportEvent;
Private declarations
FPrintCaption : string;
FQuery : tQuery;
FShowPrint : boolean;
FSort : string;
FSplitDates : boolean;
FTable : tTable;
FTableSetup : tScreenGridEvent;
FWinCaption : string;