主题:[讨论]为什么我们不论输入什么都能进入??跪求。。。。。。
angelgc
[专家分:0] 发布于 2009-07-15 20:23:00
代码如下,
close data all
use 学生基本信息
set filter to
LOCATE FOR alltrim(学生基本信息.学号)==alltrim(thisform.student.value)
IF found() .and. alltrim(学生基本信息.密码)==alltrim(thisform.password2.value)
DO FORM 主界面2 &&用户名和密码正确时执行
thisform.release
ELSE
n=n+1
IF n<3
=messagebox("用户名或密码不正确,请重新输入",48,"信息提示") &&用户名或密码不正确时提示
thisform.password2.value=""
thisform.password2.setfocus
ELSE
=messagebox("三次口令输入错误,禁止使用本系统",48,"警告")
thisform.password2.setfocus &&三次输入错误,不能使用本系统
thisform.release
ENDIF
ENDIF
问题出在代码是正确的,但是无论我们输入任何学号和密码都能进入,有哪个高手知道,为什么啊!!!!!!!!!
帮帮忙啊!!!!!
回复列表 (共6个回复)
沙发
jianzho [专家分:7560] 发布于 2009-07-15 20:52:00
代码如下,
close data all
use 学生基本信息
set filter to
LOCATE FOR alltrim(学生基本信息.学号)==alltrim(thisform.student.value)
IF found() .and. alltrim(学生基本信息.密码)==alltrim(thisform.password2.value)
DO FORM 主界面2 &&用户名和密码正确时执行
?????thisform.release 不合适
ELSE
n=n+1
IF n<3
=messagebox("用户名或密码不正确,请重新输入",48,"信息提示") &&用户名或密码不正确时提示
thisform.password2.value=""
thisform.password2.setfocus
ELSE
=messagebox("三次口令输入错误,禁止使用本系统",48,"警告")
thisform.password2.setfocus &&三次输入错误,不能使用本系统
thisform.release
return
ENDIF
ENDIF
问题出在代码是正确的,但是无论我们输入任何学号和密码都能进入,有哪个高手知道,为什么啊!!!!!!!!!
帮帮忙啊!!!!!
板凳
sywzs [专家分:5650] 发布于 2009-07-15 21:03:00
LOCATE FOR alltrim(学生基本信息.学号)==alltrim(thisform.student.value)
IF found() .and. alltrim(学生基本信息.密码)==alltrim(thisform.password2.value)
把上面两语句中的 [color=0000FF][b].value [/b][/color]改为 [color=FF0000][b].Text [/b][/color]。
3 楼
lbscyb [专家分:4780] 发布于 2009-07-15 23:17:00
代码如下,
close data all
use 学生基本信息
set filter to
LOCATE FOR alltrim(学生基本信息.学号)==alltrim(thisform.student.value)
*--插入调试代码
set echo on
susp
*--
IF found() .and. alltrim(学生基本信息.密码)==alltrim(thisform.password2.value)
DO FORM 主界面2 &&执行到这句之前查看学生基本信息.学号、 thisform.student.value、 学生基本信息.密码、 thisform.password2.value的当前值---估计你把2个输入学号和密码的地方绑定数据源了
thisform.release
ELSE
n=n+1
IF n<3
=messagebox("用户名或密码不正确,请重新输入",48,"信息提示") &&用户名或密码不正确时提示
thisform.password2.value=""
thisform.password2.setfocus
ELSE
=messagebox("三次口令输入错误,禁止使用本系统",48,"警告")
thisform.password2.setfocus &&三次输入错误,不能使用本系统
thisform.release
ENDIF
ENDIF
4 楼
martine [专家分:4950] 发布于 2009-07-16 09:44:00
LOCATE FOR alltrim(学生基本信息.学号)==alltrim(thisform.student.value) .and. alltrim(学生基本信息.密码)==alltrim(thisform.password2.value)
IF found()
5 楼
Ilikefox [专家分:5770] 发布于 2009-07-16 10:30:00
[quote]thisform.student.value、 学生基本信息.密码、 thisform.password2.value的当前值---估计你把2个输入学号和密码的地方绑定数据源了
[/quote]
从楼主提供的信息看来,3楼这句话是唯一解释。
6 楼
wuzhouhong [专家分:10890] 发布于 2009-07-18 00:10:00
=messagebox("三次口令输入错误,禁止使用本系统",48,"警告")
thisform.password2.setfocus &&三次输入错误,不能使用本系统
quit
********thisform.release
我来回复