vb课程设计报告书.docx

1、vb课程设计报告书(此文档为word格式，下载后您可任意编辑修改！)中国劳动关系学院安全工程系安全信息管理系统课程设计报告书 题 目： 建筑施工安全信息管理系统 专 业： 安全工程 班 级： 09级劳安一班 姓 名： 冯晨阳 学 号： 同组人员： 指导老师： 设计时间：2012年 09 月 日 2012年 11 月 日 安全信息管理系统课程设计报告书 11.课程设计计划 32.系统需求分析与功能设计 43. 总体设计 64. 数据库设计 85. 程序模块设计 126. 技术难点与分析 237. 系统测试 248. 心得体会 259. 参考文献 261.课程设计计划 本课程设计任务是通过学生信息

2、管理系统的设计与实现，将所学的数据库系统概论理路结合实际课程任务，进一步学习数据库系统的设计与开发，提高实践动手能力，系统使用Visual Basic 6.0和Access 2000等软件作为开发工具，通过调研目前建筑施工安全，了解管理的业务流程；通过分析比较，结合用户对系统的改进意见与实现情况，运用面向对象思想方法，设计和实现一个满足功能和性能，并有所创新的施工安全信息管理系统，以提高管理系统的自动化、友好性等。 通过对建筑施工安全信息管理系统的了解，把整个系统划分为职工信息、事故信息、日常检查记录、事故统计四大模块。在各个模块下，分别建立信息添加、相应信息维护及打印功能，使安全信息管理人员

