汽车租赁管理系统的设计说明书

1、.wd.wd.wd.汽车租赁管理系统的设计摘要：最近这些年,计算机技术和数据库技术向成熟化开展，社会的各个领域 根本上都开场在应用信息管理系统。汽车租赁管理系统就是以信息系统为根基开发出来的。本文主要介绍了Visual Basic 6.0和Access的一般性原理，详细的论述了该系统是若何生成的，展示了整个系统的制作步骤以及阐述了它的工作原理；设计包含以下几个程序模块：系统用户管理、 根本信息管理、会员管理等，分析了系统的可行性并解决了可能存在的问题。关键词：数据库；Visual Basic 6.0；汽车租赁管理Design of car rental management systemAbs

2、tract：In recent years, with the development of the technology of computer and database, information management system has stretched into every field of our society. Based on thedevelopment theory of the information management system then developed another management system- the automobile lend-lease

3、.This paper mainly introduces the develop background of the system and the basic theory of Visual Basic 6.0 and Access Visual. It tells the structure of the automobile lend-lease management system and its working theory; it analyzes the specialty, difficulty and important things in system realizatio

4、n. The design realizes the management of the system users, the basic information, the business, and the members management.Keywords: Database;Visual Basic 6.0;The automobile lend-lease management目录TOC o 1-3 h u HYPERLINK l _Toc394672690第一章绪论 PAGEREF _Toc394672690 h 1 HYPERLINK l _Toc394672691 1.1系统背

5、景 PAGEREF _Toc394672691 h 1 HYPERLINK l _Toc394672692 1.2系统功能简介 PAGEREF _Toc394672692 h 1 HYPERLINK l _Toc394672693 1.3开发工具 PAGEREF _Toc394672693 h 1HYPERLINK l _Toc3946726941.3.1.VisualBasic6.0简介 PAGEREF _Toc394672694 h 1HYPERLINK l _Toc3946726951.3.2Access2003简介 PAGEREF _Toc394672695 h 2HYPERLINK

6、l _Toc3946726961.4可行性研究与需求分析 PAGEREF _Toc394672696 h 2HYPERLINK l _Toc3946726971.4.1可行性研究3HYPERLINK l _Toc3946726981.4.2需求分析3HYPERLINK l _Toc394672699第二章系统分析4HYPERLINK l _Toc3946727002.1数据库管理系统简介4HYPERLINK l _Toc3946727012.2 ADO数据库访问技术4HYPERLINK l _Toc3946727022.3系统功能分析研究5HYPERLINK l _Toc3946727032.

7、4数据字典6HYPERLINK l _Toc3946727042.5数据库各表的数据构造7HYPERLINK l _Toc394672705第三章系统功能设计 PAGEREF _Toc394672705 h 13HYPERLINK l _Toc3946727063.1登录功能模块设计 PAGEREF _Toc394672706 h 13HYPERLINK l _Toc3946727073.2主程序界面设计 PAGEREF _Toc394672707 h 14HYPERLINK l _Toc3946727083.3根基数据管理模块的实现 PAGEREF _Toc394672708 h 15HYP

8、ERLINK l _Toc3946727093.3.1车辆和保险类型管理窗体的设计 PAGEREF _Toc394672709 h 15HYPERLINK l _Toc3946727103.3.2汽车销售商管理窗体的设计 PAGEREF _Toc394672710 h 16HYPERLINK l _Toc3946727113.3.3保险公司管理窗体的设计 PAGEREF _Toc394672711 h 17HYPERLINK l _Toc3946727123.3.4车辆管理窗体的设计 PAGEREF _Toc394672712 h 18HYPERLINK l _Toc3946727133.4

9、客户会员管理模块的实现 PAGEREF _Toc394672713 h 19HYPERLINK l _Toc3946727143.4.1客户信息管理窗体的设计 PAGEREF _Toc394672714 h 19HYPERLINK l _Toc3946727153.4.2会员信息管理窗体设计20HYPERLINK l _Toc3946727163.4.3会员类型管理窗体设计 PAGEREF _Toc394672716 h 22HYPERLINK l _Toc3946727173.5 日常业务管理模块的实现 PAGEREF _Toc394672717 h 23HYPERLINK l _Toc39

