Авторизация и права доступа через ADOQuery: анализ ошибок

@AlexZhiv · Регистрация: 28.07.2019

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

Добрый день, форумчане!

У меня есть база данных в Access, в которой я создал таблицу Sotrudniki. Всех сотрудников я поделил на 5 ролей в зависимости от прав доступа (привилегий) к тем или иным базам. Попробовал создать в Делфи 7 форму авторизации (по нажатию кнопки после введения логина и пароля) для каждого из пяти типов сотрудников (в таблице это столбец Роль). После нахождения нужного значения столбца "Роль" процедура должна соединять с нужной формой через ADOQuery1 в DataModule2.
Попытался скомпилировать. И увидел, что где-то не верно понял логику ADOQuery, т.к. после написания проги система выдала сразу два типа ошибок: 1) Incompatible types: 'String' and 'TADOQuery' и 2) Missing operator or semicolon.
Вопрос: в каком символе, операторе или типе данных я допустил ошибку?

Привожу листинг процедуры:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.Button1Click(Sender: TObject);
begin
if (Edit1.Text<>'') and (Edit2.Text<>'') then
DataModule2.ADOQuery1.SQL.Clear;
DataModule2.ADOQuery1.SQL.Add('SELECT Отдел, ФИО сотрудника, Должность, Телефон, Разрешение на вход, ID сотрудника, Логин, Пароль, Роль FROM Sotrudniki WHERE Логин='+#39+Edit1.Text+#39);
DataModule2.ADOQuery1.Open;
if DataModule2.ADOQuery1.IsEmpty
  then ShowMessage('Пользователь '+Edit1.Text+' не зарегистрирован ')
  else DataModule2.ADOQuery1.FieldByName('Разрешение на вход')
    if DataModule2.ADOQuery1.FieldByName('Пароль').Value <> Edit2.Text
      then
           ShowMessage('Вы ввели неверный пароль!')
      else
if DataModule2.ADOQuery1('Роль') = 'user' then UserAutorize(Form3)
else
if DataModule2.ADOQuery1('Роль') = 'adm' then UserAutorize(Form4)
else
if DataModule2.ADOQuery1('Роль') = 'dir' then UserAutorize(Form5)
else
if DataModule2.ADOQuery1('Роль') = 'rukotd' then UserAutorize(Form6)
else
if DataModule2.ADOQuery1('Роль') = 'kadry' then UserAutorize(Form7)
end;

Спасибо за внимание.

Скандербег · 28.07.2019, 12:32

Видимо, так:
- в строке 9 нет точки с запятой;
- обращение к значениям полей надо делать след. образом DataModule2.ADOQuery1['Роль']. В этом случае компонент возвращает вариантное значение, которое можно сравнивать со строковыми значениями.

@AlexZhiv · 28.07.2019, 13:07 **[ТС]**

Ага. Понял. Большое спасибо! Исправил. После перекомпиляции нашел еще одну ошибку:

Undeclared identifier: 'UserAutorize'

Делфи нашел необъявленный идентификатор. Как и где его объявить? Правильно ли такое объявление? -

Delphi
1
UserAutorize: TForm

Если да, то где это сделать? Если указываешь в скобках

Delphi
1
procedure TForm1.Button1Click(Sender: TObject; UserAutorize: TForm),

появляются новые ошибки.

Скандербег · 28.07.2019, 13:15

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

UserAutorize

Что это за зверь такой (компонент, форма, процедура)? Где он создан и создан ли вообще?

@AlexZhiv · 28.07.2019, 13:36 **[ТС]**

Это я пытался ранее создать процедуру авторизации, но потом удалил её, т.к. она работала некорректно. "Но осадок остался".))

В общем, я заменил

Delphi
1
UserAutorize(Form3)

на

Delphi
1
Form3.Show

- и всё у меня заработало. Только нужно было еще почистить запрос SQL от полей, записанных некорректно (после перекомпиляции прога выдавала ошибку оператора в поле 'ФИО сотрудника').

Всем спасибо! Пошел дальше "пилить" проект.

@qwertehok · 30.07.2019, 10:34

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

if DataModule2.ADOQuery1('Роль') = 'user' then UserAutorize(Form3)
else
if DataModule2.ADOQuery1('Роль') = 'adm' then UserAutorize(Form4)
else
if DataModule2.ADOQuery1('Роль') = 'dir' then UserAutorize(Form5)
else
if DataModule2.ADOQuery1('Роль') = 'rukotd' then UserAutorize(Form6)
else
if DataModule2.ADOQuery1('Роль') = 'kadry' then UserAutorize(Form7)
end;

вот это бред
каждой роли нужно назначить ID, потом можно case'ом обработать - это как минимум
зачем потом 4 формы для авторизации городить? 1 не хватит?
или директору нужны красивости и шелест банкнот?

а если ролей 10?

А сам запрос? Ты передаешь в базу логин и пароль, зачем тебе 100500 колонок в ответ?

Delphi
1
2
3
4
5
6
if Trim(e_Login.Text<>'') and e_Password.Text<>'' then
begin
DataModule2.ADOQuery1.SQL.Text:='SELECT Роль FROM Sotrudniki WHERE Логин='+ QuotedStr(e_Login.Text)+' and Пароль= '+QuotedStr(e_Password.Text);
DataModule2.ADOQuery1.Open;
 
end;

1. не забывай очищать Логин от пробелов, Пароль не нужно - там пробел может быть паролем
2. не забывай назначить НОРМАЛЬНЫЕ имена компонентам
3. НОРМАЛЬНЫЕ имена Таблицам. Какие Sotrudniki???
4. Ты используешь Аксесс - какие русские имена у колонок? как ты будешь дальше запросы писать?
вдобавок ты забыл begin .. end

@Пытливый · 30.07.2019, 11:35

Ты используешь Аксесс - какие русские имена у колонок? как ты будешь дальше запросы писать

Русские имена допустимы, но использовать их морока, т.к. весь синтаксис SQL или Delphi использует английские буквы и переключаться туда/сюда удовольствие ниже среднего.

@AlexZhiv · 30.07.2019, 15:22 **[ТС]**

Понял ошибки. Буду пытаться исправлять. Спасибо за отзывы.

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	28.07.2019, 12:32
	Сообщение было отмечено AlexZhiv как решение Решение Видимо, так: - в строке 9 нет точки с запятой; - обращение к значениям полей надо делать след. образом DataModule2.ADOQuery1['Роль']. В этом случае компонент возвращает вариантное значение, которое можно сравнивать со строковыми значениями. 0

@AlexZhiv 0 / 0 / 0 Регистрация: 28.07.2019 Сообщений: 4
	30.07.2019, 15:22 [ТС]
	Понял ошибки. Буду пытаться исправлять. Спасибо за отзывы. 0

Авторизация и права доступа через ADOQuery: анализ ошибок

Решение