Авторизация Delphi БД Access

@st1x · Регистрация: 26.10.2016

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

проблема такая:
Создал в Access таблицу 'users'. там есть данные о логине и о пароле.
В дельфи создал форму "авторизация". В нем есть combobox1 где вводят логин и edit1 где вводят пароль, связка с БД есть(ADOConnection1), при нажатии кнопки если логин и пароль совпадают надо открыть вторую форму. У каждого есть отдельный логин и пароль. и возможно ли разделить права, допустим добавить в таблицу "users" столбец "role" и вставить там admin и user, и исходя из этого пользователю с ролью "user" были доступны не все кнопки

@Пытливый · 11.06.2019, 00:26

Сделать при желании можно что угодно, только если у вас права на таблицу, а не на записи в таблице, то правила доступа имеет смысл оформить в отдельную таблицу примерно такого вида: КодПользователя, ИмяТаблицы, Права

@st1x · 11.06.2019, 00:34 **[ТС]**

Сообщение от Пытливый

КодПользователя, ИмяТаблицы, Права

да, я именно так и сделал, теперь вопрос в создании авторизации и разграничении прав

@st1x · 11.06.2019, 00:44 **[ТС]**

Подскажите где ошибка вот код:

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
procedure TForm13.Button1Click(Sender: TObject);
begin
ADOQuery.Close;
  ADOQuery.SQL.Text:='SELECT * FROM table_users WHERE login = :p_login AND password = :p_passw ';
  if (Form13.Edit1.Text <> '') and (Form13.Edit2.Text <> '' )
  then
  begin
    ADOQuery.Parameters.ParamByName ('p_login').Value := Form13.Edit1.Text;
    ADOQuery.Parameters.ParamByName('p_passw').Value := Form13.Edit2.Text;
    try
      ADOQuery.Open;
    Except
      ShowMessage('Не удалось открыть таблицу пользователей');
      Exit;
    end;
    if ADOQuery.RecordCount > 0 
    then
    begin
      ShowMessage('Вход успешно выполнен');
      Form13.Visible := False;
      Form1.Visible := True;
    end
    else
    begin
      ShowMessage('Неправильный логин или пароль');
      Form13.Edit1.Text := '';
      Form13.Edit2.Text := '';
    end;
  end
  else
    ShowMessage('Пустые поля логина\пароля не допускаются');
  end;
 
end.

@D1973 · 11.06.2019, 04:50

А так?

Delphi
1
2
3
4
5
6
7
8
if (Edit1.Text <> '') and (Edit2.Text <> '' )  then
  begin
    ADOQuery.SQL.Text:='SELECT * FROM table_users WHERE (login = :p_login) AND (password = :p_passw)';
    ADOQuery.Parameters.ParamByName ('p_login').Value := Edit1.Text;
    ADOQuery.Parameters.ParamByName('p_passw').Value := Edit2.Text;
    try
      ADOQuery.Open;
//Дальше без изменений...

@Пытливый · 11.06.2019, 10:49

Думается мне, что это не поможет. Есть предположение, что использовать в качестве имен полей слова login,password не рекомендуется. И можно еще пересоздать параметры, после формирования текста запроса:

Delphi
1
2
ADOQuery.SQL.Text:='SELECT * FROM table_users WHERE (login = :p_login) AND (password = :p_passw)';
ADOQuery.Parameters.ParseSQL(ADOQuery.SQL.Text, True);

@st1x · 11.06.2019, 21:39 **[ТС]**

Сообщение от Пытливый

имен полей слова login,password

а как посоветуете сделать ?

@D1973 · 11.06.2019, 21:44

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

а как посоветуете сделать

А что, предложенный мной вариант не сработал?

@st1x · 11.06.2019, 21:48 **[ТС]**

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

А что, предложенный мной вариант не сработал?

SQL
1
ADOQuery.Parameters.ParseSQL(ADOQuery.SQL.Text, TRUE);

с добавлением этого идеально работает, ещё вопрос, вот я добавил столбец role(роль) в таблицу "table_users" как сделать чтобы при входе он проверял если в столбце роль у этого пользователя стоит admin то доступно всё, а если user то некоторые кнопки и формы не доступны

@D1973 · 12.06.2019, 04:41

Delphi
1
2
3
4
5
6
7
8
if ADOQuery.FieldByName('Role').AsString = 'admin' then
 begin
   //тут делаете все доступным
 end
else
 begin
  //тут что-то ограничиваете
 end;

@st1x · 12.06.2019, 19:32 **[ТС]**

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

1

спасибо большое, но я незнаю как сделать проверку столбца role

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
procedure TForm13.Button1Click(Sender: TObject);
begin
ADOQuery.Close;
  ADOQuery.SQL.Text:='SELECT * FROM table_users WHERE login = :p_login AND password = :p_passw ';
  if (Edit1.Text <> '') and (Edit2.Text <> '' )  then
  begin
    ADOQuery.SQL.Text:='SELECT * FROM table_users WHERE (login = :p_login) AND (password = :p_passw)';
    ADOQuery.Parameters.ParamByName ('p_login').Value := Edit1.Text;
    ADOQuery.Parameters.ParamByName('p_passw').Value := Edit2.Text;
    try
      ADOQuery.Open;
    Except
      ShowMessage('Не удалось открыть таблицу пользователей');
      Exit;
    end;
    if ADOQuery.RecordCount > 0 
    then
    begin
      ShowMessage('Вход успешно выполнен');
      Form13.Visible := False;
      Form1.Visible := True;
    end
    else
    begin
      ShowMessage('Неправильный логин или пароль');
      Form13.Edit1.Text := '';
      Form13.Edit2.Text := '';
    end;
  end
  else
    ShowMessage('Пустые поля логина\пароля не допускаются');
  end;
 
end.

@D1973 · 13.06.2019, 04:05

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

я незнаю как сделать проверку столбца role

А я Вам что показал в посте #10?

Новые блоги и статьи Все статьи Все блоги /
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .

@st1x 0 / 0 / 0 Регистрация: 26.10.2016 Сообщений: 72

	Авторизация Delphi БД Access 11.06.2019, 00:09. Показов 3690. Ответов 11 Метки нет (Все метки) проблема такая: Создал в Access таблицу 'users'. там есть данные о логине и о пароле. В дельфи создал форму "авторизация". В нем есть combobox1 где вводят логин и edit1 где вводят пароль, связка с БД есть(ADOConnection1), при нажатии кнопки если логин и пароль совпадают надо открыть вторую форму. У каждого есть отдельный логин и пароль. и возможно ли разделить права, допустим добавить в таблицу "users" столбец "role" и вставить там admin и user, и исходя из этого пользователю с ролью "user" были доступны не все кнопки 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	11.06.2019, 00:26
	Сделать при желании можно что угодно, только если у вас права на таблицу, а не на записи в таблице, то правила доступа имеет смысл оформить в отдельную таблицу примерно такого вида: КодПользователя, ИмяТаблицы, Права 0

Авторизация Delphi БД Access

Решение

Решение