10、46727183.5.1 汽车租赁管理窗体设计 PAGEREF _Toc394672718 h 23HYPERLINK l _Toc3946727193.5.2 汽车归还管理窗体设计 PAGEREF _Toc394672719 h 24HYPERLINK l _Toc394672720第四章完毕语 PAGEREF _Toc394672720 h 26HYPERLINK l _Toc394672722参考文献 PAGEREF _Toc394672722 h 27第一章 绪论1.1系统背景如今，人们生活的水平在不断的提升，汽车已进入千家万户。一种新兴行业迅速崛起于消费市场，并成为最具潜力的行业，这

11、就是汽车租赁。现在的社会，人人视时间为金人民币，加快生活节奏，提高生活效率刻迫在眉睫。因此，出现了一种被人们广泛承受的选择，即向汽车公司租赁汽车。这种社会需求带动了汽车租赁公司的开展，使其业务量迅速提升起来。然而，租赁公司以人工方式来处理业务信息时，还是会出现了很多问题，其中典型的弊端就是管理混乱，效率低下，失误增多。通过反复的实践，在租赁行业中借助计算机引入信息管理的重要性被越来越多的租赁公司所熟知，为了改善信息管理，提高服务质量，汽车租赁行的业主们开场不断提高自身素质，同时在工作中加大投入高科技。 众所周知，车辆信息以及客户信息是多而且杂的，为了对这些信息进展科学合理的管理与分析，我们设计

12、开发出了汽车租赁管理系统。该系统主要包括以下几个内容：车辆的 根本信息、车辆的出租状态、车辆的投保情况、客户信息的管理等。该系统的开发 根本满足了汽车租赁行业对信息的需求。1.2系统功能简介 汽车租赁公司向客户提供各种服务时，会面临许多问题，为了有效地解决这些问题，我们开发的汽车租赁管理系统能够自动处理公司的业务信息，这样一来，车辆租赁管理就会变得高效率。此系统有以下几个功能：客户信息管理、车辆信息管理、汽车租赁归还管理、会员类型管理、会员信息管理、保险公司管理、汽车销售商管理等。同时还可以对这些管理进展添加、修改、删除、查询等操作。1.3开发工具1.3.1.VisualBasic6.0简介V

13、isualBasic是一种构造化的编程语言1，它把一个应用程序开发坏境完整的集成在一起，且具有功能强大。它最大的特点就是操作简单、易学、实用，使程序设计简单化。“visual即GUI,指的是开发图形用户界面的一种方法。只要在屏幕上加上事先建设好的对象，一点即可，界面的外观以及位置不需要通过编写大量的代码去实现。“Basic是一种语言，在整个计算机技术开展史上，它有着举足轻重的的地位。 另外，在VisualBasic中引入了控件的概念，控件在windows中随处可见，我们平时所熟知的按钮，文本框都属于控件。 VisualBasic是数据库工具，它不但可以集成，还具有可视性。VisualBasic

14、6.0提供了一整套工具，在任何应用程序中都可以通过它来集成数据库。ADO等数据库工具可以通过它来修改，也可以通过它来设计。如果表格和报告绑有数据的话，那我们也可以通过拖放方式创立这些表格和报告。1.3.2Access2003简介 MicrosoftAccess数据库管理系统基于Windows平台，是MicrosoftOffice系列应用软件其中的一局部2。传统数据库管理软件所具有的功能它都具备，另外与Internet的集成进一步加强，如此一来，Access数据库的内容用户可以借助这个媒介来共享。这一系列的改良使得它功能齐全，操作简单，使用便捷。 Access 2003由Microsoft公司出

