Edit1.text=Form2.ADOTable1

[MrMorozko]

Всем доброе времени суток! Такой вопрос!: Почему при использовании данной команды "Edit1.text=Form2.ADOTable1.FieldBy Name('Логин').Value"
у меня учтиываеться только первая строчка таблицы а последующие записи как бы не видит и у меня выходит такая проблемма....В таблице у меня два поля Логин и Пароль...в соответствующий Edit я ввожу значения , ДОпустим первым у меня в таблице стоит
Логин Пароль
Потапов 212121
под ним входит нормально),
ниже
Логин Пароль
Гость 12345
реакции нету(в данном случае если записи не совпадают у меня выводиться сообщения еще одной попытки)

[MrMorozko]

procedure TForm1.Button1Click(Sender: TObject);
Var MOK: Integer;
begin
if Edit1.text=Form2.ADOTable1.FieldByN ame('Логин').Value then
if
Edit2.text=Form2.ADOTable1.FieldByN ame('Пароль').Value Then
MOK:= MessageDlg('Идентификация прошла удачно', mtInformation,[mbOK],2);
If MOK=mrOk then
begin
Form2.Visible:=False;
Form3.Visible:=true;
end
else
begin
I:=i+1;
MessageDlg('Логин или пароль неправильны попробуйте еще раз!!!!',mtError,[mbOK],1);
Edit1.text:='';
Edit2.Text:='';
if i=3 then begin MessageDlg('Ошибка, приложение будет закрыто',mtWarning,[mbOK],2);
application.Terminate;
end else
Edit1.SetFocus;
end;
If MOK=mrOk then
begin
Form1.Visible:=False;

end;
end;

Вот процедура которую я использую!

[Z1000000]

Потому что ты ищешь совпадения логин\пароль только в первой строке таблицы. Используй для поиска

vSuccess := False;
ADOTable1.First;
while not ADOTable1.EOF do
 begin
 if Edit1.text=Form2.ADOTable1.FieldByN ame('Логин').Value then
 if Edit2.text=Form2.ADOTable1.FieldByN ame('Пароль').Value Then
  begin
  ShowMessage('Аутентификация прошла успешно');vSuccess := True; break;
  end;
 ADOTable1.Next;
 end;
if vSuccess then // аутентификация прошла успешно
else // аутентификация неуспешна. Можно давать вторую попытку итд.

[MrMorozko]

Благодарю!!!!НО теперь у меня канает любой пользователь и пароль которых нету в списке)