| Class TfrmSetupQuery (unit Datacole) |
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);
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;
procedure ResetGrid;
procedure SetGridFromTable(DataSet : tDataSet);
procedure UpdateSQLDisplayLabels;---------------------------------------------------------------------------
| 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;
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;