IMetabaseObjectCreateInfo.SkipIdFormatCheck

Синтаксис Fore

SkipIdFormatCheck: Boolean;

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

SkipIdFormatCheck: Boolean;

Описание

Свойство SkipIdFormatCheck определяет признак проверки идентификатора объекта на соответствие установленному формату идентификаторов.

По умолчанию свойству установлено значение False, при этом во время создания объекта идентификатор будет проверяться на соответствие установленному в свойстве ObjectsIdFormat формату идентификаторов.

Пример Fore

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;
    CrInfo.SkipIdFormatCheck := True;
    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;

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

Пример Fore.NET

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

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;
    CrInfo.SkipIdFormatCheck := True;
    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;

См. также: