IMetabaseObjectCreateInfo.ClassId

Синтаксис

ClassId: Integer;

ClassId: integer;

Описание

Свойство ClassId определяет класс создаваемого объекта.

Комментарии

Для задания класса объектов необходимо использовать значения, содержащиеся в перечислимом типе MetabaseObjectClass.

Пример

Добавьте ссылки на системные сборки: Db, Metabase.

Sub UserProc;
Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    MObj: IMetabaseObject;
    DB: IDatabase;
Begin
    MB := MetabaseClass.Active;
    CrInfo := MB.CreateCreateInfo;
    CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_DATABASE;
    CrInfo.Id := "NewBD";
    CrInfo.Name := "Новая база данных";
    CrInfo.Parent := MB.Root;
    MObj := MB.CreateObject(CrInfo).Edit;
    DB := MObj As IDatabase;
    DB.Authentication := AuthenticationMode.Password;
    DB.DriverId := "ORCL";
    DB.LogonData.ParamValue("SERVER") := "Test";
    DB.LogonData.ParamValue("SCHEME") := "TestShema";
    DB.UseMetabaseCredentials := True;
    MObj.Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Db;

Public Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    CrInfo: IMetabaseObjectCreateInfo;
    MObj: IMetabaseObject;
    DB: IDatabase;
Begin
    MB := Params.Metabase;
    CrInfo := MB.CreateCreateInfo();
    CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_DATABASE As Int32;
    CrInfo.Id := "NewBD";
    CrInfo.Name := "Новая база данных";
    CrInfo.Parent := MB.Root;
    MObj := MB.CreateObject(CrInfo).Edit();
    DB := MObj As IDatabase;
    DB.Authentication := AuthenticationMode.amPassword;
    DB.DriverId := "ORCL";
    DB.LogonData.ParamValue["SERVER"] := "Test";
    DB.LogonData.ParamValue["SCHEME"] := "TestShema";
    DB.UseMetabaseCredentials := True;
    MObj.Save();
End Sub;

После выполнения примера в корневом каталоге репозитория будет создана новая база данных. Данные будут располагаться на сервере «Test» в схеме «TestShema». При подключении к БД используется парольная аутентификация. Логин и пароль берутся из учетных данных, указанных при входе в платформу.

См. также:

IMetabaseObjectCreateInfo