车辆管理系统数据库设计

1、学年论文（课程论文、课程设计）题目： 车辆管理系统 作者： 所在学院： 信息科学与工程学院 专业年级： 信息安全09-1 指导教师： 职称： 讲 师 2012年 5月 25 日一、概述随着经济的日益增长，信息化时代已经到来，生活中各种信息趋向数字化、清晰化。车辆管理系统就是在这样的一个环境中诞生的，交通的日益发达，使得一个单位不再是简单的一辆商务车，而是有很多辆车组成，而且车型也不再单一，这使得单位车辆信息复杂化。因此我们将发挥计算机的庞大的存储空间，高性能的处理能力，高度可靠的数据安全，清晰的可视化数据等这些优势来辅助单位对车辆进行管理，加强对本单位使用车辆的管理,实现了计算机资源的合理利用

2、，真正实现了减少劳动力提高劳动质量的目的车辆管理系统要求有如下管理功能：(1) 用车申请(2) 派车登记(3) 车辆支出的登记(4) 查看功能：可随时查看车辆基本信息、驾驶员基本信息、车辆使用记录、违章记录、车辆费用管理、事故记录；(5) 根据车号查看当前车的使用情况(6) 统计功能：统计各车辆的违章记录、事故记录等；在某一时间内各车辆的油料使用情况本人在系统开发中承担用户登录，账户管理，登陆密码加密等相关功能二、 需求分析1、 数据流图：图1第一层数据流图图2第二层数据流图图3第三层数据流图2、 数字字典：1）数据项： 表1数据项数据项名类型字节长度取值范围数据项含义说明单位职工字符型20任

3、意车辆申请人部门字符型20任意车辆申请人所在部门外出目的地字符型20任意申请人外出目的地外出时间字符型20任意申请人外出时间外出事由字符型20任意申请人外出原因车牌号字符型20任意标识车辆车牌号出车时间整型20任意车辆借出时间返回时间整型20任意车辆返还时间驾驶员驾照号字符型20任意司机的驾照编号事故记录单字符型20任意车辆外出违章、事故的记录车辆费用单字符型20任意车辆外出花费费用事故记录字符型20任意车辆外出违章记录编号整型20任意对单位员工的标识汽车编号整型20任意单位车辆的编号驾驶员编号整型20任意对单位驾驶员的标识2）数据处理：表2数据处理处理过程名说明输入输出处理添加添加借出归/还

4、信息车辆信息表车辆信息表执行添加操作查询查询借出归/还信息车辆信息表车辆信息表执行查询操作修改修改借出归/还信息车辆信息表车辆信息表执行修改操作删除删除借出归/还信息车辆信息表车辆信息表执行删除操作统计统计车辆借出归还信息车辆信息表车辆信息表执行统计操作3）数据流：表3数据流数据流名说明数据流来源数据流去向组成用车申请员工对借车原由的描述员工车辆管理系统申请人、所在部门、外出目的地，外出时间、外出事由派车登记表对借出车辆的登记内部车队车辆管理系统车牌号、车辆型号、燃油种类、司机信息违归处罚对违归使用的处罚明细车辆管理系统员工（司机）违章记录、事故记录、过期还车还车信息登记员工车辆管理系统车辆信

5、息、司机信息借车凭证借车信息登记车辆管理系统员工车辆信息、司机信息提交记录司机对外出使用车辆的记录信息司机车辆管理系统事故、燃油、维修等状况的记录检查异常（正常）对归还车辆的检查看是否超期等（正常）申请单据车辆管理系统检查归还汽车是否被损坏、超期等结算费用结算车辆管理系统员工(司机)对违规、超期罚款结算更新对表数据的增删修改等车辆管理系统各个信息表格对各个数据的变动统计4）数据存储：表4数据存储数据存储名说明编号输入数据流输出数据流组成存取方式频率司机信息统计表对司机的统计信息01司机信息车辆管理系统司机姓名、住址、所在部门、联系电话随机更新借还统计表车辆借出归还统计信息02借出/归还信息车辆

