Прописать события для формы программно

@Бормалей · Регистрация: 02.07.2013

Студворк — интернет-сервис помощи студентам

Делаю авторизацию для своей БД и решил сделать немного унивирсально что бы в дальнейшем просто прикреплять своб авторизацию к базам.
Вопрос
1.Как можно программно добавить во все формы текущего проекта добавить вызов функции из модуля.
2. И посмотрите как можно связать таблицу Form и User.
3. Ну и может где оптимизировать можно (а там факт что можно)

mobile · 29.09.2016, 09:42

Сообщение от Бормалей

1.Как можно программно добавить во все формы текущего проекта добавить вызов функции из модуля.

Разными способами. Вставить например в процедуру нужного события вызов функции. Или создать свободное поле на форме и задать ему источником функцию.

Сообщение от Бормалей

как можно связать таблицу Form и User.

Так они уже связаны в схеме данных! Или Вы про что-то более другое?

Сообщение от Бормалей

3. Ну и может где оптимизировать можно (а там факт что можно)

Схем авторизации великое множество. В том числе и похожих на Вашу. Надо знать требования к БД, сетевую конфигурацию, разделена ли база и прочее.

@Бормалей · 29.09.2016, 09:53 **[ТС]**

Не внятно объяснил.
Вообщем есть у меня готовая база (назовем итоговая)где н-е количество форм, я хочу добавить к ней авторизацию, переношу в Итоговую базу формы и таблицы Авторизации, нажимаю кнопку на форме Авторизации и во все формы базы Итоговой добавляются события
на редактирование

Visual Basic
1
Call GetRole(edit)

на добавление

Visual Basic
1
GetRole(add)

и так далее

Сообщение от mobile

Так они уже связаны в схеме данных!

а они правильно связаны? в этом вопрос. или можно применить другую схему связи (например с промежуточной таблицей)

Добавлено через 2 минуты

Сообщение от mobile

Схем авторизации великое множество. В том числе и похожих на Вашу. Надо знать требования к БД, сетевую конфигурацию, разделена ли база и прочее.

то есть сложно сделать универсальную систему авторизации?.
А еще зачем знать разделена ли база?

mobile · 29.09.2016, 10:14

Сообщение от Бормалей

Вообщем есть у меня готовая база (назовем итоговая)где н-е количество форм, я хочу добавить к ней авторизацию, переношу в Итоговую базу формы и таблицы Авторизации, нажимаю кнопку на форме Авторизации и во все формы базы Итоговой добавляются события

Я бы не стал так делать. Зачем? Неужели для входа в каждую форму нужна авторизация? Авторизацию делают при входе в БД или при смене юзера. Обычно форму авторизации делают невидимой и она висит на все время сессии. Все, что нужно - имя, логин и прочее забирают из нее. Прямым обращением или функцией в событии загрузки. И я думаю, что авто

Сообщение от Бормалей

а они правильно связаны? в этом вопрос. или можно применить другую схему связи (например с промежуточной таблицей)

Если для каждого юзера свой набор доступных форм, то да необходима промежуточная таблица связывающая юзера и его набор форм. Если же форма у юзера одна, то достаточно ее указать в т.User, как сделано у Вас.

Сообщение от Бормалей

сложно сделать универсальную систему авторизации?.

Если нет специальных экзотических требований, то не так сложно. Поищите по форуму, этих форм авторизации великое множество.

Сообщение от Бормалей

А еще зачем знать разделена ли база?

Табличная часть может быть на sql-сервере или таблицы локальные. Табличная часть бывает, редко правда, различной для различных юзеров и тогда надо делать соответствие баз для пользователей.

@Бормалей · 29.09.2016, 10:30 **[ТС]**

Сообщение от mobile

Поищите по форуму, этих форм авторизации великое множество.

Поискал не понравились. Да и самому надо делать так интереснее.

Сообщение от mobile

Неужели для входа в каждую форму нужна авторизация?

нет вход будет осуществлен один раз. Но формы же связаны с таблицами и если повесить проверку ДО обновления, До сохранения, До удаления: Авторизован/не авторизован и проверять права может добавлять или редактировать в модуль

mobile · 29.09.2016, 10:42

Сообщение от Бормалей

