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高校教师工资管理系统设计与实现
下一篇:超市库存系统的国内外研究现状和发展趋势

PHP+IOS的会议管理系统的设计+ER图

标准件经销管理系统【959字】

客户關系管理系统的发展与研究【1843字】

學生成绩管理系统的设计与实现【1741字】

古籍文献数据库存茬的问...

古籍文献数据库存茬的问...

港航管理系统门户网站之思考【2521字】

承德市事业单位档案管理...

中国学术生态细节考察《...

公寓空调设计任务书

C#学校科研管理系统的设计

志愿者活动的调查问卷表

10万元能开儿童乐园吗,我...

AT89C52单片机的超声波测距...

医院财务风险因素分析及管理措施【2367字】

国内外图像分割技术研究现状

神经外科重症监护病房患...