15、品。它的设计介面简洁直观，不用编写程序。 Access2003由如下组成： 资料表：是Access储存资料的地方,所有资料都来源于此，每个资料库至少都有一个资料表。 查询：根据用户的需要，提取出对用户有用的资料。 表单：是一个操作画面，可以让使用者完成输入，查询，修改资料的操作。 报表：一种制作工具，可以通过它将资料库里的资料做成有价值的画面资料。 资料页：当我们把资料发至网路的时候，需要经过资料页这个桥梁才能完成。HTML档会在资料页的建设完成以后，自动生成在资料库档案外。巨集：它会自动建设简单易操作的资料指令，执行一系列的动作。主要应用在一些频率较高的动作上，当使用者自定义工作环境时也用它

16、。模组：开发应用系统的工具。使用者可以根据自身具体需求去控制系统。1.4可行性研究与需求分析1.4.1可行性研究 我们通过调研，发现，以往的汽车租赁管理系统需要重新构架整个系统，才能进展功能模块的修改。这不仅增加了后期系统更新和维护的难度，也浪费财力物力。本系统在 根本信息管理模块和日常任务模块里面，可以增加、删除、修改车辆、客户以及驾驶员的信息。对租赁和归还信息的管理也在日常任务模块中一一实现。我们还可以在根基数据管理中打印租赁合同，这个做的非常周到细致，也切合实际情况。 本系统 根本特点包括以下内容：操作便捷，用户界面简洁；可实现企业程序化、条理化、标准化、高效化的管理；提供及时、可靠的数

17、据资料，并自动对数据进展分析；多数操作选项采用人工选择的方式，防止了用户记忆一些不必要的指令，减轻用户操作负担。1.4.2需求分析汽车租赁管理系统简化了客户租车过程，又使得租赁公司信息走上更标准，易管理的道路，让租赁公司能更好的为客户服务，且在工作上节约了大量的时间和精力。 本系统最后确定的整体方案，是经过了短期的可行性市场调查，同时分析了所有的可行性，并通过长期的实践操作，综合了各项软件指标。在这些前提都满足的情况下认真完成了该系统的设计与开发。第二章 系统分析2.1数据库管理系统简介数据库是计算机科学里最重要的一个分支，它奠定了信息管理系统的根基。长期储存在计算机内的数据，最后集合成数据库

18、。在数据库中，我们对数据的组织、描述以及存储是根据固定的数据模型来进展的。它的数据独立性高，冗余度小、容易扩展，用户都可以共享。MicrosoftSQLServer3、MicrosoftAccess等数据库操作系统为数据库的建设，使用和维护进展配置的时候都是在它的支持下进展的。数据库系统是一层数据管理软件，它的位置在用户和操作系统中间，我们以操作系统为根基，管理并控制数据库。另外，也可以直接利用数据库管理系统提供的一系列现成的命令，实现对数据库的 根本操作如建表、向表中添加记录、删除记录和修改记录等。通过数据库管理系统，用户可以使用各种数据库命令，也可以运行数据库应用程序。另外，该系统还得确保

19、数据的安全以及数据的完整，多用户对数据库的并发使用以及发生故障后系统的回复等任务。 在信息资源已成为财富源泉的今天，一个企业或是组织想要得到存在与开展，就必须对信息进展准确的处理，一个满足各个部门信息处理要求的信息系统也因此应运而生。因此，作为信息系统核心，数据库已得到越来越广泛的应用，新的应用领域采用数据库存储和处理信息资源。2.2 ADO数据库访问技术Visual Basic是一种面对用户的编程工具4-9，它的语言通俗易懂、使用起来灵活，方便。因此它越来越多的用作数据库应用程序的前端开发工具。在VisualBasic中，可以通过ActiveX数据对象，数据访问对象，ODBC直接连接到数据库

20、。其中ADO是使用起来更加简单，灵活的对象模型。本系统就是基于这种技术开发的。ADO在工程的创立过程中的操作的方式如下10：1、连接到数据源。2、指定命令，不但可以带变量参数而且能优化执行。一般情况下涉及到的都是ADO的Command对象。3、执行命令，例如一个SELECT脚本。4、如果这个命令中的数据按表的返回形式是按行进展的话，那么这些行将存储在缓存中，这个缓存区有个优势，就是它方便检查，易于操作和更改。5、有些时候，更新数据源时，我们可以把缓存行的更改内容重新写回到数据库中。 6、提供一些对比常见的，常规的方法来检测ADO在创立过程中出现的错误，涉及到的对象是ADO的Error。2.3系

