PB的登陆验证
<P>string pass_word,mangername<BR>string username<BR>mangername=trim(sle_1.text)<BR>pass_word=trim(sle_2.text)<BR>select manger_name<BR>into :username<BR>from manger<BR>where manger_name =: mangername and password =: pass_word <BR>using sqlca;<BR>if try_time < 4 then<BR> if sqlca.sqlcode=0 then<BR> messagebox("登陆成功","欢迎管理员:")<BR> w_main.visible=true<BR> close(parent)<BR>elseif sqlca.sqlcode=100 then <BR> messagebox("警告","输入错误,请再输入一次!!",exclamation!)<BR> sle_1.setfocus()<BR> sle_1.text=''<BR> sle_2.text=''<BR> try_time++;<BR> end if<BR>else <BR> messagebox("系统警告","您尝试登陆的次数超过三次,"+"系统将不允许你登陆(@_@)"+" ,请与管理员联系!!",stopsign!)<BR> cb_1.enabled=false<BR>end if</P><P> 无论我输入多少次错误,也不出现超过三次尝试的系统警告。希望高手大哥可以指点下。我是一个PB的新手也就一两天。最近在做图书管理系统。希望有这方面的大哥们给些交流意见。我想认识几个朋友。不知道你们是不是嫌弃我。希望你们可以带我走一程。谢谢。如果有意者留下QQ吧。我会加你们的。期待...........</P>
<P>try_time; //不需分号 在此没看到该变量定义 大概已定义正确适用 同意前几楼说法<BR><BR>另外关于elseif sqlca.sqlcode=100 判断,改为直接else ...较好 。0为找到,100为表空或无符合条件的行,但未排除其他数据库等问题</P> [em01] 在sqlca.sqlcode=100 时try_time才会自动加一,要是不等于100时呢,就不会加一了,也就会出现你所说的那种情况.还有try_time也没有初始化.
回复:(rmbwz)PB的登陆验证
<P>加我QQ:107911230</P> <P>申明一个变量。。。提示密码错误 时就让变量加一。。。<BR>当变量等于3 时就提示。。。输入密码错误次数超过三。。。</P> <P>定义全局变量 try_time<BR>string pass_word,mangername<BR>string username<BR>mangername=trim(sle_1.text)<BR>pass_word=trim(sle_2.text)<BR>select manger_name<BR>into :username<BR>from manger<BR>where manger_name =: mangername and password =: pass_word <BR>using sqlca;<BR>if try_time < 3 then<BR> if sqlca.sqlcode=0 then<BR> messagebox("登陆成功","欢迎管理员:")<BR> w_main.visible=true<BR> close(parent)<BR> elseif sqlca.sqlcode=100 then <BR> messagebox("警告","输入错误,请再输入一次!!",exclamation!)<BR> sle_1.setfocus()<BR> sle_1.text=''<BR> sle_2.text=''<BR> try_time++;<BR> end if<BR>else <BR>messagebox("系统警告","您尝试登陆的次数超过三次,"+"系统将不允许你登陆(@_@)"+" ,请与管理员联系!!",stopsign!)<BR>cb_1.enabled=false<BR>end if<BR>注意格式 你看看可以吗<BR></P>try_time应为全局变量
页:
[1]
