1 Topic by sait0219 (edited by sait0219 2016-03-18 02:57:50)

  • Registered: 2016-03-18
  • Posts: 45

Topic: Форма входа для зарегистрированных пользователей.

Уважаемый Дмитрий. Возможно ли реализовать такую функцию. Сделана форма входа можно регистрировать пользователей. Так вопрос в том. Как можно сделать чтобы для  админа к примеру были доступны все формы, а для гостя всего 3. И так для каждого пользователя относящегося к разделу, модератор, администратор, гость и тд.Я думаю вы меня поняли. Мы делаем очень сложную  дипломную работу на вашей программе для ВУЗов, после завершения закину её сюда.

  • Registered: 2016-02-28
  • Posts: 124

Re: Форма входа для зарегистрированных пользователей.

А просто не выводить кнопки вызова форм и пункты меню для определенных групп не достаточно? Я этим ограничился.

  • Registered: 2016-03-18
  • Posts: 45

Re: Форма входа для зарегистрированных пользователей.

Можете скинуть пример как вы это реализовали?

Raspr wrote:

А просто не выводить кнопки вызова форм и пункты меню для определенных групп не достаточно? Я этим ограничился.

  • Registered: 2016-02-28
  • Posts: 124

Re: Форма входа для зарегистрированных пользователей.

Полностью работу нет - там еще черт ногу сломит. ))
Но логика такая: при авторизации мы запоминаем группу пользователя:

if SQLExecute ('SELECT admin FROM users WHERE id = '+IntToStr(idUser)) = '1' then isAdmin := True;

Далее в procedure Form1_OnShow - не показываем ему что-то, если он не принадлежит какой-то группе, например:

if isAdmin = False then Form1.Button1.Visible := False;

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