Class TfrmEditMaster (unit TestEditMasterForm)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);


procedure CheckBox1Click(Sender: TObject);


function DbTreeLookupComboBox2CreateTreeSelect: TTreeSelect;


procedure DbTreeLookupComboBox3AcceptNode(Node: TTreeNode; var Accept: Boolean);

no warning please, this event is for documentation only } { We can use this event to create a special TreeSelect-form for DbTreeLookupComboBox2.

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

The first dropdown of DbTreeLookupComboBox1 gets faster too:

procedure tblDetailCalcFields(DataSet: TDataSet);

We will only accept the leaves of the tree: } { Obsolete since version 0.

Properties

Events

Variables

Bevel1 : TBevel;


Button1 : TButton;


CheckBox1 : TCheckBox;


DBGrid2 : TDBGrid;


DBLookupComboBox1 : TDBLookupComboBox;


DBNavigator1 : TDBNavigator;


DBNavigator2 : TDBNavigator;


DBNavigator3 : TDBNavigator;


DbTreeLookupComboBox1 : TDbTreeLookupComboBox;

to test calculated fields

DbTreeLookupComboBox2 : TDbTreeLookupComboBox;


DbTreeLookupComboBox3 : TDbTreeLookupComboBox;


dsDetail : TDataSource;


dsMaster : TDataSource;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


tblDetail : TTable;


tblDetailID : TIntegerField;


tblDetailParent : TIntegerField;


tblDetailTestCalc : TStringField;


tblDetailText : TStringField;


tblMaster : TTable;


tblMasterNumber : TAutoIncField;


tblMasterTestLookup : TIntegerField;


tblMasterText : TStringField;


TreeView1 : TTreeView;



Constructors


Functions


procedure Button1Click(Sender: TObject);


procedure CheckBox1Click(Sender: TObject);


function DbTreeLookupComboBox2CreateTreeSelect: TTreeSelect;


procedure DbTreeLookupComboBox3AcceptNode(Node: TTreeNode; var Accept: Boolean);

no warning please, this event is for documentation only } { We can use this event to create a special TreeSelect-form for DbTreeLookupComboBox2. TDbTreeLookupComboBox.OnCreateTreeSelect gets called before the first dropdown. This form will get destroyed at TfrmEditMaster.Destroy: } { result := TSampleTreeSelect.Create(self);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);

The first dropdown of DbTreeLookupComboBox1 gets faster too:


procedure tblDetailCalcFields(DataSet: TDataSet);

We will only accept the leaves of the tree: } { Obsolete since version 0.4 because dtAcceptLeavesOnly in Options: } { Accept := not Node.HasChildren;


Properties


Events


Variables


Bevel1 : TBevel;


Button1 : TButton;


CheckBox1 : TCheckBox;


DBGrid2 : TDBGrid;


DBLookupComboBox1 : TDBLookupComboBox;


DBNavigator1 : TDBNavigator;


DBNavigator2 : TDBNavigator;


DBNavigator3 : TDBNavigator;


DbTreeLookupComboBox1 : TDbTreeLookupComboBox;

to test calculated fields


DbTreeLookupComboBox2 : TDbTreeLookupComboBox;


DbTreeLookupComboBox3 : TDbTreeLookupComboBox;


dsDetail : TDataSource;


dsMaster : TDataSource;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


tblDetail : TTable;


tblDetailID : TIntegerField;


tblDetailParent : TIntegerField;


tblDetailTestCalc : TStringField;


tblDetailText : TStringField;


tblMaster : TTable;


tblMasterNumber : TAutoIncField;


tblMasterTestLookup : TIntegerField;


tblMasterText : TStringField;


TreeView1 : TTreeView;