汽车租赁管理系统的设计与实现

1、摘 要 近年来，随着计算机技术的成熟及数据库技术的发展，信息管理系统的应用已延 伸到社会的各个领域。以信息管理系统的开发为理论基础，开发出汽车租赁管理系统。 汽车租赁管理是汽车租赁公司开展日常运营的重要工具。传统的人工管理方式不 但浪费时间，而且管理复杂，易出差错。汽车租赁管理系统能使繁琐的数据计算、信 息处理变得简单易操作，完全实现数据信息的电算化管理。使用这套系统有助于提高 汽车租赁公司的效率，节约成本，增加经济效益。 本论文主要介绍了该系统的生成及 visual basic 6.0 和 access 的一般原理。阐述 了整个汽车租赁管理系统的制作步骤及工作原理；设计实现了系统用户管理、基

2、本信 息管理、业务管理、会员管理等程序模块；分析了系统的可行性并解决了可能存在的 问题。 关键词：数据库；visual basic 6.0；汽车租赁管理 abstract 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 the development theory of the information manag

3、ement system then developed another management system- the automobile lend-lease. the management of automobile lending and leasing play a very important role in the companys daily operation. compared with the traditional way which waste human resources and time. at the same time, it is complicated a

4、nd often runs with mistakes. while the automobile lend-lease system turn the complicated data calculation and information processing into simple instructions. not only increase the efficiency ,but the economic benefits. this paper mainly introduces the develop background of the system and the basic

5、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 realization. the design realizes the management of the system users, the basic information,

6、 the business, and the members management. keywords:keywords: database；visual basic 6.0；the automobile lend-lease management 目 录 第第 1 1 章章 绪绪 论论 .1 1 1.1 开发背景.1 1.2 系统功能简介.1 1.3 开发工具.1 1.3.1 visual basic 6.0 简介 .2 1.3.2 access2003 简介 .2 1.4 可行性研究与需求分析.3 1.4.1 可行性研究.3 1.4.2 需求分析.3 第第 2 2 章章 系统数据库设计系统

7、数据库设计 .4 4 2.1 数据库管理系统简介.4 2.2 ado 数据库访问技术.4 2.3 系统功能分析研究.5 2.4 系统功能模块图 .5 2.5 数据字典.6 2.6 数据库各表的数据结构.7 第第 3 3 章章 系统功能设计系统功能设计 .1212 3.1 登录模块设计.12 3.2 主程序界面设计 .13 3.3 基础数据管理模块的实现.14 3.3.1 车辆和保险类型管理窗体的设计.14 3.3.2 汽车销售商管理窗体的设计 .15 3.3.3 保险公司管理窗体的设计.16 3.3.4 车辆管理窗体的设计 .17 3.4 客户会员管理模块的实现.18 3.4.1 客户信息管理

8、窗体的设计.18 3.4.2 会员信息管理窗体设计.19 3.4.3 会员类型管理窗体设计.21 3.5 日常业务管理模块的实现.21 3.5.1 汽车租赁管理窗体设计.22 3.5.2 汽车归还管理窗体设计.24 结结 论论 .2626 致致 谢谢.2727 参考文献参考文献 .2727 附录附录 程序代码程序代码.2929 第 1 章 绪 论 1.1 开发背景 今天，随着人民生活水平的不断提高，汽车已不再遥不可及，汽车租赁作为一种 全新的消费模式已成为一个极具市场潜力的行业，它不仅可以有效的疏通汽车生产与 汽车销售之间的“瓶颈” ，而且对汽车消费市场的扩展有着不可低估的功效。在这个 “时间

9、就是金钱”的社会，加快生活节奏，提高生活效率刻不容缓。因此在必要的时 候向汽车出租公司提出租赁车辆的要求，已成为被大众认可的选择。在社会需求的带 动下，汽车租赁市场出现了前所未有的繁荣景象。各个汽车租赁公司门庭若市，业务 激增。然而在繁忙的景象背后，却也暴露出汽车租赁公司在处理业务信息时以人工方 式为主所带来的诸如：效率低下，管理混乱，失误增多等诸多弊端。在实践中，汽车 租赁行业的业主们逐渐意识到在租赁行业中借助计算机引入信息管理的重要性，并开 始不断提高自身的素质和高科技在工作中的投入，以改善信息的管理，提高服务效率。 汽车租赁管理系统就是对车辆信息和客户信息的管理，主要包括车辆的基本信息、

10、 车辆的出租状态、车辆的投保情况、客户信息的管理等。它的设计开发充分按照汽车 租赁的实际业务流程，结合了租赁行业的实际运营特点，满足汽车租赁行业的信息化 需求。 1.2 系统功能简介 汽车租赁管理系统针对的是汽车租赁公司在向客户提供出租车辆服务过程中面对 的各种问题而开发的，对其业务信息进行自动化、信息化处理，使车辆租赁管理变得 高校、快捷、规范。此系统具有完善的功能，使用轻松方便，易于维护，适应性强。 包括客户信息管理、车辆信息管理、汽车租赁归还管理、会员类型管理、会员信息管 理、保险公司管理、汽车销售商管理等。具有添加、修改、删除、查询等功能，通过 这些管理模块，可以使汽车租赁服务更加清晰

11、，更加便捷，提高了服务质量，减少了 操作人员的工作量。希望它能为业内人员的工作提供一定的帮助。 1.3 开发工具 1.3.1 visual basic 6.0 简介 visual basic 是一种结构化的编程语言，它集成了一个完整且功能强大的应用程 序开发环境。操作简单易学，使程序设计不再复杂。 “visual”指的是开发图形用户界 面（gui）的方法。不需编写大量代码去描述界面元素的外观和位置，而只要把预先建 立的对象加到屏幕上，一点即可。 “basic”是一种在计算机技术发展历史上应用的最 为广泛的语言。 另外，在 visual basic 中引入了控件的概念，在 windows 中控件

12、的身影无处不在， 各种各样的按钮，文本框等都是控件。visual basic 把这些控件模式化，并且每个控 件都有若干属性用来控制控件的外观以及工作方法。 visual basic 是具有集成的可视化数据库工具，visual basic 6.0 提供了一整套 工具以在任何应用程序中集成数据库。它可用来设计和修改 ado 等数据库工具，也可 用拖放方式创建绑有数据的表格和报告。更重要的是 visual basic 简单、易学、实用， 深受广大编程爱好者的喜爱。 1.3.2 access2003 简介 microsoft access 数据库管理系统是 microsoft office 系列应用软

13、件的一部分， 是基于 windows 平台的数据库管理系统，它操作简单、功能全面、使用方便，不仅具 有传统数据库管理软件所具有的功能，同时还进一步增强了与 internet 的集成，用户 可以通过 internet 共享 access 数据库。access 具有强大的数据管理功能，可以方便 地利用各种数据源，生成窗体（表单） 、查询、报表和应用程序等。1 access2003 是 microsoft 公司出品的关联式资料库套装软体。它提供视觉化的设 计介面，不必撰写程式，即可快速，简单地开发出美观实用的资料库管理系统。 access2003 由如下组成： 资料表：为 access 储存资料的地

14、方，亦为资料的根本来源，一个资料库至少要存在一 个资料表。 查询：可依使用者需求，以一些限制条件（筛选,过滤）来选取资料表中。 表单：建立一个让使用者输入，查询，修改资料的操作画面。 报表：将资料库里的资料运用报表做成有利用价值的画面资料。 资料页：为 access2003 的新增物件，资料发布至网路的媒介。此物件完成建立后，将 会在资料库档案外，再产生一个 html 档。 巨集：建立简单的资料操作指令与将一连串的执行动作自动化。应用于一些重复性高 的动作或者用于使用者自订工作环境上。 模组：开发应用系统的工具。是让使用者能更随心所欲的去控制系统。 1.4 可行性研究与需求分析 1.4.1 可

15、行性研究 通过对部分用户和部门的调查研究表明，传统的租赁管理系统，在后期维护和更 新上比较麻烦，如果对功能模块进行修改，需要对整个系统进行重新架构才能实现。 本系统在基本信息管理模块中实现了对车辆、客户、驾驶员等信息的增加、删除、修 改等功能。在日常任务模块中，实现了对租赁和归还信息的管理。在基础数据管理中 还涉及了租赁合同的打印，非常周到，贴合实际。 本系统具有：操作简便、灵活，用户界面直观；可实现企业管理程序化、条理化、 规范化、高效化；提供及时、可靠的数据资料，并自动对数据进行分析；多数操作选 项采用人工选择的方式，避免了用户记忆一些不必要的指令，减轻用户操作负担。 1.4.2 需求分析

16、 开发汽车租赁管理系统的目的就是为了使租赁公司能够更好的为客户服务且工作 不需要花费大量的时间和精力。这不但使客户租车过程简化、快捷，还能使租赁公司 信息更规范，易管理.综上所述,公司不再需要过多的人员去管理繁杂的资料，既节省 了办公效率、降低了成本,还节省了客户的时间。 本系统经过短期的可行性市场调查与分析工作及长期实践操作，最后确定整体系 统方案，在综合各项软件指标的前提下认真完成。 第 2 章 系统数据库设计 2.1 数据库管理系统简介 数据库是信息管理系统的基本技术，是计算机科学的重要分支。数据库 （database，db ）是指长期储存在计算机内的、有组织的、可以共享的数据集合。数

17、据库中的数据按一定的数据模型组织、描述和储存，具有较小的冗余度、较高的数据 独立性和易扩展性，并可以为各种用户共享。数据库管理系统是在操作系统的支持下， 为数据库的建立、使用和维护而配置的软件环境，如microsoft sql server、 microsoft access等。数据库系统是位于用户与操作系统之间的一层数据管理软件， 它在操作系统的基础上，对数据库进行管理和控制，利用数据库管理系统提供的一系 列命令，用户能方便地实现对数据库的基本操作（如建表、向表中添加记录、删除记 录和修改记录等） 。 用户使用的各种数据库命令以及数据库应用程序的运行，都要通 过数据库管理系统来实现；另外，数

18、据库管理系统还要保证数据的安全性，完整性， 多用户对数据库的并发使用以及发生故障后系统的回复等任务。 在信息资源已成为各个部门的重要财富和资源的当下。开发一个满足各个部门信 息处理要求的信息系统也因此成为一个企业或组织生存和发展的重要部分。因此，作 为信息系统核心，数据库已得到越来越广泛的应用，新的应用领域采用数据库存储和 处理信息资源。对于一个国家来说，数据库的规模、信息量的大小和使用频度已成为 衡量这个国家信息化程度的重要标志。 2.2 ado 数据库访问技术 visual basic 作为一种面向对象的可视化编程工具，具有简单易学、灵活方便 易于扩充的特点。因此它越来越多的用作数据库应用

19、程序的前端开发工具。在 visual basic 中，可以通过 activex 数据对象(ado)，数据访问对象(dao)，odbc直接连接到 数据库： 其中 ado 是最新的数据库访问技术。它是使用更加简单，灵活的对象模型。本系 统就是基于这种技术开发的。ado 在工程的创建过程中提供执行以下操作的方式： 1、 连接到数据源。 2、 指定访问数据源的命令，同时可带变量参数或优化执行。通常涉及 ado 的 command 对象。 3、 执行命令，例如一个 select 脚本。 4、 如果这个命令使数据按表中行的形式返回，则将这些行存储在易于检查、操 作 或更改的缓存中。 5、 适当情况下，可以

