|
（三） 系统模块的设计 登录模块的设计： http://www.paper51.com
用户要使用本系统，首先必须通过系统的身份认证，这个过程叫做登录。登录过程需要完成以下任务： 内容来自www.paper51.com 根据用户名和密码来判断是否可以进入本系统。 copyright paper51.com 根据用户类型决定用户拥有的权限。 paper51.com 成功登录的用户将进入系统的主界面。 http://www.paper51.com
登录窗体的名称为FrmLogin,它的界面布局如图七所示。 copyright paper51.com
内容来自论文无忧网 www.paper51.com 图7登录窗体的界面布局 paper51.com
下面介绍登录窗体的部分代码。 paper51.com 变量声明 内容来自论文无忧网 www.paper51.com 登录窗体的变量声明如下： 内容来自论文无忧网 www.paper51.com
PublicPasswordKey As String http://www.paper51.com PublicNameKey As String 内容来自www.paper51.com PublicTry_times As Integer 内容来自论文无忧网 www.paper51.com NameKey保存用户名，PasswordKey保存密码，Try_times 记录尝试登录的次数 http://www.paper51.com Cmd_Ok_Click过程 paper51.com
当用户单击“确定”按钮是时，触发Cmd_Ok_Click事件，进行身份验证，对应的代码如下： http://www.paper51.com PrivateSub Cmd_OK_Click() 内容来自论文无忧网 www.paper51.com
'数据有效性检查 copyright paper51.com If Trim(txtUser) = "" Then 内容来自www.paper51.com MsgBox "请输入用户名" 内容来自www.paper51.com txtUser.SetFocus copyright paper51.com Exit Sub 内容来自论文无忧网 www.paper51.com End If copyright paper51.com
If Trim(txtPwd) = "" Then 内容来自论文无忧网 www.paper51.com MsgBox "请输入密码" 内容来自论文无忧网 www.paper51.com txtPwd.SetFocus paper51.com
Exit Sub paper51.com End If 内容来自www.paper51.com NameKey = MakeStr(txtUser) 内容来自论文无忧网 www.paper51.com PasswordKey = MakeStr(txtPwd) paper51.com
'判断用户是否存在 copyright paper51.com
If MyUser.In_DB(NameKey) = False Then paper51.com MsgBox "用户名不存在" 内容来自www.paper51.com Try_times = Try_times + 1 内容来自论文无忧网 www.paper51.com
If Try_times >= 3 Then http://www.paper51.com MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭" 内容来自论文无忧网 www.paper51.com DBapi_Disconnect paper51.com End copyright paper51.com
Else 内容来自论文无忧网 www.paper51.com
Exit Sub 内容来自论文无忧网 www.paper51.com
End If 内容来自www.paper51.com End If paper51.com '判断密码是否正确 内容来自www.paper51.com MyUser.GetInfo (NameKey) paper51.com If MyUser.Pwd <> PasswordKey Then copyright paper51.com MsgBox "密码错误" 内容来自www.paper51.com
Try_times = Try_times + 1 内容来自论文无忧网 www.paper51.com If Try_times >= 3 Then paper51.com MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭" 内容来自www.paper51.com DBapi_Disconnect 内容来自论文无忧网 www.paper51.com End 内容来自www.paper51.com Else paper51.com
Exit Sub 内容来自www.paper51.com End If 内容来自论文无忧网 www.paper51.com End If 内容来自www.paper51.com '登录成功，将当前用户的信息保存在CurUser中 内容来自论文无忧网 www.paper51.com CurUser.UserName = MyUser.UserName 内容来自www.paper51.com
CurUser.User_type = MyUser.User_type 内容来自论文无忧网 www.paper51.com '关闭自己 内容来自论文无忧网 www.paper51.com Unload Me paper51.com
EndSub http://www.paper51.com 其他模块设计请参照系统实体，在这里不在详细叙述。 内容来自www.paper51.com 第四章 系统运行 http://www.paper51.com |