车辆管理系统数据库设计
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
学年论文
（课程论文、课程设计）
题目：车辆管理系统
作者：
所在学院：信息科学与工程学院
专业年级：信息安全09-1 指导教师：
职称：讲师
2012年 5月 25 日
一、概述
随着经济的日益增长，信息化时代已经到来，生活中各种信息趋向数字化、清晰化。车辆管理系统就是在这样的一个环境中诞生的，交通的日益发达，使得一个单位不再是简单的一辆商务车，而是有很多辆车组成，而且车型也不再单一，这使得单位车辆信息复杂化。因此我们将发挥计算机的庞大的存储空间，高性能的处理能力，高度可靠的数据安全，清晰的可视化数据等这些优势来辅助单位对车辆进行管理，加强对本单位使用车辆的管理,实现了计算机资源的合理利用，真正实现了减少劳动力提高劳动质量的目的
车辆管理系统要求有如下管理功能：
(1)用车申请
(2)派车登记
(3)车辆支出的登记
(4)查看功能：可随时查看车辆基本信息、驾驶员基本信息、车辆使用记录、违
章记录、车辆费用管理、事故记录；
(5)根据车号查看当前车的使用情况
(6)统计功能：统计各车辆的违章记录、事故记录等；在某一时间内各车辆的油
料使用情况
本人在系统开发中承担用户登录，账户管理，登陆密码加密等相关功能
二、需求分析
1、数据流图：
图1第一层数据流图
图2第二层数据流图
更新
图3第三层数据流图
2、数字字典：
2）数据处理：
表2数据处理
3）数据流：
4）数据存储：
表4数据存储
三、概要分析
1、分析
实体：
职工、车辆、驾驶员、出车、事故、维修、油耗、变动
实体属性：
职工：编号、姓名、性别、籍贯、生日、政治面貌、住址、身份证号、电话、部门、工龄
车辆：汽车编号、车牌号、车型、忙闲、车名、车龄、变动
驾驶员：驾驶员编号、忙闲、驾照号
事故：时间、地点、类型、费用
维修：时间、地点、类型、费用
油耗：时间、地点、燃油类型、费用
变动：变动单号、汽车编号、变动时间、原因
出车：时间
2、 E—R图：
四、逻辑结构设计
1、关系模式：
R1、车辆（汽车编号，车名，车型，车牌号，忙/闲，车龄）
R2、职工（编号，姓名，性别，部门，籍贯，生日，政治面貌，住址，身份证号，工龄，电话，部门）
R3、申请（编号，汽车编号，地点，事由，时间）
R4、驾驶员（驾驶员编号，驾照号，忙闲）
R5、事故（汽车编号，时间，地点，费用，类型）
R6、维修（汽车编号，时间，地点，费用，类型）
R7、油耗（汽车编号，时间，地点，费用，燃油类型）
R8、变动（变动单号，汽车编号、变动时间、原因）
2、关系模式规范化：
R1、车辆（汽车编号，车名，车型，车牌号，忙/闲，车龄）
R2、职工（编号，姓名，性别，部门，籍贯，生日，政治面貌，住址，身份证号，工龄，电话，部门）
R3、申请（编号，汽车编号，地点，事由，时间）
编号，汽车编号为外码
R4、驾驶员（驾驶员编号，驾照号，忙闲）
R5、事故（汽车编号，时间，地点，费用，类型）
R6、维修（汽车编号，时间，地点，费用，类型）
R7、油耗（汽车编号，时间，地点，费用，燃油类型）
上述关系中的每个属性都是不可再分的，所以满足第一范式。
上述关系中的每个属性都完全依赖于关系主码，所以满足第二范式。
上述关系都不存在传递依赖关系，所以满足第三范式。
3、最后确定的关系定义：
1）职工信息表：staffs
表5职工信息表
2）维修信息表：reparis
表7事故信息表
表9车辆信息表
6）驾驶员信息表：driverinfo
表10驾驶员信息表
五、物理设计
索引说明
用主键索引，即利用数据库默认索引。
六、系统实现
采用的工具有：visual basic 6.0
SQL Server 2005
完成的功能：用户登录账户管理等相关方面的功能部分功能代码如下：
1、用户登录功能代码如下：
1.1数据有效性检查
If txtUser = "" Then
MsgBox "请输入用户名"
txtUser.SetFocus
Exit Sub
End If
If txtPwd = "" Then
MsgBox "请输入密码"
txtPwd.SetFocus
Exit Sub
End If
1.2将用户输入赋值到变量中
NameKey = MakeStr(txtUser)
PasswordKey = MakeStr(txtPwd)
1.3 判断用户是否存在
If MyUser.In_DB(NameKey) = False Then
MsgBox "用户名不存在"
Try_times = Try_times + 1
If Try_times >= 3 Then
MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭" DBapi_Disconnect
End
Else
Exit Sub
End If
End If
1．4 判断密码是否正确
MyUser.GetInfo (NameKey)
If MyUser.Pwd <> PasswordKey Then
MsgBox "密码错误"
Try_times = Try_times + 1
If Try_times >= 3 Then
MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭" DBapi_Disconnect
End
Else
Exit Sub
End If
End If
2、账户管理功能代码如下
2.1 '启动窗体FrmUserEdit
.Show 1
End With
2.2 '刷新用户名列表框
AdoUserList.Refresh