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