设备信息管理系统

1、设备信息管理系统一、系统开发背景Access是Office系列软件中用来专门管理数据库的应用软件，它蒹具了易学易用的特色。Access也是一个开放式的数据库管理系统，它不仅能与Office套装办公软件进行数据资源共享，还可以与其他应用程序共享，深入了解Access之后，再结合VB，就可以完成一个简单的应用程序。数据库是计算机软件的一个重要分支，是在二十世纪六十年代末七十年代初发展起来的了。它的计算机网络、人工智能并称为当今计算机技术的三大热门技术。使用数据库的主要目的是跟踪数据的变化。用户除了将信息放在数据库外，还需要编辑、排序或筛选信息，或者根据需要生成各种各样的报表。因此，为了更好地控制和

2、使用数据库，应该选择一个易学易用的数据库管理系统。ADO(ActiveX Data Objects)数据库访问技术，使应用程序能通过任何OLE DB提供者来访问和操作数据库中的数据，OLE DB使Microsoft推出的一种数据访问模式。ADO的主要优势是易于使用、高速、低内存开销和较小的磁盘占用。为了便于用户使用ADO数据访问技术，VB6.0提供了一个图形控件ADO Data Control，它有一个易于使用的界面，可以用最少的代码创建数据库应用程序。二、用户需求分析1. 设备：设备编号、设备名称、设备单价、设备类型、采购日期、设备负责人设备的使用：设备编号、借出单位、借出负责人、借出日期设

3、备的损坏：设备编号、损坏日期、损坏人、损坏原因2. 处理要求：增加、删除、修改各数据对象中的单个数据；批量 、删除、修改、添加各数据对象中的数据；对设备进行各类查询等。3. 安全性要求：只允许管理员使用该系统。三、数据库设计1. 概念结构设计 E-R图设备实验室设备的使用设备的损坏设备设备名称设备类型采购日期设备单价设备负责人设备编号实验室实验室编号实验室名负责人负责人负责人编号负责人名电话2. 逻辑结构设计设备（设备编号、设备名称、设备单价、设备类型、采购日期、实验室编号）设备的使用（设备编号、借出单位、负责人、借出日期）设备的损坏（设备编号、损坏日期、损坏人、损坏原因）实验室（实验室编号、

4、实验室名、负责人）负责人（负责人编号、负责人名、电话） 设备表 字段名称数据类型字段大小是否主键设备编号文本6是设备名称文本10否设备单价文本5否设备类型文本10否采购日期日期/时间否实验室编号文本5外键实验室表字段名称数据类型字段大小是否主键实验室编号文本6是实验室名文本10否负责人文本5否四、应用系统设计 设备管理系统仪器入库使用查询损坏查询系统管理五、系统使用说明超级 用户名1234 登录密码1234普通 用户名1111 登录密码1111先连接数据源入库界面六、体会与收获转眼间，一学期已经过去了，回顾所学的知识有很多都好似很感兴趣的，比如我们这学期学的数据库。我设计的是仪器设备管理系统。

5、设备管理是一个重要的内容。如何管理好学校的仪器设备，是管理中一个大的问题。如果能实现设备管理的自动化，无疑将给企事业带来很大的方便。本系统是根据数据库技术及应用教程 田绪红/编著 人民邮电出版社 。通过这次的课程设计使我们有了更多的收获！真是“看花容易绣花难”，在不同的历史时期产生了不同的、相对于那个时代最完备的设备管理技术与管理制度。近代设备学已经是一门完善的、体系严密的科学。虽然设备学面临信息化的冲击与挑战，但是我们必须清醒地看到，新一代设备学尚未产生，设备管理信息化还存在大量未解决的难题。因此，处理好设备管理信息化中的管理创新和原有设备管理制度之间的矛盾是我们面临的首要挑战。原有设备管理

6、制度的核心一是为了快速查询、应用，二是为了确保设备安全。同时，对历史设备管理现状难于改变的特点，必然使设备管理不可避免地走向管理方式的多元化。设备管理系统向深层应用发展时，会出现与其它应用系统整合的情况，如设备管理一体化。对于这类整合，重要的是处理好整合应用项目与设备管理特有的、独立性要求的矛盾。例如，设备管理中对设备名称有权改动，这必然使设备一体化管理系统的设计复杂化。采取管理创新和合理技术是设备管理与其它信息系统整合的可行的解决方案。 设备管理是随着人事制度改革应运而生的一项新的工作。近年来设备的使用效率低，办事难的情况。最初的设备管理，都是靠人力来完成的。当企事业规模比较小的时候，人力可

