Пример разграничения прав доступа - История изменений

SYSDBA: /* Шаг 5. Тестируем созданную схему */

2009-11-12T08:13:57Z

‎Шаг 5. Тестируем созданную схему

SYSDBA: /* Шаг 4. Программируем назначение прав доступа для менеджеров */

2009-04-12T17:09:52Z

‎Шаг 4. Программируем назначение прав доступа для менеджеров

SYSDBA: /* Шаг 4. Программируем назначение прав доступа для менеджеров */

2009-04-12T17:09:10Z

‎Шаг 4. Программируем назначение прав доступа для менеджеров

SYSDBA: /* Шаг 4. Программируем назначение прав доступа для менеджеров */

2009-04-12T16:16:36Z

‎Шаг 4. Программируем назначение прав доступа для менеджеров

SYSDBA: /* Шаг 4. Программируем назначение прав доступа для менеджеров */

2009-04-12T16:02:27Z

‎Шаг 4. Программируем назначение прав доступа для менеджеров

SYSDBA: /* Шаг 3. Настраиваем права для класса объектов Счет-фактура */

2009-04-12T15:45:47Z

‎Шаг 3. Настраиваем права для класса объектов Счет-фактура

SYSDBA в 15:28, 12 апреля 2009

2009-04-12T15:28:21Z

SYSDBA: /* Шаг 3. Настраиваем права для класса объектов Счет-фактура */

2009-04-12T15:26:46Z

‎Шаг 3. Настраиваем права для класса объектов Счет-фактура

SYSDBA: /* Шаг 2. Создаем учетные записи пользователей и назначаем им группы */

2009-04-12T15:17:17Z

‎Шаг 2. Создаем учетные записи пользователей и назначаем им группы

SYSDBA: /* Шаг 2. Создаем учетные записи пользователей и назначаем им группы */

2009-04-12T14:43:40Z

‎Шаг 2. Создаем учетные записи пользователей и назначаем им группы

← Предыдущая		Версия 08:13, 12 ноября 2009
Строка 161:		Строка 161:
	* Подключимся под учетной записью Петров П П и убедимся, что менеджер видит только свои счета фактуры.		* Подключимся под учетной записью Петров П П и убедимся, что менеджер видит только свои счета фактуры.
	* Аналогичным образом проверим менеджера из группы Б.		* Аналогичным образом проверим менеджера из группы Б.
		+
		+	[[Category:Учебный курс]]

@@ Строка 112: / Строка 112: @@
    Option Explicit
-−
    Sub gdcInvDocumentBeforePost(ByVal DataSet)
    '*** Данный код необходим для вызова встроенного обработчика ***
@@ Строка 118: / Строка 118: @@
      Call   Inherited(DataSet, "BeforePost", Array(DataSet))
    '*** конец кода поддержки встроенного обработчика            ***
-−
      Dim M, ManA_Mask, ManB_Mask
      ManA_Mask = CLng(2 ^ (9 - 1))  ' битовая маска группы Менеджеры А
      ManB_Mask = CLng(2 ^ (10 - 1)) ' битовая маска группы Менеджеры Б
-−
      If (IBLogin.InGroup And ManA_Mask) <> 0 Then
        ' Если пользователь из группы А, то исключим группу Б
@@ Строка 134: / Строка 134: @@
        M = Not (ManA_Mask + ManB_Mask)
      End If
-−
      ' выключим соответствующие биты из дескрипторов безопасности
      DataSet.FieldByName("aview").AsInteger = _
@@ Строка 142: / Строка 142: @@
      DataSet.FieldByName("afull").AsInteger = _
        DataSet.FieldByName("afull").AsInteger And M
-−
    End Sub

@@ Строка 112: / Строка 112: @@
    Option Explicit
-−
    Sub gdcInvDocumentBeforePost(ByVal DataSet)
    '*** Данный код необходим для вызова встроенного обработчика ***
@@ Строка 118: / Строка 118: @@
      Call   Inherited(DataSet, "BeforePost", Array(DataSet))
    '*** конец кода поддержки встроенного обработчика            ***
