- 1、本文档共12页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
《企业安全信息管理系统》系统设计报告
序号:
学号:
上 机 设 计 报 告
设计课程名称: 安全管理信息系统
题 目: 企业安全信息管理系统
学 生 姓 名:
学 院(系): 环境与安全工程 专 业 班 级: 安全042
指 导 教 师: 专业技术职务: 讲师
设计时间: 2007 年 03 月 日 ? 2007 年 05 月 日
《企业安全信息管理系统》系统设计报告
1 可行性报告
1.1引言
1.1.1编写目的:本管理系统模块是为了实现管理的科学管理而设计的,通过试用本系统,可以更加有效的管理,其中包括的基本信息,并且具有信息的增加,查询,修改等功能本系统属于网络管理系统中的管理模块实现的是管理系统中关于管理系统是,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。本系统主要完成对情况和的管理,包括数据库中表的添加、删除等。系统还可以完成对各类信息的浏览、添加、删除、等功能。利用Access建立数据库,并在该数据库下创建张表格,分别是利用VB来建立界面并对它进行修改
2.1功能需求
·浏览功能
·查看详细资料功能
·查询功能
·添加功能
·删除功能
·身份验证功能
2功能描述
(1)浏览功能
(2)查询功能
·企业名称查询;
·单项查询或组合查询;
(3)添加功能
·增加一条新记录并保存;
(4)删除功能
·删除一条记录,并且提供确认机制
(5)身份验证功能
·对登录的用户的身份进行验证,通过者才可进入系统
(6)系统版本介绍
·对系统版本、作者和操作平台的介绍
2.3软件属性需求
.1正确性
2.3.2可靠性
2.3.3效率
2.3.4完整性
2.3.5易使用性
2.3.6可维护性
2.4其他需求
3详细设计说明书
3.1引言
3.1.1编写目的:根据开发软件的目的,建立功能模块,添加窗体,并详细介绍各模块及操作,以实现系统功能
3.1.2熟悉要求的目的以后,在前面可行性分析和概要设计说明的基础上,在VB和Access2000等相关知识的准备以后进行操作
3.1.3定义:为各个具体任务选择适当的技术手段和处理方法的说明书。
3.1.4参考资料
VB编程,access 2000
3.2程序系统的组织机构:VB界面,VB程序,数据库组成
3.3程序设计说明
登陆界面
按照界面显示输入用户名和密码,点击确定按钮即可登陆系统,否则可点击修改密码按钮或取消
程序为:
Dim cnndata As New ADODB.Connection
Dim rstdata As New ADODB.Recordset
Private Sub Command1_Click()
Set cnndata = New ADODB.Connection
cnndata.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
文档评论(0)