车辆租赁管理系统

1、 网络数据库课程设计车辆租赁管理班 级： 网络07-2班 学 号：姓 名： 李建杰 前 言近年来，计算机技术日趋成熟，数据库技术不断发展，管理信息系统的应用已延伸到社会的各个领域。结合管理信息系统的开发方法及步骤，以此为理论基础，开发出一个小型的信息管理系统车辆租赁管理系统。车辆租赁管理是汽车租赁公司开展日常运营活动的必须的环节。传统的手工管理方式不但浪费人力、时间，而且管理复杂，易出差错。基于计算机技术的完备的车辆租赁管理系统把一些繁琐的数据计算、信息处理化为简单的指令操作。完全实现数据信息的电算化管理，彻底把人从手工管理中解放出来。经过艰苦的努力,我终于实现了预期的设计目标,开发出这套具有

2、一定实用价值的车辆租赁管理系统,使用这套系统有利于提高汽车辆租赁公司的劳动生产率，节约生产成本，增加经济效益。信息管理系统的服务性系统，能满足保险业务的需求、客户群的拓展和管理模式的变化。系统开发具有超前意识，强调系统的标准化、系列化，模块化设计，有明确的功能模块结构和技术支持模块结构，便于系统维护、修改和升级，跟随先进技术的发展。工程信息管理的自动化、规范化是当今社会的发展趋势。信息录入项目齐全、完整、系统，这些无疑是现代工程信息管理系统的要求。现代化的工程信息管理系统中灵活使用了表格对档案分门别类，组成工程信息管理系统，可以方便地查询、阅读、修改、交流和重复使用。 目 录1.需求分析：42

3、.概念设计53.逻辑设计94.物理设计115.数据库的实现116.设计心得207. 参考文献 20. 车辆租赁管理1.需求分析1.1车辆租赁管理涉及到的数据有：租赁合同数据部门数据职工数据用户数据车辆数据车辆故障数据1.2车辆租赁管理的处理需求有：查询所有可租车辆和已租车辆信息查询租赁合同信息查询车辆的故障情况计算租车费用1.3业务流程图 2.概念设计2.1局部视图设计（1）确定局部视图的设计范围该应用涉及到车辆租用、故障检修、租用费用计算等。（2）确定实体及实体的主键车辆租赁管理涉及到的实体有：租赁合同，存放所有租用车辆的租赁合同。主键：租赁合同编号职工，存放公司所有职工信息。主键：职工编号

4、部门，存放公司所有部门信息。主键：部门编号用户，存放所有租用车辆的信息。主键：用户编号车辆，存放所有可租用车辆信息。主键：车辆编号车辆故障，存放所有车辆损坏信息。主键：车辆编号检查日期 （3）定义实体间的联系 一个部门有多名职工，每个职工只属于一个部门。则部门实体与职工实体之间是一对多联系。 一个部门有多辆车可出租，而每辆车只属于一个部门拥有。则部门实体与车辆实体之间是一对多联系。 一辆车可能有多次故障，而每个故障只对应一辆车。则车辆实体与车辆故障实体之间是一对多联系。 一辆车可多次出租，而一份租赁合同只能租用一辆车。则车辆实体和租赁合同实体之间是一对多联系。 每个用户可通过签订多次租赁合同租

5、用多次车辆，而每份租赁合同只对应一个用户。则用户实体与租赁合同之间是一对多联系。 一个部门有多名职工，其中有一个经理可以管理部门中的其他职工。经理和普通职工之间的管理与被管理是一种自联系，而且是一对多的。 一个职工可以排除多个车辆故障，而每个车辆故障有一个职工进行排除排除，则职工实体与故障实体之间是一对多联系。 （4）给实体及联系加上描述属性租赁合同实体的描述属性有：租赁合同编号，借用日期，借用时间，还车日期，还车时间，用车前公里数，用车后公里数，保险编号，保险费，用户编号，车辆编号。职工实体的描述属性有：职工编号，姓名，性别，地址，办公电话，住宅电话，Email，职位，部门编号。部门实体的描

