Разграничение доступа к системе

@bubles · Регистрация: 04.01.2013

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

Здравствуйте!
Такой у меня на вход Логин и пароль

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Form1.ADOQuery1.Close;
  ADOQuery1.SQL.Text:='SELECT * FROM Avtorizacija WHERE login = :p_login AND parol = :p_passw';
  if (Form1.Edit1.Text <> '') and (Form1.Edit2.Text <> '')
  then
  begin
    ADOQuery1.Parameters.ParamByName('p_login').Value := Form1.Edit1.Text;
    ADOQuery1.Parameters.ParamByName('p_passw').Value := Form1.Edit2.Text;
    try
      ADOQuery1.Open;
    Except
      ShowMessage('Не удалось открыть таблицу пользователей');
      Exit;
    end;
    if ADOQuery1.RecordCount > 0
    then
    begin
      ShowMessage('Вход успешно выполнен');
      Form1.Visible := False;
      Form2.Visible := True;
    end
    else
    begin
      ShowMessage('Неверный логин или пароль.Повторите ввод');
      Form1.Edit1.Text := '';
      Form1.Edit2.Text := '';
    end;
  end
  else
    ShowMessage('Пустые поля логин\пароль не допускаются');
end;

Мне необходимо сделать разграничение, т.е. у меня 4 пользователя, и каждый может редактировать определенные формы.
Как реализовать, что бы к примеру пользователь "Директор" мог только редактировать форму 5, а остальные только просматривать?

@FIL · 15.12.2014, 14:31

Добавь в таблицу Avtorizacija поле "Уровень доступа" и по нему определяй права пользователя.

@bubles · 15.12.2014, 15:21 **[ТС]**

можно пример кода

@FIL · 15.12.2014, 16:55

Delphi
1
2
3
4
case ADOQuery1.FieldByName('Уровень доступа').AsInteger of
0: ...;
1: ...;
end;

@bubles · 15.12.2014, 18:29 **[ТС]**

Куда вставить именно этот код в мой код авторизации?

Delphi
1
2
3
case ADOQuery1.FieldByName('dostup').AsInteger of
0:Form3.btn1.visible:=false ;
1:Form3.btn2.visible:=false;

@FIL · 15.12.2014, 18:36

Туда, где

Delphi
1
ShowMessage('Вход успешно выполнен');

@bubles · 15.12.2014, 19:14 **[ТС]**

Не удалось открыть таблицу пользователей - такая ошибка выскакивает

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
procedure TForm1.btn1Click(Sender: TObject);
begin
Form1.ADOQuery1.Close;
  ADOQuery1.SQL.Text:='SELECT * FROM Avtorizacija WHERE login = :p_login AND parol = :p_passw AND dostup = :p_dostup';
  if (Form1.Edit1.Text <> '') and (Form1.Edit2.Text <> '')
  then
  begin
    ADOQuery1.Parameters.ParamByName('p_login').Value := Form1.Edit1.Text;
    ADOQuery1.Parameters.ParamByName('p_passw').Value := Form1.Edit2.Text;
    try
      ADOQuery1.Open;
     
    Except
      ShowMessage('Не удалось открыть таблицу пользователей');
      Exit;
    end;
    if ADOQuery1.RecordCount > 0
    then
    begin
      ShowMessage('Вход успешно выполнен');
    Form1.Visible := False;
      Form2.Visible := True;
case ADOQuery1.Parameters.ParamByName('p_dostup').Value of
0:Form3.btn1.visible:=false ;
1:Form3.btn2.visible:=false;
end;
    end
    else
    begin
      ShowMessage('Неверный логин или пароль.Повторите ввод');
      Form1.Edit1.Text := '';
      Form1.Edit2.Text := '';
    end;
  end
  else
    ShowMessage('Пустые поля логин\пароль не допускаются');
end;
end.

@FIL · 15.12.2014, 21:41

В моем примере:

Delphi
1
case ADOQuery1.FieldByName('Уровень доступа').AsInteger of

а ты что понаписал?

@bubles · 15.12.2014, 21:59 **[ТС]**

Вход осуществляется, но выскачила эта ошибка

@FIL · 16.12.2014, 20:41

Ну так у тебя в таблице должно быть создано поле, где прописаны уровни доступа.
Вот его название и надо туда вписать вместо 'Уровень доступа'.

@bubles · 16.12.2014, 21:58 **[ТС]**

У меня такой sql запрос. И снова эта ошибка, только с названием №dostup"

Delphi
1
ADOQuery1.SQL.Text:='SELECT * FROM Avtorizacija WHERE login = :p_login AND parol = :p_passw AND dostup =:p_dosup';

@FIL · 16.12.2014, 22:10

Запрос оставь как был:

Delphi
1
ADOQuery1.SQL.Text:='SELECT * FROM Avtorizacija WHERE login = :p_login AND parol = :p_passw';

@bubles · 16.12.2014, 22:28 **[ТС]**

но ошибка эта остается, но что не найдено поле

@FIL · 16.12.2014, 22:41

Так ты его добавил в таблицу?

@bubles · 16.12.2014, 22:49 **[ТС]**

да и цифры вписал с 0 до 3

@FIL · 16.12.2014, 23:52

Выложи проект с базой.

@bubles · 17.12.2014, 15:26 **[ТС]**

вот моя программа,база данных называется BD

@FIL · 17.12.2014, 23:15

Посмотрел - эта часть работает.
Непонятно как ты проверял.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	15.12.2014, 14:31
	Добавь в таблицу Avtorizacija поле "Уровень доступа" и по нему определяй права пользователя. 1

@bubles 1 / 1 / 0 Регистрация: 04.01.2013 Сообщений: 42
	15.12.2014, 15:21 [ТС]
	можно пример кода 0

@bubles 1 / 1 / 0 Регистрация: 04.01.2013 Сообщений: 42
	15.12.2014, 21:59 [ТС]
	Вход осуществляется, но выскачила эта ошибка Миниатюры 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	16.12.2014, 20:41
	Ну так у тебя в таблице должно быть создано поле, где прописаны уровни доступа. Вот его название и надо туда вписать вместо 'Уровень доступа'. 1

@bubles 1 / 1 / 0 Регистрация: 04.01.2013 Сообщений: 42
	16.12.2014, 22:28 [ТС]
	но ошибка эта остается, но что не найдено поле 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	16.12.2014, 22:41
	Так ты его добавил в таблицу? 1

@bubles 1 / 1 / 0 Регистрация: 04.01.2013 Сообщений: 42
	16.12.2014, 22:49 [ТС]
	да и цифры вписал с 0 до 3 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	16.12.2014, 23:52
	Выложи проект с базой. 1

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	17.12.2014, 23:15
	Посмотрел - эта часть работает. Непонятно как ты проверял. 0