Независимый форум, посвященный системе БОСС-Кадровик
и всему, что с ней связано
|
|
| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
rebel25
Большой шоколадный орден
Зарегистрирован: 06.10.2008
Сообщения: 580
Откуда: Москва
|
 Добавлено: Пн Ноя 21, 2022 15:50 Заголовок сообщения: Скрипт дачи права на Дизайнер |
 |
|
| Коллеги, у есть ли у кого скрипт, для того чтобы выдать права на Дизайнер пользователю. Нужно поставить JOB по расписанию, чтобы права выдавались на ежедневно обновляемую базу, на которой у пользователя прав нет. |
|
| Вернуться к началу |
|
 |
superjek
Зарегистрирован: 04.04.2022
Сообщения: 29
|
| Добавлено: Пн Ноя 21, 2022 18:07 Заголовок сообщения: |
|
|
Судя по трассировке
нужно вставлять в таблицу xUser_Permissions ид пользователя и ид права
Идентификаторы прав:
id_Permission Name Comment
17 Дизайнер Разрешить запуск среды разработки и ее компонентов.
18 Отладка Разрешить использование функций отладки (F5, F8, F9, Ctrl+Enter).
21 Разграничение прав доступа Разрешить вызов интерфейса разграничения прав доступа.
24 Трассировка конструктора модуля Разрешить трассировку в конструкторе модуля. |
|
| Вернуться к началу |
|
|
NewAge
Зарегистрирован: 11.06.2010
Сообщения: 109
|
| Добавлено: Сб Дек 17, 2022 02:39 Заголовок сообщения: |
|
|
| Код: |
Alter Role [db_owner] Add Member [Пользователь]
Go
Declare @ObjUserId Integer = 0
Select @ObjUserId = id_objectuser From dbo.xobjectuser Where objectusername = 'Пользователь'
If(@ObjUserId = 0)
Begin
Insert Into dbo.xobjectuser(objectusername) Values('Пользователь')
Select @ObjUserId = id_objectuser From dbo.xobjectuser Where objectusername = 'Пользователь'
End
If(Not Exists(Select Top(1) 1 From dbo.xuser_permissions Where id_objectuser = @ObjUserId And id_permission = 17))
Insert Into dbo.xuser_permissions(id_objectuser, id_permission, objectname) Values(@ObjUserId, 17, '')
If(Not Exists(Select Top(1) 1 From dbo.xuser_permissions Where id_objectuser = @ObjUserId And id_permission = 18))
Insert Into dbo.xuser_permissions(id_objectuser, id_permission, objectname) Values(@ObjUserId, 18, '')
If(Not Exists(Select Top(1) 1 From dbo.xuser_permissions Where id_objectuser = @ObjUserId And id_permission = 24))
Insert Into dbo.xuser_permissions(id_objectuser, id_permission, objectname) Values(@ObjUserId, 24, '')
Go
|
|
|
| Вернуться к началу |
|
|
|
|
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
