Авторизация по группе пользователей

@rich650 · Регистрация: 02.08.2012

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

Добрый вечер, уважаемые форумчане.
Мне необходимо сделать некую форму авторизации для пользователей.
Имеется таблица, в которой указаны Логин и Группа пользователей.
На форме 1 есть поле, в которое пишется логин пользователя. Необходимо, что бы по кнопке на форме 1, считывалось, то что указано в поле, далее сопоставлялось с группой доступа из таблицы и открывалась нужная форма.
В дальнейшем значение в поле будет браться из системной переменной из профиля пользователя Windows.
Прикрепляю файл тестовой базы.
Заранее Спасибо за помощь.

@amd48 · 02.11.2017, 15:56

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

@Eugene-LS · 03.11.2017, 14:53

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

Имеется таблица, в которой указаны Логин и Группа пользователей.

Группа пользователей нужна для определения прав пользователя (согласно группе в которую оный входит).
Обычно так:
Форма входа: LogIn + PassWord - и после успешного входа определяем группу вошедшего пользователя и его права согласно группе к которой он принадлежит.

@rich650 · 07.11.2017, 15:51 **[ТС]**

Добрый вечер, Спасибо за критику. Вроде почти разобрался. Подключил DAO библиотеку. Создал RecordSet c запросом из таблицы. Далее вытащил нужное поле из него. Вот только не могу понять одну штуку. Когда в запросе прописываю конкретное значение пользователя, то все работает, а как пытаюсь сделать это через переменную, то запрос требует параметр, т.е. значение переменной не передается в запрос. Где может быть ошибка. Заранее спасибо за ответ.
Код

Visual Basic
1
2
3
4
5
6
Dim Login As Long
Login = User
Set rst = CurrentDb.OpenRecordset("SELECT Users.Group, Users.User FROM Users WHERE (((Users.User)= Login));")
ppp = rst.Fields("Group").Value
MsgBox ppp
Me.Группа = ppp

@tkrainyk · 07.11.2017, 15:57

SQL
1
" & Login

mobile · 07.11.2017, 15:58

Ошибка в том, что переменная Login включена в текст строки SQL и соответственно стала частью строки. А не переменной. Надо выносить из строки, чтобы компилятор понял, что это переменная. Ну и поскольку поле юсера текстовое, то переменная должна быть в апострофах

Visual Basic
1
Set rst = CurrentDb.OpenRecordset("SELECT Users.Group, Users.User FROM Users WHERE Users.User= '" & Login & "'")

Добавлено через 38 секунд
Аппаздал

@rich650 · 08.11.2017, 08:26 **[ТС]**

Спасибо, большое!!!

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

@amd48 845 / 475 / 80 Регистрация: 18.05.2016 Сообщений: 1,267 Записей в блоге: 5
	02.11.2017, 15:56
	Помощи не стоит ждать, т.к. не обрисована конкретная проблема. Я её вижу в лени. Платная "помощь" с выполнением школьных заданий в другом разделе форума, вроде 0

@rich650 1 / 1 / 0 Регистрация: 02.08.2012 Сообщений: 67
	08.11.2017, 08:26 [ТС]
	Спасибо, большое!!! 0

Авторизация по группе пользователей

Решение