汽车租赁系统的研究与实现.docx

1、汽车租赁系统的研究与实现第1章 课程设计目的与要求1.1 课程设计目的本课程的课程设计实际是学生学习完VB.NET程序设计实用教程课程后，进行的一次全面的综合训练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技巧。1.2 课程设计的实验环境硬件要求能运行Windows XP操作系统的微机系统。软件：Microsoft VB.NET Microsoft Access 20031.3 课程设计的预备知识熟悉VB.NET程序设计的基本语法知识及常用技巧。1.4 课程设计要求按课程设计指导书提供的课题，每个小组设计一个完整的管理系统应用程序。要求根据规定设计系

2、统的具体要求，按照应用程序的设计步骤和VB的基本知识应用程序的分析与实现。应根据基本学时分配合理安排设计时间，并独立完成各方面的设计。选择同一题目的同学，可以共同协作完成一个应用程序的开发任务。要求书写详细的设计说明书，对有复杂的代码段和程序段的部分，应画出程序流程图，写出全部的代码。在界面设计中，需画出每个窗体的布局，进行属性说明，杜绝雷同。第2章 课程设计内容2.1系统功能设计2.1.1 系统功能分析车辆租赁管理系统是一套针对车辆租赁的基础信息、车辆管理、司机管理、客户管理、综合业务、租金统计进行全面管理的系统。 功能特点： 基本信息（修理厂设置、加油站设置、车辆类型设置、车辆名称设置、会

3、员类型设置、证件类型设置、保险类型设置、燃油类型设置、租赁模式设置）；信息管理（车辆管理、司机管理）；客户管理（客户查询、会员查询）；综合业务（汽车预出续租、催车还交、事故登记、汽车加油、维修记录、还车结算）；租金统计（当天租金统计、一定期间租金统计）几大部分。系统提供了各种管理的查询功能和报表功能，它集输入、维护、查询、筛选、统计和各种处理为一体，信息导入导出方便共享，灵活、专业的报表设计，形象、增强的数据处理，用户可自定义自开发这些功能。操作快捷、方便，性能高效、强大；使用易懂、易会，便于车辆租赁部门对车辆租赁使用情况进行全面管理。依托系统强大的辅助录入，减少了录入工作量，提高了工作效率，

4、降低了工作强度。汽车租赁管理系统属于数据库应用的范畴从数据库的角度看,系统主要功能是实现对录入的车辆客户销售商租赁合同等文件的管理汽车租赁系统是对VB.NET编程技术Access数据库技术的具体应用2.1.2 系统功能模块设计汽车出租管理系统主要实现5个大的功能模块：系统用户信息管理、查询报表、日常业务管理、系统管理、。每个模块有分成多详细的功能子模块。图2.1系统功能模块图2.2系统详细设计2.2.1 汽车租赁系统模块设计1.界面设计（1）系统管理员用户可以添加汽车记录、修改汽车记录、删除汽车记录和查看汽车记录。（2）普通用户只能查看汽车租赁数据。为了表现系统间的层次结构，本模块使用Tree

5、View控件对系统数据进行管理。TreeView控件是显示 Node对象的分层列表，每个Node对象均由一个标签和一个可选的位图组成。选择“工程”菜单中的“部件“命令，打开”属性“对话框。在控件列表中，查找兵选择Microsoft Windows Common Controls 6.0。在窗体中添加一个ImageList控件。右击此控件，选择菜单中的“属性”命令，打开“属性页”对话框。单击“图像”选项卡，通过单击“插入图像”和“删除图像”来编辑图像列表。在窗体中添加一个TreeView控件。右击此控件，选择菜单中的“属性”命令，打开“属性页”对话框。将“图像列表”属性设置为ImageList1

6、,其他属性根据需要设置。在该部门信息模块中，TreeView控件使用惟一的关键字来标识每一个结点，关键字的第一个字符必须是字母。我们规定关键字的格式为“a”加上部门编号，结果部门编号为1，则此部门在TreeView控件中的关键字为”al”.在GeneralFunc模块中，有一个自定义过程Add_DepToTree()。窗体布局窗口开机后进入VB.NET环境下，双击租赁信用管理系统图标，稍候出现登录消息框，如图所示： 图2.2.1在输入框中依次输入用户的用户名和口令，然后按下回车键（Enter）或者用鼠标单击 “确认”按钮，在用户名和口令均正确的情况下，就可以顺利进入本系统，此时如果想退出系统请

