Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / password / 4 сообщений из 4, страница 1 из 1
13.10.2009, 11:14
    #36247395
aqil_f
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
password
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
us1=allTRIM(thisform.text1.text)
ps1=allTRIM(thisform.text2.text)
 iF ALLTRIM(user1)=us1.and.pass1=ps1
    DO FORM prosm
 ELSE
    DO FORM parol
ENDIF


Хочу добавить программу форму для ввода парола. Проблема в том что, если пусто оставить и text1 и text2, тогда тоже можно зайти программу. Не могу понять в чем дело.
В код добавил (для того что если пусто не открывался программа, всеравно, не работает.):
Код: plaintext
1.
2.
3.
IF us1=" ".or.ps1=" "
    DO FORM parol
ENDIF

Помогите пожалуйста что я не так деляю.
...
Рейтинг: 0 / 0
13.10.2009, 12:29
    #36247672
password
aqil_fХочу добавить программу форму для ввода парола. Проблема в том что, если пусто оставить и text1 и text2, тогда тоже можно зайти программу. Не могу понять в чем дело.
В код добавил (для того что если пусто не открывался программа, всеравно, не работает.):
Код: plaintext
1.
2.
3.
IF us1=" ".or.ps1=" "
    DO FORM parol
ENDIF

Помогите пожалуйста что я не так деляю.Не читаете хелп. Есть еще оператор точного сравнения ==
...
Рейтинг: 0 / 0
13.10.2009, 12:31
    #36247678
Melnik_A
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
password
2aqil_f,

Приветствую !
Быстрее всего проблема в установке - SET ANSI

Как вариант , можно написать так -
авторus1=allTRIM(thisform.text1.text)
ps1=allTRIM(thisform.text2.text)
iF ALLTRIM(user1)==us1.and.ALLTRIM(pass1)==ps1
DO FORM prosm
ELSE
DO FORM parol
ENDIF

Если я прав , то должно сработать.
...
Рейтинг: 0 / 0
13.10.2009, 23:08
    #36249126
А. С.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
password
Возможно форма не модальная
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / password / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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