VB汽车租赁课程设计

辽宁工业大学可视化编程技术猱稈设廿（堆文）題目：汽车租赁管理系统院（系）：专业班级:学号:学生XX：指导教师:

教斷职称:起止时同:课程投it（论文）任务及评语院（系）： 教研室：学号学生XX专业JS级课程设计（论文）题目汽车祁赁管理系统课程设廿(论文)任务躱程没廿任务及嬰求：1、 掌握VB程序设廿培言的基础知识。2、 设计所选择的题目，对貝体功能进行i丰细的分析，根据系统的要求在VB中设廿窗体界面，使其合理化。3、 了解VB与数据库的连接方法。4、 编写代码,实现系统的功能。5、 通过调试程序，加深对VB编程的基本技Pi及方法的理解。j果程设廿过程中，要严陷遵守实裁坏节的时间安排，听从指导教帅的荷导。正确地完成上述内容，记录实习日记，观X完整地饌写出课程设廿论文。

指导教师评培及成绩成绩： 指导教弗签字：2008年12月〔6日第1章课程设计目的与要求1TOC\o"1-5"\h\z1.1课程设it目的 11.2课程设it的实验坏境 11.3课程设it的硕备知识 11.4课程设计要求 1第2章课程设计内容22.1系筑助能设it22.2系境详细设廿32.3系筑运行与測«10第3章课程设廿总结12参考文献13第1章课程设it目的与要求1.1课程设廿目的本课程的课程设汁实际是学生学习完《可視化编程技术》课程后，进行的一次全面的妹合川练，其目的在于加深对可视化编程技术基本知识的理解，掌握运用VB开发应用程序的基本方法及基本技15。1.2课程设廿的实验环境硬件要求能运行Windows9.X操作系缆的撤机系缆。软件:MicrosoftVisualBasic6.0MicrosoftAccess20031.3课程设廿的预备知识熟悉VisualBasic6.0程序设it的基本法知识及常用技巧。1.4课程设计要求檢课程设廿指导书提供的课SL毎个小组设it一个完整的管理系筑应用程序。要求根摇规定设廿系统的具体要求，按照应用程序的设廿步骤和VB的基本知识应用程序的分林与实现。应根据基本学时分配合理安排设廿时同，并独立完成各方面的设计。选择同一题目的同学，可以共同协作完成一个应用程序的开发任务。要求书写洋细的设it说明书，对有复杂的代昭段和程序段的部分，应画岀程序流程图，写岀全部的代网。在界面设廿中，需画岀毎个窗体的布局，进行憾性说明，杜绝密同。第2章课程设廿内容2.1系统功能设廿2.1.1系统功能分析车辆81赁管理系统是一套it对车辆租赁的基础信息、车辆管理、司机管理、客户管理、综合业务、租金统计进行全面管理的系统。功能特点：基本信息（修理厂设置、加油站设置、车辆类型设置、车辆名称设置、会员类塑设置、证件类塑设置、保险类型设置、滋油类里设置、ft!赁模式设置）；信息管理（车辆管理、司HI管理）；客户管理（客户查询、会员查询）；综合业务（汽车预\出\续租、催车还交、事於登记、汽车加油、维修记录、还车结算）；81金统廿（肖天相金貌计、一定期间和金筑it）几大部分。系筑提供了各种管理的査询功能和报表功能，它集输人、维护、査询、筛选、统廿和各种处理为一体，信息导人导出方便共皐，灵活、专业的报表设廿，形象、增强的数据处理，用户可自定义自开发逆些功能。操作快捷、方便，11能高效、强大；使用易懂、易会，便于车辆赁部门对车辆祁赁使用悄猊进行全面管理。依托系统强大的稱DD录人，减少了录人工作量，提高了工作效率，降低了工作强度。汽车相赁管理系统属于数据库应用的XR&。从数折库的角度看，系统主要功能是实现对录人的车辆、客户、術售商81赁合同等文件的管理。汽车81赁系统是MVisualBasic6.0编程技术、Access数据库技术的具体应用2.1.2系筑功能模快设廿汽车岀fflfi系统主要实现5个夫的功能模块：系统用户信息管理、査询报表、日常业务管理、系统管理、。毎个模块有分成名库细的功能子模块。

