IRdsDatabase.ElementCardStyle

Fore Syntax

ElementCardStyle : RdsElementCardStyle;

Fore.NET Syntax

ElementCardStyle : Prognoz.Platform.Interop.Rds.RdsElementCardStyle;

Description

The ElementCardStyle property determines display type of the element card.

Comments

Default value is RdsElementCardStyle.Standart.

Fore Example

To execute the example, add links to the Metabase, Rds and Db system assemblies. The repository must contain a database with the NSI_BD identifier.

Sub UserProc;
Var
      MB: IMetabase;
      NSI: IRdsDatabase;
      CrInfo: IMetabaseObjectCreateInfo;
Begin
      MB := MetabaseClass.Active;
          CrInfo := MB.CreateCreateInfo;
          CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_RDS_DATABASE;
          CrInfo.Id := "NSI_1";
          CrInfo.Name := MDM repository;
          CrInfo.Parent := Null;
      NSI := MB.CreateObject(CrInfo).Edit As IRdsDatabase;
      NSI.Database := MB.ItemById("NSI_BD").Bind As IDatabase;
      NSI.ElementCardStyle := RdsElementCardStyle.PropertyList;
(NSI As IMetabaseObject).Save;
End Sub UserProc;

After executing the example a new MDM repository with the NSI_1 identifier is created in the repository root. Table display type of the element card is set.

Fore.NET Example

This procedure is an entry point for .NET assembly. To execute the example, add links to the Rds and Db system assemblies. The repository must have a database with the NSI_BD identifier.

Imports System;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Rds;
Imports Prognoz.Platform.Interop.Db;

Public Class Program

    [STAThread]
    Public Shared Sub Main(Params : StartParams);
Var
      MB: IMetabase;
      NSI: IRdsDatabase;
      CrInfo: IMetabaseObjectCreateInfo;
      MO : IMetabaseObject;
Begin
      MB := Params.Metabase;
          CrInfo := MB.CreateCreateInfo();
          CrInfo.ClassID := Prognoz.Platform.Interop.Metabase.MetabaseObjectClass.KE_CLASS_RDS_DATABASE As Integer
          CrInfo.Id := "NSI_0";
          CrInfo.Name := MDM repository;
          CrInfo.Parent := Null;
      MO := MB.CreateObject(CrInfo).Edit();
      NSI := MO As IRdsDatabase;
      NSI.Database := MB.ItemById["NSI_BD"].Bind() As IDatabase;
      NSI.ElementCardStyle := Prognoz.Platform.Interop.Rds.RdsElementCardStyle.recsStandard ;
     (NSI As IMetabaseObject).Save();

End Sub;

End Class;

After executing the example a new MDM repository with the NSI_1 identifier is created in the repository root. Standard display type of the element card is set.