6、管理系统车辆车牌号、车辆借出时间、车辆归还时间随机更新车辆信息统计表对车辆目前情况的统计03汽车的借还信息车辆管理系统车辆忙闲维修以及外出使用记录与统计随机更新三、概要分析1、分析实体：职工、车辆、驾驶员、出车、事故、维修、油耗、变动实体属性：职工：编号、姓名、性别、籍贯、生日、政治面貌、住址、身份证号、电话、部门、工龄车辆：汽车编号、车牌号、车型、忙闲、车名、车龄、变动驾驶员：驾驶员编号、忙闲、驾照号事故：时间、地点、类型、费用维修：时间、地点、类型、费用油耗：时间、地点、燃油类型、费用变动：变动单号、汽车编号、变动时间、原因出车：时间2、 ER图：四、 逻辑结构设计1、 关系模式：R1、车

7、辆（汽车编号，车名，车型，车牌号，忙/闲，车龄）R2、职工（编号，姓名，性别，部门，籍贯，生日，政治面貌，住址，身份证号，工龄，电话，部门）R3、申请（编号，汽车编号，地点，事由，时间）R4、驾驶员（驾驶员编号，驾照号，忙闲）R5、事故（汽车编号，时间，地点，费用，类型）R6、维修（汽车编号，时间，地点，费用，类型）R7、油耗（汽车编号，时间，地点，费用，燃油类型）R8、变动（变动单号，汽车编号、变动时间、原因）2、 关系模式规范化：R1、车辆（汽车编号，车名，车型，车牌号，忙/闲，车龄）R2、职工（编号，姓名，性别，部门，籍贯，生日，政治面貌，住址，身份证号，工龄，电话，部门）R3、申请（编

8、号，汽车编号，地点，事由，时间）编号，汽车编号为外码R4、驾驶员（驾驶员编号，驾照号，忙闲）R5、事故（汽车编号，时间，地点，费用，类型）R6、维修（汽车编号，时间，地点，费用，类型）R7、油耗（汽车编号，时间，地点，费用，燃油类型）上述关系中的每个属性都是不可再分的，所以满足第一范式。上述关系中的每个属性都完全依赖于关系主码，所以满足第二范式。上述关系都不存在传递依赖关系，所以满足第三范式。3、 最后确定的关系定义：1）职工信息表：staffs表5职工信息表含义属性名数据类型长度完整性约束备注编号staff_IDIntpk员工统一号姓名staff_namevarchar20Not null性

9、别Sexvarchar20Not null籍贯Nationalityvarchar20Not null 生日birthvarchar20Not null政治面貌Political_Partyvarchar20Not null家庭住址Family_Placevarchar20Not null身份证号Id_Cardvarchar20Not Null证件号BadgeIDvarchar20Not null电话Home_phonevarchar20Not null邮编Postcodevarchar20Not null工龄InDatevarchar20Not null2）维修信息表：reparis表6维修

10、信息表含义属性名数据类型长度完整性约束备注汽车编号carIdIntpk执行单exeIDint时间haptimeVarchar20地点locationVarchar20费用feeInt类型haptypeVarchar203）事故信息表：accidents表7事故信息表含义属性名数据类型长度完整性约束备注汽车编号carIdIntPk执行单exeIDint时间atimeVarchar20地点locationVarchar20费用feeInt类型haptypeVarchar204）油耗信息表：fuels表8油耗信息表含义属性名数据类型长度完整性约束备注汽车编号carIdIntpk执行单exeIDint

11、时间atimeVarchar20地点locationVarchar20费用feeInt燃油种类haptypeVarchar20汽车燃油的类型5）车辆信息表：carinfo表9车辆信息表含义属性名数据类型长度完整性约束备注汽车编号carIdIntPk车名carnamevarchar20车型ctypevarchar20车牌号numbervarchar20车龄agevarchar20汽车使用的时长忙/闲bofvarchar20当前车辆状态6）驾驶员信息表：driverinfo表10驾驶员信息表含义属性名数据类型长度完整性约束备注驾驶员编号driIdIntpk驾照号licencevarchar20no