6、述属性有：部门编号，部门名称，部门地址，部门电话，部门传真号，经理职工编号。用户实体的描述属性有：用户编号，用户名称，用户地址，邮编，用户电话，用户传真号，Email。车辆实体的描述属性有：车辆编号，制造商，车型，颜色，出租费用，部门编号，租出标志。车辆故障实体的描述属性有：车辆编号，检查日期，检查时间，检查结果，职工编号。 系统ER图：3.逻辑设计3.1租赁合同（租赁合同编号，借用日期，借用时间，还车日期，还车时间，用车前公里数，用车后公里数，保险金，用户编号，车辆编号）主键：租赁合同编号。外键：用户编号，引用了用户关系中的用户编号； 车辆编号，引用了车辆关系中的车辆编号。函数依赖集F：租赁

7、合同编号®借用日期，借用时间，还车日期，还车时间，用车前公里数，用车后公里数，保险金，用户编号，车辆编号 关系中不存在非主属性与候选键之间的部分与传递函数依赖，所以租赁合同关系满足第3范式。3.2部门（部门编号，部门名称，部门地址，部门电话，部门传真号，经理职工编号）主键：部门编号。候补键：部门电话； 部门传真号；经理职工编号。外键：经理职工编号，引用了职工关系中的职工编号。函数依赖集F：部门编号®部门名称，部门地址，部门电话，部门传真号，经理职工编号，部门电话®部门编号，部门名称，部门地址，部门传真号，经理职工编号，部门传真号®部门编号，部门名称，部门

8、地址，部门电话，经理职工编号。经理职工编号®部门编号，部门名称，部门地址，部门电话，部门传真号由于部门名称®部门地址，故部门编号®部门地址是传递函数依赖。 关系中存在非主属性与候选键之间的传递函数依赖，所以部门关系是第2范式。3.3职工（职工编号，姓名，性别，地址，办公电话，住宅电话，Email，职位，部门编号）主键：职工编号。候补键：Email。外键：部门编号，引用了部门关系中的部门编号。函数依赖集F：职工编号®姓名，性别，地址，办公电话，住宅电话，Email，职位，部门编号，Email®职工编号，姓名，性别，地址，办公电话，住宅电话，职位，

9、部门编号。 关系中不存在非主属性与候选键之间的部分与传递函数依赖，所以职工关系满足第3范式。 3.4用户（用户编号，用户名称，地址，邮编，用户电话，用户传真号，Email）主键：用户编号。候补键：用户电话； 用户传真号； Email。函数依赖集F：用户编号®用户名称，地址，邮编，用户电话，用户传真号，Email，用户电话®用户编号，用户名称，地址，邮编，用户传真号，Email，用户传真号®用户编号，用户名称，地址，邮编，用户电话，EmailEmail®用户编号，用户名称，地址，邮编，用户电话，用户传真号 关系中不存在非主属性与候选键之间的部分与传递函数依

10、赖，所以用户关系是第3范式。 主键：车辆编号。外键：部门编号，引用了部门关系中的部门编号。函数依赖集F：车辆编号®制造商，车型，颜色，出租费用，部门编号。 关系中不存在非主属性与候选键之间的部分与传递函数依赖，所以车辆关系是第3范式。 3.6车辆故障（车辆编号，检查日期，检查时间，检查结果，职工编号）主键：车辆编号检查日期。外键：车辆编号，引用了车辆关系中的车辆编号； 职工编号，引用了职工实体中的职工编号。 虽然部门实体是第2范式，但是，部门实体主要提供查询，几乎很少有增、删、改操作，故部门关系的异常操作可以忽略。故车辆租赁管理的数据库设计是合理的。 4.物理设计租赁合同（租赁合同编

