OK = True
Me.Hide
UserName = Trim(txtUserName.Text)
mrc.Close
Else
MsgBox "输入密码不正确,请重新输入!", vbOKOnly + vbExclamation, "警告"
txtPassword.SetFocus
txtPassword.Text = ""
End If
End If
上述代码主要是使用对话框来提示用户输入相应信息以及输入结果反馈,并调用了公共模块中的公共函数,用以和数据库进行互动,返回函数实行的信息与结果,如用户名和密码都正确,既可以进入系统的主菜单模块。
4、测试结果
当没有输入密码或者密码输入错误时,便会有相应的提示,测试结果如图5-3所示。
图5-3 登录模块测试图
(三)主菜单模块
1、模块功能
当授权用户进入系统后,我们提供了很多系统功能供用户选择,这些功能都排列在主菜单模块上,我创建的主菜单模块是用的MDI窗体(多文档界面)。在MDI程序中,有一个窗体是主窗体,可以包含其他窗体,这样也可以使程序更加美观、整齐有序。
2、模块界面
对于功能模块的排列,我使用了VB的“菜单编辑器”,很简介美观的展示了此系统的所有功能,如图5-4所示。
图5-4 主菜单模块界面
3、主要代码分析
此模块主要是便于有序的调用系统的各个功能,所以代码相对简单,大部分都是像如下代码:
Private Sub jbry_Click()
经办人员表信息.Show
End Sub
另外,我在此模块中使用了状态控件,用以显示一些特定信息,代码如下:
Private Sub MDIForm_Load()
StatusBar1.Panels.Item(1) = "正在运行中"
End Sub
4、测试结果
图5-5主菜单模块测试图
(四)系统管理模块
1、模块功能
系统模块主要为用户提供修改密码和安全退出系统的功能。在主目录下又设置了两个菜单选项,分别对应相应的功能。
2、模块界面
安全退出系统只需点击“退出系统”菜单按钮即可以,对于修改密码,需要用户输入新密码和再次确认所输入的新密码,界面如图5-6所示:
图5-6 修改密码界面
3、主要代码分析
If Trim(NewPWD.Text) = "" Then
MsgBox "请输入新密码!", vbOKOnly + vbExclamation, "警告"
NewPWD.SetFocus
Exit Sub
Else
If Trim(NewPWD1.Text) <> Trim(NewPWD.Text) Then
MsgBox "两次密码不同!", vbOKOnly + vbExclamation, "警告"
NewPWD.Text = ""
NewPWD1.Text = ""
NewPWD.SetFocus
Else
txtSQL = "update 用户表 set UserPWD = '" & NewPWD & "'where UserID='"
- 上一篇:ASP.net高校教师工资管理系统设计与实现
- 下一篇:超市库存系统的国内外研究现状和发展趋势
-
-
-
-
-
-
-
河岸冲刷和泥沙淤积的监测国内外研究现状
当代大学生慈善意识研究+文献综述
十二层带中心支撑钢结构...
酸性水汽提装置总汽提塔设计+CAD图纸
电站锅炉暖风器设计任务书
杂拟谷盗体内共生菌沃尔...
java+mysql车辆管理系统的设计+源代码
大众媒体对公共政策制定的影响
乳业同业并购式全产业链...
中考体育项目与体育教学合理结合的研究