-−
-     Const ManA_ID = 9
+     Dim M, ManA_Mask, ManB_Mask
-     Const ManB_ID = 10
+    ManA_Mask = CLng(2 ^ (9 - 1))  ' битовая маска группы Менеджеры А
-    Dim M
+     ManB_Mask = CLng(2 ^ (10 - 1)) ' битовая маска группы Менеджеры Б
-−
-     If (IBLogin.InGroup And (2 ^ ManA_ID)) <> 0 Then
+     If (IBLogin.InGroup And ManA_Mask) <> 0 Then
-       M = Not Lng(2 ^ ManB_ID)
+      ' Если пользователь из группы А, то исключим группу Б
-     ElseIf (IBLogin.InGroup And (2 ^ ManB_ID)) <> 0 Then
+       M = Not ManB_Mask
-       M = Not Lng(2 ^ ManB_ID)
+     ElseIf (IBLogin.InGroup And ManB_Mask) <> 0 Then
      Else
-       M = Not Lng(2 ^ ManA_ID + 2 ^ ManB_ID)
+      ' Если документ ввел не менеджер, то перекроем любой
      End If
-−
      DataSet.FieldByName("aview").AsInteger = _
        DataSet.FieldByName("aview").AsInteger And M
@@ Строка 137: / Строка 142: @@
      DataSet.FieldByName("afull").AsInteger = _
        DataSet.FieldByName("afull").AsInteger And M
-−
    End Sub
+* Сохраним изменения с помощью команды па панели инструментов Редактора скрипт объектов:

@@ Строка 109: / Строка 109: @@
 * Нажмем кнопку с изображением трех точек.
 * Откроется Редактор скрипт объектов.
+* Введем следующий код обработчика события:
    Option Explicit
@@ Строка 139: / Строка 139: @@
    End Sub

← Предыдущая		Версия 16:02, 12 апреля 2009
Строка 109:		Строка 109:
	* Нажмем кнопку с изображением трех точек.		* Нажмем кнопку с изображением трех точек.
	* Откроется Редактор скрипт объектов.		* Откроется Редактор скрипт объектов.
		+
		+
		+	Option Explicit
		+
		+	Sub gdcInvDocumentBeforePost(ByVal DataSet)
		+	'* Данный код необходим для вызова встроенного обработчика *
		+	'* В случае его удаления возможно нарушение работы системы *
		+	Call Inherited(DataSet, "BeforePost", Array(DataSet))
		+	'* конец кода поддержки встроенного обработчика *
		+
		+	Const ManA_ID = 9
		+	Const ManB_ID = 10
		+	Dim M
		+
		+	If (IBLogin.InGroup And (2 ^ ManA_ID)) <> 0 Then
		+	M = Not Lng(2 ^ ManB_ID)
		+	ElseIf (IBLogin.InGroup And (2 ^ ManB_ID)) <> 0 Then
		+	M = Not Lng(2 ^ ManB_ID)
		+	Else
		+	M = Not Lng(2 ^ ManA_ID + 2 ^ ManB_ID)
		+	End If
		+
		+	DataSet.FieldByName("aview").AsInteger = _
		+	DataSet.FieldByName("aview").AsInteger And M
		+	DataSet.FieldByName("achag").AsInteger = _
		+	DataSet.FieldByName("achag").AsInteger And M
		+	DataSet.FieldByName("afull").AsInteger = _
		+	DataSet.FieldByName("afull").AsInteger And M
		+
		+	End Sub

