企业安全教育管理说明书-冯晨阳

1、期末作业题 目： 企业职工安全教育管理系统 学生姓名： 冯晨阳 学 号： 0990801079 系部名称： 安全工程 专业班级： 劳动安全1班 指导教师： 胡广霞 评定成绩： 年 月 日 / 32目 录目 录1 引言1.1课题背景1.2课程设计目的1.3课程设计任务2 系统结构分析2.1 需求分析2.2 功能模块图3 数据库设计3.1 概念结构设计3.2逻辑结构设计3.3数据库表的建立4 系统设计4.1职工基本信息管理4.2.三级教育信息管理模块4.3事故演练模块4.4 事故统计分析模块4.5 密码修改5系统测试及结果5.1系统调试5.2 测试结果6 系统技术实现6.1 Access6.2 V

2、isual Basic参考文献附录 部分程序代码 / 321 引言1.1课题背景企业安全管理教育系统是一个企业不可缺少的部分。一个功能齐全、简单易用的信息管理系统不但能有效地减轻企业相关工作人员的工作负担，它的内容对于企业的决策者和管理者来说都至关重要。所以安全教育管理系统应该能够为用户提供充足的信息和快捷的查询手段，但一直以来人们使用传统人工的方式管理文件档案、统计和查询数据，这种管理方式存在着许多缺点，如：效率低、保密性查、人工的大量浪费；另外时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少困难。随着人类社会进入信息时代，计算机越来越多的活跃在社会各个领域：管理、网络、

3、计算、控制、多媒体等，并且在某些方面成为不可缺少的工具，尤其在管理方面，管理软件的出现使大量繁琐复杂的问题变的简单易行。当前，许多企业需要一个能满足内部管理需求、提高管理效率的应用系统进行内部管理。随着企业规模的不断扩大，急需进行统一管理以防止信息的流失，因此，许多企业需要一个功能全面的安全教育管理系统来进行管理，以使企业对员工的安全教育的工作在该系统的配合下更加高效和便捷，所以，如何开发一个应用简单，界面友好，容易操作，数据安全性好的管理系统就成为非常重要的技术问题。 / 321.2课程设计目的随着企业规模的扩大,学生数量急剧增加,有关企业安全信息的数量也在成倍增长。面对庞大的信息量,利用计

4、算机信息管理系统对企业安全综合信息进行管理已经成为一种必然趋势。通过开发企业职工安全教育管理系统,可以做到信息的规范管理、科学统计和快速查询,从而解决职工管理，教育管理，事故管理统计等大量繁琐的工作,实现企业信息管理的办公无纸化和高效化，通过企业信息系统的设计与实现，熟悉掌握Visual Basic、Access 2000等工具软件，系统地掌握需求分析、数据库设计、编码实现、测试等软件开发的流程，提高自身分析问题、解决问题的能力。1.3课程设计任务本课程设计任务是通过企业信息管理系统的设计与实现，将所学的数据库系统概论理路结合实际课程任务，进一步学习数据库系统的设计与开发，提高实践动手能力，系

5、统使用Visual basic和Access 2000等软件作为开发工具，通过调研目前企业职工安全教育管理系统，了解管理的业务流程；通过分析比较，结合用户对系统的改进意见与实现情况，运用面向对象思想方法，设计和实现一个满足功能和性能，并有所创新的企业安全教育管理系统，以提高管理系统的自动化、友好性等。 / 322 系统结构分析2.1 需求分析企业管理员在企业安全教育管理系统中完成对职工信息的维护，包括这些信息的增加、修改及对各项信息的输出打印等操作，三级教育信息的添加、维护、打印以及事故信息的添加、维护、打印、事故统计。每学期期末开始完毕以后，需要由由任课老师对各学生成绩进行录入，学生可对以上

6、录入的信息跟据自己的需要进行适当的查询。经过以上对信息系统使用流程的分析,系统设计分析其功能主要分：1.用户密码修改检查用户名称，密码的合法性，进入系统，修改密码。修改界面要求设计直观，操作简单，友好而且使用方便，尽量使用用户的数据输入最少，具有人机亲和力，做到画面尽可能接近实际，界面保持一致，让用户始终用同一种方式思考和操作，同时界面应该是用户随时能够掌握任务进展情况，具有较强的容错功能，避免一位误操作等可能导致的数据侮辱。2.职工信息管理功能管理职工的基本信息，并对其进行必要的维护操作，这主要包括了包含职工的编号，姓名，职位，工作时间等信息在内的职工基本信息以及职工信息的添加、修改和打印。

