VB设备管理系统设计+需求分析+可行性分析(12)

        rs("购买日期") = Text9.Text
        rs("管理员") = Text10.Text
        rs.Update
        MsgBox "修改成功", 64, "信息提示"
    End Sub
Private Sub Command6_Click()
    主界面.Show
    cn.Close
    Unload Me
End Sub
3）将数据库与窗体进行连接。有三种方法，这里我是用的是通过书写代码，具体代码如下：
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
    If cn.State = 1 Then
        cn.Close
    End If
    cn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\设备管理系统.mdb;" & "Persist Security Info=False"
    cn.Open
End Sub
如运行后进行添加后会出现下面的界面5.9所示

图5.9 设备基本信息
信息添加完成后，按退出按钮可回到主界面，同时添加的记录也会相应的添加到数据库中。
5.3.2 设备领用登记
这个模块是对设备的领用进行登记的。对每次每个部门领用具体什么设备登记清楚，其中有设备名称、领用者、领用数量、领用日期等。设计的具体窗体5.10如下：

图 5.10 设备领用登记
具体设计步骤与上面设备基本信息设计类似，在此不一一详述了，而具体的程序代码则见附录。
5.3.3 设备消耗登记
这个模块是对设备的消耗进行登记的。每次设备报废后进行登记是方面管理人员了解设备的报废原因，可以针对情况进行核查并且做出及时的调整。也方便管理人员进行设备的管理与文护。设计的具体窗体5.11所示：

图5.11 设备消耗登记
5.4 查询模块
这个模块是方便管理人员快速查找设备基本信息、领用情况、消耗情况对应的记录。
5.4.1领用情况
该部分有两种方式查询。
第一，按设备编号，输入一个编号，然后点击编号查询按钮后就可以查询相应的记录了。这种方式的创建就是利用一个command控件，然后对其设置相应的语句。在此不作介绍了。
第二，可以使用ado控件，可以快速的查询首条，末条记录，同时也可以查看上一条和下一条记录。具体创建步骤如下:
1）   在菜单里面找到工程，下拉菜单的部件点击进入，然后选择Ado控件。
2）   将控件添加到领用查询窗体中
3）   对Ado进行属性设置:
①   Connection String 点开出现这样的界面

然后点击生成按钮

选择关联的数据库，然后点击测试连接。出示测试连接成功后，按确定并且应用。
②   Command Type中选择2-adcmdTable
③   RecordSource中选择关联的数据库中的数据表，这里是设备领用登记表
4)将各个文本框与ado相连
最后运行后的结果是如5.12所示

图5.12 领用查询
5.4.2消耗情况
该部分有两种方式查询。第一，按设备编号，输入一个编号，然后点击编号查询按钮后就可以查询相应的记录了。这种方式的创建就是利用一个command控件，然后对其设置相应的语句。第二，可以使用ado控件，可以快速的查询首条，末条记录，同时也可以查看上一条和下一条记录。具体创建过程与领用查询类似，在此不作介绍。 VB设备管理系统设计+需求分析+可行性分析(12):http://www.youerw.com/jisuanji/lunwen_192.html