[elle]

добрый вечер всем!
у меня такая проблема: при запуске появляется форма с запросом пароля(Pass) и имени(Name). а список имен и пароля содержится в справочнике. как сделать проверку пароля и имени из справочника?
делаю так:
if (DM.tblPsevda['Psevda']Name.Text=DM.tblPsevda['Psevda']) and (Pass.Text=DM.tblPsevda['Psevda'])
then begin
frmPass.ModalResult:=mrOk;
end
else begin
MessageDlg('Error User or Password!', mtInformation, [mbOk], 0);
end;
но что-то не так работает все равно((

[voron_paa]

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

добрый вечер всем!
у меня такая проблема: при запуске появляется форма с запросом пароля(Pass) и имени(Name). а список имен и пароля содержится в справочнике. как сделать проверку пароля и имени из справочника?
делаю так:
if (DM.tblPsevda['Psevda']Name.Text=DM.tblPsevda['Psevda']) and (Pass.Text=DM.tblPsevda['Psevda'])
then begin
frmPass.ModalResult:=mrOk;
end
else begin
MessageDlg('Error User or Password!', mtInformation, [mbOk], 0);
end;
но что-то не так работает все равно((

меняем на

Код:

if (User.Text=DM.tblPsevda['Psevda'].ASString) and (Pass.Text=DM.tblPsevda['Psevda'].ASString)
  then begin
    frmPass.ModalResult:=mrOk;
  end
  else begin
    MessageDlg('Error User or Password!', mtInformation, [mbOk], 0);
  end;

По идее ... А User это Edit ))))))

[elle]

ой, простите я не так написала))
на самом деле у меня также написано в проге как вы мне написали, но все равно почему-то пишет что пароль неверный((

[AlexSku]

Попробуйте проверить данные из базы данных через функцию Trim() или RTrim(), т.к. БД может добавлять пробелы.