7、3.三级教育信息管理功能实现对企业的三级教育进行记录，并能够按照实际情况不断更新，符合企业发展的需要，尤其能在对职工的三级教育培训进行查询分析，为企业教育培训提供数据，使企业能够及时的完善教育制度。4.事故信息管理功能实现对企业事故信息的查询，为数据更新提供依据，为事故统计提供数据。5.事故统计功能按照需要，将事故进行统计，并以图表的方式直观的显示给管理人员，方便系统用户迅速了解信息，而且还能将统计结果输出excel表格进行详细的数据分心。 / 322.2 功能模块图根据需求和系统分析，可以设计出系统的总体功能模块，如图2.1所示。企业安全教育管理系统系统密码修改三级教育管理事故演练管理职工信

8、息管理事故演练统计图2.1 系统功能模块示意图1.系统密码修改功能，其功能模块如下图2.2所示。系统密码修改修改密码用户登录职工信息管理模块职工基本信息打印职工信息职工信息维护图2.2 用户密码修改 图2.3 职工信息管理模块2.职工信息管理模块，保存和更新数据信息，职工基本信息，包括编号，姓名，出生年月，工作时间，职位，职称，备注等数据，实现对应模块的添加，浏览，删除和修改。模块如上图2.3所示。3.三级教育信息管理模块：保存和更新数据信息，包括编号、教育级别、培训时间、培训人、以及受训人等数据，实现设置、添加和修改信息功能。模块如图2.4所示。 / 32 三级教育管理模块教育信息添加打印三

9、级教育三级教育维护 事故演练管理模块事故演练添加打印事故演练事故演练维护 图2.4三级教育管理模块 图2.5 事故演练管理模块4.事故演练管理模块：保存和更新数据信息，包括演练部门，演练时间，演练内容等数据，实现设置、添加和修改信息功能。功能模块如图2.5所示。5.事故演练统计功能实现对事故演练信息的统计，通过条形图直观的显示出来，并实现导出excel功能。功能模块如图2.6所示。按部门统计按时间统计数据导出到表格事故演练统计模块 图2.6 事故演练统计 / 323 数据库设计3.1 概念结构设计通过对用户需求进行综合、归纳和抽象，形成一个独立于具体数据库的概念模型。根据前面的设计规划处实体有

10、：用户实体、总体。构建E-R图用来描述本系统中的概念模型。（1）用户实体包含的属性：用户名、密码、用户类型。用户实体与各属性是对应的关系，各属性之间则是部分存在对应关系，如用户名确定，则可以推断其它两个属性，但是密码确定，却不能推断其它属性，用户实体E-R图如图3.1所示。管理人员用户名密码图3.1 用户实体E-R图（2）根据分E-R图和需求分析，可得到总E-R图，如图3.2所示。 / 32姓名职工编号工种职位文化程度出生日期单位部门性别 类别备注工作时间记录职工基本信息数据库姓名教育编号受训人考核结果教育级别培训内容记录三级教育信息数据库 时间 / 32事故演练部门演练内容 时间记录事故演练

11、信息数据库图3.2 总E-R图3.2逻辑结构设计根据以上的E-R，结合关系数据库理论原则，可以得到以下的关系模型:（1）登陆表：（存放管理员用户名和密码）（2）三级安全教育培训情况表；（3）事故演练记录表；（4）职工基本信息登记表；我们用数据字典来罗列关系模型的属性及其描述，本学生管理系统的数据字典如表3.1所示。表3.1 职工基本信息数据字典名字描述数据类型职工编号描述职工编号的数据50变长字符串姓名描述姓名的数据50变长字符串性别描述性别的数据50变长字符串出生日期描述出生日期的数据50变长字符串文化程度描述文化程度的数据50变长字符串工作时间描述工作时间的数据50变长字符串单位部门描述单

12、位部门的数据50变长字符串职位描述职位的数据50变长字符串工种描述工种的数据50变长字符串 / 32类别描述类别的数据50变长字符串3.2三级安全教育培训情况表数据字典名字描述数据类型职工编号描述职工编号的数据50变长字符串姓名描述姓名的数据50变长字符串教育级别描述教育级别的数据50变长字符串培训时间描述培训时间的数据50变长字符串培训内容描述培训内容的数据250变长字符串考核结果描述考核结果的数据50变长字符串培训人描述培训人的数据50变长字符串3.3三级安全教育培训情况表数据字典名字描述数据类型演练部门描述演练部门的数据50变长字符串演练内容描述演练内容的数据250变长字符串时间描述演练

