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.

Constructors


constructor Create(AOwner : tComponent);

Public declarations

--------------------------------------------------------------------------- } { ------- tDataCollector Code starts here --------------------------------- } { ---------------------------------------------------------------------------



Functions

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;

---------------------------------------------------------------------------

Properties

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


Events

event OnReportPreview : TPrintReportEvent


event OnReportPrint : TPrintReportEvent


Variables

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;



Constructors


constructor Create(AOwner : tComponent);

Public declarations

--------------------------------------------------------------------------- } { ------- tDataCollector Code starts here --------------------------------- } { ---------------------------------------------------------------------------


Functions


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;

---------------------------------------------------------------------------


Properties


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


Events


event OnReportPreview : TPrintReportEvent


event OnReportPrint : TPrintReportEvent


Variables


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;