大神啊！一道关于VF的程序，求解释。感激不尽。
USEpassKey1=ALLTRIM(ThisForm.text1.value)Key2=ALLTRIM(ThisForm.TEXT2.VALUE)LISTALLWHI...
USE pass
Key1 = ALLTRIM(ThisForm.text1.value)
Key2 = ALLTRIM(ThisForm.TEXT2.VALUE)
LIST ALL WHILE USER = Key1
IF FOUND() AND PASS = Key2
WAIT "欢迎使用本系统！" WINDOW TIMEOUT 1
thisform.release
ELSE
num = num + 1
IF num = 3
WAIT "用户名或口令不对，登录失败！" WINDOW TIMEOUT 1
LOOP
ELSE
WAIT "用户名或口令不对，请重输入！" WINDOW TIMEOUT 1
ENDIF
ENDIF 展开
Key1 = ALLTRIM(ThisForm.text1.value)
Key2 = ALLTRIM(ThisForm.TEXT2.VALUE)
LIST ALL WHILE USER = Key1
IF FOUND() AND PASS = Key2
WAIT "欢迎使用本系统！" WINDOW TIMEOUT 1
thisform.release
ELSE
num = num + 1
IF num = 3
WAIT "用户名或口令不对，登录失败！" WINDOW TIMEOUT 1
LOOP
ELSE
WAIT "用户名或口令不对，请重输入！" WINDOW TIMEOUT 1
ENDIF
ENDIF 展开
展开全部
这句用错了:LIST ALL WHILE USER = Key1
请改为：LOCATE for ALLTRIM(USER) == Key1
建议下一句也改动为：IF FOUND() AND ALLTRIM(PASS) == Key2
这样程序较合理。（前提以上数据类型为字符型）
请改为：LOCATE for ALLTRIM(USER) == Key1
建议下一句也改动为：IF FOUND() AND ALLTRIM(PASS) == Key2
这样程序较合理。（前提以上数据类型为字符型）
追问
WAIT "欢迎使用本系统！" WINDOW TIMEOUT 1是什么意思呢
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
贝思科尔
2024-11-22 广告
咨询电话：13500040761（微信同号）。贝思科尔提供专业正版热仿真软件：Flotherm、FloEFD等，获取产品价格、技术交流、委托测试联系我们。贝思科尔拥有强大的技术服务能力和丰富的项目经验，获得业内一致好评，利用Flotherm...
点击进入详情页
本回答由贝思科尔提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