12、t null忙/闲busy_freevarchar20not null当前驾驶员状态7）申请信息表: applicants表11申请信息表含义属性名数据类型长度完整性约束备注编号staff_IDIntpk员工编号号汽车编号carIdIntnot null地点locationVarchar20not null事由aplwhyvarchar20not null申请汽车的原因及用途时间apltimeIntnot null申请时间及时长五、物理设计索引说明用主键索引，即利用数据库默认索引。六、 系统实现采用的工具有：visual basic 6.0 SQL Server 2005完成的功能：用户登录

13、账户管理等相关方面的功能部分功能代码如下：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 判断

14、用户是否存在 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 14 判断密码是否正确 MyUser.GetInfo (NameKey) If MyUser.Pwd <> PasswordKey Then MsgBox &

15、quot;密码错误" Try_times = Try_times + 1 If Try_times >= 3 Then MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭" DBapi_Disconnect End Else Exit Sub End If End If2、账户管理功能代码如下2.1 '启动窗体FrmUserEdit .Show 1 End With 2.2 '刷新用户名列表框 AdoUserList.Refresh DataList1_ClickEnd Sub2.3'读取当前用户数据 MyUser.Get

16、Info (DataList1.Text) 2.4'设置用户名 lblUserName = MyUser.username 2.5 '设置用户类型 If Format(MyUser.username, "<") = "admin" Then lblUserType = "系统管理员"2.6 '确认删除 If MsgBox("是否删除当前用户", vbYesNo, "请确认") = vbYes Then '删除当前用户 MyUser.Delete (DataL

17、ist1.Text) '刷新用户名列表框内容 AdoUserList.Refresh DataList1_Click End IfEnd Sub2.7 把当前用户的数据赋值到FrmUserEdit窗体的相关位置 With FrmUserEdit .OriUser = MyUser.username .txtUserName = MyUser.username .txtPass = MyUser.Pwd .txtPass2 = MyUser.Pwd .modify = True '如果当前用户为Admin，则不能修改用户名 If Format(MyUser.username, &

18、quot;<") = "admin" Then .txtUserName.Enabled = False End If '将变量Modify设置为True，表示当前状态为修改已有数据 2.8'启动窗体FrmUserEdit .Show 1 End With 2.9 '刷新用户名列表框 AdoUserList.Refresh DataList1_ClickEnd Sub2.10'读取当前用户数据 MyUser.GetInfo (DataList1.Text) 2.11'设置用户名 lblUserName = MyUser

19、.username 2.12设置用户类型 If Format(MyUser.username, "<") = "admin" Then lblUserType = "系统管理员"3 用户登录密码加密功能代码如下：Private Function Encryption(ByVal strEnc As String) As String Dim i As Integer 'for循环用 Dim strTmp As String '临时字符存储 Encryption = "" If (Len(str

20、Enc) < 1) Then Encryption = "" Else For i = 1 To Len(strEnc) If Asc(Mid(strEnc, i, 1) < -6000 And Mid(strEnc, i, 1) <> "?" Then strTmp = Chr(Asc(Mid(strEnc, i, 1) - 5) '对gbk的汉字进行加密 ElseIf Asc(Mid(strEnc, i, 1) <= 126 And Asc(Mid(strEnc, i, 1) >= 80 Then strTmp = Chr(Asc(Mid(strEnc, i, 1) - 47) '对大于79的asc进行加密 ElseIf Asc(Mid(strEnc, i, 1) <= 79 And Asc(Mid(strEnc, i, 1) >= 33 Then strTmp = Chr(Asc(Mid(strEnc, i, 1) + 47) '对小于