Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 14.02.2017
Сообщений: 86

Пользователи в програме с разными правами

27.02.2017, 12:42. Показов 1803. Ответов 19
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Добрый день ув. форумчане, подскажите как правильно организовать раздел пользователей на групы (админ, сотрудник) чтоб админ мог делать все (доб уд редакт данные с дб грид (ексесовская бд)).
К примеру, админ ввел лог и пас и видит все обьекты добавление в бд, сотрудник зашел, видит все добавленые обьекты админа кроме допустим номера телефона, удалить тоже не может.
Когда сотрудник внес свои данные, чтоб они также добавлялись в дбгрид
Ну как то так, заранее спасибо
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
27.02.2017, 12:42
Ответы с готовыми решениями:

Windows XP создание пользователей с разными правами на VB
Нужна помощь и не могу никак разобраться в этом задание. В операционной системе создать и настроить 3 пользователя: Пользователь 1 не...

Открытие БД Access с разными правами доступа в ADOConnection
Приветствую! Дано: в сетевой папке лежит access'овская БД. Доступ к папке ограничен. К ней одновременно обращаются с разных компьютеров...

Интернет приложения/сайты с разными правами доступа и рассылкой на email
Вобщем мне для диплома нужно сделать интернет проект в котором студенты будут после регистрации посылать конкурсные работы, а преподаватели...

19
554 / 484 / 191
Регистрация: 11.12.2013
Сообщений: 2,507
27.02.2017, 17:38
для начала создайте таблицу с типами пользователей (админ, пользователь), а потом создайте таблицу с правами, в ней будете задавать кто и что может делать.
0
 Аватар для krapotkin
6849 / 4676 / 1464
Регистрация: 14.04.2014
Сообщений: 20,664
Записей в блоге: 21
27.02.2017, 18:42
самое главное - вам все равно придется самостоятельно в программе при каждом действии проверять, имеет на него право этот юзер или нет
0
0 / 0 / 0
Регистрация: 14.02.2017
Сообщений: 86
27.02.2017, 20:14  [ТС]
спасибо всем за совет конечно) а как ето кодом примерно изобразить)? сориентируйте пожалуйста
0
5967 / 4543 / 1094
Регистрация: 29.08.2013
Сообщений: 28,157
Записей в блоге: 3
27.02.2017, 20:53
если пользователь входит в группу1 то то, иначе это
0
0 / 0 / 0
Регистрация: 14.02.2017
Сообщений: 86
27.02.2017, 22:18  [ТС]
а как ето всетаки реализовать ?)
0
 Аватар для krapotkin
6849 / 4676 / 1464
Регистрация: 14.04.2014
Сообщений: 20,664
Записей в блоге: 21
27.02.2017, 22:29
здесь место для конкретного вопроса
если мы говорим "это", мы должны точно знать, что
что КОНКРЕТНО непонятно
базу сделали?
при старте программы к ней подключились?
запросили у пользователя логин-пароль?
хоть что-то?
0
W
 Аватар для kavasaka
115 / 115 / 33
Регистрация: 16.04.2013
Сообщений: 750
28.02.2017, 09:07
значит вместо 1 таблицы Users создаешь 2, еще к ней справочник групп:
Миниатюры
Пользователи в програме с разными правами  
0
W
 Аватар для kavasaka
115 / 115 / 33
Регистрация: 16.04.2013
Сообщений: 750
28.02.2017, 09:09
таблица групп
Миниатюры
Пользователи в програме с разными правами  
0
W
 Аватар для kavasaka
115 / 115 / 33
Регистрация: 16.04.2013
Сообщений: 750
28.02.2017, 09:12
и вместо ADOTable для юзеров делаешь AdoQuery с SQL запросом
SQL
1
SELECT USERS.*, Sp_Grup.* FROM Sp_Grup RIGHT JOIN USERS ON Sp_Grup.kod = USERS.k_Grup;
возвращает нечто такое:
Миниатюры
Пользователи в програме с разными правами  
0
W
 Аватар для kavasaka
115 / 115 / 33
Регистрация: 16.04.2013
Сообщений: 750
28.02.2017, 09:34
дальше как обычно - авторизация (к этому sql добавляется WHERE для фильтрации).
И как в #3 писали проверяешь права перед каждым действием.