20、把缓存行的更改内容写回数据库中，更新数据源。 6、 提供常规方法检测错误（错误通常由建立连接或执行命令造成） ，涉及 ado 的 error 对象。 2.3 系统功能分析研究 本系统通过对市场需求的具体调研和分析,确定本系统应具备系统管理基础数据管 理、客户会员管理、日常业务管理等模块的功能.下面具体分析一下各个模块的功能。 1、系统管理模块 该模块可以完成修改用户密码，添加新用户，设置密码以及退出系统等操作。 2、基础数据管理模块 在这个模块中，可以设置车辆类型和保险类型，而且还可以对汽车销售商，车辆 的保险公司进行管理，如添加，修改和删除等操作。 3、客户会员管理模块 在这个模块中，可以设

21、置会员的级别以及添加，修改，和删除客户和会员的信息。 4、日常业务管理模块 在这个模块中可以完成车辆的出租，审核以及还车的操作，而且可以查询和打印 租赁合同。 2.4 系统功能模块图 汽车租赁管理信息系统的系统功能结构图如图 2.1 所示。 图 2.1 系统总体功能设计 2.5 数据字典 数据字典是关于数据信息的集合，它为分析阶段的工具，其作用就是在软件分析 和设计的过程中给人提供关于数据的描述信息，在数据字典中，建立一组严密一致的 定义很有助于改进分析员和用户之间的通信，因此将消除可能的误解。数据字典主要 应该包括的每个数据元素的控制信息有：名字，别名，描述，定义，位置。数据字典 中包含的每

22、个数据元素的控制信息是很有价值的。因为列出了使用一个给定的数据元 素的所有程序（ 或者模块） ，所以很容易估计改变一个数据将产生的影响，并且能对 所有受影响的程序或者模块做出相应的调整。 本系统的数据字典如下： 1、名字：car 别名：车辆信息 描述：车辆的购买，保险。技术信息。使用，价格等信息。 定义： car= carno+cartype+ arname+color+oilno+engineno+carcase+saleid+buydate+insurno+insured +insurtype+insursdate+insuredate+deposit+dayprice+weekendpr

23、ice+weekprice +monthprice+daykm+overtimeprice+overkmprice+status+comment 位置：车辆管理，汽车租赁，车辆归还 2、名字：users 别名：用户信息 描述：系统用户的名称 定义：users=username+userpwd 位置：用户信息 3、名字：customer 别名：客户信息 描述：记录客户的名字，年龄，联系方式等各种信息 定义： customer=id+name+sex+age+idcard+telephone+workplace+address+zipcode+emai l+licenseno+licensetyp

24、e+gedate+expiredate+diverage+flag+typeid+certifica te+warrantor+wildcard+wworkplace 4、名字：membertype 别名：会员类型 描述：记录会员类型的编号，名称，折扣率 定义：membertype=id+typename+rate 位置：会员类型定义，会员信息，汽车租赁，车辆归还 5、名字：company 别名：公司信息 描述：保险公司和车辆销售商的名称，地址，联系方式等信息 定义： company=id+company+telephone+zipcode+fax+address+email+contact+

25、typeid+co mment 位置：销售商信息，保险公司信息，车辆信息 7、名字：types 别名：类型信息 描述：车辆品牌类型以及保险种类 定义：types=id+typename+typeid+description 8、名字：lease 别名：租赁业务信息 描述：合同编号，租赁模式。租还车时间等业务信息 定义： lease=contractno+carno+custid+leasetime+leasemode+price1+price2+workdays +weekendcount+deposit+daykm+oprice1+oprice2+returntime+returnkm+ot

26、hercos t+rate+dayment+total+status+createdate+username+realtime 位置：车辆租赁，车辆归还 2.6 数据库各表的数据结构 本系统数据库名称为carmis，数据库中包括：用户信息表（users）车辆信息 表（cars）公司信息表（company）客户信息表（customer）车辆和保险类型信 息表（types）会员类型信息表（menbertype）租赁信息表（lease）。各表数据 结构如下： 表 2.1 用户信息表的数据结构 表名：users说明：用户信息表 字段名类型大小空值描述 usernamenvarchar20用户名 use

