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

@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

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

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@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