13、时间的数据50变长字符串3.3数据库表的建立在设计数据库表结构之前，首先要创建一个数据库，企业安全教育管理系统选用Access 2003创建用户数据库，其建设过程如图3.3图3.6所示。图3.3 创建数据库界面 / 32图3.4 职工基本信息表图3.5 三级安全教育培训情况表图3.6 事故演练记录表图3.7 用户登录表 / 324 系统设计4.1职工基本信息管理当用户选定了添加职工基本信息按钮后，会出现以下界面，如图图4.1 添加职工信息2.维护职工基本信息为了方便查看，在程序中使用了DataGrid控件。修改信息时，点击修改后，text控件才变为可修改状态，修改后如下图4.3所示。 / 32

14、图4.2 职工信息维护修改成功后将弹出如下提示框，如图4.3。图4.5 提示框删除时会出现如下提示框如图4.4图4.4 删除提示 / 323. 打印职工基本信息打印职工基本信息界面如下图4.5。图4.5 打印职工信息4.2.三级教育信息管理模块1.三级教育记录添加 / 32图4.6 三级教育记录添加2. 三级教育记录维护图4.7 三级教育记录维护4.3事故演练模块1事故演练记录添加 / 324.8事故演练添加4.4 事故统计分析模块 / 32图4.9 事故演练统计分析4.5 密码修改用于管理员修改密码，界面简单，如下图4.10图4.10 密码修改图4.11 错误提示图4.12修改成功提示 /

15、325系统测试及结果5.1系统调试在系统投入使用前要进行一系列测试，以保证更高的系统准确性，数据要按照标准测试要求进行测试，如边界数据、关联数据、相似区分数据、正常使用数据、大小写等。经调试后确认本系统，已完成分析阶段所要求的所有功能，可以投入使用。5.2 测试结果兼容性：软件在win7系统运行正常，反应迅速，测试过程中没有出现崩溃，卡死等现象。功能实现：各个模块，功能完全正常，符合设计预期。其他：软件大小2mb，小巧实用，此为第一版，以后会进行功能上的改良和完善，加入用户管理系统，管理员超级密码，窗口管理系统，访客查询数据系统等。 / 326 系统技术实现6.1 Access Access

16、是微软公司推出的基于Windows的桌面关系数据库管理系统（RDBMS），是Microsoft Office套装办公系列应用软件之一，具有见面友好、方便快捷、效率高、扩展性强等优点。Access作为一种关系型数据库管理系统，其主要特点如下： 面向对象：Access是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能对象化，将数据库管理的各种功能封装在各类对象中。通过对象的方法、属性完成数据库的操作和管理，极大地简化了用户的开发工作。同时，这种基于面向对象的开发方式，使得开发应用程序更为简便。界面友好、易操作：Access是一个可视化工具，是风格与Windows完全一样，用户想要

17、生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设计器以及数据库向导、表向导、查询向导、窗体向导、报表向导等工具，使得操作简便，容易使用和掌握。 Access支持ODBC（开发数据库互连，Open Data Base Connectivity），利用Access强大的DDE（动态数据交换）和OLE（对象的联接和嵌入）特性，可以在一个数据表中嵌入位图、声音、Excel表格、Word文档，还可以建立动态的数据库报表和窗体等。6.2 Visual BasicVisual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，

18、VB都是世界上使用人数最多的语言不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。 / 32参考文献1 VisualBasic范例开发大全, 隋丽娜, 清华大学出版社, 2010.62 数据库技术，黄平，机械工业出版社，20023Visual Basic +Access 数据库开发与实例， 刘文涛，清华大学出版社，2006.10 / 32附录 部分程序代码1 密码修改

19、部分代码Private Conn As ADODB.ConnectionPrivate rs As ADODB.RecordsetDim cnt As IntegerPrivate Sub Command1_Click() If Trim(Text1.Text) = "" Then MsgBox "没有这个用户", vbOKOnly + vbExclamation, "" Text1.SetFocus Exit Sub End If Dim sql As String Set rs = New ADODB.Recordset rs.C

20、ursorLocation = adUseClient sql = "select * from 登录表 where 用户名='" & Text1.Text & "'" rs.Open sql, Conn, 2, 2 If rs.EOF = True Then MsgBox "没有这个用户", vbOKOnly + vbExclamation, "" Text1.SetFocus Else '检验密码是否正确 If Trim(rs.Fields(1) = Trim(Text2

