回 帖 发 新 帖 刷新版面

主题:[讨论]为什么我们不论输入什么都能进入??跪求。。。。。。

代码如下,
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个回复)

沙发

代码如下,
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
问题出在代码是正确的,但是无论我们输入任何学号和密码都能进入,有哪个高手知道,为什么啊!!!!!!!!!
帮帮忙啊!!!!! 

板凳

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 楼

代码如下,
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 楼

LOCATE FOR alltrim(学生基本信息.学号)==alltrim(thisform.student.value)  .and. alltrim(学生基本信息.密码)==alltrim(thisform.password2.value)

IF found()

5 楼

[quote]thisform.student.value、 学生基本信息.密码、 thisform.password2.value的当前值---估计你把2个输入学号和密码的地方绑定数据源了
[/quote]

从楼主提供的信息看来,3楼这句话是唯一解释。

6 楼

=messagebox("三次口令输入错误,禁止使用本系统",48,"警告")                    
   thisform.password2.setfocus                       &&三次输入错误,不能使用本系统

   quit
   ********thisform.release

我来回复

您尚未登录,请登录后再回复。点此登录或注册