27、rpwdnvarchar40用户密码 表 2.2 车辆信息表的数据结构 表名：cars说明：车辆信息表 字段名类型大小空值描述 carnonvarchar20y汽车编号 typeidsmallint2y烈性编号 carnamenvarchar50y汽车名称 colornvarchar20y颜色 oilnonvarchar30y燃油编号 enginenonvarchar50y发动机标号 carcasenvarchar50y车架编号 saleidint2y销售商 buydatesmalldatetime10y购买日期 insurnonvarchar50y保险公司 insuridint4y保单号 i

28、nsurtypenvarchar50y保险类型 insursdatesmalldatetime10y保险开始日期 insuredatesmalldatetime10y保险结束日期 depositsmallint4y押金 daypricesmallint4y日租金 weekend-pricesmallint4y周末日租金 weekpricesmallint4y周租金 monthpricesmallint4y月租金 daykmsmallint4y日限公里 overtimepricesmallint4y超时单位费用 overkmpricesmallint14y超公里单位费用 statusnvarch

29、ar10y状态 commentntext10y备注 表 2.3 公司信息表的数据结构 表名：company说明：公司信息表 字段名类型大小空值描述 idint4公司编号 companynvarchar100y公司名称 telephonenvarchar50y电话 zipcodenvarchar8y邮编 faxnvarchar50y传真 addessnvarchar50y地址 emailnvarchar50y电邮 contactnvarchar50y联系人 typeidtinyint1y类型编号 commentntext16y备注 表 2.4 客户信息表的数据结构 表名： customer 说明

30、：客户信息表 字段名类型大小空值描述 idnvarchar20y客户编号 namenvarchar50y名称 sexnvarchar2y性别 agesmallint2y年龄 idcardnvarchar30y会员卡号 telephonenvarchar30y电话 workplacenvarchar30y工作地点 addressnvarchar50y地址 zipcodenvarchar50y邮编 emailnvarchar10y电邮 licensenonvarchar30y驾照 id licensetypenvarchar20y驾照类型 getdatenvarchar20y驾照获得日期 expi

31、reddatenvarchar20y驾照过期日期 driveragesmallint2y驾龄 flagtinyint2y折扣 typeidint4y会员类型编号 certificatenvarchar40y抵押证件 warrantornvarchar50y担保人 widcardnvarchar30y担保人身份证 wworkplacenvarchar100y担保人工作地点 表 2.5 车辆和保险类型信息表的数据结构 表名：types说明：车辆和保险类型信息表 字段名类型大小空值描述 idint4编号 typenamenvarchar50y类型名称 typeidtinyint2类型编号 descr

32、iptionnvarchar100y描述 表 2.6 会员类型信息表的数据结构 表名 membertype说明：会员类型信息表 字段名类型大小空值描述 idint4会员编号 typenamenvarchar20y类型名称 ratereal8y享受折扣 表 2.7 租赁信息表的数据结构 表名：lease说明：租赁信息表 字段名类型大小空值描述 contracnonvarchar50y合同编号 carnonvarchar20y车辆编号 custidnvarchar20y客户编号 leasetimesmalldatetime10y租赁日期 leasemodenvarchar10y租赁方式 price

33、1smallint4y价格 1 price2smallint4y价格 2 workdayssmallint2y工作天数 weekendcountsmallint2y周末天数 depositint4y押金 daykmsmallint2y超限时间数 outkmsmallint4y超限费用 oprice1smallint4y日限时间超限费用 oprice2smallint4y日限公里超限费用 returntimesmalldatetime10还车时间 returnkmint4实际公里 othercostint4y其他费用 ratereal4y享受折扣 paymentint4实际支付 totalint