Добавлено через 17 минут
например кнопка Редактировать:
Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
      if (DM.aq_USER.FieldByName('is_Edit_ALien').Value = false) and
         (DM.aq_USER.FieldByName('kod').AsInteger <> ADOTable1.FieldByName('k_user').AsInteger) then
 
            ShowMessage('У вас нет прав ')
 
       alse
               form4.show;
      end;
end;
0
0 / 0 / 0
Регистрация: 14.02.2017
Сообщений: 86
28.02.2017, 13:20  [ТС]
kavasaka, спасибо большое, суть уловил))) сейчас буду пробовать
0
0 / 0 / 0
Регистрация: 14.02.2017
Сообщений: 86
01.03.2017, 15:10  [ТС]
kavasaka, привет) получается нужно не две отдельных таблицы, а одна? в которой и лог с пасом и ети добавочные данные?)
0
W
 Аватар для kavasaka
115 / 115 / 33
Регистрация: 16.04.2013
Сообщений: 750
01.03.2017, 16:04
привет! Одна была бы если бы права каждому юзеру выдавались индивидуально.
Но ты пожелал
Цитата Сообщение от andreypoltava17 Посмотреть сообщение
организовать раздел пользователей на групы (админ, сотрудник)
Т.е. может быть несколько юзеров с одинаковой группой и следовательно одинаковыми правами. И если для этого использована одна таблица, то в базе будут дубли-повторы одной и той же информации, что в нормально организованной базе стараются избегать.
Повторяющиеся данные выносятся в справочник, а в главной таблице заводится поле для ссылок (в котором они уже могут использоваться 100500 раз) на строку в справочнике.
А запрос стягивает данные в одну типа таблицу и ее используют в программе как один набор данных (датасет).
0
0 / 0 / 0
Регистрация: 14.02.2017
Сообщений: 86
01.03.2017, 17:06  [ТС]
kavasaka, наверное лучше не на групы разбивать а конкретно на определенных пользователей, значит 1 таблицу?
0
W
 Аватар для kavasaka
115 / 115 / 33
Регистрация: 16.04.2013
Сообщений: 750
02.03.2017, 09:13
я тебе скидывал примерчик с авторизацией там одна таблица.
сам решай, но что тебя так напугало не понял..
0
0 / 0 / 0
Регистрация: 14.02.2017
Сообщений: 86
06.03.2017, 12:52  [ТС]
kavasaka, привет чтото я опять запутался, я хочу чтоб была 1 таблица, чтоб раздел был не на групы пользователей а конкретно на пользователей! тут нужна 1 таблица? та что самую первую ты скидывал?)
0
W
 Аватар для kavasaka
115 / 115 / 33
Регистрация: 16.04.2013
Сообщений: 750
06.03.2017, 15:23
Цитата Сообщение от andreypoltava17 Посмотреть сообщение
та что самую первую ты скидывал?)
привет! она самая! https://www.cyberforum.ru/post10134367.html
0
0 / 0 / 0
Регистрация: 14.02.2017
Сообщений: 86
06.04.2017, 23:35  [ТС]
kavasaka, привет помощник) зашел поздороватся, как ты ?)да, кстати, програму доделал. Хотел сказать тебе большое спасибо!))
0
W
 Аватар для kavasaka
115 / 115 / 33
Регистрация: 16.04.2013
Сообщений: 750
07.04.2017, 08:23
Привет! Та ладно вот так и доделал? Путь же к совершенству бесконечен --> и зарплата у программиста тоже )

Не по теме:

как, как.. блокада, блин!... все сложно! :(

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
07.04.2017, 08:23
Помогаю со студенческими работами здесь

Обеспечение доступа к хранилищу с разными правами для одного и того же пользователя
Имеется домен на win srv 2012R2, 3 терминальных сервера и брокер, установленный на одном из 3 серверов. Задача: создать подключаемое...

Возможно ли реализовать доступ к базе через веб-интерфейс с разными правами доступа
Возможно ли реализовать доступ к базе через веб-интерфейс с разными правами доступа? Добавлено через 19 часов 16 минут Всё ещё...

Имеется учетная запись Administrator с правами "Пользователи". Не удается изменить права на "Администраторы"
Здравствуйте, уважаемые знатоки. Ситуация такова. При установке программы в сопроводительной бумажке предлагалось понизить права...

Запуск процесса с правами пользователя (запускающая программа работает с правами администратора)
Здравствуйте. Требуется выполнить действие, описанное в заголовке. Читал тему...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru