Еще раз про форму входа пользователей

@Chuvaschow · Регистрация: 20.07.2017

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

Здравствуйте, Уважаемые форумчане!

Вопрос формы входа пользователей - стар как мир. Но гугление не дает конкретных ответов.
Суть такова: есть форма входа пользователей, в которой на кнопке Войти висит процедура на проверку пары Логин/Пароль в таблице UserPermission. Сам вход работает отлично. Вопросы начинаются после входа. А именно:

1. Хотелось бы на основании выбранного пользователя установить чтение/изменение на таблицы и формы. Делать это в той же процедуре входа?

2. Хотелось бы в процессе работы с базой меть возможность получить информацию о выбранном для входа пользователе в любой момент времени. Хранить выбранного пользователя во временной таблице и уничтожать ее при выходе из приложения? или помещать в глобальную переменную? Как правильнее?

Сам код:

@Capi · 27.07.2017, 09:20

Visual Basic
1
t.Locked = True

Здесь без Me должно быть.

@Chuvaschow · 27.07.2017, 09:25 **[ТС]**

Не открывается тогда форма

@Capi · 27.07.2017, 09:39

Во-первых, нужно внятно описывать ситуацию, а не "не открывается тогда форма".
Скорее всего, там есть контролы, у которых свойства Locked нет.
Например, надписи.
Поэтому нужно добавить обход этих случаев.
Самое простое:

Visual Basic
1
2
On Error Resume Next
t.Locked = True

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

@Chuvaschow · 27.07.2017, 10:06 **[ТС]**

Не открывается тогда форма

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

Во-первых, нужно внятно описывать ситуацию, а не "не открывается тогда форма".

Честное слово, пишем код, сохраняем, идем в Access, открываем форму в которой код писали - ничего не происходит.
Комментируем код - форма открывается.

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

Поэтому нужно добавить обход этих случаев.

Совершенно верно, об этом я не подумал. Спасибо!

Добавлено через 17 минут
При такой ситуации блокируются все контролы основной формы, а также все подчиненные формы.
Видимо нужно обходить все контролы кроме подчиненных форм?

@alvk · 27.07.2017, 10:14

вы же сами написали, чтобы блокировались все контролы, я вам предлагал с tag поиграться и блокировать/разблокировать только те, которые необходимо.

@Chuvaschow · 27.07.2017, 10:18 **[ТС]**

@Capi · 27.07.2017, 10:18

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

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

Вы же сами просили:

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

Подскажите, как перебрать все поля (контролы) формы и выставить им Locked?

Определитесь, что именно требуется, и делайте.
Инструментарий Вам показан.

@Chuvaschow · 27.07.2017, 10:22 **[ТС]**

да да, спасибо! буду думать

@Chuvaschow · 28.07.2017, 11:49 **[ТС]**

Господа, научите делать выбор из справочника?

в ФАКе есть про это, но не работает увы. Есть форма, на ней подчиненная табличная форма, есть форма справочника. В событие двойного клика по полю подчиненной формы вставляю такой код (как в ФАКе):

Visual Basic
1
Forms("InvestProjectDefault").Controls("GIP").Value = Forms("Справочник ГИП").Controls("GIP").Value

Ничего не происходит.

InvestProjectDefault подчиненная форма
Справочник ГИП - собственно справочник

Добавлено через 10 минут
Странно все описано, ведь нужна некая общая переменная, в которую мы будем помещать активный (выбранный) элемент?

Добавлено через 1 час 4 минуты
Объявил глобальную переменную, из каждого справочника пишу в нее Активный контрол, затем забираю в нужную форму.

Костыль конечно, но пока по другому не умею

Вопрос такой. Если одновременно работают 3 человека, каждый будет писать в одну и ту же переменную?
То есть один пользователь открыл справочник А, записал в переменную, тут же открыл второй пользователь тот же справочник и перезаписал переменную?

@alvk · 28.07.2017, 13:39

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

Новые блоги и статьи Все статьи Все блоги /
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .

@Chuvaschow 2 / 2 / 1 Регистрация: 20.07.2017 Сообщений: 218

	Еще раз про форму входа пользователей 24.07.2017, 13:09. Показов 2060. Ответов 29 Метки нет (Все метки) Здравствуйте, Уважаемые форумчане! Вопрос формы входа пользователей - стар как мир. Но гугление не дает конкретных ответов. Суть такова: есть форма входа пользователей, в которой на кнопке Войти висит процедура на проверку пары Логин/Пароль в таблице UserPermission. Сам вход работает отлично. Вопросы начинаются после входа. А именно: 1. Хотелось бы на основании выбранного пользователя установить чтение/изменение на таблицы и формы. Делать это в той же процедуре входа? 2. Хотелось бы в процессе работы с базой меть возможность получить информацию о выбранном для входа пользователе в любой момент времени. Хранить выбранного пользователя во временной таблице и уничтожать ее при выходе из приложения? или помещать в глобальную переменную? Как правильнее? Сам код: Миниатюры 0

@Chuvaschow 2 / 2 / 1 Регистрация: 20.07.2017 Сообщений: 218
	27.07.2017, 09:25 [ТС]
	Не открывается тогда форма 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,383
	27.07.2017, 10:14
	вы же сами написали, чтобы блокировались все контролы, я вам предлагал с tag поиграться и блокировать/разблокировать только те, которые необходимо. 0

@Chuvaschow 2 / 2 / 1 Регистрация: 20.07.2017 Сообщений: 218
	27.07.2017, 10:18 [ТС]
	0

@Chuvaschow 2 / 2 / 1 Регистрация: 20.07.2017 Сообщений: 218
	27.07.2017, 10:22 [ТС]
	да да, спасибо! буду думать 0

@alvk 7459 / 4592 / 302 Регистрация: 12.08.2011 Сообщений: 14,383
	28.07.2017, 13:39
	главная и подчинённая связываются полям с кодом, в подчинённой должно быть поле с кодом главной, где значение по умолчанию - код главной. 0