34、4费用总额 statusnvarchar10y状态 createdatesmalldatetime10创建日期 usernamenvarchar20经办人 realrtimesmalldatetime10y实际还车时间 第 3 章 系统功能设计 3.1 登录模块设计 登录模块是进入系统后的第一个界面，为了提高系统的安全性，本系统设置了身 份验证功能，以防非法人员进入系统。 登录流程图如图 3.1 所示。 输入用户名和密码 判断用户是否存在 判断密码是否正确 登录成功 否 否 是 是 是 图 3.1 登录流程图 登录模块窗体如图 3.2 所示，包含三个标签控件，一个框架，两个文本框和两个 命令按

35、钮。 图 3.2 登陆界面 首先点击工程菜单，选择“添加窗体” ，在新建的工程内添加一个空窗体，在适当 的位置画出框架，然后在框架内添加两个标签控件和两个文本框，然后把另一个标签 和两个命令按钮画在下面，设置各个控件属性，最后编写源代码。 例如：将第二个命令按钮的控制名设为“cmd_cancel”,caption 属性设为“取消” ，字体设为“宋体” ，enable 和 visible 属性均设为“true” ，编写按钮单击时间源代 码如下： private sub cmd_cancel_click() end end sub 3.2 主程序界面设计 用户登录成功后，即进入系统主界面。主界面的

36、外观设计应该大方美观，布局合 格，方便用户的下一步操作，其窗体布局如下，菜单栏内设有五个子菜单栏，工具栏 内设有六个按钮，分别连接常用的功能。 用户登录成功后，即进入系统主程序界面。主界面的窗体布局如下，菜单栏内设有 【基础数据管理】 、 【客户会员管理】 【日常业务管理】 【系统管理】四个子菜单，工具 栏内设有六个按钮，分别为【车辆类型设置】 【汽车销售商管理】 【保险公司管理】 【汽 车租赁】 【汽车归还】 【会员信息】 。主程序界面如图 3.3。 图 3.3 主程序界面 点击新建工程按钮，在生成的窗体上单击右键，在弹出的菜单栏上点击“菜单编辑 器”命令，打开菜单编辑器。设计好程序各级菜单

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

38、 load frminsurance frminsurance.show vbmodal case dd load frmlease frmlease.show vbmodal case ee load frmreturn frmreturn.show vbmodal case gg load frmmembers frmmembers.show vbmodal end select end sub 3.3 基础数据管理模块的实现 3.3.1 车辆和保险类型管理窗体的设计 该窗体上设有两个单选按钮，一个 datalist 控件，四个命令按钮，其窗体如下： 图 3.4 车辆和保险类型设置界面 首

39、先按设计添加窗体，安排好各控件的布局，设置其相应属性，例如：将左边的 “单选按钮”名称属性设为“optsel”,caption 属性设为“汽车类型”,indexs 属性 设为“0” ，字体属性设为“宋体” ，value 值设为“true” ，而命令按钮设置同上，如对 “添加”按钮的设置，设置完成后编写源代码。 3.3.2 汽车销售商管理窗体的设计 此窗体用于对车辆销售商的信息如：销售商名称，联系电话，传真，地址，邮编， 电子邮箱等操作，还可以根据用户选择的销售商名称查询该厂商旗下汽车租赁情况。 窗体设计如图 3.5。 图 3.5 汽车销售商管理界面 此窗体上设置了六和命令按钮，一个 datag

40、rid 控件，一个标签控件和一个文本框。 首先按设计添加窗体，做好各控件的布局，设置相应属性，如：datagrid 控件名 称属性设置为“datagrid1”,dragmode 属性设置为“0” ，allowaddnew 属性设为 “false”,allowdelete 属性设置为“false”,allowupdate 属性设为“false” 。字体 设置为“宋体” ，enable 和 visible 属性均设为“true” 。 其添加命令按钮单击事件源代码如下： private sub cmd_add_click() frmcompanyedit.modify = false frmcomp

