车辆租赁管理系统.doc

精品文档就在这里-各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有- 网络数据库课程设计车辆租赁管理班 级： 网络07-2班 学 号： 310709040212 姓 名： 李建杰 前 言近年来，计算机技术日趋成熟，数据库技术不断发展，管理信息系统的应用已延伸到社会的各个领域。结合管理信息系统的开发方法及步骤，以此为理论基础，开发出一个小型的信息管理系统车辆租赁管理系统。车辆租赁管理是汽车租赁公司开展日常运营活动的必须的环节。传统的手工管理方式不但浪费人力、时间，而且管理复杂，易出差错。基于计算机技术的完备的车辆租赁管理系统把一些繁琐的数据计算、信息处理化为简单的指令操作。完全实现数据信息的电算化管理，彻底把人从手工管理中解放出来。经过艰苦的努力,我终于实现了预期的设计目标,开发出这套具有一定实用价值的车辆租赁管理系统,使用这套系统有利于提高汽车辆租赁公司的劳动生产率，节约生产成本，增加经济效益。信息管理系统的服务性系统，能满足保险业务的需求、客户群的拓展和管理模式的变化。系统开发具有超前意识，强调系统的标准化、系列化，模块化设计，有明确的功能模块结构和技术支持模块结构，便于系统维护、修改和升级，跟随先进技术的发展。工程信息管理的自动化、规范化是当今社会的发展趋势。信息录入项目齐全、完整、系统，这些无疑是现代工程信息管理系统的要求。现代化的工程信息管理系统中灵活使用了表格对档案分门别类，组成工程信息管理系统，可以方便地查询、阅读、修改、交流和重复使用。 目 录1.需求分析：42.概念设计53.逻辑设计94.物理设计115.数据库的实现116.设计心得207. 参考文献 20. 车辆租赁管理1.需求分析1.1车辆租赁管理涉及到的数据有：租赁合同数据部门数据职工数据用户数据车辆数据车辆故障数据1.2车辆租赁管理的处理需求有：查询所有可租车辆和已租车辆信息查询租赁合同信息查询车辆的故障情况计算租车费用1.3业务流程图 2.概念设计2.1局部视图设计（1）确定局部视图的设计范围该应用涉及到车辆租用、故障检修、租用费用计算等。（2）确定实体及实体的主键车辆租赁管理涉及到的实体有：租赁合同，存放所有租用车辆的租赁合同。主键：租赁合同编号职工，存放公司所有职工信息。主键：职工编号部门，存放公司所有部门信息。主键：部门编号用户，存放所有租用车辆的信息。主键：用户编号车辆，存放所有可租用车辆信息。主键：车辆编号车辆故障，存放所有车辆损坏信息。主键：车辆编号检查日期 （3）定义实体间的联系 一个部门有多名职工，每个职工只属于一个部门。则部门实体与职工实体之间是一对多联系。 一个部门有多辆车可出租，而每辆车只属于一个部门拥有。则部门实体与车辆实体之间是一对多联系。 一辆车可能有多次故障，而每个故障只对应一辆车。则车辆实体与车辆故障实体之间是一对多联系。 一辆车可多次出租，而一份租赁合同只能租用一辆车。则车辆实体和租赁合同实体之间是一对多联系。 每个用户可通过签订多次租赁合同租用多次车辆，而每份租赁合同只对应一个用户。则用户实体与租赁合同之间是一对多联系。 一个部门有多名职工，其中有一个经理可以管理部门中的其他职工。经理和普通职工之间的管理与被管理是一种自联系，而且是一对多的。 一个职工可以排除多个车辆故障，而每个车辆故障有一个职工进行排除排除，则职工实体与故障实体之间是一对多联系。 （4）给实体及联系加上描述属性租赁合同实体的描述属性有：租赁合同编号，借用日期，借用时间，还车日期，还车时间，用车前公里数，用车后公里数，保险编号，保险费，用户编号，车辆编号。职工实体的描述属性有：职工编号，姓名，性别，地址，办公电话，住宅电话，Email，职位，部门编号。部门实体的描述属性有：部门编号，部门名称，部门地址，部门电话，部门传真号，经理职工编号。用户实体的描述属性有：用户编号，用户名称，用户地址，邮编，用户电话，用户传真号，Email。车辆实体的描述属性有：车辆编号，制造商，车型，颜色，出租费用，部门编号，租出标志。车辆故障实体的描述属性有：车辆编号，检查日期，检查时间，检查结果，职工编号。 系统ER图：3.逻辑设计3.1租赁合同（租赁合同编号，借用日期，借用时间，还车日期，还车时间，用车前公里数，用车后公里数，保险金，用户编号，车辆编号）主键：租赁合同编号。外键：用户编号，引用了用户关系中的用户编号； 车辆编号，引用了车辆关系中的车辆编号。函数依赖集F：租赁合同编号借用日期，借用时间，还车日期，还车时间，用车前公里数，用车后公里数，保险金，用户编号，车辆编号 关系中不存在非主属性与候选键之间的部分与传递函数依赖，所以租赁合同关系满足第3范式。3.2部门（部门编号，部门名称，部门地址，部门电话，部门传真号，经理职工编号）主键：部门编号。候补键：部门电话； 部门传真号；经理职工编号。外键：经理职工编号，引用了职工关系中的职工编号。函数依赖集F：部门编号部门名称，部门地址，部门电话，部门传真号，经理职工编号，部门电话部门编号，部门名称，部门地址，部门传真号，经理职工编号，部门传真号部门编号，部门名称，部门地址，部门电话，经理职工编号。经理职工编号部门编号，部门名称，部门地址，部门电话，部门传真号由于部门名称部门地址，故部门编号部门地址是传递函数依赖。 关系中存在非主属性与候选键之间的传递函数依赖，所以部门关系是第2范式。3.3职工（职工编号，姓名，性别，地址，办公电话，住宅电话，Email，职位，部门编号）主键：职工编号。候补键：Email。外键：部门编号，引用了部门关系中的部门编号。函数依赖集F：职工编号姓名，性别，地址，办公电话，住宅电话，Email，职位，部门编号，Email职工编号，姓名，性别，地址，办公电话，住宅电话，职位，部门编号。 关系中不存在非主属性与候选键之间的部分与传递函数依赖，所以职工关系满足第3范式。 3.4用户（用户编号，用户名称，地址，邮编，用户电话，用户传真号，Email）主键：用户编号。候补键：用户电话； 用户传真号； Email。函数依赖集F：用户编号用户名称，地址，邮编，用户电话，用户传真号，Email，用户电话用户编号，用户名称，地址，邮编，用户传真号，Email，用户传真号用户编号，用户名称，地址，邮编，用户电话，EmailEmail用户编号，用户名称，地址，邮编，用户电话，用户传真号 关系中不存在非主属性与候选键之间的部分与传递函数依赖，所以用户关系是第3范式。 3.5.车辆（车辆编号，制造商，车型，颜色，出租费用，部门编号，租出标志）主键：车辆编号。外键：部门编号，引用了部门关系中的部门编号。函数依赖集F：车辆编号制造商，车型，颜色，出租费用，部门编号。 关系中不存在非主属性与候选键之间的部分与传递函数依赖，所以车辆关系是第3范式。 3.6车辆故障（车辆编号，检查日期，检查时间，检查结果，职工编号）主键：车辆编号检查日期。外键：车辆编号，引用了车辆关系中的车辆编号； 职工编号，引用了职工实体中的职工编号。 虽然部门实体是第2范式，但是，部门实体主要提供查询，几乎很少有增、删、改操作，故部门关系的异常操作可以忽略。故车辆租赁管理的数据库设计是合理的。 4.物理设计租赁合同（租赁合同编号，借用日期，借用时间，还车日期，还车时间，用车前公里数，用车后公里数，保险金，用户编号，车辆编号）部门（部门编号，部门名称，部门地址，部门电话，部门传真号，经理职工编号）职工（职工编号，姓名，性别，地址，办公电话，住宅电话，Email，职位，部门编号）用户（用户编号，用户名称，地址，邮编，用户电话，用户传真号，Email）车辆（车辆编号，制造商，车型，颜色，出租费用，部门编号，租出标志）车辆故障（车辆编号，检查日期，检查时间，检查结果，职工编号）5.数据库的实现5.1数据库子模块 5.2源代码VERSION 1.0 CLASSBEGINPublic CarNo As StringPublic 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 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 CarName = Color = OilNo = EngineNo = CarCase = SaleId = 0 BuyDate = InsurNo = InsurId = 0 InsurType = InsurSdate = InsurEdate = Deposit = 0 DayPrice = 0 WeekEndPrice = 0 WeekPrice = 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 SubPublic 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 CarNo = 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 IsNull(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 = 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 InsurType = 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 Deposit = 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) Then 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 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 New 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,Color,OilNo,EngineNo,CarCase, & _ SaleId,BuyDate,InsurNo,InsurId,InsurType,InsurSdate,InsurEdate,Deposit, & _ DayPrice,WeekEndPrice,WeekPrice,MonthPrice,DayKM,OverTimePrice,OverKMPrice, & _ Status,Comment) & _ Values( + Trim(CarNo) + , + Trim(TypeId) + , + Trim(CarName) + , & _ Trim(Color) + , + Trim(OilNo) + , + Trim(EngineNo) + , & _ Trim(CarCase) + , + Trim(SaleId) + , + Trim(BuyDate) + , & _ Trim(InsurNo) + , + Trim(InsurId) + , + Trim(InsurType) + , & _ Trim(InsurSdate) + , + Trim(InsurEdate) + , + Trim(Deposit) + , & _ Trim(DayPrice) + , + Trim(WeekEndPrice) + , + Trim(WeekPrice) + , & _ Trim(MonthPrice) + , & _ Trim(DayKM) + , + Trim(OverTimePrice) + , + Trim(OverKMPrice) + , & _ Trim(Status) + , + 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(Color) _ + ,OilNo= + Trim(OilNo) + ,EngineNo= + Trim(EngineNo) _ + ,CarCase= + Trim(CarCase) + ,SaleId= + Trim(SaleId) _ + SaleId= + Trim(SaleId) + ,BuyDate= + Trim(BuyDate) + , _ + 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) + , _ + MonthPrice= + Trim(MonthPrice) + ,DayKM= + Trim(DayKM) + , _ + OverTimePrice= + Trim(OverTimePrice) + ,OverKMPrice= + Trim(OverKMPrice) + , _ + Status= + Trim(Status) + ,Comment= + Trim(Comment) _ + WHERE CarNo= + Trim(TmpCarNo) + 执行SQL语句 SQLExt (SqlStmt)End Sub更改车辆状态Public Sub UpdateStatus(ByVal TmpCarNo As String, ByVal TmpStatus As String) 设置UPDATE语句 SqlStmt = Update Cars Set Status= + Trim(TmpStatus) _ + WHERE CarNo= + Trim(TmpCarNo) + 执行SQL语句 SQLExt (SqlStmt)End Sub5.3运行界面 登陆界面：子模块中信息编辑和管理：用户管理界面：汽车模块：6.设计心得 经过反复测试，系统完成后运行添加、修改、查询、报表等功能均正常。此系统任然存在许多缺陷，但是通过该系统设计达到了系统设计目的的意义，基本掌握了软件开发的主要步骤，了解了各个环节在开发时要注意的问题，体会到开发一个系统应该注意的方面以及重视用户在系统开发过程中间的作用，开发出好的软件高质量的软件。另外在设计过程中也逐渐提高了软件开发技能和编程技能以及良好的软件开发思维模式。7.参考文献1. 郑阿奇. MySQL使用教程. 北京：电子工业出版社. 20102. 赵文涛. 数据库系统原理. 中国矿业大学出版社，20063.张海藩. 软件工程(第五版). 北京：清华大学出版社，2010 3、通过活动，使学生养成博览群书的好习惯。B比率分析法和比较分析法不能测算出各因素的影响程度。C采用约当产量比例法，分配原材料费用与分配加工费用所用的完工率都是一致的。C采用直接分配法分配辅助生产费用时，应考虑各辅助生产车间之间相互提供产品或劳务的情况。错 C产品的实际生产成本包括废品损失和停工损失。C成本报表是对外报告的会计报表。C成本分析的首要程序是发现问题、分析原因。C成本会计的对象是指成本核算。C成本计算的辅助方法一般应与基本方法结合使用而不单独使用。C成本计算方法中的最基本的方法是分步法。XD当车间生产多种产品时，“废品损失”、“停工损失”的借方余额，月末均直接记入该产品的产品成本 中。D定额法是为了简化成本计算而采用的一种成本计算方法。F“废品损失”账户月末没有余额。F废品损失是指在生产过程中发现和入库后发现的不可修复废品的生产成本和可修复废品的修复费用。F分步法的一个重要特点是各步骤之间要进行成本结转。()G各月末在产品数量变化不大的产品，可不计算月末在产品成本。错G工资费用就是成本项目。()G归集在基本生产车间的制造费用最后均应分配计入产品成本中。对J计算计时工资费用，应以考勤记录中的工作时间记录为依据。()J简化的分批法就是不计算在产品成本的分批法。()J简化分批法是不分批计算在产品成本的方法。对 J加班加点工资既可能是直接计人费用，又可能是间接计人费用。J接生产工艺过程的特点，工业企业的生产可分为大量生产、成批生产和单件生产三种，XK可修复废品是指技术上可以修复使用的废品。错K可修复废品是指经过修理可以使用，而不管修复费用在经济上是否合算的废品。P品种法只适用于大量大批的单步骤生产的企业。Q企业的制造费用一定要通过“制造费用”科目核算。Q企业职工的医药费、医务部门、职工浴室等部门职工的工资，均应通过“应付工资”科目核算。 S生产车间耗用的材料，全部计入“直接材料”成本项目。 S适应生产特点和管理要求，采用适当的成本计算方法，是成本核算的基础工作。()W完工产品费用等于月初在产品费用加本月生产费用减月末在产品费用。对Y“预提费用”可能出现借方余额，其性质属于资产，实际上是待摊费用。对 Y引起资产和负债同时减少的支出是费用性支出。XY以应付票据去偿付购买材料的费用，是成本性支出。XY原材料分工序一次投入与原材料在每道工序陆续投入，其完工率的计算方法是完全一致的。Y运用连环替代法进行分析，即使随意改变各构成因素的替换顺序，各因素的影响结果加总后仍等于指标的总差异，因此更换各因索替换顺序，不会影响分析的结果。()Z在产品品种规格繁多的情况下，应该采用分类法计算产品成本。对Z直接生产费用就是直接计人费用。XZ逐步结转分步法也称为计列半成品分步法。A按年度计划分配率分配制造费用，“制造费用”账户月末(可能有月末余额/可能有借方余额/可能有贷方余额/可能无月末余额)。A按年度计划分配率分配制造费用的方法适用于(季节性生产企业)-精品 文档-