Example of Creating a Simple Application

Opening the form generates the OnCreate event. Create the event handler and and add a code to load dictionary elements. To do this, select a form, go to the Events tab in the object inspector and double-click the OnCreate element. The procedure that will handle the event will be added to form code:

    Sub F_SHOW_DICTFormOnCreate(Sender: Object; Args: IEventArgs);
    Begin
        
    End Sub F_SHOW_DICTFormOnCreate;

Add a code for variable initialization to the procedure:

    Sub F_SHOW_DICTFormOnCreate(Sender: Object; Args: IEventArgs);
    Begin
        //Initialize variables
        Mb := MetabaseClass.Active; //Get context to work with current repository
        TSheet := UiTabSheet1.TabSheet; //Get table for further work with cells        
        NewElementsName := New StringList.Create; //Collection to store names of new elements
    End Sub F_SHOW_DICTFormOnCreate;

Variables are defined in the form level and they will be further used in various procedures. To load elements, add a separate procedure:

    //Procedure for opening dictionary and loading information for elements
    Sub LoadDictionary;
    Var
        Attrs: IRdsAttributesInstance;
        Attr: IRdsAttributeInstance;
        Elements: IRdsDictionaryElements;
        Element: IRdsDictionaryElement;
        Style: ITabCellStyle;
        i, j, AttrCount: Integer;
    Begin
        RdsDict := Mb.ItemById("T_INFO").Open(Null) As IRdsDictionaryInstance; //Open dictionary

        Attrs := RdsDict.Attributes;
        //Load attributes list
        For i := 0 To Attrs.Count - 1 Do
            Attr := Attrs.Item(i);
            //  Attribute keys in MDM dictionaries start with one that is why they can be used
            //  as column index for filling cells
            TSheet.Cell(0, Attr.Key - 1).Value := Attr.Name;
            If Attr = Attrs.Predefined(RdsPredefinedAttribute.Name) Then
                //Remember index of the Name attribute in order that new
                //element names will be written to the appropriate column
                NameAttrIndex := i;
            End If;
        End For;

        // Load attribute values for elements
        Elements := RdsDict.Elements;
        ElementCount := Elements.Count - 1; //Number of elements
        AttrCount := Attrs.Count - 1; //Number of attributes
        For i := 1 To ElementCount Do
            Element := Elements.Item(i);
            For j := 0 To AttrCount Do
                TSheet.Cell(i, j).Value := Element.Value(j);
            End For;
        End For;

        //Set up style
        Style := TSheet.Cells(0, 0, ElementCount, AttrCount).Style;
        Style.Font.Color := GxColor.FromKnownColor(GxKnownColor.Silver);
        //Lock table editing
        TSheet.Table.Style.Locked := TriState.OnOption;
    End Sub LoadDictionary;

The dictionary opens in the procedure, dictionary attribute names are displayed in the first table row. Next, each obtained column displays attribute values for all dictionary elements. The obtained list will have the grey font color, and cell editing will be locked in the whole table.

Now, call the LoadDictionary procedure in the OnCreate event. The event handler will look as follows:

    Sub F_SHOW_DICTFormOnCreate(Sender: Object; Args: IEventArgs);
    Begin
        //Initialize variables
        Mb := MetabaseClass.Active; //Get context to work with current repository
        TSheet := UiTabSheet1.TabSheet; //Get table for further work with cells        
        NewElementsName := New StringList.Create; //Collection to store names of new elements
        //Open dictionary and load information by elements
        LoadDictionary;
    End Sub F_SHOW_DICTFormOnCreate;

Clicking the Add (PPButton1) button adds a new element. Add the OnClick event handler for the button. To do this, select the button, in the object inspector on the Events tab double-click the OnClick element or double-click the button. The handler will be added to the form code:

    Sub PPButton1OnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        
    End Sub PPButton1OnClick;

To add a new element, create a procedure:

    //Procedure for adding an element
    Sub AddElement;
    Var
        NewName: String;
    Begin
        If WinApplication.InputBox("New element", "Name:", NewName) Then
            NewElementsName.Add(NewName); //Add names to the collection
            ElementCount := ElementCount + 1; //Increase the number of elements
            TSheet.Cell(ElementCount, NameAttrIndex).Value := NewName; //Add element name to table
        End If;
    End Sub AddElement;

The procedure uses the dialog box call for data input - WinApplicationClass.InputBox (Ui Assembly). This is a standard dialog box that allows for entering any one value. If the text is entered and the OK button is clicked in the dialog box, the entered name will be added to the NewElementsName array and it will also be added to the table with elements. The added element will display only the Name attribute value because the element is not actually added to the dictionary and has no values of other attributes.

Add the procedure call to the OnClick event handler for the button:

    Sub PPButton1OnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        AddElement;
    End Sub PPButton1OnClick;

Clicking the Save (PPButton2) button saves new elements and closes the form. Add the OnClick event handler for the button in the same way as it was done for the Add button at Step 2:

    Sub PPButton2OnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        
    End Sub PPButton2OnClick;

To create elements in the MDM dictionary, add the following procedure:

    //Procedure for saving added elements to dictionary
   Sub SaveNewElements;
    Var
        ElementName: String;
        ElementData: IRdsDictionaryElementData;
    Begin
        If NewElementsName.Count > 0 Then
            ElementData := RdsDict.CreateElementData; //Create an object, which stores values of element attributes
           //Move through all elements of the NewElementsName array
           //and add corresponding elements to MDM dictionary
           For Each ElementName In NewElementsName Do
                ElementData.Value(NameAttrIndex) := ElementName; //Fill in value of the Name attribute
               RdsDict.Insert(-2, ElementData); //Insert a new element to dictionary root
           End For;
        End If;
    End Sub SaveNewElements;

The procedure checks if elements are added to the NewElementsName array. If there are added elements, elements will be added to the MDM dictionary based on elements text. Add a code for calling the SaveNewElements procedure and form closing (the Close method of the IFormControl interface) to the button click event handler:

    Sub PPButton2OnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        SaveNewElements; //Save elements to MDM dictionary
       Self.Close; //Close form
   End Sub PPButton2OnClick;

The form will be closed without saving on clicking the Close (PPButton3) button. Add the OnClick event handler for the button in the same way as it was done for the Add button at Step 2:

    Sub PPButton3OnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        
    End Sub PPButton3OnClick;

To close the form, add a call of the Close method:

    Sub PPButton3OnClick(Sender: Object; Args: IMouseEventArgs);
    Begin
        Self.Close;
    End Sub PPButton3OnClick;