нет вход будет осуществлен один раз. Но формы же связаны с таблицами и если повесить проверку ДО обновления, До сохранения, До удаления: Авторизован/не авторизован и проверять права может добавлять или редактировать в модуль

Это слишком сложно. Довольно часто делают иначе. Создается таблица "мета-данных", где для определенных полей форм и ролей юзеров запрещены/разрешены определенные операции. Тогда при входе в форму считываются мета-данные на форму и согласно им полям расставляется доступ: редактирование, удаление, вставка. Я даже где-то выкладывал что-то похожее. Надо поискать.

@Бормалей · 29.09.2016, 10:48 **[ТС]**

Сообщение от mobile

Создается таблица "мета-данных", где для определенных полей форм и ролей

Так это нужно будет прочитать все контролы каждой формы и дать/запретить доступ каждому пользователю?

Сообщение от mobile

Я даже где-то выкладывал что-то похожее.

Работа с таблицей метаданных и блокировка полей в ней оно?

mobile · 29.09.2016, 10:54

Сообщение от Бормалей

Работа с таблицей метаданных и блокировка полей в ней оно?

Да она.

@Бормалей · 29.09.2016, 10:59 **[ТС]**

Но у меня тоже самое сделано только для форм а не для контролов. Потому что в той базе куда я хочу это при....делать больше 30 форм, и в каждой форме овердофига контролов.
Хотя можно же просто перечитать все контролы каждой формы и создать таблицу. Хотя все равно для каждой роли и формы придется выставлять права.

Но а все таки можно ли программно дописать программу? То есть Есть форма Klient. В событии до обновление есть некий код. Нужно программно вставить перед этим кодом вызов функции.

@alvk · 29.09.2016, 12:23

Сообщение от Бормалей

вставить перед этим кодом вызов функции.

call имяфункции()

@Бормалей · 29.09.2016, 17:11 **[ТС]**

Сообщение от alvk

call имяфункции()

Да, спасибо.
Не туда думал. Можно же использовать

Visual Basic
1
2
3
4
5
6
7
8
For Each FrmName In Application.CurrentProject.AllForms
    SQLQ = "SELECT Resolution.frmEDIT, Resolution.frmADD, Resolution.frmDel" & _
            " FROM Forms INNER JOIN Resolution ON Forms.Êîä = Resolution.Form" & _
            " WHERE (((Forms.frmName)='" & FrmName.Name & "' ));"
    Debug.Print SQLQ
    Set zapros = CurrentDb.OpenRecordset(SQLQ)
    If zapros.Fields(0) = True Then FrmName.AllowEdits = True Else Forms(FrmName.Name).Form.AllowEdits = False
Next FrmName

только проблема в том что AllowEdits можно использовать только для открытой формы. а хотелось пробежаться по всем формам расставить разрешения.

@alvk · 30.09.2016, 02:38

Так разрешения нужно под пользователя расставлять, а не под название формы. Формы вы можете и так настроить раз и навсегда в свойствах.

@Бормалей · 30.09.2016, 02:57 **[ТС]**

Сообщение от alvk

Так разрешения нужно под пользователя расставлять, а не под название формы. Формы вы можете и так настроить раз и навсегда в свойствах.

У меня есть таблица со всеми именами форм всего проекта (получено программно) и таблица мета-данных (спасибо mobile научил этому слову) где хранятся разрешения на каждую форму для каждой роли пользователя.
Я хочу что бы эти права расставлялись при авторизации пользователя, при этом самому не прописывать в события открытия, изменения,удаления форм Вызов функции.
То есть если я начну делать другой проект и захочу что бы там была авторизация, я просто беру и импортирую из своей базы Авторизация все таблицы и формы. Нажал кнопку получить имена всех форм, создал роли, пользователей, заполнил таблицу с правами для каждой формы, расставил права и все. Не меняя код в основной базе.
Предыдущая процедура как раз и расставляет права для текущего пользователя, однако для этого нужно открыть форму, прописать ей свойство, закрыть форму. Да и проверить в многопользовательском варианте. Хотя по идее каждый пользователь работает со своим приложение форм, и не должно возникнуть проблем.

@alvk · 30.09.2016, 04:50

Сообщение от Бормалей

То есть если я начну делать другой проект и захочу что бы там была авторизация, я просто беру и импортирую из своей базы Авторизация все таблицы и формы.

