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控件,可以快速的查询首条,末条记录,同时也可以查看上一条和下一条记录。具体创建过程与领用查询类似,在此不作介绍。
上一篇:《计算机网络》课程通用题库管理系统设计与实现
下一篇:C#公司考勤管理系统的设计实现+流程图+ER图

考证平台静态网页设计与制作

java+mysql通用试题库系统后台设计与实现

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

基于网络的通用试题库系...

基于消费者个性特征的化...

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

探析动画视听设计元素茬...

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

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

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

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

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

志愿者活动的调查问卷表

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

公寓空调设计任务书

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

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