41、anyedit.ntid = 1 frmcompanyedit.txtcompany = frmcompanyedit.lbltype = 销售商 frmcompanyedit.txttelephone = frmcompanyedit.txtfax = frmcompanyedit.txtaddress = frmcompanyedit.txtcontact = frmcompanyedit.txtcomment = frmcompanyedit.txtzipcode = frmcompanyedit.txtemail = frmcompanyedit.show 1 gridrefresh

42、end sub 3.3.3 保险公司管理窗体的设计 此窗体用于对保险公司信息如：保险公司的公司名称，联系电话，传真，地址， 邮编，电子邮箱等备注的查询，添加，修改和删除。另外还可根据用户选择的保险公 司名称查询投保语该保险公司的汽车的情况。 设计窗体如图 3.6。 图 3.6 保险公司管理界面 首先按设计添加窗体，安排好各控件的布局，设置其相应属性，如：名称属性为 “label1” ，alignment 属性设置为“0” ，文本框对其方式为“左对齐” ，caption 属性 设置为“保险公司名” ，字体属性设置为“宋体” 。 查看保险车辆按钮的单击事件源代码如下： private sub cm

43、d_viewcars_click() frmsalecars.ntype = 2 frmsalecars.ssalename = trim(adodc1.recordset.fields(1) frmsalecars.nsaleid = adodc1.recordset.fields(0) frmsalecars.txtsalename = trim(adodc1.recordset.fields(1) frmsalecars.caption = 查看保险公司保险汽车 frmsalecars.label1 = 保险公司名称 frmsalecars.show 1 end sub 3.3.4 车辆

44、管理窗体的设计 本窗体用于提供对车辆信息的添加，修改和删除功能，可处理的信息包括车辆的 基本信息如车牌号，状态，车辆类型，颜色，押金，日租金等。 设计界面如图 3.7。 图 3.7 车辆管理界面 3.4 客户会员管理模块的实现 3.4.1 客户信息管理窗体的设计 客户信息管理窗体用于对客户信息如：编号、姓名、性别、年龄、驾驶证编号、 驾龄等的查找、添加、修改、删除等操作。并且提供将普通客户加入会员的服务。 本窗体上设置有六个命令按钮，一个 adodc 控件，一个 datagrid 控件，一个标签 控件和一个文本框。命令按钮分别为“添加” “修改” “删除” “查找” “加入会员” “退 出”

45、。 窗体设计如图 3.8。 图 3.8 客户信息管理界面 点击“工程”菜单，选择“添加窗体” ，在窗体上画出所需控件，把这些控件移动 至窗体内适当位置，并设置各个控件的属性，最后编写各个控件相应事件过程。如， 对于命令按钮：“删除” ，当放置好按钮位置后，将其名称属性设置为“cmd_del” ，对 于 caption 属性则设置为“删除” ，字体属性设置为“宋体” ，enabled 和 visible 属性 设置为 true。 进行删除操作时，首先在列表框上显示出来的客户信息条目中将要删除一条选中 （如果不选择，系统则默认为选择了第一条）做出选择后，单击“删除”按钮，显示 一个对话框，选中用户

46、是否确认删除，选“是” ，则系统从数据库中删除该项，并弹出 一个信息框，告知用户操作成功。 命令按钮“删除”单击事件源代码如下： private sub cmd_del_click() if adodc1.recordset.eof = true then msgbox 请选择记录 exit sub end if if msgbox(是否确定要删除 , vbyesno, 请确认) = vbno then exit sub end if mycustomer.delete (trim(adodc1.recordset.fields(0) msgbox 成功, vbinformation grid

47、refresh end sub 3.4.2 会员信息管理窗体设计 会员信息管理窗体用于对会员信息如，编号，姓名，年龄驾驶证编号，驾龄，登 记日期等的查找、修改及注销功能。 本窗体上设有四个命令按钮，一个 datagrid 控件，一个标签控件和一个文本框。 窗体设计如图 3.9。 图 3.9 会员信息管理界面 点击“工程”菜单，选择“添加窗体” ，在新建工程内添加一个空窗体，先设置窗 体的属性，名称属性设置为“frmmembers” ，startupposition 属性设置为“2” ，即窗 体首次出现是在屏幕中心显示，font 属性设置为“宋体” ，caption 属性设置为“会员 管理” 。

48、接着对其它控件的属性进行设置。 命令按钮“注销会员”的功能是将用户选定的会员条目从客户信息表中删除（如果 不选择，系统默认为选择了第一条）选择后，单击“注销会员”按钮，弹出对话框， 询问用户“是否确定要注销会员资格” ，选择“是” ，系统执行注销操作，并弹出一个 信息框，显示“注销会员成功” ，最后系统更新 datagrid 控件中显示的会员信息条目。 命令按钮“注销会员”单击事件策划年供需源代码如下： private sub cmd_offmember_click() if adodc1.recordset.eof = true then msgbox 请选择记录 exit sub end

49、if if msgbox(是否确定要注销会员资格 , vbyesno, 请确认) = vbno then exit sub end if mycustomer.typeid = 0 mycustomer.updatetomember (trim(adodc1.recordset.fields(0) msgbox 注销会员成功, vbinformation gridrefresh end sub 3.4.3 会员类型管理窗体设计 本窗体用于对会员类型的管理，即对会员等级进行分类，如，vip 会员，一般会员， 超级会员等，不同等级的用户享受的租赁价格的折扣不同。通过“添加”功能可登记 新的会员用户

50、，及其享受的折扣，通过“修改”功能可修改已有的会员类型名称及折 扣。 “删除”功能与之前描述的“注销会员”操作类似，在此不再赘述。 本窗体上设置有四个命令按钮，一个 datagrid 控件，窗体设计如图 3.10。 图 3.10 会员类型管理界面 点击“工程”菜单，选择“添加窗体” ，设置各个控件在窗体中的位置，然后设置 窗体及各控件属性，最后编写窗体及各个空间源代码。 当窗体载入是，触发 form_load()事件，即窗体载入事件。该载入事件的源代码： private sub form_load() gridrefresh end sub 其中，gridrefresh 为一个函数调用语句，是

51、在窗体模块内部定义的一个私有过程， 在过程中设置了 adodc 控件的两个属性，分别为 connectionstring 属性和 recordsource 属性。该过程的作用为在 datagrid 控件上向用户显示会员类型的即存信 息。 3.5 日常业务管理模块的实现 3.5.1 汽车租赁管理窗体设计 汽车租赁模块的实现是本系统的关键，当客户提出租车要求时，租赁公司通过系 统的这一模块向数据库的 lease 表中添加新的租赁记录。在车辆处于特定的状态时， 可执行对记录信息的修改、删除、审核、续租等操作。车辆的状态由 lease 表中状态 字段指定。 本窗体上设置有一个 datagrid 控件，

52、一个组合框，一个标签控件，八个命令按钮 控件，设计窗体如图 3.11。 图 3.11 汽车租赁管理界面 在“工程”中添加一个窗体后，按上述布局设置空间。然后进行各控件的属性设 置。 当执行“添加”操作并成功添加一条新的租赁信息后，将在 datagrid 控件中显示 出这条新的记录，其中“状态”栏内为“出租” ，此时，可对这一条记录执行“修改” 、 “删除”操作，添加车辆出租信息后，确定所添数据无误，则应执行“租赁审核”命 令， “审核”即为确定。当单击“租赁审核”按钮后，将弹出一个对话框，询问用户是 否确执行租赁审核，选择“是” ，车辆“状态”则变为“租赁审核” ，即用户将不能对 该记录执行“修改” 、 “删除”命令 ，但可执行“续租”命令。执行“续租”后，车辆 状态变为“续租” 。确定续租信息无误，执行“续租审核”命令。 当单击“添加”命令按钮后，将触发“添加”命令按钮的单击事件。 此时将打开“编辑车辆出租信息”窗体，如图 3.12。 图 3.12 添加或