21、.Text) Then If Trim(Text3.Text) = "" Or Trim(Text4.Text) = "" Then MsgBox "密码不能为空", , "提示" Else If Trim(Text3.Text) <> Trim(Text4.Text) Then ' userID = text1.Text 'userpow = rs.Fields(2) MsgBox "新密码不相同！", , "提示" Text3 = "

22、" Text4 = "" Text3.SetFocus Else rs.Fields("密码") = Trim(Text4.Text) rs.Update rs.Close / 32 MsgBox "修改成功", , "恭喜" Unload Me End If End If Else MsgBox "原密码不正确", vbOKOnly + vbExclamation, "" Text2 = "" Text2.SetFocus cnt = cnt

23、+ 1 End If End IfIf cnt = 3 ThenMsgBox "原密码错误超过3次", , "提示" Unload MeEnd IfEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()Set Conn = New ADODB.ConnectionConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &

24、; "企业安全教育管理.mdb"Conn.Open '打开数据库cnt = 0End Sub2 添加职工信息代码Private Sub Form_Load()Set Conn = New ADODB.ConnectionConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "企业安全教育管理.mdb"Conn.Open '打开数据库Set rs = New ADODB.Recordsetr

25、s.CursorLocation = adUseClientrs.Open "职工基本信息登记表", Conn, 2, 2 / 32End SubPrivate Sub Command1_Click() For i = 0 To 4 If Trim(Text(i).Text) = "" Then MsgBox "记录不能为空！", vbOKOnly + vbInformation, "提示" Text(i).SetFocus Exit Sub End If Next rs.AddNew '添加新记录 rs.

26、Fields("职工编号") = Trim(Text(0).Text) rs.Fields("姓名") = Trim(Text(1).Text) rs.Fields("性别") = Combo1.Text rs.Fields("出生日期") = DTPicker1.Value rs.Fields("文化程度") = Combo2.Text rs.Fields("工作时间") = DTPicker2.Value rs.Fields("单位部门") = Tri

27、m(Text(2).Text) rs.Fields("职位") = Trim(Text(3).Text) rs.Fields("职称") = Combo3.Text rs.Fields("类别") = Combo4.Text rs.Fields("备注") = Trim(Text(4).Text) rs.Update '更新记录 MsgBox "添加成功", , "成功" Unload Me End SubPrivate Sub Command2_Click() &#

28、39;退出Unload MeEnd Sub3 职工信息维护代码Private Conn As ADODB.ConnectionPrivate rs As ADODB.RecordsetPrivate rschaxun As ADODB.Recordset / 32Private Sub Command2_Click()If Command2.Caption = "修改" Then '点击修改按钮后，按钮标题改为确认修改，完成修改操作 Command2.Caption = "确认修改" Text(0).Enabled = TrueText(1).E

29、nabled = TrueText(2).Enabled = TrueText(3).Enabled = TrueText(4).Enabled = TrueText(5).Enabled = TrueText(6).Enabled = TrueText(7).Enabled = TrueText(8).Enabled = TrueText(9).Enabled = TrueText(10).Enabled = True Else rs.Fields("职工编号") = Trim(Text(0).Text) rs.Fields("姓名") = Trim(

30、Text(1).Text) rs.Fields("性别") = Trim(Text(2).Text) rs.Fields("出生日期") = Trim(Text(3).Text) rs.Fields("文化程度") = Trim(Text(4).Text) rs.Fields("单位部门") = Trim(Text(5).Text) rs.Fields("职位") = Trim(Text(6).Text) rs.Fields("工作时间") = Trim(Text(7).Te

31、xt) rs.Fields("类别") = Trim(Text(8).Text) rs.Fields("职称") = Trim(Text(9).Text)rs.Fields("备注") = Trim(Text(10).Text) Text(0).DataField = "职工编号" / 32 rs.Update '更新记录 DataGrid1.Refresh '更新DataGrid1 MsgBox "修改成功" Command2.Caption = "修改"

32、Text(0).Enabled = FalseText(1).Enabled = FalseText(2).Enabled = FalseText(3).Enabled = FalseText(4).Enabled = FalseText(5).Enabled = FalseText(6).Enabled = FalseText(7).Enabled = FalseText(8).Enabled = FalseText(9).Enabled = FalseText(10).Enabled = FalseEnd IfEnd SubPrivate Sub Command3_Click()'

33、删除记录Dim a As StringDim b As Stringa = "是否确定要删除记录" & Text(0).Textb = rs.RecordCountIf b = 0 Then Exit SubIf b = 1 ThenIf MsgBox(a, vbOKCancel, "删除记录?") = vbCancel Then Exit Sub End Ifrs.DeleteText(0) = ""Text(1) = ""Text(2) = ""Else If Not rs.EOF