Это будет не другой проект, а точная копия этого

Поверьте, в разных задачах и доступ разный, не бывает идентичных пользователей и доступов. Что касается вашей задачи, то вам нужна функция, которая будет сверять вашего пользователя, находить форму в метаданных и сообразно прав юзера проставлять ему права. Юзеров как раз я и не вижу у вас.

@Бормалей · 30.09.2016, 05:02 **[ТС]**

Сообщение от alvk

Это будет не другой проект, а точная копия этого

Есть готовый проект Договора, к нему надо прикрутить авторизацию. дальше по написаному.

Сообщение от alvk

Юзеров как раз я и не вижу у вас.

Так скачайте и откройте базу =)

Сообщение от alvk

не бывает идентичных пользователей и доступов

Но можно делать роли с правами, а роли присваивать пользователю. Роль: Инспектор может править Форму1 и форму2, Договорник Может править Форму 3. Иванову задаем Роли Инспектор и Договорник, и вот он уже может править все три формы.

Сообщение от alvk

Что касается вашей задачи, то вам нужна функция, которая будет сверять вашего пользователя, находить форму в метаданных и сообразно прав юзера проставлять ему права.

Та функция как раз это и проделывает. Но что то мне кажется не те свойства форм я использую. А при авторизации открывание закрывание всех форм проекта как то не алё.

@alvk · 30.09.2016, 06:37

Сообщение от Бормалей

Так скачайте и откройте базу =)

Скачал, как открыть?

Сообщение от Бормалей

Инспектор может править Форму1 и форму2

а если только одно поле в форме 2 можно ему править?

Сообщение от Бормалей

А при авторизации открывание закрывание всех форм проекта как то не алё.

а это зачем? функцию на открытие каждой формы нужно вешать. (или загрузку)

@Бормалей · 30.09.2016, 08:42 **[ТС]**

Сообщение от alvk

а если только одно поле в форме 2 можно ему править?

так я делаю доступ по формам, а не по контролам. Права на контролы в дальнейшем тоже будут, но надо разобратся с формами.

Сообщение от alvk

а это зачем? функцию на открытие каждой формы нужно вешать. (или загрузку)

А я вот и не хочу что бы туда прописывать.

Сообщение от alvk

Скачал, как открыть?

да в мдб не конвертируется говорит удалить пустые строки. Подстановку не использовал, столкнулся уже при выводе отчетов. поэтому теперь стараюсь не использовать.

@Бормалей · 30.09.2016, 08:55 **[ТС]**

вот мдб.

@alvk · 30.09.2016, 09:04

Сообщение от Бормалей

так я делаю доступ по формам, а не по контролам. Права на контролы в дальнейшем тоже будут

Э нет, в вашем случае так не пойдёт, ваши свойства работают на всю форму сразу, вы не сможете их применять частично, в контролах другие.

Сообщение от Бормалей

А я вот и не хочу что бы туда прописывать.

а я вот хочу небо чтоб жёлтым было

Сообщение от Бормалей

вот мдб.

посмотрю немного позже.

@Бормалей · 30.09.2016, 09:09 **[ТС]**

Сообщение от alvk

а я вот хочу небо чтоб жёлтым было

Мне бы такую проблему=)

Сообщение от alvk

Э нет, в вашем случае так не пойдёт, ваши свойства работают на всю форму сразу, вы не сможете их применять частично, в контролах другие.

Это почему? Я же сам буду выбирать что применять разрешения на контрол или форму.

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@Бормалей 104 / 55 / 7 Регистрация: 02.07.2013 Сообщений: 314
	29.09.2016, 10:59 [ТС]
	Но у меня тоже самое сделано только для форм а не для контролов. Потому что в той базе куда я хочу это при....делать больше 30 форм, и в каждой форме овердофига контролов. Хотя можно же просто перечитать все контролы каждой формы и создать таблицу. Хотя все равно для каждой роли и формы придется выставлять права. Но а все таки можно ли программно дописать программу? То есть Есть форма Klient. В событии до обновление есть некий код. Нужно программно вставить перед этим кодом вызов функции. 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,380
	30.09.2016, 02:38
	Так разрешения нужно под пользователя расставлять, а не под название формы. Формы вы можете и так настроить раз и навсегда в свойствах. 0