安全信息系统分析与开发

1课程设计说明书题目安全信息系统分析与开发系（部）专业班级学生姓名学号05051723412月24日至12月29日共1周指导教师：2007年12月29日2摘要本文以管理信息系统开发为背景，从实际工作出发，在分析现有道路信息数据的基础上，结合安全信息系统开发的概念、结构及系统开发的基本原理，采用VB程序与access数据库相结合的方法，开发了一套有关道路的安全信息查询系统。全文共分为题目意义、系统目标和开发的可行性、开发道路安全信息查询系统的构想、系统的测试与评价以及本系统发展前景，个人设计体会等六章，详细地阐述了本系统开发的目的、过程及预期效果。关键词：道路信息安全信息查询系统系统开发3目录第一章题目的意义1.1绪论……………………………………………………………………31.2管理信息系统概述……………………………………………………31.3道路安全信息查询系统开发的意义…………………………………3第二章系统目标和开发的可行性2.1系统目标……………………………………………………………42.2开发系统的可行性……………………………………………………42.2.1系统环境以及工具……………………………………………52.2.2系统设计原则…………………………………………………62.2.3系统可行性分析………………………………………………62.2.4系统分析结论…………………………………………………6第三章开发道路管理信息系统的构想3.1系统分析……………………………………………………………63.1.1数据ER图……………………………………………………63.2系统设计……………………………………………………………73.2.1系统界面设计………………………………………………73.2.2代码输入及输出设计………………………………………113.3系统的实施、运行…………………………………………………15第四章系统的测试与评价…………………………………………………15第五章本系统的发展前景…………………………………………………15第六章个人设计体会………………………………………………………16参考文献:吴昌平.VisualBasic6.0程序设计.1版.北京:人民邮电出版社，2005易福华.VisualBasic典型系统实战与解析.1版.北京:电子工业出版，20074目录第一章题目的意义1.1绪论……………………………………………………………………31.2管理信息系统概述……………………………………………………31.3道路安全信息查询系统开发的意义…………………………………3第二章系统目标和开发的可行性2.1系统目标……………………………………………………………32.2开发系统的可行性……………………………………………………42.2.1系统环境以及工具……………………………………………42.2.2系统设计原则…………………………………………………52.2.3系统可行性分析………………………………………………52.2.4系统分析结论…………………………………………………5第三章开发道路管理信息系统的构想3.1系统分析……………………………………………………………53.1.1数据ER图……………………………………………………53.2系统设计……………………………………………………………63.2.1系统界面设计………………………………………………63.2.2代码输入及输出设计………………………………………103.3系统的实施、运行…………………………………………………14第四章系统的测试与评价…………………………………………………14第五章本系统的发展前景…………………………………………………14第六章个人设计体会………………………………………………………15参考文献:吴昌平.VisualBasic6.0程序设计.1版.北京:人民邮电出版社，2005易福华.VisualBasic典型系统实战与解析.1版.北京:电子工业出版，2007第一章：题目的意义51.1绪论当今社会是一个信息社会，一个知识经济时代。自世界上第一台计算机ENINC(Electronicnumericalintegratorandcalculator)于1946年在美国问世到现在，计算机业飞速发展，技术淘汰指标高的惊人，价格下降以及软件应用的快速扩展引发了以信息处理计算机化为标志的“微机革命”，随之而来的是以全球信息网络普及和全球信息共享为标志的“全球信息网络革命”的蓬勃兴起。可见，世界已进入在计算机信息管理领域中激烈竞争的时代，计算机已经变得普通的不能再普通的工具，如同我们离不开的自行车、汽车一样。我们应该承认，谁掌握的知识多，信息量大，信息处理速度快，批量大，谁的效率就高，谁就能在各种竞争中立于不败之地。1.2管理信息系统概述管理信息系统（MIS）的概念是1961年美国人J.D.GALLAGHER首先提出来的，是一门新兴的、集管理科学、信息科学、系统科学及计算机科学为一体的综合性学科，研究的是企业中信息管理活动的全过程，以便有效的管理信息，提供各类管理决策信息，辅助企业进行现代化管理。管理信息系统是企业的信息系统，它具备数据处理、计划、控制、预测和辅助决策功能，具体作用如下：（1）用统一标准处理和提供信息，排除使用前后矛盾的不完整的数据。（2）完整、及时提供在管理及决策中需要的数据。（3）利用指定的数据关系式分析数据，客观预测未来。（4）向各级管理机构提供不同详细程度的报告，缩短分析和解释时间。（5）用最低的费用最短的时间提供尽可能精确、可靠的信息，以便使决策者选择最佳的实施方案，以提高企业的经济效益。1.3道路安全信息查询系统开发的意义信息已成为继劳动力、土地、资本之后的又一大资源。谁控制的信息越多，谁利用信息资源的效率越高，谁就会在各方面的竞争中占有一席之地，谁就会有更多的优势。而我国正处在经济腾飞的时期，随着人们生活水平的提高，私家车的保有辆将越来越多。我国将成为继美国之后又一汽车王国。与汽车息息相关的道路信息将成为人们关注的对象。所以建立一个道路安全信息查询系统意义是非常重大的。它将方便人们查询获得一些道路方面的信息，提高安全行车的意识。譬如，对于小半径曲线的急弯路段要求人们减速驾驶禁止超车；为路政规化部门是否建立安全设施提供依据；交通管理部门加强对事故多发区的管理。第二章系统目标和开发的可行性2.1系统目标开发出一个操作简便，界面友好，灵活实用，安全可靠的道路安全信息查询系统。该系统的开发以驾驶员、路政规化部门、交通管理部门为服务对象，能够提高道路信息统计分析效率，及时对道路信息进行收集整理，减轻管理人员对道路信息管理和统计的负担，提高对道路的规范化管理。2.2开发的可行性2.2.1系统环境以及工具：6A.软件环境：用户端：Windows2000，Windows2003，WindowsXP服务器端：WindowsNT/Windows2000及以上操作系统编程语言：VB程序数据库：Access2003B硬件环境：有高性能的电子计算机、大容量的存贮装置，个人电脑（终端）以及联结起来的网线等2.2.2系统设计原则1)系统运行安全可靠，稳定性好；2)系统的可管理性和可维护性好；3)系统输入界面友好，操作简便易行，尽量减少用户的输入工作量；4）数据具有规范性，整体性，方便数据之间的比较分析。2.2.3系统可行性分析A．技术可行性：系统要求在windows2000以上环境运行，后台数据库采用access2003，使用VB编程，采用ADO方式连接数据库，这些在目前都是容易实现的。程序将部分需要经常调用的数据存入内存，可提高程序运行速度．B．经济可行性：在经济上，用此系统加强了道路信息管理效率，为管理人员提供了较高的效率，可节省人力资源的开支。C．管理的可行性：在工作上，道路信息量非常大，开发了此系统，可极大提高管理人员的工作的效率。2.2.4系统分析结论由以上分析得出，本系统可进行开发。第三章开发道路管理信息系统的构想3.1系统分析3.1.1数据ER图73.2系统设计3.2.1系统界面设计登录界面：道路设计车速运行车速横断面纵断面超高半径曲率高程平面线形半径曲率转角停车视距行车视距安全事故分布8用户主界面查询界面：其中我们的查询系统又分为平面查询界面，纵断面查询界面，横面查询界面，速度查询界面，事故分布查询界面。9各线形信息显示框：10113.2.2代码输入及输出设计登录界面程序设计：PrivateSubCommand1_Click()DimnAsIntegerIfText2.Text=aq052ThenForm2.ShowForm1.HideElsen=MsgBox(密码错误,5+vbExclamation,请重新输入密码)Ifn4ThenEndElseText2.Text=Text2.SetFocusEndIfEndIfEndSub主界面程序设计12PrivateSubhd_Click()Form5.ShowEndSubPrivateSubLabel2_Click()EndEndSubPrivateSubpm_Click()Form3.ShowEndSubPrivateSubsd_Click()Form6.ShowEndSubPrivateSubsg_Click()Form7.ShowEndSubPrivateSubtc_Click()EndEndSubPrivateSubzd_Click()Form4.ShowEndSub平面线形查询框代码PrivateSubCommand1_Click()Fori=1To2418IfText1.Text=DataGrid1.Columns(2)Thens=Text1.Texta=DataGrid1.Columns(0)b=DataGrid1.Columns(1)c=DataGrid1.Columns(3)d=DataGrid1.Columns(4)e=DataGrid1.Columns(5)f=DataGrid1.Columns(6)g=DataGrid1.Columns(7)13Form10.ShowEndIfNextEndSub纵断面线形询框代码PrivateSubCommand1_Click()Fori=1To2418IfText1.Text=DataGrid1.Columns(1)Thens=Text1.Texta=DataGrid1.Columns(0)b=DataGrid1.Columns(2)c=DataGrid1.Columns(3)d=DataGrid1.Columns(4)e=DataGrid1.Columns(5)Form9.ShowEndIfNextEndSub横断面线形查框代码PrivateSubCommand1_Click()Fori=1To2418IfText1.Text=DataGrid1.Columns(1)Thens=Text1.Texta=DataGrid1.Columns(0)b=DataGrid1.Columns(2)c=DataGrid1.Columns(3)Form8.ShowEndIfNextEndSub速度查询框PrivateSubCommand1_Click()Fori=1To2417IfText1.Text=DataGrid1.Columns(1)Then14s=Text1.Texta=DataGrid1.Columns(0)b=DataGrid1.Columns(2)c=DataGrid1.Columns(3)d=DataGrid1.Columns(4)e=DataGrid1.Columns(5)Form11.ShowEndIfNextEndSub事故分布查询框PrivateSubCommand1_Click()Fori=1To72IfText1.Text=DataGrid1.Columns(1)Thens=Text1.Texta=DataGrid1.Columns(