* Перерисовать вторую страницу формы This.Refresh
Добавим код события Interactive Change переключателя Optiongroup1 класса Worker. В отличие от формы Access форма Employee предназначена не только для просмотра, но и для корректировки прав доступа. Текст этого события будет храниться и работать только в форме Employee.
* Общие права доступа для всех категорий работников ThisForm.PageFrame1.Page2.Worker1.chkAccess01.Value= .T. ThisForm.PageFrame1.Page2.Worker1.chkAccess02.Value= .T. ThisForm.PageFrame1.Page2.Worker1.chkAccess03.Value= .F. ThisForm.PageFrame1.Page2.Worker1.chkAccess04.Value= .F. ThisForm.PageFrame1.Page2.Worker1.chkAccess05.Value= .T. ThisForm.PageFrame1.Page2.Worker1.chkAccess06.Value= .F. ThisForm.PageFrame1.Page2.Worker1.chkAccess07.Value= .F. ThisForm.PageFrame1.Page2.Worker1.chkAccess08.Value= .F. ThisForm.PageFrame1.Page2.Worker1.chkAccess09.Value= .F. ThisForm.PageFrame1.Page2.Worker1.chkAccess10.Value= .F. ThisForm.PageFrame1.Page2.Worker1.chkAccess11.Value= .F. ThisForm.PageFrame1.Page2.Worker1.chkAccess12.Value= .F. ThisForm.PageFrame1.Page2.Worker1.chkAccess13.Value= .F. ThisForm.PageFrame1.Page2.Worker1.chkAccess14.Value= .F.
* Индивидуальные права доступа DO CASE
CASE THIS.Value=1 && Отдел недвижимости
* Поиск зданий
ThisForm.PageFrame1.Page2.Worker1.chkAccess06.Value=.T.
* Добавление зданий
ThisForm.PageFrame1.Page2.Worker1.chkAccess07.Value=.T.
* Работа с квартирами
ThisForm.PageFrame1.Page2.Worker1.chkAccess08.Value=.T.
* Работа с отчетами
ThisForm.PageFrame1.Page2.Worker1.chkAccess10.Value=.T.
* Работа с адресным планом
ThisForm.PageFrame1.Page2.Worker1.chkAccess11.Value=.T.
* Работа со справочником материалов
ThisForm.PageFrame1.Page2.Worker1.chkAccess13.Value=.T.
CASE THIS.Value=2 && Отдел платежей
* Поиск зданий
ThisForm.PageFrame1.Page2.Worker1.chkAccess06.Value=.T.
* Работа с квартирами
ThisForm.PageFrame1.Page2.Worker1.chkAccess08.Value=.T.
* Работа с лицевыми счетами
ThisForm.PageFrame1.Page2.Worker1.chkAccess09.Value=.T.
CASE THIS.Value=3 && Дирекция предприятия
* Поиск зданий
ThisForm.PageFrame1.Page2.Worker1.chkAccess06.Value=.T.
* Работа с квартирами
ThisForm.PageFrame1.Page2.Worker1.chkAccess08.Value=.T.
* Работа с отчетами
ThisForm.PageFrame1.Page2.Worker1.chkAccess10.Value=.T. CASE THIS.Value=4 && Администратор комплекса
* Удаленные записи
ThisForm.PageFrame1.Page2.Worker1.chkAccess03.Value=.T.
* Объем базы данных
ThisForm.PageFrame1.Page2.Worker1.chkAccess04.Value=.T.
* Работа с формой прав доступа
ThisForm.PageFrame1.Page2.Worker1.chkAccess14.Value=.T.
ENDCASE
Опубликовал vovan666
May 12 2013 06:42:49 ·
0 Комментариев ·
4030 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