21、统功能分析研究开发人员通过对市场需求的具体调研和分析,确定本系统应具备以下几个功能模块：根基数据管理、系统管理、日常业务管理、客户会员管理等.下面向大家一一介绍一下各个模块的功能特点。1、根基数据管理模块 该模块可以添加、修改、删除汽车销售公司和车保公司的相关信息，同时也可以对车辆类型和保险类型进展设置。2、系统管理模块 该模块可以修改用户登录密码，添加新用户，找回密码以及退出系统等。3、日常业务管理模块 从该模块中，我们可以查询到车辆的出租状态，审核车的完好情况，还车的功能也可在这模块里实现，另外，不仅在这个模块可以查询到租赁合同，甚至可以打印出来。4、客户会员管理模块 该模块可以设置会员的

22、等级，添加、修改、删除客户和会员的信息。图2.3.1为汽车租赁管理信息系统的系统功能构造图。图2.3.1系统功能构造图2.4数据字典数据字典作为分析阶段的工具，它把所有的数据信息集合在一起，其目的就是为了在分析设计软件的时候给人提供关于数据的描述信息11-13，在数据字典里，如果想要改良分析员和用户之间的通信，那么必须建设一组严密一致的定义才可以。这样才能消除可能的误解。数据字典里，每个数据元素都应该包含名字，别名，描述，定义，位置这五个必不可少的控制信息。数据字典中包含的每个数据元素的控制信息是很有价值的。当我们列出了使用一个给定的数据元素的所有程序的时候，那么我们就很容易估计出，有一个数据

23、发生变化时，将会产生什么样的影响，那么我们就能够对所有受影响的程序或者模块做出相应的调整。本系统的数据字典如下：1、名字：car别名：车辆信息描述：车辆的购置、保险、技术信息、使用、价格等信息。定义：car= carno+cartype+arname+color+oilno+engineno+carcase+saleid+buydate+insurno+insured+insurtype+insurSdate+insurEdate+deposit+dayprice+weekendprice+weekprice+monthprice+Daykm+overtimeprice+overkmprice

24、+status+comment位置：车辆管理，汽车租赁，车辆归还2、名字：users别名：用户信息描述：系统用户的名称定义：users=username+userpwd位置：用户信息 3、名字：customer别名：客户信息描述：记录客户的名字，年龄，联系方式等各种信息定义：customer=id+name+sex+age+idcard+telephone+workplace+address+zipcode+email+licenseno+licensetype+gedate+expiredate+diverage+flag+typeid+certificate+warrantor+wildc

25、ard+wworkplace4、名字：membertype别名：会员类型描述：记录会员类型的编号，名称，折扣率定义：membertype=id+typename+rate位置：会员类型定义，会员信息，汽车租赁，车辆归还5、名字：company别名：公司信息描述：车保公司和车辆销售商的公司名称，公司地址，公司的联系方式等信息定义：company=id+company+telephone+zipcode+fax+address+email+contact+typeid+comment位置：销售商信息，车保公司的信息，车辆的信息 6、名字：types别名：类型信息描述：车辆品牌类型以及保险种类定义：

26、types=id+typename+typeid+description 7、名字：lease别名：租赁业务信息描述：合同编号，租赁模式。租还车时间等业务信息定义：lease=contractno+carno+custid+leasetime+leasemode+price1+price2+workdays+weekendcount+deposit+daykm+oprice1+oprice2+returntime+returnkm+othercost+rate+dayment+total+status+createdate+username+realtime位置：车辆租赁，车辆归还2.5数据库

27、各表的数据构造本系统的数据库名称命名为CarMIS，它包括：用户信息表users车辆信息表Cars公司信息表Company客户信息表Customer车辆和保险类型信息表Types会员类型信息表MenberType租赁信息表Lease。各表数据构造如下：表2.5.1 用户信息表的数据构造表名：Users 说明：用户信息表字段名类型大小空值描述Usernamenvarchar20用户名userpwdnvarchar40用户密码表 2.5.2 车辆信息表的数据构造表名：Cars说明：车辆信息表字段名类型大小空值描述Carnonvarchar20Y汽车编号Typeidsmallint2Y烈性编号car

