Class TfrmSetupQuery (unit Datacole)

Inherits from

TForm

This is the declaration for the user-interface part of the component. This form will be called by the tDataCollector component.

Constructors



Functions

procedure AddCondition1Click(Sender: TObject);

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

procedure Close1Click(Sender: TObject);

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

procedure DataGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

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

procedure DataGridKeyPress(Sender: TObject; var Key: Char);

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

procedure DeleteCondition1Click(Sender: TObject);

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

procedure FormActivate(Sender: TObject);

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

procedure FormCreate(Sender: TObject);

------------------------------------------------------------------------ } { ------- TfrmSetupQuery code starts here ------------------------------ } { ------------------------------------------------------------------------

procedure FormDestroy(Sender: TObject);

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

procedure ManuallysetSQLcriteria1Click(Sender: TObject);

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

procedure PreviewDataClick(Sender: TObject);

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

procedure PrintPreviewClick(Sender: TObject);

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

procedure PrintReportClick(Sender: TObject);

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

procedure TabSetClick(Sender: TObject);

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

procedure BuildConditions;

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

procedure BuildQuery;

--------------------------------------------------------------------------- } This routine will take the information the user entered into the grid and create an SQL statement to extract the data.

procedure ResetGrid;

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

procedure SetGridFromTable(DataSet : tDataSet);

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

procedure UpdateSQLDisplayLabels;

Private declarations

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


Properties

Events

Variables

AddCondition1 : TMenuItem;


Close1 : TMenuItem;


DataGrid : TStringGrid;


DataGrid2 : TStringGrid;


DataGrid3 : TStringGrid;


DataGrid4 : TStringGrid;


DataGrid5 : TStringGrid;


DataGrid6 : TStringGrid;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


DBNavigator1 : TDBNavigator;


DeleteCondition1 : TMenuItem;


MainMenu1 : TMainMenu;


ManuallysetSQLcriteria1 : TMenuItem;


Notebook : TNotebook;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


Panel5 : TPanel;


Panel6 : TPanel;


PreviewData : TBitBtn;


PrintPreview : TBitBtn;


PrintReport : TBitBtn;


RefGrid : TStringGrid;


SQLStatus : TPanel;


TabSet : TTabSet;


WhereClause : TMemo;


Collector : tDataCollector;


Conditions : integer;


DataQuery : TQuery;


GridList : tList;

Public declarations

OrderLine : string;


TableLine : string;



Constructors


Functions


procedure AddCondition1Click(Sender: TObject);

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


procedure Close1Click(Sender: TObject);

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


procedure DataGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

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


procedure DataGridKeyPress(Sender: TObject; var Key: Char);

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


procedure DeleteCondition1Click(Sender: TObject);

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


procedure FormActivate(Sender: TObject);

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


procedure FormCreate(Sender: TObject);

------------------------------------------------------------------------ } { ------- TfrmSetupQuery code starts here ------------------------------ } { ------------------------------------------------------------------------


procedure FormDestroy(Sender: TObject);

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


procedure ManuallysetSQLcriteria1Click(Sender: TObject);

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


procedure PreviewDataClick(Sender: TObject);

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


procedure PrintPreviewClick(Sender: TObject);

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


procedure PrintReportClick(Sender: TObject);

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


procedure TabSetClick(Sender: TObject);

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


procedure BuildConditions;

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


procedure BuildQuery;

--------------------------------------------------------------------------- } This routine will take the information the user entered into the grid and create an SQL statement to extract the data.


procedure ResetGrid;

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


procedure SetGridFromTable(DataSet : tDataSet);

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


procedure UpdateSQLDisplayLabels;

Private declarations

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


Properties


Events


Variables


AddCondition1 : TMenuItem;


Close1 : TMenuItem;


DataGrid : TStringGrid;


DataGrid2 : TStringGrid;


DataGrid3 : TStringGrid;


DataGrid4 : TStringGrid;


DataGrid5 : TStringGrid;


DataGrid6 : TStringGrid;


DataSource1 : TDataSource;


DBGrid1 : TDBGrid;


DBNavigator1 : TDBNavigator;


DeleteCondition1 : TMenuItem;


MainMenu1 : TMainMenu;


ManuallysetSQLcriteria1 : TMenuItem;


Notebook : TNotebook;


Panel1 : TPanel;


Panel2 : TPanel;


Panel3 : TPanel;


Panel4 : TPanel;


Panel5 : TPanel;


Panel6 : TPanel;


PreviewData : TBitBtn;


PrintPreview : TBitBtn;


PrintReport : TBitBtn;


RefGrid : TStringGrid;


SQLStatus : TPanel;


TabSet : TTabSet;


WhereClause : TMemo;


Collector : tDataCollector;


Conditions : integer;


DataQuery : TQuery;


GridList : tList;

Public declarations


OrderLine : string;


TableLine : string;