超市信息管理系统课程设计报告(6)

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