IMetaMemberLeaf.CompoundKey

Синтаксис Fore

CompoundKey: Variant;

Синтаксис Fore.NET

CompoundKey: object;

Описание

Свойство CompoundKey определяет составной ключ элемента.

Комментарии

Уникальный составной ключ элемента определяет свойство IMetaMemberLeaf.CompoundIdentity.

Пример Fore

Для выполнения примера предполагается наличие формы, содержащей кнопку с идентификатором «Button1» и компонент MetaAttributesTreeList с идентификатором «MetaAttributesTreeList1». Для «MetaAttributesTreeList1» должна быть задана база данных временных рядов.

Пример является обработчиком события OnClick для компонента «Button1».

// Обработчик события OnClick
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    nSelNodes: Array;
    pMembers: IMetaMembersSet;
    pMember: IMetaMember;
    pLeaf: IMetaMemberLeaf;
Begin
    nSelNodes := MetaAttributesTreeList1.GetSelectedNodes;
    pMembers := MetaAttributesTreeList1.GetNodesMembers(nSelNodes);
    If Not pMembers.Eof Then
        pMembers.Reset;
        Repeat
            pMember := pMembers.Current;
            If pMember.IsLeaf Then
                pLeaf := pMember As IMetaMemberLeaf;
                Debug.WriteLine("Identity: " + pLeaf.Identity.ToString);
                Debug.WriteLine("CompoundIdentity: " + ToString(pLeaf.CompoundIdentity));
                Debug.WriteLine("Key: " + pLeaf.Key.ToString);
                Debug.WriteLine("CompoundKey: " + ToString(pLeaf.CompoundKey));
                Debug.WriteLine("__________________");
            End If;
            pMembers.Next;
        Until pMembers.Eof;
    End If;
End Sub Button1OnClick;

// Функция вывода данных
Function ToString(Value: Variant): String;
Var
    s: String;
    arr: Array Of Variant;
    idx: integer;
Begin
    arr := Value As Array Of Variant;
    For idx := 0 To arr.Length - 1 Do
        s := s + arr[idx] + "; ";
    End For;
    Return s;
End Function ToString;

Результат выполнения примера: в окно консоли выведена информация о временных рядах, выделенных в компоненте «MetaAttributesTreeList1».

Пример Fore.NET

Для выполнения примера предполагается наличие формы .NET, содержащей кнопку с идентификатором «button1» и компонент MetaAttributesTreeListNet с идентификатором «metaAttributesTreeListNet1». Для «metaAttributesTreeListNet1» должна быть задана база данных временных рядов.

Пример является обработчиком события Click для компонента «button1».

Imports Prognoz.Platform.Interop.Rds;
…
// Обработчик события Click
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    nSelNodes: Array;
    pMembers: IMetaMembersSet;
    pMember: IMetaMember;
    pLeaf: IMetaMemberLeaf;
Begin
    nSelNodes := metaAttributesTreeListNet1.CtrlBox.GetSelectedNodes();
    pMembers := metaAttributesTreeListNet1.CtrlBox.GetNodesMembers(nSelNodes);
    If Not pMembers.Eof() Then
        pMembers.Reset();
        Repeat
            pMember := pMembers.Current();
            If pMember.IsLeaf Then
                pLeaf := pMember As IMetaMemberLeaf;
                System.Diagnostics.Debug.WriteLine("Identity: " + pLeaf.Identity.ToString());
                System.Diagnostics.Debug.WriteLine("CompoundIdentity: " + ToString(pLeaf.CompoundIdentity));
                System.Diagnostics.Debug.WriteLine("Key: " + pLeaf.Key.ToString());
                System.Diagnostics.Debug.WriteLine("CompoundKey: " + ToString(pLeaf.CompoundKey));
                System.Diagnostics.Debug.WriteLine("__________________");
            End If;
            pMembers.Next();
        Until pMembers.Eof();
    End If;
End Sub;

// Функция вывода данных
Public Function ToString(Value: object): String;
Var
    s: String;
    arr: Array Of object;
    idx: integer;
Begin
    arr := Value As Array Of object;
    For idx := 0 To arr.Length - 1 Do
        s := s + arr[idx] + "; ";
    End For;
    Return s;
End Function ToString;

Результат выполнения примера: в окно консоли выведена информация о временных рядах, выделенных в компоненте «metaAttributesTreeListNet1».

См. также:

IMetaMemberLeaf