VB设备管理系统设计+需求分析+可行性分析(12)
时间:2016-11-23 19:01 来源:毕业论文 作者:毕业论文 点击:次
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控件，可以快速的查询首条，末条记录，同时也可以查看上一条和下一条记录。具体创建过程与领用查询类似，在此不作介绍。 (责任编辑：qin) |