汽车租赁管理系统图2.1糸统功能模块图2.2系统详细设廿2.2.1汽车租赁系鋭模块设廿1•界面设廿(1)系统管理员用户可以添M汽车记录、修改汽车记录、删除汽车记录和查看汽车记录。(2)普通用户只能查看汽车租赁数据。为了表现系统间的层次给构，本模決使用TreeView控件对系鋭数据亍菅理。TreeView控件是显示Node对象的分层列表,每个Node对象均由一个标签和一个可选的也图组成。选择“工程”菜单中的“册件“金令，打开”憾性“对话框。在控件列表中,查找兵选择MicrosoftWindowsmonControls6.0o在窗体巾添加一个ImageList控件。右击此控件,选择菜单中的“属性”命令，打开“憾性页”对话框。单击"图像”选顶卡，通过单击“插入图像”和“删除图像”来编辑图像列表。在窗体中添加一个TreeView控件。右击此控件，选择菜单中的“凤性”命令，打开Mi1t页”对站框。将“图像列表”属性设置为ImageListt其他属性根据需要设置。在该SHI信息模快中,TreeView控件使用惟一的关维字来标识每一个结点,关建字的第一个字符必须是字骨。我们規定关键字的格式为“a”加上部门编号，箱果部门编号为1,则此部门在TreeView控件中的关建字为”al”.在GeneralFunc模決中，有一个自定义U程Add_DepToTree()0窗体布局窗口开机后进人VB6.0ft境下，双击赁信用管理系筑图标，梢候出现登录消息框，如图所示:科信车藕81赁菅•… 费缺省用户密码为"88888",沽及时偃改以防盜幷□启动时打开读卡机图2.2.1在输人框中依次输入用户的用户名和口令，然后按下111车S(Enter)或者用鼬惊单击“确认”按01,在用户名和口令均正确的悄况下，就可以顾利进人本系貌，此时如果想退岀系筑请点击“取消”按钮。2.代码设廿DimhwndlAsLong'用户登陆后成功显示各标签PrivatesubFormActivateOIf用户登B.Falg=1ThenLabell.Visible=True:Label2.Visible=TrueLabel3.Visilel=True:Label2.Visible=TrueEndIfEndSubPrivateSubFormclick()If用户登PJ.FalgolThen用户登陆.ShowEndIfEndSubPrivateSubFormKeyPress(keyAsciiAsInteger)IfKeyAsciioOThen用户登陆.ShowEndIfEndIfEndSubPrivateSubFormLoad()DimAAsStringDimBAsIntegerA=Me.hwndB=0DisabledA,BMe.Left=0:Me.Top=0Label1.Visible=False:Label2.Visible=FalseLabel3.Visible=False:Label4.Visible=FalsePrivateSubTextlKeyPress(KeyAsciiAsInteger)DimXASIntegerIfKeyAscii=13ThenIfTextl<>MThenTotal=Total+1IfTotal>2ThenMsgBox“对不起。您无权使用本系筑!OpenApp.Path+UScreen.txtForInputAs#1Input#1,apiRECT.RightClose#1CallSetWindowPos(hwndl,0,0,0,0,0,swpSHOWWINDOW)SelectCaseapiRECT.RightCase1024SetDisplayMode1024,600,16Case800SetDisplayMode800,600,16Case640SetDisplayMode640,480,16EndSelectUnloadMeEndEndIfMsgBox^^您的密码不正确，请重新输入密码！,Text1=“”ElseDoEventsFslg=1UnloadMeEndIfEndIfEndSub2.2.2基本信息管理模块设计基本信息管理具体的设iUUT：基本信息的SS：系貌管理员可以对客户进行查找（按客户XX）该客户（司机）的信息和相关驾驶信息、添加（按客户编号：基本信息、抵押担保信息驾照信息和附加描述）、修改（选中）、删除、加人会员（添加客户基本信息、§照信息、抵押担保信息和会员信息）等操作。二主要018：BH务信息管理,类塑信息管理,汽车信息管理;【系緞置】瞎P詞】【基本隨】噬合业知【查询报表】【统计排创【豔裁】【蘇鹤置】【帮助】图2.2.2逍人系统1）.H务信息菅理包祐：修理「设置,加油站戏置,保险类型设置;修理厂设置;系鋭管理员可以对车辆的类塑（类型名和具体描述）进行添《!、修改、K除等操作;图2.2.3图2.2.3修理厂加油站投置;设置客户的加油IfjgSE系站点。添加,修改，删除。牟官理系统——加油姑设置添加修改删除牟官理系统——加油姑设置添加修改删除加油站：中国石化 加油站名称上I中国石化图2.2.4M油站3,保险类里设置；系筑菅理员可以对汽车JS售商进斤査询（按59售商名称）、添加、

修改（对已经选中的记录）、删除和査看已经術售的汽车的相关则买信息等操作；系统

管理员可以对进行查询（按保险公司名）保险公司的具It信息、潘加、修改（对已经选

中的记录）、删除保险公司信息和査看已经投递保险的汽车的相关投保信息等操作;系

统管理员可以对本公司所有的汽车进行査找（车牌）该车的信息和相关祁赁信息、添加

