Авторизация пользователя

[Serge_Bliznykov]

в таблице будет отображаться только эта найденная запись.

нет такого визуального компонента в Delphi как "таблица"
Вы имеете в виду DBGrid ?! и он связан через DataSource с вашим запросом?
Ну так выполните запрос "select * from ВашаТаблица" (без условий отбора) - отобразятся ВСЕ данные!

Забыл пояснить, LoginValue - это значение, которое я ввижу в Edit, как критерий поиска.

при чём здесь это?!
Вы написали строчку:

ADOQuery1.Parameters.ParamByName('LoginValue') .value:=Form_search.Edit1.text;

это означает, что у Вас В ЗАПРОСЕ есть параметер с именем LoginValue. я в тексте запроса такого параметра не вижу. Вот поэтому и спрашиваю, как это может работать?!

[stevieg]

С поиском по таблице разобрался. Спасибо.
И насчет первого вопроса, по поводу проверки уровня доступа при авторизации. Сделал как вы сказали, но теперь когда выполняю процедуру, говорит, что неверный логин /пароль. Какая то ошибка у меня в коде. Наведите на путь истинный

AdoQuery1.Close;
AdoQuery1.SQL.Text := 'select Login, Password, Access from Users '+      {Access - поле с правами доступа, то самое}
   ' where Login='+QuotedStr(Login.text)+
   ' and Password='+QuotedStr(Hash.Text)+
   ' and Access='+QuotedStr(AL.Text);     {AL - TEdit, куда помещается значение с поля Access, если я правильно понял и делать нужно именно так}
AdoQuery1.Open;
if  AdoQuery1.RecordCount = 0 then ShowMessage('Неверный логин/пароль.'
+#10#13+'Повторите попытку.')
  else if AdoQuery1.RecordCount = 1  then
      begin
      AL.text:= AdoQuery1.FieldByName('Access').AsString;
     if AL.text = 'Администратор' then Form_admin.Show
     else form_DB.show;
     ShowMessage('Вы вошли как '+AdoQuery1.FieldByName('Login').AsString);
ADoQuery1.Close;

[Аватар]

А как здравый смысл подсказывает без всякого программирования? Сначала ищем пользователя в таблице базы по логину и паролю (замечу - без всякого Access в условии выборки). И если пользователь найден, то в зависимости от значения Access ветвим выполнение программы.

[stevieg]

Сообщение от Аватар

замечу - без всякого Access в условии выборки

Вы про это?

P.S. Я прошу меня строго не судить, я эти вещи только только осваиваю.)

[Serge_Bliznykov]

   ' and Access='+QuotedStr(AL.Text);     {AL - TEdit, куда помещается значение с поля Access, если я правильно понял и делать нужно именно так}

согласен с Аватар. Условие проверки уровня явно ЛИШНЕЕ!
удалите помеченную строчку из запроса!

[stevieg]

Ребята, спасибо, все сработало.
Если будут еще сложности, не постесняюсь спросить вас здесь.

[Serge_Bliznykov]

пожалуйста.

Если будут еще сложности, не постесняюсь спросить вас здесь.

Welcome!
Только помните - по правилам форума - "один вопрос - одна тема!"
поэтому, если вопрос будет связан с авторизацией - задавайте в данной теме, а если с чем-то другим, то лучше создать новую тему!

[stevieg]

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

Welcome!
Только помните - по правилам форума - "один вопрос - одна тема!"
поэтому, если вопрос будет связан с авторизацией - задавайте в данной теме, а если с чем-то другим, то лучше создать новую тему!

Хорошо, учту. Еще раз спасибо, Сергей.