28、namenvarchar50Y汽车名称colornvarchar20Y颜色oilnonvarchar30Y燃油编号enginenonvarchar50Y发动机标号carcasenvarchar50Y车架编号Saleidint2Y销售商Buydatesmalldatetime10Y购置日期Insurnonvarchar50Y保险公司insuridint4Y保单号insurtypenvarchar50Y保险类型Insursdatesmalldatetime10Y保险开场日期Insuredatesmalldatetime10Y保险完毕日期Depositsmallint4Y押金Daypricesmal

29、lint4Y日租金Weekend-pricesmallint4Y周末日租金Weekpricesmallint4Y周租金monthpricesmallint4Y月租金daykmsmallint4Y日限公里overtimepricesmallint4Y超时单位费用overkmpricesmallint14Y超公里单位费用statusnvarchar10Y状态commentntext10Y备注表2.5.3 公司信息表的数据构造表名：Company说明：公司信息表字段名类型大小空值描述Idint4公司编号Companynvarchar100Y公司名称Telephonenvarchar50Y Zipco

30、denvarchar8Y Faxnvarchar50Y Addessnvarchar50Y地址Emailnvarchar50Y电邮Contactnvarchar50Y联系人Typeidtinyint1Y类型编号commentntext16Y备注表2.5.4 客户信息表的数据构造字段名类型大小空值描述Idnvarchar20Y客户编号Namenvarchar50Y名称表名：Customer说明：客户信息表Sexnvarchar2Y性别Agesmallint2Y年龄Idcardnvarchar30Y会员卡号Telephonenvarchar30Y Workplacenvarchar30Y工作地点A

31、ddressnvarchar50Y地址Zipcodenvarchar50Y Emailnvarchar10Y电邮Licensenonvarchar30Y驾照IDLicensetypenvarchar20Y驾照类型Getdatenvarchar20Y驾照获得日期Expireddatenvarchar20Y驾照过期日期Driveragesmallint2Y驾龄Flagtinyint2Y折扣Typeidint4Y会员类型编号Certificatenvarchar40Y抵押证件Warrantornvarchar50Y担保人Widcardnvarchar30Y担保人身份证wworkplacenvarch

32、ar100Y担保人工作地点表2.5.5 车辆和保险类型信息表的数据构造表名：Types说明：车辆和保险类型信息表字段名类型大小空值描述Idint4编号typenamenvarchar50Y类型名称Typeidtinyint2类型编号descriptionnvarchar100Y描述表2.5.6 会员类型信息表的数据构造表名MemberType说明：会员类型信息表字段名类型大小空值描述Idint4会员编号Typenamenvarchar20Y类型名称Ratereal8Y享受折扣表 2.5.7 租赁信息表的数据构造表名：Lease说明：租赁信息表字段名类型大小空值描述Contracnonvarch

33、ar50Y合同编号Carnonvarchar20Y车辆编号Custidnvarchar20Y客户编号Leasetimesmalldatetime10Y租赁日期Leasemodenvarchar10Y租赁方式Price1smallint4Y价格1Price2smallint4Y价格2Workdayssmallint2Y工作天数Weekendcountsmallint2Y周末天数Depositint4Y押金Daykmsmallint2Y超限时间数Outkmsmallint4Y超限费用Oprice1smallint4Y日限时间超限费用Oprice2smallint4Y日限公里超限费用Returnti

34、mesmalldatetime10还车时间returnkmint4实际公里Othercostint4Y其他费用Ratereal4Y享受折扣Paymentint4实际支付Totalint4费用总额Statusnvarchar10Y状态Createdatesmalldatetime10创立日期Usernamenvarchar20经办人realrtimesmalldatetime10Y实际还车时间第三章 系统功能设计3.1登录功能模块设计进入系统后的第一个界面是登录模块，在该模块里我们设置了身份验证功能，以提高系统的安全性。 图3.1.1为登录流程图。输入用户名和密码判断用户是否存在 N Y判断密码