11、号，借用日期，借用时间，还车日期，还车时间，用车前公里数，用车后公里数，保险金，用户编号，车辆编号）部门（部门编号，部门名称，部门地址，部门电话，部门传真号，经理职工编号）职工（职工编号，姓名，性别，地址，办公电话，住宅电话，Email，职位，部门编号）用户（用户编号，用户名称，地址，邮编，用户电话，用户传真号，Email）车辆（车辆编号，制造商，车型，颜色，出租费用，部门编号，租出标志）车辆故障（车辆编号，检查日期，检查时间，检查结果，职工编号）5.数据库的实现5.1数据库子模块 5.2源代码VERSION 1.0 CLASSBEGINPublic CarNo As StringPublic

12、 TypeId As LongPublic CarName As StringPublic Color As StringPublic OilNo As StringPublic EngineNo As StringPublic CarCase As StringPublic SaleId As IntegerPublic BuyDate As StringPublic InsurNo As StringPublic InsurId As LongPublic InsurType As StringPublic InsurSdate As StringPublic InsurEdate As

13、StringPublic Deposit As LongPublic DayPrice As LongPublic WeekEndPrice As LongPublic WeekPrice As LongPublic MonthPrice As LongPublic DayKM As LongPublic OverTimePrice As LongPublic OverKMPrice As LongPublic Status As StringPublic Comment As StringPublic Sub Init() CarNo = "" TypeId = 0 Ca

14、rName = "" Color = "" OilNo = "" EngineNo = "" CarCase = "" SaleId = 0 BuyDate = "" InsurNo = "" InsurId = 0 InsurType = "" InsurSdate = "" InsurEdate = "" Deposit = 0 DayPrice = 0 WeekEndPrice = 0 We

15、ekPrice = 0 MonthPrice = 0 DayKM = 0 OverTimePrice = 0 OverKMPrice = 0 Status = "待命" Comment = ""End Sub'删除Cars数据Public Sub Delete(ByVal TmpCarNo As String) SqlStmt = "Delete FROM Cars WHERE CarNo='" + Trim(TmpCarNo) + "'" SQLExt (SqlStmt)End SubPu

