《企业安全信息管理系统》系统设计报告.doc

序号: 学号: 02412208 上 机 设 计 报 告设计课程名称： 安全管理信息系统 题 目： 企业安全信息管理系统 学 生 姓 名： 学 院（系）： 环境与安全工程 专 业 班 级： 安全042 指 导 教 师： 专业技术职务： 讲师 设计时间： 2007 年 03 月 日 2007 年 05 月 日企业安全信息管理系统系统设计报告 1 可行性报告1.1引言1.1.1编写目的：本企业安全信息管理系统模块是为了实现管理的科学管理而设计的，通过试用本系统，可以更加有效的管理企业安全信息，其中包括企业的基本信息，完成安全评价时间,生产许可的时间及主要负责和安全负责人的联系方式,并且具有信息的增加，查询，修改等功能1.1.2背景：本系统属于安全管理机构计算机网络管理系统中的企业安全信息管理模块,实现的是管理系统中关于企业安全信息的管理。用于企业资料的存储、信息的查询及信息的收集组织。1.1.3系统说明：是指运用数据库管理与开发技术及少量的VB编程共同结合而运行出来的企业安全信息管理系统。企业安全管理系统是主要为安全管理机构提供信息的收集和管理,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。本系统主要完成对危险品情况和安全运行依据及安全负责人的联系方式的管理，包括数据库中表的添加、删除等。系统还可以完成对各类信息的浏览、添加、删除、等功能。1.1.4参考资料： VB数据库开发基础与应用 数据库技术 VB6.0程序设计1.2可行性研究前提1.2.1要求外观美观大方，适合各层次，可存储足够的信息量，可以方便的查询与更新，价格低廉。1.22目标开拓一定市场，赢利不是此系统的最终目的，实用性和完整性为主。1.23条件假定和限制由于初次设计，肯定有不成熟之处，可能使用人群类型有所限制,但能适用于大部分使用者。1.24进行可行性研究的方法随即的访问，和同学及老师的意见和建议。1.3系统分析1.3.1 数据库利用Access建立数据库，并在该数据库下创建4张表格，分别是登陆信息表、安全信息表、企业基本信息表、危险品信息表。1.3.2 VB编程利用VB来建立界面并与数据库连接，对它进行查询、修改、存储和有效的组织。 1.33费用开支：本系统的初始成本，日常维护费1.34人员：人员主要包括主管人员和业务人员，系统投入运行之后，他们将在系统中进行工作。为了保证系统运行的质量，建议应该对操作人员进行培训，使他们逐步适应该系统环境及操作。1.35设备：设备包括硬件设备和软件设备，硬件设备包括输入输出设备，存储设备，辅助设备，通信设备及机房建设等。软件设备包括系统软件，数据库管理系统以及一些应用程序。1.3.6局限性·考虑到本软件使用的广泛性，在设计时应注意软件的可移植性。能方便的将其植到电子记事本，掌上电脑等硬件平台·因本软件的管理信息属企业重要信息必需注意信息更新和储存的安全性。·同时应以标准的数据格式实现以方便数据的共享1.4系统的建议1.41对所建议系统的说明：该系统具有增加，删除，等一些基本的命令要求，可以满足用户的基本需求。1.43改进之处：可以对数据的传输过程和存储过程进行加密，提供各类数据文件的安全备份。文档齐全，结构清晰。1.44对系统运行环境的影响：系统是在VB编程环境下运行设计的，对该系统要有清晰性和可操作性的要求。1.45对开发的影响：开发该管理信息系统要简单易懂，符合用户的需要满意程度。1.46对经费开支的影响：要进行市场分析和调查，对不同的方案进行财务评价，经济效益评价，判断项目在经济上是否可行。1.47局限性：该项目的保密性和数据安全性不是很严密。1.48技术条件方面的可行性：该项目的开发要遵循科学性原则，客观性原则，和工正性原则，符合用户的基本需要。1.5结论根据以上的研究分析结果，对项目在经济上，技术上进行全面的评价，对建设方案进行总结，提出结论性意见和建议。可以对数据数据文件进行有效的组织。文档齐全，结构清晰，便于实施。2 功能需求2.1功能需求功能划分·浏览功能·查看详细资料功能·查询功能·添加功能·删除功能·身份验证功能功能描述（1）浏览功能（2）查询功能·企业名称查询；·单项查询或组合查询；（3）添加功能·增加一条新记录并保存；（4）删除功能·删除一条记录，并且提供确认机制（5）身份验证功能·对登录的用户的身份进行验证，通过者才可进入系统（6）系统版本介绍·对系统版本、作者和操作平台的介绍2.3软件属性需求2.3.正确性要求发布的软件达到用户的预期目标。运行时基本无错误。2.3.可靠性在一般条件下，应不出故障。2.3.效率对于浏览、查询、添加、删除和更改的一般操作，要求及时响应在秒内。2.3.完整性要求能在发生意外的情况下保证不丢失数据。2.3.易使用性要求能尽量为用户的使用提供方便，软件的界面符合目前流行的界面规范。2.3.可维护性要求本软件在运行中发生错误时，能快速准确对其进行定位、诊断和修改。2.4其他需求无其他需求3详细设计说明书3.1引言3.1.1编写目的：根据开发软件的目的，建立功能模块，添加窗体，并详细介绍各模块及操作，以实现系统功能3.1.2熟悉要求的目的以后，在前面可行性分析和概要设计说明的基础上，在VB和Access2000等相关知识的准备以后进行操作3.1.3定义：为各个具体任务选择适当的技术手段和处理方法的说明书。3.1.4参考资料VB编程，access 20003.2程序系统的组织机构：VB界面，VB程序，数据库组成3.3程序设计说明（1） 登陆界面按照界面显示输入用户名和密码，点击确定按钮即可登陆系统，否则可点击修改密码按钮或取消 程序为：Dim cnndata As New ADODB.ConnectionDim rstdata As New ADODB.RecordsetPrivate Sub Command1_Click()Set cnndata = New ADODB.Connectioncnndata.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "data.mdb;Persist Security Info=FalseProvider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "data.mdb;Persist Security Info=False"If Text1.Text = "" Or Text2.Text = "" Then MsgBox "清输入用户名或密码！如若没有，请跟管理员联系！", 0 + 64, "提示" Text1.SetFocus Exit Sub End If Set rstdata = New ADODB.Recordset rstdata.Open "select * from 登陆信息表 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "' ", cnndata, 3, 3 If rstdata.EOF Or rstdata.BOF Then MsgBox "用户名或密码不对！", 0 + 64, "提示" Text1 = "" Text2 = "" Text1.SetFocus Exit Sub End If Unload Me Form1.ShowEnd Sub成功登陆后将显示如下界面：（2） 查询界面选取对应的信息表，点击“查询”，即可实现查询功能。界面1：程序为：Private Sub Command1_Click() Dim str As StringIf Text1.Text <> "" Then inti = 1If Text2.Text <> "" Then inti = 2If Text3.Text <> "" Then inti = 3 Select Case inti Case 1 If Trim(Text1) <> "" Then str = "where " If Trim(Text1) <> "" Then str = str & "单位名称 like'%" & Trim(Text1) & "%' and " str = Left(str, Len(str) - 4) Else str = "" End If Case 2 If Trim(Text2) <> "" Then str = "where " If Trim(Text2) <> "" Then str = str & "现场安全评价单位 like'%" & Trim(Text2) & "%' and " str = Left(str, Len(str) - 4) Else str = "" End If Case 3 If Trim(Text3) <> "" Then str = "where " If Trim(Text3) <> "" Then str = str & "批准证书号 like'%" & Trim(Text3) & "%' and " str = Left(str, Len(str) - 4) Else str = "" End If End Select strSQL = "select * from 安全信息表 " & str Fill_LVW ListView1, strSQL, cnndataEnd Sub界面2：程序为：Dim cnndata As New ADODB.ConnectionDim rstdata As New ADODB.RecordsetDim inti As IntegerPrivate Sub Command1_Click() Dim str As StringIf Text1.Text <> "" Then inti = 1If Text2.Text <> "" Then inti = 2If Text3.Text <> "" Then inti = 3 Select Case inti Case 1 If Trim(Text1) <> "" Then str = "where " If Trim(Text1) <> "" Then str = str & "单位名称 like'%" & Trim(Text1) & "%' and " str = Left(str, Len(str) - 4) Else str = "" End If Case 2 If Trim(Text2) <> "" Then str = "where " If Trim(Text2) <> "" Then str = str & "危险品名称 like'%" & Trim(Text2) & "%' and " str = Left(str, Len(str) - 4) Else str = "" End If Case 3 If Trim(Text3) <> "" Then str = "where " If Trim(Text3) <> "" Then str = str & "事故备注 like'%" & Trim(Text3) & "%' and " str = Left(str, Len(str) - 4) Else str = "" End If End Select strSQL = "select * from 危险品信息表 " & str Fill_LVW lvwView, strSQL, cnndataEnd Sub（3） 添加删除先选取需要修改的信息表，点击“添加”或者“删除”即可完成此功能。（4） 关于界面（5） 用户管理界面用于新增用户和密码修改程序为：Public cnndata As New ADODB.ConnectionPublic rstdata As New ADODB.RecordsetPrivate Sub Command1_Click()Set rstdata = New ADODB.Recordsetrstdata.Open "select * from 登陆信息表 where 用户名='" & Text4.Text & "' ", cnndata, 3, 3 If rstdata.EOF Or rstdata.BOF Then MsgBox "该用户不存在！", 0 + 48, "警告！" End If If rstdata(2) <> Text1.Text Then MsgBox "旧密码错误，不允许修改！", 0 + 48, "提示！" Exit Sub End If If Text2.Text = Text3.Text And Text2.Text <> "" Then pwd = "update 登陆信息表 set 密码 ='" & Text2.Text & "' " cnndata.Execute (pwd) MsgBox "密码修改成功！", 0 + 48, "提示！" Else MsgBox "对不起，新密码设置错误，请重新输入！", 0 + 48, "警告！" End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()Text1.Enabled = FalseText1.Text = ""Set rstdata = New ADODB.Recordsetrstdata.Open "select * from 登陆信息表 where 用户名='" & Text4.Text & "' ", cnndata, 3, 3 If rstdata.EOF Or rstdata.BOF Then If Text4.Text <> "" Then If Text2.Text = Text3.Text And Text2.Text <> "" Then Set rstdata = New ADODB.Recordset rstdata.Open "select * from 登陆信息表 where 用户名='" & Text4.Text & "' ", cnndata, 3, 3 If rstdata.EOF Or rstdata.BOF Then rstdata.AddNew rstdata(1) = Text4.Text rstdata(2) = Text2.Text rstdata.Update MsgBox "恭喜！添加用户成功！", 0 + 48, "恭喜！" End If End If Else MsgBox "请输入用户名！" Exit Sub End If Else MsgBox "对不起，该用户已存在！", 0 + 48, "警告！" End IfText1.Enabled = TrueEnd SubPrivate Sub Command4_Click() If Text1.Text = "" Or Text4.Text = "" Then MsgBox "请输入要删除的用户名和对应的密码！", 0 + 48, "警告！" Text1.Text = "" Text4.Text = "" Text4.SetFocus Else Set rstdata = New ADODB.Recordset rstdata.Open "select * from 登陆信息表 where 用户名='" & Text4.Text & "' and 密码='" & Text1.Text & "' ", cnndata, 3, 3 If rstdata.EOF Or rstdata.BOF Then MsgBox "用户名或密码不正确！", 0 + 48, "警告！""" Text1.Text = "" Text4.Text = "" Text4.SetFocus Else tishi = MsgBox("确定删除该用户？", 1 + 32, "提示！") If tishi = 1 Then sc = "delete * from 登陆信息表 where 用户名='" & Text4.Text & "'" cnndata.Execute (sc) MsgBox "删除成功！", 0 + 48, "提醒！" End If If tishi = 2 Then Text1.Text = "" Text4.Text = "" Text4.SetFocus End If End If End IfEnd SubPrivate Sub Form_Load() If cnndata.State = 0 Then cnndata.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "data.mdb;Persist Security Info=False" End IfEnd Sub4 简单说明 系统功能概述：登陆 主界面 相关信息表的选取 通过控件对添加修改删除功能的实现退出系统。用户管理：对用户名、密码的修改、添加和删除。从整个系统的设计及开发来看，基本上实现了系统所要求的修改密码，简单、精确查询及备份的功能，可以存储大量的个人信息，比较便捷的查询所需的信息，可以随时添加新增信息，基本趋于比较完整的状态。通过本次程序设计，基本熟悉和掌握数据库和VB的应用知识，对于以后工作必有很大的帮助。但由于是初次涉及，定有不足之处，望袁老师给予修正，同时感谢袁老师和同学的帮助！