急～～～～◎！高手进，在线等～！vf程序

来源：百度知道 编辑：UC知道 时间：2024/05/06 20:57:46
图书管理系统登陆菜单代码如下：为何即使密码和用户是对的，也不能显示用户名和密码正确，并且也不能调出菜单～！希望大家能帮帮忙，作业明天就得交啊～！

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(CTEXT2)AND !EMPTY(CTEXT1)
MESSAGEBOX("请输入用户名",46,"用户登录")
THISFORM.TEXT2.SETFOCUS
CASE !EMPTY(CTEXT2) AND EMPTY(CTEXT1)
MESSAGEBOX("请输 入密码",46,"用户登录")
THISFORM.TEXT1.SETFOCUS
ENDCASE
ELSE
use pass
locate for alltrim(CTEXT2)=alltrim(pass.username).and. alltrim(CTEXT1)= alltrim(pass.password)
IF found()
do main.mnx
CLOSE ALL
THISFORM.RELEASE
ELSE
i=i+1
IF i>=3
MESSAGEBOX("三次登录错误！退出系统！",46,"错误")
THISFORM.RELEASE
QUIT

SELECT authdbf
LOCAL cname
cname=thisform.text1.Value
cpsd=thisform.text2.Value
IF EMPTY(cname).or.empty(cpsd)
MESSAGEBOX("用户名或密码不能为空，请重新输入",48,"系统提示")
thisform.text1.Value=""
thisform.text2.Value=""
thisform.text2.SetFocus
ELSE
go top
LOCATE for ALLTRIM(cname)=ALLTRIM(name)
SET EXACT ON
IF !FOUND()
MESSAGEBOX("用户不存在",46,"系统提示")
thisform.text1.Value=""
thisform.text2.Value=""
thisform.text2.SetFocus
ELSE
IF ALLTRIM(authdbf.psd)!=cpsd
cn=cn+1
nanswer=MESSAGEBOX("密码不正确,继续输入或退出？",4+32,"系统提示")
do case
CASE nanswer=6
thisform.text1.Value=""
thisform.text2.value=""
CASE nanswer=7
CLEAR EVENTS
QUIT
ENDCASE
thisform.text2.setfoc