34、And Not rs.BOF Then If MsgBox(a, vbOKCancel, "删除记录?") = vbCancel Then Exit Sub Else rs.Delete / 32 rs.MoveNext End If If rs.EOF Then rs.MovePrevious End IfText(0).DataField = "职工编号" Text(1).DataField = "姓名" Text(2).DataField = "性别" Text(3).DataField = "出生

35、日期" Text(4).DataField = "文化程度" Text(5).DataField = "单位部门" Text(6).DataField = "职位" Text(7).DataField = "工作时间" Text(8).DataField = "类别" Text(9).DataField = "职称" Text(10).DataField = "备注" End IfDataGrid1.Refresh '更新DataGrid

36、1End SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Form_Load()Set Conn = New ADODB.ConnectionConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "企业安全教育管理.mdb"Conn.Open '打开数据库Set rs = New ADODB.Recordsetrs.CursorLocation =

37、 adUseClientrs.Open "职工基本信息登记表", Conn, 2, 2For i = 0 To 10 Set Text(i).DataSource = rsNext Text(0).DataField = "职工编号" Text(1).DataField = "姓名" / 32 Text(2).DataField = "性别" Text(3).DataField = "出生日期" Text(4).DataField = "文化程度" Text(5).DataF

38、ield = "单位部门" Text(6).DataField = "职位" Text(7).DataField = "工作时间" Text(8).DataField = "类别" Text(9).DataField = "职称" Text(10).DataField = "备注" Set DataGrid1.DataSource = rs '为DataGrid1付值DataGrid1.RefreshText(0).Enabled = FalseText(1).Ena

39、bled = FalseText(2).Enabled = FalseText(3).Enabled = FalseText(4).Enabled = FalseText(5).Enabled = FalseText(6).Enabled = FalseText(7).Enabled = FalseText(8).Enabled = FalseText(9).Enabled = FalseText(10).Enabled = FalseEnd SubPrivate Sub Command1_Click()'判断是否按照要求添加记录，如有空项，提示并结束程序 If Trim(Text1.

40、Text) = "" Then MsgBox "请输入完整的信息！", vbOKOnly + vbInformation, "提示" Exit Sub End If Dim sql As String If Option1.Value = True Then sql = "select * from 职工基本信息登记表 where 职工编号='" & Trim(Text1.Text) & "'" Else / 32 sql = "select * fro

41、m 职工基本信息登记表 where 姓名='" & Trim(Text1.Text) & "'" End If Set rschaxun = New ADODB.Recordset rschaxun.CursorLocation = adUseClient rschaxun.Open sql, Conn, 1, 1 '按照查询条件打开表 If rschaxun.EOF Then '如果没查到 给与提示 MsgBox "没有找到符合条件的记录！", vbOKOnly + vbInformation,

42、 "提示" Else Set DataGrid1.DataSource = rschaxun '查到后更新DataGrid1 DataGrid1.Refresh For i = 0 To 10 Set Text(i).DataSource = rschaxun Next Text(0).DataField = "职工编号" Text(1).DataField = "姓名" Text(2).DataField = "性别" Text(3).DataField = "出生日期" Text(4

43、).DataField = "文化程度" Text(5).DataField = "单位部门" Text(6).DataField = "职位" Text(7).DataField = "工作时间" Text(8).DataField = "类别" Text(9).DataField = "职称" Text(10).DataField = "备注" End IfEnd Sub4.打印三级教育信息代码Private Sub Command1_Click()I

44、f Trim(Text1.Text) = "" Then MsgBox "请输入完整的信息！", vbOKOnly + vbInformation, "提示" Exit SubEnd If Dim rs As ADODB.Recordset Set rs = DataEnvironment1.rsCommand4 / 32 If rs.State <> adStateClosed Then rs.Close End If Dim sql As String If Option1.Value = True Then sql

45、= "select * from 三级安全教育培训情况表 where 职工编号='" & Trim(Text1.Text) & "'" Else sql = "select * from 三级安全教育培训情况表 where 姓名='" & Trim(Text1.Text) & "'" ' 连接数据库 End If rs.Open sql If (rs.BOF Or rs.EOF) Then '如果当前没有员工信息 MsgBox "没有找到！" End If DataGrid1.DataMember = "Command4"End SubPrivate Sub Command2_Click()DataReport2.ShowEnd SubPrivate Sub Command3_Click()Unload MeEnd Sub5 事故演练分析代码Private Conn As ADODB.ConnectionPrivate rs As