rmbwz 发表于 2006-5-18 20:55

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 &lt; 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>

rmbwz 发表于 2006-5-18 20:57

没有人可以帮我下嘛?[em11]

ヤ順祺冄繎ヤ 发表于 2006-5-19 08:55

try_time<BR>是什么变量,私有变量吗?<BR>赋值了没?<BR>还有,你写代码能不能有一点格式,这点对程序员来说很重要.还应有相应的注释.

q123126 发表于 2006-5-19 17:25

select语句后要加分号,还有就好似你的try_time有初始化吗?

guo 发表于 2006-5-23 18:48

try_time<BR>要定义成全局变量

rzj76 发表于 2006-7-6 10:56

赞同楼上的意见

fljie231 发表于 2006-7-9 00:48

try_time<BR>要定义成全局变量

fordcheng 发表于 2006-7-9 10:33

try_time应为实例变量。

fgypblt 发表于 2006-7-10 09:35

<P>新手?不错了。呵呵,看得是费劲了点</P>
<P>try_time; //不需分号 在此没看到该变量定义 大概已定义正确适用 同意前几楼说法<BR><BR>另外关于elseif sqlca.sqlcode=100 判断,改为直接else ...较好 。0为找到,100为表空或无符合条件的行,但未排除其他数据库等问题</P>

fljie231 发表于 2007-6-20 16:07

[em01]

pbjie 发表于 2007-6-20 20:55

在sqlca.sqlcode=100 时try_time才会自动加一,要是不等于100时呢,就不会加一了,也就会出现你所说的那种情况.还有try_time也没有初始化.

努力中 发表于 2007-8-15 07:58

回复:(rmbwz)PB的登陆验证

<P>加我QQ:107911230</P>

西风独自凉 发表于 2007-8-15 11:24

<P>申明一个变量。。。提示密码错误 时就让变量加一。。。<BR>当变量等于3 时就提示。。。输入密码错误次数超过三。。。</P>

zero1984 发表于 2007-8-18 20:09

<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 &lt; 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>

gugu0792 发表于 2007-8-23 14:27

try_time应为全局变量

页: [1]

编程论坛