7、点击“取消”按钮。2.代码设计Dim hwndl As Long用户登陆后成功显示各标签Private sub Form Activate()If 用户登陆.Falg=1 Then Label1.Visible=True:Label2.Visible=True Label3.Visilel=True:Label2.Visible=TrueEnd IfEnd SubPrivate Sub Form click()If 用户登陆.Falg1 Then用户登陆.ShowEnd IfEnd SubPrivate Sub Form KeyPress(keyAscii As Integer)If KeyA

8、scii0Then用户登陆.ShowEnd IfEnd IfEnd SubPrivate Sub Form Load()Dim A As StringDim B As Integer A=Me.hwnd B=0 Disabled A,B Me.Left=0:Me.Top=0Label1.Visible=False:Label2.Visible=FalseLabel3.Visible=False:Label4.Visible=FalsePrivate Sub Text1 KeyPress(KeyAscii As Integer)Dim X AS IntegerIf KeyAscii=13 The

9、n If Text1M Then Total=Total+1 If Total2 Then MsgBox“对不起。您无权使用本系统！ Open App.Path+Screen.txt For Input As #1 Input #1,apiRECT.Right Close #1 Call SetWindowPos(hwndl,0,0,0,0,0,swp SHOWWINDOW) Select Case apiRECT.Right Case 1024 SetDisplayMode 1024,600,16 Case 800 SetDisplayMode 800,600,16 Case 640 Set

10、DisplayMode 640, 480,16 End Select Unload Me End End If MsgBox”您的密码不正确，请重新输入密码！， Text1=“”ElseDoEventsFslg=1Unload MeEnd IfEnd IfEnd Sub2.2.2 基本信息管理模块设计基本信息管理具体的设计如下：一， 基本信息的管理：系统管理员可以对客户进行查找（按客户姓名）该客户（司机）的信息和相关驾驶信息、添加（按客户编号：基本信息、抵押担保信息驾照信息和附加描述）、修改（选中）、删除、加入会员（添加客户基本信息、驾照信息、抵押担保信息和会员信息）等操作。二主要包括：服务信

11、息管理，类型信息管理，汽车信息管理； 图2.2.2进入系统1)、服务信息管理包括：修理厂设置，加油站设置，保险类型设置；1，修理厂设置；系统管理员可以对车辆的类型（类型名和具体描述）进行添加、修改、删除等操作； 图 2.2.3修理厂2，加油站设置；设置客户的加油站，任意联系站点。添加，修改，删除。 图 2.2.4加油站3，保险类型设置；系统管理员可以对汽车销售商进行查询（按销售商名称）、添加、修改（对已经选中的记录）、删除和查看已经销售的汽车的相关购买信息等操作；系统管理员可以对进行查询（按保险公司名）保险公司的具体信息、添加、修改（对已经选中的记录）、删除保险公司信息和查看已经投递保险的汽车

12、的相关投保信息等操作；系统管理员可以对本公司所有的汽车进行查找（车牌号码）该车的信息和相关租赁信息、添加（基本信息、保险信息、租赁信息和附加描述）、修改（选中）、删除的操作； 图 2.2.5保险类型2，类型信息管理：系统管理员可以对车辆的保险类型（保险的类型名和详细的描述）进行添加、修改、删除等操作；包括汽车类型，汽车名称。1）汽车类型；输入汽车的类型。以便于管理汽车配件。 图 2.2.6汽车类型 2)、汽车名称；系统管理员可以会员对进行查找（按会员姓名）该客户（司机）的信息和相关驾驶信息、修改（选中：基本信息、驾照信息、抵押担保信息和会员信息）、删除即注销会员等操作 3汽车信息管理：系统管理

13、员可以对客户进行查找（按客户姓名）该客户（司机）的信息和相关驾驶信息、添加（按客户编号：基本信息、抵押担保信息、驾照信息和附加描述）、修改（选中）、删除、加入会员（添加客户基本信息、驾照信息、抵押担保信息和会员信息）等操作。包括会员类型，证件类型，燃油类型，租车模式。1）会员类型；系统管理员可以对会员类型添加（类型名称和折扣率）、修改（选中）、删除等相关操作；2）证件类型：各汽车租赁公司想查找以前的汽车租赁信息，单击车辆租赁查询按钮，弹出如下图所示的窗口。录入部分限制条件后，单击查询按钮。3）燃油类型：客户用的燃油类型输入操作。4）租车模式：包括时租，日租，月租，周租。系统全面。 2.2.3

