vb软件需求说明书企业安全管理系统.docx
《vb软件需求说明书企业安全管理系统.docx》由会员分享，可在线阅读，更多相关《vb软件需求说明书企业安全管理系统.docx（37页珍藏版）》请在冰豆网上搜索。
vb软件需求说明书企业安全管理系统
期末作业
题目：
企业职工安全教育管理系统
学生姓名：
冯晨阳
学号：
0990801079
系部名称：
安全工程
专业班级：
劳动安全1班
指导教师：
胡广霞
评定成绩：
年月日
目录
目录２
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.1Access１９
6.2VisualBasic２０
参考文献２０
附录部分程序代码２０
1引言
1.1课题背景
企业安全管理教育系统是一个企业不可缺少的部分。
一个功能齐全、简单易用的信息管理系统不但能有效地减轻企业相关工作人员的工作负担，它的内容对于企业的决策者和管理者来说都至关重要。
所以安全教育管理系统应该能够为用户提供充足的信息和快捷的查询手段，但一直以来人们使用传统人工的方式管理文件档案、统计和查询数据，这种管理方式存在着许多缺点，如：
效率低、保密性查、人工的大量浪费；另外时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少困难。
随着人类社会进入信息时代，计算机越来越多的活跃在社会各个领域：
管理、网络、计算、控制、多媒体等，并且在某些方面成为不可缺少的工具，尤其在管理方面，管理软件的出现使大量繁琐复杂的问题变的简单易行。
当前，许多企业需要一个能满足内部管理需求、提高管理效率的应用系统进行内部管理。
随着企业规模的不断扩大，急需进行统一管理以防止信息的流失，因此，许多企业需要一个功能全面的安全教育管理系统来进行管理，以使企业对员工的安全教育的工作在该系统的配合下更加高效和便捷，所以，如何开发一个应用简单，界面友好，容易操作，数据安全性好的管理系统就成为非常重要的技术问题。
1.2课程设计目的
随着企业规模的扩大,学生数量急剧增加,有关企业安全信息的数量也在成倍增长。
面对庞大的信息量,利用计算机信息管理系统对企业安全综合信息进行管理已经成为一种必然趋势。
通过开发企业职工安全教育管理系统,可以做到信息的规范管理、科学统计和快速查询,从而解决职工管理，教育管理，事故管理统计等大量繁琐的工作,实现企业信息管理的办公无纸化和高效化，
通过企业信息系统的设计与实现，熟悉掌握VisualBasic、Access2000等工具软件，系统地掌握需求分析、数据库设计、编码实现、测试等软件开发的流程，提高自身分析问题、解决问题的能力。
1.3课程设计任务
本课程设计任务是通过企业信息管理系统的设计与实现，将所学的数据库系统概论理路结合实际课程任务，进一步学习数据库系统的设计与开发，提高实践动手能力，系统使用Visualbasic和Access2000等软件作为开发工具，通过调研目前企业职工安全教育管理系统，了解管理的业务流程；通过分析比较，结合用户对系统的改进意见与实现情况，运用面向对象思想方法，设计和实现一个满足功能和性能，并有所创新的企业安全教育管理系统，以提高管理系统的自动化、友好性等。
2系统结构分析
2.1需求分析
企业管理员在企业安全教育管理系统中完成对职工信息的维护，包括这些信息的增加、修改及对各项信息的输出打印等操作，三级教育信息的添加、维护、打印以及事故信息的添加、维护、打印、事故统计。
每学期期末开始完毕以后，需要由由任课老师对各学生成绩进行录入，学生可对以上录入的信息跟据自己的需要进行适当的查询。
经过以上对信息系统使用流程的分析,系统设计分析其功能主要分：
1.用户密码修改
检查用户名称，密码的合法性，进入系统，修改密码。
修改界面要求设计直观，操作简单，友好而且使用方便，尽量使用用户的数据输入最少，具有人机亲和力，做到画面尽可能接近实际，界面保持一致，让用户始终用同一种方式思考和操作，同时界面应该是用户随时能够掌握任务进展情况，具有较强的容错功能，避免一位误操作等可能导致的数据侮辱。
2.职工信息管理功能
管理职工的基本信息，并对其进行必要的维护操作，这主要包括了包含职工的编号，姓名，职位，工作时间等信息在内的职工基本信息以及职工信息的添加、修改和打印。
3.三级教育信息管理功能
实现对企业的三级教育进行记录，并能够按照实际情况不断更新，符合企业发展的需要，尤其能在对职工的三级教育培训进行查询分析，为企业教育培训提供数据，使企业能够及时的完善教育制度。
4.事故信息管理功能
实现对企业事故信息的查询，为数据更新提供依据，为事故统计提供数据。
5.事故统计功能
按照需要，将事故进行统计，并以图表的方式直观的显示给管理人员，方便系统用户迅速了解信息，而且还能将统计结果输出excel表格进行详细的数据分心。
2.2功能模块图
根据需求和系统分析，可以设计出系统的总体功能模块，如图2.1所示。
图2.1系统功能模块示意图
1.系统密码修改功能，其功能模块如下图2.2所示。
图2.2用户密码修改图2.3职工信息管理模块
2.职工信息管理模块，保存和更新数据信息，职工基本信息，包括编号，姓名，出生年月，工作时间，职位，职称，备注等数据，实现对应模块的添加，浏览，删除和修改。
模块如上图2.3所示。
3.三级教育信息管理模块：
保存和更新数据信息，包括编号、教育级别、培训时间、培训人、以及受训人等数据，实现设置、添加和修改信息功能。
模块如图2.4所示。
图2.4三级教育管理模块图2.5事故演练管理模块
4.事故演练管理模块：
保存和更新数据信息，包括演练部门，演练时间，演练内容等数据，实现设置、添加和修改信息功能。
功能模块如图2.5所示。
5.事故演练统计功能
实现对事故演练信息的统计，通过条形图直观的显示出来，并实现导出excel功能。
功能模块如图2.6所示。
图2.6事故演练统计
3数据库设计
3.1概念结构设计
通过对用户需求进行综合、归纳和抽象，形成一个独立于具体数据库的概念模型。
根据前面的设计规划处实体有：
用户实体、总体。
构建E-R图用来描述本系统中的概念模型。
（1）用户实体包含的属性：
用户名、密码、用户类型。
用户实体与各属性是对应的关系，各属性之间则是部分存在对应关系，如用户名确定，则可以推断其它两个属性，但是密码确定，却不能推断其它属性，用户实体E-R图如图3.1所示。
图3.1用户实体E-R图
（2）根据分E-R图和需求分析，可得到总E-R图，如图3.2所示。
图3.2总E-R图
3.2逻辑结构设计
根据以上的E-R，结合关系数据库理论原则，可以得到以下的关系模型:
（1）登陆表：
（存放管理员用户名和密码）
（2）三级安全教育培训情况表；
（3）事故演练记录表；
（4）职工基本信息登记表；
我们用数据字典来罗列关系模型的属性及其描述，本学生管理系统的数据字典如表3.1所示。
表3.1职工基本信息数据字典
名字
描述
数据类型
职工编号
描述职工编号的数据
50变长字符串
姓名
描述姓名的数据
50变长字符串
性别
描述性别的数据
50变长字符串
出生日期
描述出生日期的数据
50变长字符串
文化程度
描述文化程度的数据
50变长字符串
工作时间
描述工作时间的数据
50变长字符串
单位部门
描述单位部门的数据
50变长字符串
职位
描述职位的数据
50变长字符串
工种
描述工种的数据
50变长字符串
类别
描述类别的数据
50变长字符串
3.2三级安全教育培训情况表数据字典
名字
描述
数据类型
职工编号
描述职工编号的数据
50变长字符串
姓名
描述姓名的数据
50变长字符串
教育级别
描述教育级别的数据
50变长字符串
培训时间
描述培训时间的数据
50变长字符串
培训内容
描述培训内容的数据
250变长字符串
考核结果
描述考核结果的数据
50变长字符串
培训人
描述培训人的数据
50变长字符串
3.3三级安全教育培训情况表数据字典
名字
描述
数据类型
演练部门
描述演练部门的数据
50变长字符串
演练内容
描述演练内容的数据
250变长字符串
时间
描述演练时间的数据
50变长字符串
3.3数据库表的建立
在设计数据库表结构之前，首先要创建一个数据库，企业安全教育管理系统选用Access2003创建用户数据库，其建设过程如图3.3～图3.6所示。
图3.3创建数据库界面
图3.4职工基本信息表
图3.5三级安全教育培训情况表
图3.6事故演练记录表
图3.7用户登录表
4系统设计
4.1职工基本信息管理
当用户选定了添加职工基本信息按钮后，会出现以下界面，如图
图4.1添加职工信息
2.维护职工基本信息
为了方便查看，在程序中使用了DataGrid控件。
修改信息时，点击修改后，text控件才变为可修改状态，修改后如下图4.3所示。
图4.2职工信息维护
修改成功后将弹出如下提示框，如图4.3。
图4.5提示框
删除时会出现如下提示框如图4.4
图4.4删除提示
3.打印职工基本信息
打印职工基本信息界面如下图4.5。
图4.5打印职工信息
4.2.三级教育信息管理模块
1.三级教育记录添加
图4.6三级教育记录添加
2.三级教育记录维护
图4.7三级教育记录维护
4.3事故演练模块
1．事故演练记录添加
4.8事故演练添加
4.4事故统计分析模块
图4.9事故演练统计分析
4.5密码修改
用于管理员修改密码，界面简单，如下图4.10
图4.10密码修改
图4.11错误提示
图4.12修改成功提示
5系统测试及结果
5.1系统调试
在系统投入使用前要进行一系列测试，以保证更高的系统准确性，数据要按照标准测试要求进行测试，如边界数据、关联数据、相似区分数据、正常使用数据、大小写等。
经调试后确认本系统，已完成分析阶段所要求的所有功能，可以投入使用。
5.2测试结果
兼容性：
软件在win7系统运行正常，反应迅速，测试过程中没有出现崩溃，卡死等现象。
功能实现：
各个模块，功能完全正常，符合设计预期。
其他：
软件大小2mb，小巧实用，此为第一版，以后会进行功能上的改良和完善，加入用户管理系统，管理员超级密码，窗口管理系统，访客查询数据系统等。
6系统技术实现
6.1Access
Access是微软公司推出的基于Windows的桌面关系数据库管理系统（RDBMS），是MicrosoftOffice套装办公系列应用软件之一，具有见面友好、方便快捷、效率高、扩展性强等优点。
Access作为一种关系型数据库管理系统，其主要特点如下：
面向对象：
Access是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能对象化，将数据库管理的各种功能封装在各类对象中。
通过对象的方法、属性完成数据库的操作和管理，极大地简化了用户的开发工作。
同时，这种基于面向对象的开发方式，使得开发应用程序更为简便。
界面友好、易操作：
Access是一个可视化工具，是风格与Windows完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。
系统还提供了表生成器、查询生成器、报表设计器以及数据库向导、表向导、查询向导、窗体向导、报表向导等工具，使得操作简便，容易使用和掌握。
Access支持ODBC（开发数据库互连，OpenDataBaseConnectivity），利用Access强大的DDE（动态数据交换）和OLE（对象的联接和嵌入）特性，可以在一个数据表中嵌入位图、声音、Excel表格、Word文档，还可以建立动态的数据库报表和窗体等。
6.2VisualBasic
VisualBasic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。
从任何标准来说，VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。
它源自于BASIC编程语言。
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。
程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
参考文献
[1]VisualBasic范例开发大全,隋丽娜,清华大学出版社,2010.6
[2]数据库技术，黄平，机械工业出版社，2002
[3]VisualBasic+Access数据库开发与实例，刘文涛，清华大学出版社，2006.10
附录部分程序代码
1密码修改部分代码
PrivateConnAsADODB.Connection
PrivatersAsADODB.Recordset
DimcntAsInteger
PrivateSubCommand1_Click（）
IfTrim（Text1.Text）=""Then
MsgBox"没有这个用户",vbOKOnly+vbExclamation,""
Text1.SetFocus
ExitSub
EndIf
DimsqlAsString
Setrs=NewADODB.Recordset
rs.CursorLocation=adUseClient
sql="select*from登录表where用户名='"&Text1.Text&"'"
rs.Opensql,Conn,2,2
Ifrs.EOF=TrueThen
MsgBox"没有这个用户",vbOKOnly+vbExclamation,""
Text1.SetFocus
Else'检验密码是否正确
IfTrim（rs.Fields
（1））=Trim（Text2.Text）Then
IfTrim（Text3.Text）=""OrTrim（Text4.Text）=""Then
MsgBox"密码不能为空",,"提示"
Else
IfTrim（Text3.Text）<>Trim（Text4.Text）Then
'userID=text1.Text
'userpow=rs.Fields
（2）
MsgBox"新密码不相同！
",,"提示"
Text3=""
Text4=""
Text3.SetFocus
Else
rs.Fields（"密码"）=Trim（Text4.Text）
rs.Update
rs.Close
MsgBox"修改成功",,"恭喜"
UnloadMe
EndIf
EndIf
Else
MsgBox"原密码不正确",vbOKOnly+vbExclamation,""
Text2=""
Text2.SetFocus
cnt=cnt+1
EndIf
EndIf
Ifcnt=3Then
MsgBox"原密码错误超过3次",,"提示"
UnloadMe
EndIf
EndSub
PrivateSubCommand3_Click（）
UnloadMe
EndSub
PrivateSubForm_Load（）
SetConn=NewADODB.Connection
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\企业安全教育管理.mdb"
Conn.Open'打开数据库
cnt=0
EndSub
2添加职工信息代码
PrivateSubForm_Load（）
SetConn=NewADODB.Connection
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\企业安全教育管理.mdb"
Conn.Open'打开数据库
Setrs=NewADODB.Recordset
rs.CursorLocation=adUseClient
rs.Open"职工基本信息登记表",Conn,2,2
EndSub
PrivateSubCommand1_Click（）
Fori=0To4
IfTrim（Text（i）.Text）=""Then
MsgBox"记录不能为空！
",vbOKOnly+vbInformation,"提示"
Text（i）.SetFocus
ExitSub
EndIf
Next
rs.AddNew'添加新记录
rs.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（"单位部门"）=Trim（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"添加成功",,"成功"
UnloadMe
EndSub
PrivateSubCommand2_Click（）'退出
UnloadMe
EndSub
3职工信息维护代码
PrivateConnAsADODB.Connection
PrivatersAsADODB.Recordset
PrivaterschaxunAsADODB.Recordset
PrivateSubCommand2_Click（）
IfCommand2.Caption="修改"Then'点击修改按钮后，按钮标题改为确认修改，完成修改操作
Command2.Caption="确认修改"
Text（0）.Enabled=True
Text
（1）.Enabled=True
Text
（2）.Enabled=True
Text（3）.Enabled=True
Text（4）.Enabled=True
Text（5）.Enabled=True
Text（6）.Enabled=True
Text（7）.Enabled=True
Text（8）.Enabled=True
Text（9）.Enabled=True
Text（10）.Enabled=True
Else
rs.Fields（"职工编号"）=Trim（Text（0）.Text）
rs.Fields（"姓名"）=Trim（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）.Text）
rs.Fields（"类别"）=Trim（Text（8）.Text）
rs.Fields（"职称"）=Trim（Text（9）.Text）
rs.Fields（"备注"）=Trim（Text（10）.Text）
Text（0）.DataField="职工编号"
rs.Update'更新记录
DataGrid1.Refresh'更新DataGrid1
MsgBox"修改成功"
Command2.Caption="修改"
Text（0）.Enabled=False
Text
（1）.Enabled=False
Text
（2）.Enabled=False
Text（3）.Enabled=False
Text（4）.Enabled=False
Text（5）.Enabled=False
Text（6）.Enabled=False
Text（7）.Enabled=False
Text（8）.Enabled=False
Text（9）.Enabled=False
Text（10）.Enabled=False
EndIf
EndSub
PrivateSubCommand3_Click（）
'删除记录
DimaAsString
DimbAsString
a="是否确定要删除记录"&Text（0）.Text
b=rs.RecordCount
Ifb=0ThenExitSub
Ifb=1Then
IfMsgBox（a,vbOKCancel,"删除记录?
"）=vbCancelThen
ExitSub
EndIf
rs.Delete
Text（0）=""
Text
（1）=""
Text
（2）=""
Else
IfNotrs.EOFAndNotrs.BOFThen
IfMsgBox（a,vbOKCancel,"删除记录?
"）=vbCancelThen
ExitSub
Else
rs.Delete
rs.MoveNext
EndIf
Ifrs.EOFThenrs.MovePrevious
E
升级会员 