Гость
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите реализовать аутентификацию пользователей... / 6 сообщений из 6, страница 1 из 1
11.05.2013, 13:29
    #38253602
Имиль
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите реализовать аутентификацию пользователей...
Мой код:

CLOSE TABLES
PassForm=RTRIM(ThisForm.Pass.value)
LoginForm=RTRIM(ThisForm.Login.value)
USE users.dbf
GO top
FOR i=1 TO RECCOUNT()
IF i==users.index AND PassForm==RTRIM(users.pass) AND LoginForm==RTRIM(users.login)
MESSAGEBOX('Авторизация прошла успешно'+Chr(13)+'Здравствуйте, '+fio,64,'Авторизация')
DO FORM kassir_main.scx
ThisForm.Release
ELSE
MESSAGEBOX('Логин или пароль некорректны.Повторите ввод!',16,'Авторизация')
ENDIF
SKIP
ENDFOR

Поля имеют тип:
index - autoinc
pass - character
login - character
fio - character

Проблема в том, что не проверяется условие...
...
Рейтинг: 0 / 0
11.05.2013, 14:44
    #38253636
glamis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите реализовать аутентификацию пользователей...
Имиль,
скорей уж так:
...
USE users.dbf
Loca for PassForm==RTRIM(users.pass) AND LoginForm==RTRIM(users.login)
If found()
MESSAGEBOX('Авторизация прошла успешно'+Chr(13)+'Здравствуйте, '+fio,64,'Авторизация')
DO FORM kassir_main.scx
ThisForm.Release
ELSE
MESSAGEBOX('Логин или пароль некорректны.Повторите ввод!',16,'Авторизация')
ENDIF
...
Рейтинг: 0 / 0
11.05.2013, 18:17
    #38253802
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите реализовать аутентификацию пользователей...
Ну и до кучи - храните не сам пароль, а его кэш (MD5, например)...
...
Рейтинг: 0 / 0
11.05.2013, 18:17
    #38253803
tanglir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите реализовать аутентификацию пользователей...
AndreTMкэшможет, хэш?
...
Рейтинг: 0 / 0
11.05.2013, 18:50
    #38253822
Имиль
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите реализовать аутентификацию пользователей...
спасибо всем за помощь
...
Рейтинг: 0 / 0
11.05.2013, 20:44
    #38253903
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите реализовать аутентификацию пользователей...
tanglirAndreTMкэшможет, хэш?Ага... Просто мы по сию пору не можем успокоиться, отмечая праздники... Поэтому внезапно произошёл обратный перевод с английского на русский
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите реализовать аутентификацию пользователей... / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]