← Предыдущая		Версия 15:45, 12 апреля 2009
Строка 87:		Строка 87:

	* Закрываем окно кнопкой Ок.		* Закрываем окно кнопкой Ок.
		+
		+	=== Шаг 4. Программируем назначение прав доступа для менеджеров ===
		+
		+	На данном этапе, задача уже почти решена за тем исключением, что менеджеры обеих групп имеют доступ ко всем счетам фактурам в базе данных. Разграничить доступ между группами можно, определив обработчик события BeforePost бизнес объекта. В зависимости от того, к какой группе менеджеров принадлежит текущий пользователь, будем исключать бит противоположной группы из всех трех дескрипторов безопасности документа. Таким образом, лишая ее всех прав на запись.
		+
		+	* Откроем окно со списком счетов-фактур: Исследователь-Торговля-04.Счета-фактуры (оптовая торговля).
		+	* Перейдем в окно.
		+	* С помощью коомбинации клавиш Ctrl-Shift-E переведем окно в режим дизайнера. На экране появятся два дополнительных окна: [[Палитра компонентов]] и [[Инспектор объектов]]:
		+
		+	http://gsbelarus.com/gs/images/gs/2008/sec_example_13.png
		+
		+	* В верхней части Инспектора объектов расположен выпадающий список компонентов формы. Найдем и выберем в нем компонент gdcInvDocument типа TgdcInvDocument:
		+
		+	http://gsbelarus.com/gs/images/gs/2008/sec_example_14.png
		+
		+	* Перейдем на вкладку События в окне Инспектора объектов.
		+	* Установим курсор на позицию BeforePost.
		+
		+	http://gsbelarus.com/gs/images/gs/2008/sec_example_15.png
		+
		+	* Нажмем кнопку с изображением трех точек.
		+	* Откроется Редактор скрипт объектов.

@@ Строка 5: / Строка 5: @@
 # Бухгалтера видят все счета-фактуры и могут вносить в них изменения.
 # Директор может только просматривать счета-фактуры, но не может их изменять.
 === Шаг 1. Создаем группы пользователей ===

@@ Строка 60: / Строка 60: @@
 === Шаг 3. Настраиваем права для класса объектов Счет-фактура ===
-В Исследователе найдем раздел Торговля. Раскроем его. Установим курсор на позицию "04. Счета-фактуры (оптовая торговля)" и по правой кнопке мыши выберем из контекстного меню команду Свойства...
+* В Исследователе найдем раздел Торговля.
 http://gsbelarus.com/gs/images/gs/2008/sec_example_9.png
-http://gsbelarus.com/gs/images/gs/2008/sec_example_9.png
+http://gsbelarus.com/gs/images/gs/2008/sec_example_10.png

← Предыдущая		Версия 15:17, 12 апреля 2009
Строка 51:		Строка 51:

	http://gsbelarus.com/gs/images/gs/2008/sec_example_7.png		http://gsbelarus.com/gs/images/gs/2008/sec_example_7.png
		+
		+	* Аналогичным образом создадим пользователей Иванова, Петров и Сидоров, включив их в соответствующие группы.
		+
		+	http://gsbelarus.com/gs/images/gs/2008/sec_example_8.png
		+
		+	По поводу назначения групп необходим комментарий. Мы исключали каждого пользователя из группы Администраторы, так как последние всегда имеют доступ ко всем функциям системы и записям в базе данных. Мы включали пользователей в группу Пользователи для того, чтобы предоставить базовый доступ к командам Исследователя. В принципе, можно было бы обойтись и без этого, но тогда пришлось бы настраивать права для созданных групп на основные команды, такие как раздел Справочники, например.
		+
		+	=== Шаг 3. Настраиваем права для класса объектов Счет-фактура ===
		+
		+	В Исследователе найдем раздел Торговля. Раскроем его. Установим курсор на позицию "04. Счета-фактуры (оптовая торговля)" и по правой кнопке мыши выберем из контекстного меню команду Свойства...
		+
		+	http://gsbelarus.com/gs/images/gs/2008/sec_example_9.png
		+
		+
		+	http://gsbelarus.com/gs/images/gs/2008/sec_example_9.png

← Предыдущая		Версия 14:43, 12 апреля 2009
Строка 42:		Строка 42:

	http://gsbelarus.com/gs/images/gs/2008/sec_example_5.png		http://gsbelarus.com/gs/images/gs/2008/sec_example_5.png
		+
		+	* Сохраняем запись в справочнике Сотрудников предприятия (контактов).
		+	* Теперь укажем группы для создаваемого пользователя. Воспользуемся кнопкой Группы... в правой части окна.
		+
		+	http://gsbelarus.com/gs/images/gs/2008/sec_example_6.png
		+
		+	* С помощью кнопки Включить добавим в список две группы: Директор и Пользователи. с помощью кнопки Исключить уберем из списка позицию Администраторы. В конечном итоге мы должны получить такую картину:
		+
		+	http://gsbelarus.com/gs/images/gs/2008/sec_example_7.png