超市信息管理系统课程设计报告(6)
时间:2025-04-04
时间:2025-04-04
3.2登录模块的设计界面
一、登录界面的SQL语句
A=alltrim(thisform.text1.value)
B=alltrim(thisform,text2.value)
Use 用户表
Locate for 用户名=A and 密码=B
If not found()
Messagebox(“登录用户名或密码不正确,请重新登录”)
Else
Messagebox (“登录成功”)
Endif
Text2 的 inputmask 是 99999999999
Text2 的 passwordchar 是 *
界面设计如图3-2所示:
图3-2
3.3系统的实现
代码设计
表单的登陆代码username1="小明"
username2=alltrim(thisform.text1.value)
password1="1234567890"
password2=alltrim(thisform.text2.value)
if username1 == username2 and password1== password2
wait "登陆成功"
do form 超市管理.scx
else
wait "登录用户名或密码错误,请重新输入"
End if
上一篇:英语考试北京重点划题137期
下一篇:没有了