3、工作方便快捷。 课程设计步骤与计划如下：(1)确定设计题目：建筑施工安全信息管理系统的设计与开发。(2)需求分析：分析系统需要实现什么样的功能。(3)程序设计：根据需求分析的结果，进行界面及编程设计。(4)程序检验：对编好的程序进行测试，校对。(5)程序改进：对校正后的程序进行改正，试行。(6)编写报告：编写建筑施工安全信息管理系统设计报告书。2.系统需求分析与功能设计(根据课题的要求进行简单的需求分析，设计相应的数据流图，得出相应的系统功能需要, 系统数据流图)2.1建筑施工安全信息管理数据库系统的需求分析2.1.1功能需求分析(1）用户管理为了保证数据库中的数据不被泄露或破坏，登录界面要设

4、计直观，操作简单，友好而且使用方便。尽量使用户输入的数据最少，具有人机亲和力，做到画面尽可能接近实际，界面保持一致，让用户始终用同一种方式思考和操作。(2)职工信息管理功能 职工信息的管理，并对其进行必要的维护工作，这主要包括了职工编号、部门、工作时间、工种等信息在内的基本信息的输入、修改以及查询。(3)事故信息管理及统计功能 实现施工单位对不同事故类型的管理，并能够按照实际情况不断更新。界面要求一目了然，并且根据年份或者事故类型作出统计图表，可以起到直观、简洁的效果，提出整改建议及措施。(4)三级教育记录管理功能 对三级教育记录进行管理，并对其进行必要的维护操作，以符合三级教育制度的需要。并

5、建立了三级教育记录添加、相应的维护等功能。通过检查发现施工现场的事故隐患和危险源，并作出预防措施。(5)信息查询打印功能实现对建筑施工单位各种信息的查询，为数据更新提供依据，系统主要完成事故信息和日常检查记录的查询。但作为职工只能查看本人信息，以保障信息安全，包含简易检索就是按照职工编号查询，高级检索综合多种信息一起给出查询结果，以及根据SQL语句进行查询。各模块的打印功能,为方便安全人员对职工进行安全教育培训、日常检查、事故统计分析，应用VB系统中的Dataenvironment和Datareport模块，并根据SQL语言增加系统打印功能，此功能可以按照查询结果进行打印，使结果清晰可见，一目

6、了然，提高效率，增强了系统的安全性。2.2系统数据流图顶层：1层： 2层1：2层2：2层3：2层4：3. 总体设计(根据功能需求，设计系统的总体结构。系统总体功能模块图，菜单的设计)根据功能和系统分析，可以设计出系统的总体功能模块，如图3.1所示。图3.1 系统功能模块示意图1职工基本信息管理模块，新职工入职后，安全信息管理人员在系统中加入职工基本信息，并对其进行必要的维护。管理人员在输入用户名及密码后可以进入程序，浏览各种详细信息以及添加修改信息等。其功能模块如下图3.2所示。 图3.2 职工基本信息管理模块2 事故信息管理模块，保存和更新事故数据信息，包括事故名称、发生地点、事故类型、事故

7、损失、事故等级、人员伤亡情况等。实现对应模块的添加，浏览，修改和删除。模块如下图2.3所示。 图3.3 事故信息管理模块3 日常检查信息管理模块，保存和更新日常检查记录数据信息，包括工程名称、检查内容、时间、检测人员等。实现对应模块的添加，浏览，修改和删除。模块如下图3.4所示。 图3.4 日常检查信息管理模块4 事故统计模块，为方便管理人员快速得到有效信息，实现了按事故类型、年份统计事故数目和按年份统计事故损失，可以起到直观、简洁的效果。4. 数据库设计(完成数据库的概念设计、逻辑设计，按数据库设计方法和规范化理论得出符合3NF的逻辑模型, ER图设计,ER图转化为相应的关系模式,设计数据库

8、的逻辑模型(以表格)，在机器上完成数据库的物理设计)通过对建筑施工单位需求进行综合、归纳和抽象，形成一个独立于具体数据库的概念模型。根据前面的设计规划处实体有：用户实体、总体。构建E-R图用来描述本系统中的概念模型。4.1 概念结构设计用户实体包含的属性：用户名、密码。用户实体与各属性是对应的关系，各属性之间则是部分存在对应关系，如用户名确定，则可以推断其它属性，但是密码确定，却不能推断其它属性，用户实体E-R图如图4.1所示。图4.1 用户实体E-R图根据分E-R图和需求分析，可得到各部分E-R图，如图4.2所示。 图4.2 总E-R图4.2逻辑结构设计根据以上的E-R，结合关系数据库理论原

9、则，可以得到以下的关系模型: 登录表：（存放管理员用户名和密码）职工基本信息登记表：（存放职工编号、姓名、性别、文化程度等）事故信息表：（存放事故相关信息，如：事故类型及事故地点等）日常施工安全检查记录表：（存放日常检查的基本信息，如：工程名称、检查内容、检查内容、检查日期等）我们用数据字典来罗列关系模型的属性及其描述，本建筑施工安全管理系统的数据字典如表4.14.3所示。表4.1 职工基本信息数据字典名字描述数据类型职工编号描述职工编号的数据50变长字符串姓名描述姓名的数据50变长字符串性别描述性别的数据50变长字符串出生日期描述出生日期的数据50变长字符串文化程度描述文化程度的数据50变长

10、字符串工作时间描述工作时间的数据50变长字符串单位部门描述单位部门的数据50变长字符串职位描述职位的数据50变长字符串工种描述工种的数据50变长字符串类别描述类别的数据50变长字符串表4.2 事故信息登记表数据字典名字描述数据类型事故编号描述事故编号的数据整形数据事故名称描述事故名称的数据50变长字符串事故地点描述事故地点的数据50变长字符串事故类型描述事故类型的数据50变长字符串事故日期描述事故日期的数据50变长字符串事故原因描述事故原因的数据50变长字符串事故损失描述事故损失的数据整形数据事故等级描述事故等级的数据50变长字符串死亡人数描述死亡人数的数据整形数据重伤人数描述重伤人数的数据整

11、形数据轻伤人数描述轻伤人数的数据整形数据表4.3 日常施工安全检查记录表数据字典名字描述数据类型工程名称描述工程名称的数据50变长字符串检查日期描述检查日期的数据50变长字符串检查内容描述检查内容的数据250变长字符串检查结果描述检查结果的数据50变长字符串检查人描述检查人员的数据50变长字符串受检人描述受检人的数据50变长字符串4.3 数据库表的建立在设计数据库表结构之前，首先要创建一个数据库，学生信息管理系统选用Access 2003创建用户数据库，其建设过程如图4.3图4.6所示。图4.3 创建数据库界面图4.4 职工基本信息登记表图4.5 事故信息登记表图4.6 日常施工安全检查记录表

12、5. 程序模块设计(设计并编写输入输出、查询统计、数据维护等功能模块的应用程序, 每个人设计2个以上的模块，一个组完成一个完整的系统,数据库访问，存储过程调用等作重点阐述)5.1职工基本信息管理模块程序设计职工基本信息添加：Private 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.A

13、ddNew 添加新记录 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(工种) = Co

14、mbo3.Text rs.Fields(类别) = Combo4.Text rs.Fields(备注) = Trim(Text(4).Text) rs.Update 更新记录 MsgBox 添加成功 Command1.Enabled = False职工基本信息查询：Private Sub Command1_Click() 查询判断是否按照要求添加记录，如有空项，提示并结束程序 If Trim(Text1.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 sql = select * from 职工基本信息登记表 where 姓名= & Trim(Text1.Text) & End IfSet rschaxun = New ADODB.Recordset rschaxun.CursorLocation =