7、以完成，随着企事业的规模越来越大，企事业设备的数目越来越多，依然维持着人力进行设备管理，必然会造成工作效率低，工作错误增高的问题。企舍业设备管理就是把分散在企事业单位的各类设备实行统一、集中、规范的收集管理，建立分类编号管理、电脑存储查询等现代化、专业化的管理系统。设备管理为企事业单位和个人提供信息咨询、设备检索、设备存取、依据设备出具各类证明材料等服务；为企事业单位和个人提供设备的整理、保管服务。 企事业设备管理的对象是企事业中的各种全部设备。 设备管理的自动化是当今社会的发展趋势。设备信息录入项目齐全、完整、系统，这些无疑是现代企事业设备管理系统的要求。现代化的企事业设备管理系统中灵活使用

8、了表格对设备分门别类，组成企事业设备管理系统，可以方便地查询、阅读、修改、交流和重复使用本设备管理系统为企事业单位和个人提供信息咨询、设备检索、设备存取、依据设备出具各类证明材料等服务，能够满足现代企事业对设备管理的需要。后台数据库选择ACCESS2000，操作系统为WINDOWS XP。 七、系统界面和代码列表Public flag As Integer Public recs As Integer Public Function exesql(ByVal sql As String) As Adodb.Recordset Dim conn As Adodb.Connection Dim r

9、st As Adodb.Recordset sql = Trim(sql) Set conn = New Adodb.Connection Set rst = New Adodb.Recordset conn.Open "yiqi" Set rst.ActiveConnection = conn rst.LockType = adLockOptimistic rst.CursorType = adOpenKeyset rst.Open sql Set exesql = rst Set rst = Nothing Set conn = NothingEnd FunctionP

10、ublic Sub endata(Keyasc As Integer) If Keyasc = 13 Then SendKeys "TAB" End IfEnd SubPrivate Sub begin_Click() If MsgBox("本功能要清除系统中的所有数据，真的初始化吗？", vbYesNo, "确认初始化操作") = vbYes Then Call deldata("yqrk") Call deldata("sbsun") Call deldata("sbsy"

11、;) Call deldata("yqlx") End IfEnd SubPrivate Sub exit_Click() Unload MeEnd SubPrivate Sub rk_Click() yqrk.Show vbModalEnd SubPrivate Sub shi_Click() sbsy.Show vbModalEnd SubPrivate Sub sun_Click() sbsun.Show vbModalEnd Sub入库管理Private Sub Command1_Click() Dim Str As String Str = ""

12、; If Trim(Text1(0).Text) <> "" Then If Str = "" Then Str = "设备编号='" + Trim(Text1(0).Text) + "'" Else Str = Str + " and 设备编号='" + Trim(Text1(0).Text) + "'" End If End If If Trim(Text1(1).Text) <> "" Then

13、 If Str = "" Then Str = "设备名称='" + Trim(Text1(1).Text) + "'" Else Str = Str + " or 设备名称='" + Trim(Text1(1).Text) + "'" End If End If If Trim(Text1(2).Text) <> "" Then If Str = "" Then Str = "设备类型='&q

14、uot; + Trim(Text1(2).Text) + "'" Else Str = Str + " or 设备类型='" + Trim(Text1(2).Text) + "'" End If End If If Trim(Text1(3).Text) <> "" Then If Str = "" Then Str = "设备负责人='" + Trim(Text1(3).Text) + "'" Else

15、 Str = Str + " or 设备负责人='" + Trim(Text1(3).Text) + "'" End If End If If Str <> "" Then Adodc1.RecordSource = "select * from 设备 where " + Str Adodc1.Refresh Else Adodc1.RecordSource = "select * from 设备" Adodc1.Refresh End If recs = Adodc

16、1.Recordset.RecordCount If recs = 0 Then MsgBox "没有任何满足条件的记录", vbOKOnly, "信息提示" End If Call encommEnd SubPrivate Sub Command2_Click() Dim i% For i = 0 To 3 Text1(i).Text = "" Next iEnd SubPrivate Sub Command3_Click() flag = 1 bjyq.Show vbModalEnd SubPrivate Sub Command5

