ISecurityPackageLogonData.ParamValue

Синтаксис

ParamValue(ParamName: String): Variant;

ParamValue(ParamName: string): object;

Параметры

ParamName. Наименование параметра модуля безопасности.

Описание

Свойство ParamValue определяет значение параметра модуля безопасности.

Комментарии

Для получения наименования параметра модуля безопасности используйте свойство ISecurityPackageLogonData.ParamName.

В качестве значения параметра модуля безопасности можно использовать подстановки с использованием глобальных переменных в формате: «%<идентификатор глобальной переменной>%».

Пример

Для выполнения примера предполагается наличие в репозитории базы данных с идентификатором OBJ_DB.

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

Sub UserProc;
Var
    MB: IMetabase;
    MBObj: IMetabaseObject;
    DB: IDatabase;
    LogonData: ISecurityPackageLogonData;
Begin
    MB := MetabaseClass.Active;
    // Получим базу данных
    MBObj := MB.IteMById("OBJ_DB").Edit;
    DB := MBObj As IDatabase;
    // Изменим настройки подключения к базе данных
    DB.UseMetabaseLogonData := False;
    DB.Authentication := AuthenticationMode.Password;
    DB.DriverId := "POSTGRES";
    LogonData := DB.LogonData;
    LogonData.ParamValue("SERVER") := "Test";
    LogonData.ParamValue("SCHEME") := "%METABASE_DATABASE%";
    LogonData.ParamValue("CASESENSITIVE") := "True";
    // Сохраним изменения
    MBObj.Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Db;
Imports Prognoz.Platform.Interop.Metabase;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MBObj: IMetabaseObject;
    DB: IDatabase;
    LogonData: ISecurityPackageLogonData;
Begin
    MB := Params.Metabase;
    // Получим базу данных
    MBObj := MB.IteMById["OBJ_DB"].Edit();
    DB := MBObj As IDatabase;
    // Изменим настройки подключения к базе данных
    DB.UseMetabaseLogonData := False;
    DB.Authentication := AuthenticationMode.amPassword;
    DB.DriverId := "POSTGRES";
    LogonData := DB.LogonData;
    LogonData.ParamValue["SERVER"] := "Test";
    LogonData.ParamValue["SCHEME"] := "%METABASE_DATABASE%";
    LogonData.ParamValue["CASESENSITIVE"] := "True";
    // Сохраним изменения
    MBObj.Save();
End Sub;

В результате выполнения примера для базы данных с идентификатором OBJ_DB будут изменены настройки подключения.

См. также:

ISecurityPackageLogonData