IMetabaseUpdateFolderNode.Add

Syntax

Add(NodeType: MetabaseUpdateNodeType): IMetabaseUpdateNode;

Parameters

NodeType - type of the update object to be created.

Description

The Add method adds an object to the update structure.

Example

Executing the example requires that the repository contains tables with the Table_1 and Table_2 identifiers and forms with the Form_1 and Form_2 identifiers.

Sub Main;

Var

MB: IMetabase;

Update: IMetabaseUpdate;

Root, Folder1, Folder2: IMetabaseUpdateFolderNode;

TableObj: IMetabaseUpdateDataObjectNode;

FormObj: IMetabaseUpdateObjectNode;

Begin

MB := MetabaseClass.Active;

Update := MB.CreateUpdate;

Root := Update.RootFolder;

//Create folders

Folder1 := Root.Add(MetabaseUpdateNodeType.Folder) As IMetabaseUpdateFolderNode;

Folder1.Label := "Tables";

Folder2 := Root.Add(MetabaseUpdateNodeType.Folder) As IMetabaseUpdateFolderNode;

Folder2.Label := "Forms";

//Add tables

TableObj := Folder1.Add(MetabaseUpdateNodeType.DataObject) As IMetabaseUpdateDataObjectNode;

TableObj.Object := MB.ItemById("Table_1");

TableObj.Label := TableObj.Object.Name;

TableObj.Method := MetabaseUpdateMethod.All;

TableObj := Folder1.Add(MetabaseUpdateNodeType.DataObject) As IMetabaseUpdateDataObjectNode;

TableObj.Object := MB.ItemById("Table_2");

TableObj.Label := TableObj.Object.Name;

TableObj.Method := MetabaseUpdateMethod.All;

//Add forms

FormObj := Folder2.Add(MetabaseUpdateNodeType.Object) As IMetabaseUpdateObjectNode;

FormObj.Object := MB.ItemById("Form_1");

FormObj.Label := FormObj.Object.Name;

FormObj := Folder2.Add(MetabaseUpdateNodeType.Object) As IMetabaseUpdateObjectNode;

FormObj.Object := MB.ItemById("Form_2");

FormObj.Label := FormObj.Object.Name;

Update.SaveToFileNF("c:\Object.pefx");

End Sub Main;

After executing the example a new update is created. Two tables and two forms are included in the update. Two folders are created in the update structure to arrange objects.