查人人中国名人网环球翔飞教育:登陆框的代码是怎么样？（关于Microsoft Visual FoxPro 6.0方面）
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/13 10:52:30
这个登陆框的介面是有两个文本框的，一个是输入用户名，一个是输入密码。还有两个按钮，一个是确定，一个是取消。
取消=清空填写的内容，既用户名和密码
确定=提交
确定按钮需要的动作是查询数据库，查找用户输入的用户名和密码数据库中有没有，有登陆成功，否则失败
locate all for alltrim(用户名)=alltrim(thisform.text1.value)
if found()
if alltrim(密码)==alltrim(thisform.text2.value)
do form 欢迎.scx
thisform.release
endif
else
messageBox("用户名或密码输入错误!",65,"密码信息错误")
thisform.text1.value=""
thisform.text2.value=""
thisform.text1.setfocus
endif.