Вверх ↑
Этот топик читают: Гость
Этот топик был перемещен из раздела "Помощь по среде"
Ответов: 28
Рейтинг: 0
#1: 2017-10-28 22:02:52 ЛС | профиль | цитата
Всем доброго времени суток.
При попытке создать программу с регистрацией и входом столкнулся с проблемой:
- при каждом неверном переборе на этапе входа появляется сообщение об ошибке,
а требуется чтоб только в случае, если вообще не на одной строчке не был найден пароль.
Если есть у кого какие мысли или решение, буду очень благодарен.
Заранее спасибо!
Схемка:

Add(MainForm,3908831,301,413)
{
Width=209
Height=214
link(onCreate,3224251:doLoad,[(415,433)(415,412)])
}
Add(Button,5717558,441,455)
{
Left=10
Top=10
Width=120
Caption="Войти"
Data=Integer(1)
link(onClick,7392460:doEnum,[])
}
Add(ArrayEnum,7392460,511,455)
{
link(onItem,10513507:doCompare,[(569,461)(569,524)])
link(Array,3224251:Array,[])
}
Add(Edit,1045807,504,525)
{
Left=10
Top=35
Width=165
Text=""
link(onChange,10513507:doMask,[])
}
Add(StrMask,10513507,595,518)
{
Point(doMask)
link(onFalse,8215515:doCompare,[])
link(onTrue,1656240:doEvent1,[(640,531)(640,594)])
}
Add(StrList,3224251,497,378)
{
FileName="бд.save"
Strings=#4:stop|
link(Str,8913169:Text,[])
}
Add(Button,5283350,301,371)
{
Left=10
Top=75
Width=120
Caption="Зарегистрироваться"
link(onClick,9997212:doEvent1,[])
}
Add(Edit,8913169,497,322)
{
Left=10
Top=100
Width=165
Text=""
}
Add(If_else,8598266,707,588)
{
Op1=String()
Op2=String(привет)
link(onTrue,13814047:doMessage,[])
link(onFalse,16123167:doMessage,[(772,601)(772,636)])
link(Op1,1045807:Text,[(713,572)(713,572)(510,572)])
}
Add(Hub,9997212,357,371)
{
link(onEvent1,9204264:doTimer,[(385,377)(385,349)])
link(onEvent2,3224251:doAdd,[])
}
Add(Timer,9204264,406,343)
{
Interval=100
Enable=1
AutoStop=1
link(onTimer,3224251:doSave,[(458,349)(458,419)])
}
Add(If_else,8215515,707,518)
{
Op1=String()
Op2=String()
link(Op1,7392460:Item,[(713,502)(517,502)])
}
Add(Message,13814047,805,588)
{
Message="Добрый день, Админ"
Caption="Админ"
}
Add(Message,9915203,805,518)
{
Message="Неверно"
Caption="Неверно"
}
Add(Message,16123167,805,630)
{
Message="Добрый день, Гость"
Caption="Гость"
}
Add(Hub,1656240,658,588)
{
link(onEvent1,8598266:doCompare,[])
link(onEvent2,7392460:doStop,[(684,601)(684,618)(495,618)(495,468)])
}

Редактировалось 2 раз(а), последний 2017-10-28 22:03:28
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 1925
Рейтинг: 172
#2: 2017-10-28 22:13:43 ЛС | профиль | цитата
Не совсем понял, зачем сравнение с маской. Ведь пароль должен в точности совпадать с правильным вариантом, а не с маской. Для этого можно так:

Add(MainForm,3908831,175,280)
{
Width=209
Height=214
link(onCreate,3224251:doLoad,[(289,300)(289,279)])
}
Add(Button,5717558,245,343)
{
Left=10
Top=10
Width=120
Caption="Войти"
Data=Integer(1)
link(onClick,3224251:doGetIndex,[(324,349)(324,293)])
}
Add(Case,14273802,441,252)
{
Value=Integer(-1)
link(onTrue,9915203:doMessage,[])
}
Add(Edit,1045807,420,168)
{
Left=10
Top=35
Width=165
Text=""
}
Add(StrList,3224251,371,245)
{
FileName="бд.save"
Strings=#4:stop|
Point(doGetIndex)
Point(StrToFind)
Point(onGetIndex)
link(Str,8913169:Text,[])
link(StrToFind,1045807:Text,[(391,223)(426,223)])
link(onGetIndex,14273802:doCase,[])
}
Add(Button,5283350,175,238)
{
Left=10
Top=75
Width=120
Caption="Зарегистрироваться"
link(onClick,9997212:doEvent1,[])
}
Add(Edit,8913169,371,147)
{
Left=10
Top=100
Width=165
Text=""
}
Add(Hub,9997212,231,238)
{
link(onEvent1,9204264:doTimer,[(259,244)(259,216)])
link(onEvent2,3224251:doAdd,[])
}
Add(Timer,9204264,280,210)
{
Interval=100
Enable=1
AutoStop=1
link(onTimer,3224251:doSave,[(332,216)(332,286)])
}
Add(Message,9915203,560,259)
{
Message="Неверно"
Caption="Неверно"
}
карма: 9
0
Ответов: 28
Рейтинг: 0
#3: 2017-10-28 22:28:14 ЛС | профиль | цитата
3042, огромное спасибо!
карма: 0

0
3
Сообщение
...
Прикрепленные файлы
(файлы не залиты)