运行后的界面如图5.13所示
 
图5.13 消耗查询
5.5 用户管理模块
5.5.1 修改密码
用于系统管理员进行用户权限设置，其作用是保障任何进入系统的用户可以修改自己的密码。当然不能输入正确的用户名和密码的用户不能进入主界面，因此是没有这个权限的。保障系统安全需要进行输入检验，并进行必要的信息提示。当新密码与确认密码输入一致时，按确定按钮会提示密码修改成功，同时我们可以看到在密码区域已经改为了新密码了。由于和数据库的相连，所以新密码同时也会更新到数据库中，下次登录时必须使用新密码。
运行后的结果如图5.14所示
 
图5.14 修改密码
修改密码的程序代码如下：
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 登录界面 where 用户名='" & Text1.Text & "'"
        If Text4.Text = Text3.Text Then
            Adodc1.Recordset.Fields("密码") = Text3.Text
            MsgBox "密码修改成功！", vbInformation
            Adodc1.Recordset.Update
             主界面.Show
            Unload Me
        Else
            MsgBox "两次密码不相同，请输入新密码！", vbInformation
        End If
End Sub
Private Sub Command2_Click()
 主界面.Show
Unload Me
End Sub
5.6 报表
5.6.1 基本信息报表
这部分主要的功能是是管理员一目了然地看到整个基本信息的汇总情况。对于这个汇总科目包括编号、设备名称、设备编号、单价、设备数量等。
设计的具体过程如下：
1）新建一个标准工程，创建一个新窗体，“名称”属性为基本信息报表。
2）在基本信息报表窗体上添加一个ADO控件和一个Data Grid控件。
3）在基本信息报表窗体上添加两个Command Button控件，设置其中一个的Caption属性为“打印”，另一个为“取消”。
4）设置主要控件的属性:ADO控件设置Connection String，Command Type，Record Source；Data Grid控件设置Data Source为Adodc1即可。
5）选择Visual Basic菜单中的工程，然后添加Data Environment命令，将一个数据环境设计器添加到工程中，数据环境设计器自动创建一个Connection对象。通过次环境设计器来配置数据库的数据源。
6)右键Connection，在弹出的菜单中选择属性命令，然后根据提示连接相应的数据库，最后测试连接成功。
7)再次右键Connection，在弹出的菜单中选择添加命令，添加一个Command1命令，然后右键Command1，在通用选项卡中，对其设置属性。
8)单击环境设计器中Command1左边的“+”，将Command1命令展开。至此数据环境设计完成。
9)选择Visual Basic菜单中的工程，然后添加Data Report命令，并且将其对象设置属性。
10）右击Data Report，从弹出的菜单中选择“检索结构”命令，然后将数据环境设计器中的Command1命令中的字段分别拖拽到数据报表对象Data Report中的“细节”中。将Label放到也标头，报表标头中放置一个控件用来设置标头名称。在报表注解那里输入函数sum，统计设备数量。
至此报表设计完成,如图5.15所示
图5.15 设备管理信息报表 VB设备管理系统设计+需求分析+可行性分析(13):http://www.youerw.com/jisuanji/lunwen_192.html