| Class TMyPg3Form (unit MyPg3) |
TForm
**********************************************************} {* BSS Tip of the Week *} {* Copyright (c) Business Software Systems, Inc. 1995-1997 *} {* All rights reserved. *} {
| Constructors |
| Functions |
procedure b_GetFromMainClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SetForm(const aDB: TDatabase; const aFrm: TForm;
const aDS: TDataSource);| Properties |
| Events |
| Variables |
BSSNavigator1 : TBSSNavigator;
b_GetFromMain : TButton;
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
l_ct : TLabel;
l_MyPg3Form : TLabel;
Table1 : TTable;
aDatabase : TDatabase;
aDataSource : TDataSource;
aForm : TForm;| Constructors |
| Functions |
procedure b_GetFromMainClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SetForm(const aDB: TDatabase; const aFrm: TForm;
const aDS: TDataSource);Fits Tabsheet for this demo. SetBounds(0, 0, 784, 446); // Fits Tabsheet of full size BSS AF Form. Run this code with SetFromFunc instead of calling SetForm. {aDatabase := i_Database; aForm := i_Form; aDataSource := i_DataSource; with Table1 do begin Close; DatabaseName := aDatabase.DatabaseName; MasterSource := aDataSource; MasterFields := 'PROJ_ID'; end; inherited; // Call FrameWork Inherited Code.
| Properties |
| Events |
| Variables |
BSSNavigator1 : TBSSNavigator;
b_GetFromMain : TButton;
DataSource1 : TDataSource;
DBGrid1 : TDBGrid;
l_ct : TLabel;
l_MyPg3Form : TLabel;
Table1 : TTable;
aDatabase : TDatabase;Private declarations
aDataSource : TDataSource;
aForm : TForm;