14、数据库访问技术DAO即数据访问对象是VB最早引入的数据访问技术。与上述建立在数据控件上的数据访问不同，DAO可以完不用数据控件而只引用程序代码来创建完整的数据库应用程序。利用DAO可以访问数据库中所有对象，并灵活地操纵数据进行编辑操作。在VB.NET中使用的是面向对象的模型，但是，众所周知，在数据库领域里，到目前为止流行的依然是关系模型，至今还没有哪一种数据库产品是真正意义上的面向对象，而面向对象模型与关系模型又似乎不能够在一起很协调地工作。这就更加大了试图用类的方法来访问数据库系统的难度。为了测试这个类，新建一个Windows Applcation,命名为DBClass。VB支持Data A

15、ccess Objects(DAOs)的子集。DAO的方法虽然不是性能最好的管理客户机服务器之间的对话方式，但它的确有许多优点。DAO/Jet是为了实现从VB访问Access数据库而开发的程序接口对象。使用DAOs访问SQL Server的过程如下：应用程序准备好语句并送至Jet，Jet引擎(MASJT200.DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(ODBC.DLL)通过调用驱动器(SQLSRVR.DLL)的函数，实现连接到数据源，翻译并向SQL Server提交SQL语句且返回结果。下面是一个用DAOs访问SQL Server的VB实例。 注释：Form Declar

16、ations Dim mydb As Database Dim mydynaset As Dynaset Private Sub Form_Load() Set mydb = OpenDatabase(, False, False, ODBC; DSN=Myserver; WSID=LCL; DATABASE = sales) Set mydynaset = mydb CreateDynaset(Select*from Customers) End Sub 2.3 系统运行与测试汽车租赁管理系统针对的是机动车租赁公司在向客户提供出租车辆服务过程中面对的各种问题，对其业务信息进行自动化、信息化处

17、理，使车辆租赁管理变得规范、快捷、高效。为规范操作流程，降低劳动强度使租赁业务走向标准化和科学化， 设计开发了这套管理系统，它的使用将有利于提高租赁公司的劳动生产率，节约生产成本，增加经济效益，希望它能为业内人员的工作提供一定的帮助。针对目前大多数汽车租赁行业设计开发的一套管理系统，操作简单，查询报表丰富。包含了汽车租赁过程中的多数细节：预租、租车、续租，还车、维修、加油、事故登记、车辆及司机信息，客户信息，会员信息以及会员的分类等。并可分类统计查询，日收入、月收入,总收入，司机，车辆，会员以及客户报表等而且针对数据库的安全，系统添加了数据库的备份和还原。本系统采用中文VB.NET运行环境平台

18、，Office 2000中的Access为数据库，Visual Basic 6.0为开发工具，软件开发在Windows XP平台下运行，基于各方面的研究，同时针对机动车租赁公司的实际情况，我应用数据库、管理信息系统、软件工程的一些基本原理和理论思想，以具有强大的应用程序开发功能和数据库开发功能的Visual Basic6.0为开发工具，设计开发了这套机动车租赁管理系统。在Windows环境下，此系统具有比较友好的界面和基本完善的功能，使用轻松方便，易于维护，适应性强。第3章 课程设计总结 经过一学期的学习,我对VB这门学科有了充分的了解.这次的课程设计老师给我布置课设的题目是汽车租赁管理系统。

19、通过本次的可视化编程课程设计，巩固了我在课堂上所学的理论知识，更进一步的理解了面向对象编程的基本思想，并且对可视化编程工具VB.NET这种软件的应用有了一个简单的了解，开拓了自己的知识面。本次课程设计，在谌海军老师的指导下，通过不懈的努力完成了本次课程设计的任务，汽车租赁管理系统的设计及运行基本实现。培养我的团队精神，学会了如何和别人合作，同时也从同学那里学到了许多东西。我们也遇到了各种各样的问题和错误。但面对种种问题和困难，我们小组的成员个个都非常的努力。参考文献1甘雷，中文Access 2002标准教程.北京希望电子出版社2韩润春，佟志臣，王汉新.管理信息系统.河北人民出版社3童爱红，刘凯，刘雪梅VB.NET程序设计实用教程.清华大学出版社