35、是否正确 N Y Y登录成功图3.1.1登录流程图 图3.1.2为登录模块窗体示意图，它包括一个框架，三个标签控件，两个命令按钮以及两个文本框。图3.1.2 登陆界面它的制作过程如下：第一步：单击工程菜单命令，选择“添加窗体按钮，在新建的工程对话框里内添加一个空窗体，画出一个适当的框架。 第二步：添加两个标签控件和文本框在画好的框架内，然后把另一个标签和两个命令按钮画在下面，设置各个控件属性，最后编写源代码。3.2 主程序界面设计 主界面即用户登录成功后进入的界面。大方简洁的外观，合理的布局，便捷的操作是主界面的特征。它的窗体布局包括，菜单栏内的四个子菜单栏，工具栏内的六个按钮，它们分别连接常

36、用的功能。 菜单栏内的四个子菜单栏分别是【 根本信息管理】、【客户会员管理】【日常业务管理】【系统用户管理】，工具栏内的六个按钮分别是【类型管理】【销售商管理】【保险公司管理】【汽车租赁】【汽车归还】【会员信息】。图3.2.1为主程序界面的的示意图。图 3.2.1主程序界面主程序界面的制作过程如下： 第一步：单击新建工程按钮， 第二步：在生成的窗体上单击鼠标右键，即会弹出一个菜单栏上，在该菜单栏单击“菜单编辑器命令，翻开该编辑器。 第三步：设计好程序各级菜单。 第四步：在窗体上添加“图像列表控件，工具栏按钮所使用的图像都保存在这个控件上；在窗体上添加“工具栏控件，并把它关联至“图像控制列表控件

37、，同时参加代表耽误按钮的“按钮对象。 第五步：最后编写工具栏对应的源代码。工具栏单击事件源代码如下： Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case aa Load FrmType FrmType.Show vbModal Case bb Load FrmSales FrmSales.Show vbModal Case cc Load FrmInsurance FrmInsurance.Show vbModal Case dd Load FrmLea

38、se FrmLease.Show vbModal Case ee Load FrmReturn FrmReturn.Show vbModal Case gg Load FrmMembers FrmMembers.Show vbModalEnd SelectEnd Sub3.3 根基数据管理模块的实现3.3.1 车辆和保险类型管理窗体的设计该窗体上设有两个单项选择按钮，一个datalist控件，四个命令按钮，其窗体如以下列图所示：图3.3.1车辆和保险类型设置界面它的制作过程如下：首先，添加窗体，把各控件的位置安排好。其次，各个控件的属性分别设置好。例如：将“单项选择按钮名称属性设置成“opts

39、el,caption属性设置成“汽车型号,Indexs属性设置成“0，字体属性设置成“黑体，value值设为“True。命令按钮的设置方法和上面的方法一样。3.3.2汽车销售商管理窗体的设计 此窗体用于操作车辆销售商的信息，如：销售商名称，联系 ， ，地址， ，电子邮箱等操作。另外用户还可以根据自己选择的销售商名称，来查询该厂商旗下汽车租赁情况。窗体设计如图3.3.2：图3.3.2汽车销售商管理界面此窗体上一共有六个命令按钮，一个Datagrid控件，一个标签控件和一个文本框。 首先根据设计好的模板个添加窗体，安排好各控件的位置，把各个控件相应属性设置好，如：datagrid控件名称属性设置为

40、“datagrid1,dragmode属性设置为“1，allowaddnew属性设为“False,Allowdelete 属性设置为“False,allowupdate属性设为“False。字体设置为“黑体，Enable和Visible属性均设为“True。 其添加命令按钮单击事件源代码如下： Private Sub Cmd_Add_Click() FrmCompanyEdit.Modify = False FrmCompanyEdit.nTid = 1 FrmCompanyEdit.txtCompany = FrmCompanyEdit.lblType = 销售商 FrmCompanyEdi