16、blic Function GetInfo(ByVal TmpCarNo As String) As Boolean Dim rs As New ADODB.Recordset SqlStmt = "SELECT * FROM Cars WHERE CarNo='" + Trim(TmpCarNo) + "'" Set rs = QueryExt(SqlStmt) If rs.EOF = True Then GetInfo = False Exit Function Else If IsNull(rs.Fields(0) Then Car

17、No = "" Else CarNo = rs.Fields(0) End If If IsNull(rs.Fields(1) Then TypeId = 0 Else TypeId = rs.Fields(1) End If If IsNull(rs.Fields(2) Then CarName = "" Else CarName = rs.Fields(2) End If If IsNull(rs.Fields(3) Then Color = "" Else Color = rs.Fields(3) End If If IsNul

18、l(rs.Fields(4) Then OilNo = "" Else OilNo = rs.Fields(4) End If If IsNull(rs.Fields(5) Then EngineNo = "" Else EngineNo = rs.Fields(5) End If If IsNull(rs.Fields(6) Then CarCase = "" Else CarCase = rs.Fields(6) End If If IsNull(rs.Fields(7) Then SaleId = 0 Else SaleId =

19、 rs.Fields(7) End If If IsNull(rs.Fields(8) Then BuyDate = "" Else BuyDate = rs.Fields(8) End If If IsNull(rs.Fields(9) Then InsurNo = "" Else InsurNo = rs.Fields(9) End If If IsNull(rs.Fields(10) Then InsurId = 0 Else InsurId = rs.Fields(10) End If If IsNull(rs.Fields(11) Then I

20、nsurType = "" Else InsurType = rs.Fields(11) End If If IsNull(rs.Fields(12) Then InsurSdate = "" Else InsurSdate = rs.Fields(12) End If If IsNull(rs.Fields(13) Then InsurEdate = "" Else InsurEdate = rs.Fields(13) End If If IsNull(rs.Fields(14) Then Deposit = 0 Else Depo

21、sit = rs.Fields(14) End If If IsNull(rs.Fields(15) Then DayPrice = 0 Else DayPrice = rs.Fields(15) End If If IsNull(rs.Fields(16) Then WeekEndPrice = 0 Else WeekEndPrice = rs.Fields(16) End If If IsNull(rs.Fields(17) Then WeekPrice = 0 Else WeekPrice = rs.Fields(17) End If If IsNull(rs.Fields(18) Th

22、en MonthPrice = 0 Else MonthPrice = rs.Fields(18) End If If IsNull(rs.Fields(19) Then DayKM = 0 Else DayKM = rs.Fields(19) End If If IsNull(rs.Fields(20) Then OverTimePrice = 0 Else OverTimePrice = rs.Fields(20) End If If IsNull(rs.Fields(21) Then OverKMPrice = 0 Else OverKMPrice = rs.Fields(21) End

23、 If If IsNull(rs.Fields(22) Then Status = "" Else Status = rs.Fields(22) End If If IsNull(rs.Fields(23) Then Comment = "" Else Comment = rs.Fields(23) End If End If GetInfo = TrueEnd Function'判断是否已经存在此车牌号码Public Function In_DB(ByVal TmpCarNo As String) As Boolean Dim rs As Ne

24、w ADODB.Recordset SqlStmt = "SELECT * FROM Cars WHERE CarNo='" + Trim(TmpCarNo) + "'" Set rs = QueryExt(SqlStmt) If Not rs.EOF Then In_DB = True Else In_DB = False End IfEnd FunctionPublic Sub Insert() '设置INSERT语句 SqlStmt = "INSERT INTO Cars(CarNo,TypeId, CarName

25、,Color,OilNo,EngineNo,CarCase," & _ "SaleId,BuyDate,InsurNo,InsurId,InsurType,InsurSdate,InsurEdate,Deposit," & _ "DayPrice,WeekEndPrice,WeekPrice,MonthPrice,DayKM,OverTimePrice,OverKMPrice," & _ "Status,Comment)" & _ " Values('" + Tri

26、m(CarNo) + "'," + Trim(TypeId) + ",'" + Trim(CarName) + "','" & _ Trim(Color) + "','" + Trim(OilNo) + "','" + Trim(EngineNo) + "','" & _ Trim(CarCase) + "'," + Trim(SaleId) + &qu

27、ot;,'" + Trim(BuyDate) + "','" & _ Trim(InsurNo) + "'," + Trim(InsurId) + ",'" + Trim(InsurType) + "','" & _ Trim(InsurSdate) + "','" + Trim(InsurEdate) + "'," + Trim(Deposit) + ",&q

28、uot; & _ Trim(DayPrice) + "," + Trim(WeekEndPrice) + "," + Trim(WeekPrice) + "," & _ Trim(MonthPrice) + "," & _ Trim(DayKM) + "," + Trim(OverTimePrice) + "," + Trim(OverKMPrice) + ",'" & _ Trim(Status) + "

29、','" + Trim(Comment) + "')" '执行SQL语句 SQLExt (SqlStmt)End SubPublic Sub Update(ByVal TmpCarNo As String) '设置UPDATE语句 SqlStmt = "Update Cars Set TypeId=" + Trim(TypeId) _ + ", CarName='" + Trim(CarName) + "',Color='" + Trim(C

30、olor) _ + "',OilNo='" + Trim(OilNo) + "',EngineNo='" + Trim(EngineNo) _ + "',CarCase='" + Trim(CarCase) + "',SaleId=" + Trim(SaleId) _ + "SaleId=" + Trim(SaleId) + ",BuyDate='" + Trim(BuyDate) + "',&

31、quot; _ + "InsurNo='" + Trim(InsurNo) + "',InsurId=" + Trim(InsurId) + "," _ + "InsurType='" + Trim(InsurType) + "',InsurSdate='" + Trim(InsurSdate) + "'," _ + "InsurEdate='" + Trim(InsurEdate) + "',Deposit=" + Trim(desposit) + "," _ + "DayPrice=" + Trim(DayPrice) + ",WeekEndPrice=" + Trim(WeekEndPrice) + "," _ + "WeekPrice=" + Trim(WeekPrice) + &qu