Цикл на сравнение значения из БД

[reihtmonbern]

Здравствуйте есть задача реализовать вход в бд Access по паролю

Вот код

procedure TForm1.Button1Click(Sender: TObject);
var s, v,d:string;
begin
s:=Edit1.Text;
 v:=Edit2.Text;
 d:=Edit3.Text;
 while not ADOQuery1.Eof do begin

    if ADOQuery1.FieldValues['N'] = Edit1.Text then Form2.Show;
    if ADOQuery1.FieldValues['N'] <> Edit1.Text then Showmessage('Ошибка');
    ADOQuery1.Next;
  end;
end;

он работает корректно если я ввожу неправильный пароль выходит сообщение об ошибке но второй раз программа не работает вторую попытку нельзя сделать , а когда ввожу правильное значение то тогда открывается вторая форма но и сообщение об ошибке тоже .
Подскажите пожалуйста как можно этот код грамотно доработать
ниже во вложении исходник ...

[VIK_aka_TOR]

при нажатии этой кнопки уже рассчитано что запрос в адоквери уже запущен, и перебирает результаты с начала
в то время как при повторном нажатии на кнопку будет уже весь результат просмотрен и фокус на пустом месте (пояледняя просмотрена)
т.е. при повторном нажатии нужно либо делать ADOQuery1.First; либо делать ADOQuery1.Close; ADOQuery1.Open;

в идеале сразу можно составить SQL запрос который будет искать пароль в бд... в случае который ты привел... будет работать некорректно
если сперва попадется верный - все норм, форму закроешь, он дальше будет гонять цикл, аналогично и с Ошибкой... за вход выбить может пару раз...

[eval]

логику этого кода вообще трудно понять, зачем нажимать да еще и несколько раз?

[Konstantin_ua]

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

Здравствуйте есть задача реализовать вход в бд Access по паролю

Вот код

procedure TForm1.Button1Click(Sender: TObject);
var s, v,d:string;
begin
s:=Edit1.Text;
 v:=Edit2.Text;
 d:=Edit3.Text;
 while not ADOQuery1.Eof do begin

    if ADOQuery1.FieldValues['N'] = Edit1.Text then Form2.Show;
    if ADOQuery1.FieldValues['N'] <> Edit1.Text then Showmessage('Ошибка');
    ADOQuery1.Next;
  end;
end;

он работает корректно если я ввожу неправильный пароль выходит сообщение об ошибке но второй раз программа не работает вторую попытку нельзя сделать , а когда ввожу правильное значение то тогда открывается вторая форма но и сообщение об ошибке тоже .
Подскажите пожалуйста как можно этот код грамотно доработать
ниже во вложении исходник ...

Вот корявый запросик но думаю должен работать

 try
    with F_Main.ADOQuery1 do
    begin
      Active:=False;
      SQL.Clear;                     //BD ИМЯ ТАБЛИЦЫ,  N ИМЯ ПОЛЯ                                                                                                                                                                     
      SQL.Add('SELECT * FROM BD=:pPASS WHERE N=:pid');
      Parameters.ParamByName('pPASS').Value:=EDIT1.TEXT;
       ExecSQL;
       if(F_Main.ADOQuery1.RecordCount>0) showmessage('pass true') else Showmessage('Pass false');
 except
    on e:Exception do
   end;

[_SERGEYX_]

В коде выше ExecSQL не будет работать. Это же селективный запрос!
Вместо sql-запроса можно использовать locate() или lookup().
Но весь парадокс заключается в том, что для проверки нужно УЖЕ(!!!) быть подключенным к БД. Разграничение прав пользователей делается совсем другими способами.
Я уже молчу о том, что любая аксесовская база вскрывается за 5 секунд.

[eval]

Разграничение прав пользователей делается совсем другими способами.

и тем и этим, смотря что делать