41、t.txtTelephone = FrmCompanyEdit.txtFax = FrmCompanyEdit.txtAddress = FrmCompanyEdit.txtContact = FrmCompanyEdit.txtComment = FrmCompanyEdit.txtZipCode = FrmCompanyEdit.txtEmail = FrmCompanyEdit.Show 1 GridRefresh End Sub3.3.3 保险公司管理窗体的设计 此窗体用于对保险公司的信息进展查询，添加，修改和删除。如保险公司的公司名称，联系 ， ，地址， ，电子邮箱等。设计窗体如图3

42、.3.3：图3.3.3 保险公司管理界面首先根据设计好的模式添加窗体，把各控件的位置安排好，各控件的相应属性设置好，如：名称属性为“label1，alignment属性设置为“0，文本框对其方式为“两端对齐，Caption属性设置为“车保公司名称，字体设置为“黑体。查保险车辆按钮的单击事件源代码如下： Private Sub Cmd_ViewCars_Click() FrmSaleCars.nType = 2 FrmSaleCars.sSaleName = Trim(Adodc1.Recordset.Fields(1) FrmSaleCars.nSaleId = Adodc1.Recordse

43、t.Fields(0) FrmSaleCars.txtSaleName = Trim(Adodc1.Recordset.Fields(1) FrmSaleCars.Caption = 查看保险公司保险汽车 FrmSaleCars.Label1 = 保险公司名称 FrmSaleCars.Show 1End Sub3.3.4车辆管理窗体的设计 本窗体用于提供对车辆信息的添加，修改和删除功能，可处理的信息包括车辆的 根本信息如车牌号，状态，车辆类型，颜色，押金，日租金等。设计界面如图3.3.4所示： 图3.3.4 车辆管理界面3.4 客户会员管理模块的实现3.4.1 客户信息管理窗体的设计客户信息管

44、理窗体用于对客户信息如：编号、姓名、性别、年龄、驾驶证编号、驾龄等的查找、添加、修改、删除等操作。并且提供将普通客户参加会员的服务。 本窗体上一共设置有六个命令按钮，一个Adodc控件，一个Datagrid控件，一个标签控件和一个文本框。命令按钮分别为“添加“修改“删除“查找“参加会员“退出。窗体设计如图3.4.1：图 3.4.1 客户信息管理界面点击“工程菜单，选择“添加窗体，在窗体上画出所需控件，把这些控件移动至窗体内适当位置，并设置各个控件的属性，最后编写各个控件相应事件过程。如，对于命令按钮：“删除，先把该按钮放置在适宜的位置上，再将它的名称属性改为“Cmd_del，对于Caption

45、属性那么设置为“删除，字体属性设置为“黑体，Enabled和Visible属性设置为true。 进展删除操作时，首先在列表框上显示出来的客户信息条目中将要删除一条选中如果不选择，系统那么默认为选择了第一条做出选择后，单击“删除按钮，显示一个对话框，选中用户是否确认删除，选“是，那么系统从数据库中删除该项，并弹出一个信息框，告知用户操作成功。命令按钮“删除单击事件源代码如下： Private Sub Cmd_Del_Click() If Adodc1.Recordset.EOF = True Then MsgBox 请选择记录 Exit Sub End If If MsgBox(是否确定要删除

46、, vbYesNo, 请确认) = vbNo Then Exit Sub End If MyCustomer.Delete (Trim(Adodc1.Recordset.Fields(0) MsgBox 成功, vbInformation GridRefresh End Sub3.4.2 会员信息管理窗体设计 会员信息管理窗体用于对会员信息如，编号，姓名，年龄驾驶证编号，驾龄，登记日期等的查找、修改及注销功能。 本窗体上共设有四个命令按钮，一个Datagrid控件，一个标签控件和一个文本框。窗体设计如图3.4.2所示：图3.4.2会员信息管理界面 鼠标单击“工程菜单栏，选择“添加窗体按钮，在新

47、建工程内，添加一个空窗体，把窗体的名称属性设置为“Frmmembers，StartUpPosition属性设置为“2，那么窗体首次出现的位置是在屏幕中心，Font属性设置成“黑体，Caption属性设置成“会员管理。然后对其它控件的属性进展相应的设置。命令按钮“注销会员的作用是删除客户信息表中用户选定的会员条目，如果不选择的话，系统将会默认是选择了第一条选择了之后，鼠标单击“注销会员按钮，将会弹出一个对话框，该对话框会询问用户“是否确定要注销会员资格，如果选择“是的话，那么系统将会执行注销操作，同时弹出一个信息框，该信息框会显示“注销会员成功。最后，系统会更新Datagrid控件里面的会员信息

48、条目。命令按钮“注销会员单击事件源代码如下： Private Sub Cmd_OffMember_Click() If Adodc1.Recordset.EOF = True Then MsgBox 请选择记录 Exit Sub End If If MsgBox(是否确定要注销会员资格 , vbYesNo, 请确认) = vbNo Then Exit Sub End If MyCustomer.TypeId = 0 MyCustomer.UpdateToMember (Trim(Adodc1.Recordset.Fields(0) MsgBox 注销会员成功, vbInformation Gr

49、idRefreshEnd Sub3.4.3 会员类型管理窗体设计本窗体用于对会员类型的管理，即对会员等级进展分类，如，vip会员，一般会员，超级会员等，不同等级的用户享受的租赁价格的折扣不同。通过“添加功能可登记新的会员用户，及其享受的折扣，通过“修改功能可修改已有的会员类型名称及折扣。“删除功能与之前描述的“注销会员操作类似，在此不再赘述。本窗体上设置有四个命令按钮，一个Datagrid控件，窗体设计如图3.4.3： 图3.4.3 会员类型管理界面点击“工程菜单，选择“添加窗体，设置各个控件在窗体中的位置，然后设置窗体及各控件属性，最后编写窗体及各个空间源代码。当窗体载入是，触发form_l

50、oad()事件，即窗体载入事件。该载入事件的源代码： Private Sub Form_load() GridRefresh End Sub 其中，GridRefresh是一个函数调用语句，它定义在窗体模块内部，是一个私有过程。在该过程中，我们设置了Adodc控件的两个属性，它们分别是Connectionstring属性和Recordsource属性。该过程的最核心的作用是通过DataGrid这个控件，向用户显示会员类型的即存信息。3.5 日常业务管理模块的实现3.5.1 汽车租赁管理窗体设计汽车租赁模块的实现是本系统的关键，当客户提出租车要求时，租赁公 司通过系统的这一模块向数据库的Leas

51、e表中添加新的租赁记录。当车辆状态特定时，可对记录信息进展修改、删除、审核、续租等操作。车辆的状态由Lease表中状态字段指定。 本窗体上，设置了一个DataGrid控件，一个组合框，一个标签控件，八个命令按钮控件，设计窗体如图3.5.1所示：图3.5.1 汽车租赁管理界面 鼠标单击“工程菜单，添加一个新的窗体，在该窗体上设置好各控件和按钮等的位置，然后设置各个控件的属性。 当执行“添加命令时，并添加成功，那么将在DataGrid控件中显示出这条新的记录。其中“状态栏内显示为“出租。此时，我们还以可对这一条记录进展“修改、“删除操作，添加车辆出租信息以后，确定你所添数据准确无误，那么可以执行“

52、租赁审核命令。当用鼠标单击“租赁审核按钮后，将弹出一个对话框，该对话框会询问用户是否确认执行租赁审核这一命令，如果单击“是，那么车辆“状态就会变成“租赁审核，此时用户就不能“修改、“删除该条记录，但可以执行“续租命令。单击“续租以后，车辆状态就会变成“续租。在确定续租信息准确无误的情况下，那么接着就会执行“续租审核命令。 当单击“添加命令按钮后，将触发“添加命令按钮的单击事件。此时将翻开“编辑车辆出租信息窗体，如图3.5.2：图3.5.2 添加或修改租赁信息的界面 窗体上设有三个Datagrid控件和三个ADODC控件，系统将在程序执行中将ADODC控件的属性设置connectionstring和recordsource，把datagrid控件的属性设置da