Class TMyPg3Form (unit MyPg3)

Inherits from

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

Fits Tabsheet for this demo.

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;



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;