[求助]找一下代码出错的原因! - VFP论坛

问题点数：0 回复次数：3

[求助]找一下代码出错的原因!

s=1
if lenc(allt(thisform.text1.value))#0 .and. lenc(allt(thisform.text2.value))#0 then
use \图书管理系统\管理员.dbf
s=s+1
if s<3
locate for alltrim(管理员.用户名)=alltrim(thisform.text1.value)
if found()
if alltrim(管理员.密码)=alltrim(thisform.text2.value)
do form 图书管理信息系统
thisform.release
else
s=s+1
messagebox("用户名或密码不正确！",46,"错误")
thisform.text2.value=''
thisform.text1.setfocus
thisform.refresh
endif
endif
else
messagebox("三次错误！退出系统！",46,"错误")
thisform.release
endif
endif

这是我加在登陆界面确定按键里的代码,从理论上来看这实在是找不出问题,但是一运用起来不及不知整么的,我输入了错误的用户名和密码,都不会弹出错误提示!
有一次好不容易弹出了错误提示,但是超出了三次还是不会关闭窗口!不知为何故!
望各位高手们给予指点一二,万分感激!

搜索更多相关主题的帖子: 代码　

第 2 楼

得分:0

(1)在表单的初始化部分：
PUBLIC S
S=0
IF FILE("管理员.dbf")
USE 管理员.dbf
ELSE
CREATE TABLE 管理员 (用户名 C(8),密码 C(16))
INSERT INTO 管理员 VALUES ("SYSTEM","123456")
ENDIF
THISFORM.TEXT1.INPUTMASK=REPLICATE("X",8)
THISFORM.TEXT1.VALUE=''
THISFORM.TEXT2.INPUTMASK=REPLICATE("X",16)
THISFORM.TEXT2.VALUE=''
THISFORM.TEXT2.PASSWORDCHAR='*'

(2)在确定等命令按钮部分：
CTEXT1=THISFORM.TEXT1.VALUE
CTEXT2=THISFORM.TEXT2.VALUE
IF EMPTY(CTEXT1) OR EMPTY(CTEXT2)
DO CASE
CASE EMPTY(CTEXT1) AND EMPTY(CTEXT2)
MESSAGEBOX("请输入用户名和密码",46,"用户登录")
THISFORM.TEXT1.SETFOCUS
CASE EMPTY(CTEXT1) AND !EMPTY(CTEXT2)
MESSAGEBOX("请输入用户名",46,"用户登录")
THISFORM.TEXT1.SETFOCUS
CASE !EMPTY(CTEXT1) AND EMPTY(CTEXT2)
MESSAGEBOX("请输入密码",46,"用户登录")
THISFORM.TEXT2.SETFOCUS
ENDCASE
ELSE
LOCATE ALL FOR 用户名=CTEXT1 AND 密码=CTEXT2
IF FOUND()
DO FORM 图书管理信息系统
CLOSE ALL
THISFORM.RELEASE
ELSE
S=S+1
IF S>=3
MESSAGEBOX("三次登录错误！退出系统！",46,"错误")
THISFORM.RELEASE
QUIT
ELSE
MESSAGEBOX("用户名或密码不正确！",46,"错误")
THISFORM.TEXT2.VALUE=''
THISFORM.TEXT1.SETFOCUS
THISFORM.REFRESH
ENDIF
ENDIF
ENDIF

[此贴子已经被作者于2006-12-16 10:25:47编辑过]

感言：学以致用。博客：http://www./blog/user14/65009/index.shtml email：Tiger5392@

第 3 楼

得分:0

谢谢版主!

[此贴子已经被作者于2006-12-16 16:42:34编辑过]

对于计算机语言!我与白痴无异!多多指教!

第 4 楼

得分:0

以下是引用Tiger5392在2006-12-16 10:24:29的发言：

(1)在表单的初始化部分： PUBLIC S S=0 IF FILE("管理员.dbf") USE 管理员.dbf ELSE CREATE TABLE 管理员 (用户名 C(8),密码 C(16)) INSERT INTO 管理员 VALUES ("SYSTEM","123456") ENDIF THISFORM.TEXT1.INPUTMASK=REPLICATE("X",8) THISFORM.TEXT1.VALUE='' THISFORM.TEXT2.INPUTMASK=REPLICATE("X",16) THISFORM.TEXT2.VALUE='' THISFORM.TEXT2.PASSWORDCHAR='*'
(2)在确定等命令按钮部分： CTEXT1=THISFORM.TEXT1.VALUE CTEXT2=THISFORM.TEXT2.VALUE IF EMPTY(CTEXT1) OR EMPTY(CTEXT2) DO CASE CASE EMPTY(CTEXT1) AND EMPTY(CTEXT2) MESSAGEBOX("请输入用户名和密码",46,"用户登录") THISFORM.TEXT1.SETFOCUS CASE EMPTY(CTEXT1) AND !EMPTY(CTEXT2) MESSAGEBOX("请输入用户名",46,"用户登录") THISFORM.TEXT1.SETFOCUS CASE !EMPTY(CTEXT1) AND EMPTY(CTEXT2) MESSAGEBOX("请输入密码",46,"用户登录") THISFORM.TEXT2.SETFOCUS ENDCASE ELSE LOCATE ALL FOR 用户名=CTEXT1 AND 密码=CTEXT2 IF FOUND() DO FORM 图书管理信息系统 CLOSE ALL THISFORM.RELEASE ELSE S=S+1 IF S>=3 MESSAGEBOX("三次登录错误！退出系统！",46,"错误") THISFORM.RELEASE QUIT ELSE MESSAGEBOX("用户名或密码不正确！",46,"错误") THISFORM.TEXT2.VALUE='' THISFORM.TEXT1.SETFOCUS THISFORM.REFRESH ENDIF ENDIF ENDIF
[此贴子已经被作者于2006-12-16 10:25:47编辑过]

我用这个做了个类似的，但是我的问题时，无论怎么输入用户名和密码，哪怕是加入的那条系统用户名密码，都显示错误，求解！