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='" VB超市库存管理系统的设计与实现+文献综述(15):http://www.youerw.com/jisuanji/lunwen_2011.html