Справочное руководство по TDMS 7.0 API
VB Script
Смотри также Отправить замечание

Glossary Item Box

Исходный текст

Option Explicit
Call ShowObjPermissions(ThisObject)

'==============================================================================
' Вывести права доступа пользователя по отношению к данному объекту
'==============================================================================
Sub ShowObjPermissions(Obj)
        Dim PermissionsValueArray, SelObjDlg, s
        
        ' Заполнение массива возможных значений прав доступа
        PermissionsValueArray = Array("Не определено","Доступ разрешён","Доступ запрещён")
        
        ' Сформировать строку с описание прав доступа текущего пользователя 
        With Obj.Permissions
        
            s = "Просмотр объекта: " & PermissionsValueArray(.View) & Chr(13)
            s = s & "Oграниченный просмотр файлов: " & PermissionsValueArray(.RestrictedViewFiles) & Chr(13)
            s = s & "Просмотр файлов: " & PermissionsValueArray(.ViewFiles) & Chr(13)
            s = s & "Редактирование атрибутов: " & PermissionsValueArray(.Edit) & Chr(13)
            s = s & "Редактирование состава: " & PermissionsValueArray(.EditContent) & Chr(13)
            s = s & "Редактирование файлов: " & PermissionsValueArray(.EditFiles) & Chr(13)
            s = s & "Создание версий: " & PermissionsValueArray(.CreateVersion) & Chr(13)
            s = s & "Удаление объекта: " & PermissionsValueArray(.Erase) & chr(13)
            s = s & "Пользователь - администратор объекта: " & .Admin & chr(13)
            s = s & "Пользователь - системный администратор: " & .SysAdmin
        End With
        
        'Вывести информацию в окно сообщений
        ThisApplication.AddNotify s
        
End Sub
'==============================================================================
© 2023 CSoft Development. Все права защищены.