（基本信息、保险信息、租赁信息和附加描述）、修改（选中）、K除的操作;卒卒IWB低笛理系SE——保瞼美…・退出人寿保险保险类型勺人寿煤险退出人寿保险保险类型勺人寿煤险图2.2.5保险类里2,类型信息管理：系统管理员可以对车辆的保险类塑（保险的类里名和洋细的描述）进行添加、修改、删除等操作；色播汽车类型，汽车名称。1）汽车类型；输人汽车的类型。以便于管理汽车配件。图226汽车类型车图226汽车类型车iwea赁管理系统一汽牟类••.2）、汽车名称；系统管理员可以会员对进行查找（按会员XX）该客户（司机）的信息和相关驾驶信息、修改（选中：基本信息、驾照信息、抵押担保信息和会员信息）、删除BO注IS会员等操作汽车信息fS：系统管理员可以对客户进行査找（按客户XX）该客户（司机）的信息和相关驾驶信息、添加（按客户编号：基本信息、抵押担保信息、驾照信息和附M描述）、修改（选中）、删除、加人会员（添加客户基本信息、驾照信息、抵押担保信息和会员信息）等操作。包站会员类塑，证件类塑,燃曲类塑，租车模式。1）会员类型；系筑管理员可以对会员类型添加（类里名称和折柏率）、修改（选中）、K除等相关操作;2） il件类塑：各汽车81赁公司想查找以前的汽车81赁信息，单击车辆S1赁查沟按钮,弹出如下图所示的窗口。录入部分限翎条件后,单击liOfflo3） 燃油类塑：客户用的燃油类塑输入操作。4） ffl车模式：aiSNffl,Bffl,月相，周和。系统全面。223数据库诉同技术DAO即数据诉同对象是VB最早弓|入的数据诉问技术。与上述建立在数摒控件上的数据折问不同，DAO可以完不用数据控件而只引用程序代网来创建完整的数据库应用程序。利用DAO可以前问数据库中所有对象，并灵活地操纵数据进行编辑操作。在VisualBasic.6.0中使用的是面向对象的模塑，但是，众所周知,在数据库領域里,到目前为止流行的依然是关系模塑，至今还没有郦一种数摇库产晶是真正总义上的面向对象，而面向对象模型与关系模塑Qlfl乎不能敝在一起很加调地工作。这就更加夫了试图用类的方法来前问数据库系统的难度。为T測试这个类，新建一个WindowsApplcation,命名为DBCIassoVB支持DataAccessObjects（DAOs）的子集。DAO的方法虽然不是性能最好的管理客户机一聯务器之同的对话方式，但它的确有许多优点。DAO/Jet是为了实现UVBffi冋Access数据库而开发的程序接口对象。使用DAOs前间SQLServer的过程如下：应用程序准备好培旬并送至Jet,Jet引¥(MASJT200.DLL)优化查询，我入驱动程序管理器并与之通讯,驱动程序管理器(ODBC.DLL)通过调用驱动器(SQLSRVR.DLL)的函数,实现连接到数据源，翻译并向SQLServer提交SQLj§旬且逋回结果。下面是一个用DAOsjjj间SQLServer的VB实例o注释：FormDeclarationsDimmydbAsDatabaseDimmydynasetAsDynasetPrivateSubForm_Load()Setmydb=OpenDatabaseC",False,False,"ODBC;DSN=Myserver;WSID=LCL;DATABASE=sales")Setmydynaset=mydbCreateDynaset("Select*fromCustomers")EndSub2.3系统运行与胃试汽车ffl赁管理系统针湘的是机动车S1赁公司在向客户提供岀ffl车辆服务过程中面对的各种冋櫃，对其业务信息进行自动化、信息化处理,使车辆租赁菅理变得规X、快捷、高效。为規X操作流程，降低劳动强度使相赁业务走向标准化和科学化，设计开发了这套管理系裁,它的使用将有利于提高S1赁公司的劳动生产率，节约生产成本，增加经济效益，希望它能为业内人员的工作提供一定的帮助。针对目前夫多数汽车赁行业设it开发的一套管理系统，操作简单，查询报表丰富。包含了汽车ffl赁过程中的多数细节：预租、租车、续租，还车、址修、加油、事故登记、车辆及司机信息，客户信息，会员信息以员会员的分类等。并可分类貌廿查询，日收人、月收人，总收人，司机，车辆，会员以及客户报表等而且针对数弼库的安全，系统添加了数据库的备价和还原。本系统采用中文VisualBasic6.0运行坏境平台,Office2000中的Access为数据库,VisualBasic6.0为开发工具,軟件开发在WindowsXP平台下运斤,基于各方面的研究，同时针对机动车ffl赁公