17、_Click() If MsgBox("真的要删除" + Trim(Adodc1.Recordset.Fields("设备名称") + "吗?", vbYesNo, "信息提示") = vbYes Then Adodc1.Recordset.Delete recs = recs - 1 Call encomm End IfEnd SubPrivate Sub Command4_Click() flag = 2 bjyq.Show vbModalEnd SubPrivate Sub Command6_Click()

18、Unload MeEnd SubPrivate Sub Form_Activate() DataGrid1.SetFocusEnd SubPrivate Sub encomm() If recs = 0 Then Command4.Enabled = False Command5.Enabled = False Else Command4.Enabled = True Command5.Enabled = True End IfEnd SubPrivate Sub Form_Load() recs = Adodc1.Recordset.RecordCountEnd SubPrivate Sub

19、 Text1_KeyPress(Index As Integer, KeyAscii As Integer) Call endata(KeyAscii)End Sub入库Dim rs As Adodb.RecordsetPrivate Sub Command1_Click() If Trim(Text1(0) = "" Or Trim(Text1(1) = "" Or Trim(Text1(2) = "" Or Trim(Text1(3) = "" Or Trim(Text1(4) = "" T

20、hen MsgBox "数据不能为空，请重行设置", vbOKOnly, "信息提示" Exit Sub End If If flag = 1 Then sqltxt = "select * from 设备 where 设备编号='" + Trim(Text1(0) + "'" Set rs = exesql(sqltxt) If rs.RecordCount <> 0 Then MsgBox "存在相同的设备编号", vbOKOnly, "信息提示&quo

21、t; Text1(0).SetFocus rs.Clone Exit Sub Else rs.Clone End If yqrk.Adodc1.Recordset.AddNew yqrk.Adodc1.Recordset.Fields(0) = Trim(Text1(0) yqrk.Adodc1.Recordset.Fields(1) = Trim(Text1(1) yqrk.Adodc1.Recordset.Fields(2) = Trim(Text1(2) yqrk.Adodc1.Recordset.Fields(3) = Trim(DataCombo1.Text) yqrk.Adodc1

22、.Recordset.Fields(4) = Format(Trim(Text1(3), "yyyy-mm-dd") yqrk.Adodc1.Recordset.Fields(5) = Trim(Text1(4) recs = recs + 1 Else yqrk.Adodc1.Recordset.Fields(0) = Trim(Text1(0) yqrk.Adodc1.Recordset.Fields(1) = Trim(Text1(1) yqrk.Adodc1.Recordset.Fields(2) = Trim(Text1(2) yqrk.Adodc1.Record

23、set.Fields(3) = Trim(DataCombo1.Text) yqrk.Adodc1.Recordset.Fields(4) = Format(Trim(Text1(3), "yyyy-mm-dd") yqrk.Adodc1.Recordset.Fields(5) = Trim(Text1(4) yqrk.Adodc1.Recordset.Update End If Unload MeEnd SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub DataCombo1_KeyPress(KeyAs

24、cii As Integer) Call endata(KeyAscii)End SubPrivate Sub Form_Load() If flag = 2 Then Dim i% For i = 0 To 4 If i < 3 Then Text1(i).Text = yqrk.Adodc1.Recordset.Fields(i) Else Text1(i).Text = yqrk.Adodc1.Recordset.Fields(i + 1) End If Next i DataCombo1.Text = yqrk.Adodc1.Recordset.Fields("设备类型

25、") End IfEnd SubPrivate Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) Call endata(KeyAscii)End Sub主界面Private Sub begin_Click() If MsgBox("本功能要清除系统中的所有数据，真的初始化吗？", vbYesNo, "确认初始化操作") = vbYes Then Call deldata("yqrk") Call deldata("sbsun") Call

26、 deldata("sbsy") Call deldata("yqlx") End IfEnd SubPrivate Sub exit_Click() Unload MeEnd SubPrivate Sub rk_Click() yqrk.Show vbModalEnd SubPrivate Sub shi_Click() sbsy.Show vbModalEnd SubPrivate Sub sun_Click() sbsun.Show vbModalEnd Sub使用情况Private Sub Command2_Click() Dim Str As

27、String Str = "" If Trim(Text1(0).Text) <> "" Then If Str = "" Then Str = "设备编号='" + Trim(Text1(0).Text) + "'" Else Str = Str + " and 设备编号='" + Trim(Text1(0).Text) + "'" End If End If If Trim(Text1(1).Text) &l

28、t;> "" Then If Str = "" Then Str = "设备名称='" + Trim(Text1(1).Text) + "'" Else Str = Str + " or 设备名称='" + Trim(Text1(1).Text) + "'" End If End If If Trim(Text1(2).Text) <> "" Then If Str = "" Then

29、Str = "设备类型='" + Trim(Text1(2).Text) + "'" Else Str = Str + " or 设备类型='" + Trim(Text1(2).Text) + "'" End If End If If Trim(Text1(3).Text) <> "" Then If Str = "" Then Str = "负责人='" + Trim(Text1(3).Text) + "'" Else Str = Str + " or 负责人='" + Trim(Text1(3).Text) + "'" End If End If If Str <> "" Then Adodc1