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

沈阳理工大学继续教育毕业论文沈阳理工大学继续教育毕业论文#第1章绪论开发背景今天，随着人民生活水平的不断提高，汽车已不再遥不可及，汽车租赁作为一种全新的消费模式已成为一个极具市场潜力的行业，它不仅可以有效的疏通汽车生产与汽车销售之间的“瓶颈”，而且对汽车消费市场的扩展有着不可低估的功效。在这个“时间就是金钱”的社会，加快生活节奏，提高生活效率刻不容缓。因此在必要的时候向汽车出租公司提出租赁车辆的要求，已成为被大众认可的选择。在社会需求的带动下，汽车租赁市场出现了前所未有的繁荣景象。各个汽车租赁公司门庭若市，业务激增。然而在繁忙的景象背后，却也暴露出汽车租赁公司在处理业务信息时以人工方式为主所带来的诸如：效率低下，管理混乱，失误增多等诸多弊端。在实践中，汽车租赁行业的业主们逐渐意识到在租赁行业中借助计算机引入信息管理的重要性，并开始不断提高自身的素质和高科技在工作中的投入，以改善信息的管理，提高服务效率。汽车租赁管理系统就是对车辆信息和客户信息的管理，主要包括车辆的基本信息、车辆的出租状态、车辆的投保情况、客户信息的管理等。它的设计开发充分按照汽车租赁的实际业务流程，结合了租赁行业的实际运营特点，满足汽车租赁行业的信息化需求。1.2系统功能简介汽车租赁管理系统针对的是汽车租赁公司在向客户提供出租车辆服务过程中面对的各种问题而开发的，对其业务信息进行自动化、信息化处理，使车辆租赁管理变得高校、快捷、规范。此系统具有完善的功能，使用轻松方便，易于维护，适应性强。包括客户信息管理、车辆信息管理、汽车租赁归还管理、会员类型管理、会员信息管理、保险公司管理、汽车销售商管理等。具有添加、修改、删除、查询等功能，通过这些管理模块，可以使汽车租赁服务更加清晰，更加便捷，提高了服务质量，减少了操作人员的工作量。希望它能为业内人员的工作提供一定的帮助。开发工具VisualBasic6.0简介VisualBasic是一种结构化的编程语言，它集成了一个完整且功能强大的应用程序开发环境。操作简单易学，使程序设计不再复杂。“visual”指的是开发图形用户界面（GUI）的方法。不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象加到屏幕上，一点即可。“Basic”是一种在计算机技术发展历史上应用的最为广泛的语言。另外，在VisualBasic中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮，文本框等都是控件。VisualBasic把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观以及工作方法。VisualBasic是具有集成的可视化数据库工具，VisualBasic6.0提供了一整套工具以在任何应用程序中集成数据库。它可用来设计和修改ADO等数据库工具，也可用拖放方式创建绑有数据的表格和报告。更重要的是VisualBasic简单、易学、实用，深受广大编程爱好者的喜爱。Access2003简介MicrosoftAccess数据库管理系统是MicrosoftOffice系列应用软件的一部分，是基于Windows平台的数据库管理系统，它操作简单、功能全面、使用方便，不仅具有传统数据库管理软件所具有的功能，同时还进一步增强了与Internet的集成，用户可以通过Internet共享Access数据库。Access具有强大的数据管理功能，可以方便地利用各种数据源，生成窗体（表单）、查询、报表和应用程序等。1Access2003是Microsoft公司出品的关联式资料库套装软体。它提供视觉化的设计介面，不必撰写程式，即可快速，简单地开发出美观实用的资料库管理系统。Access2003由如下组成：资料表：为access储存资料的地方，亦为资料的根本来源，一个资料库至少要存在一个资料表。查询：可依使用者需求，以一些限制条件（筛选,过滤…）来选取资料表中。表单：建立一个让使用者输入，查询，修改资料的操作画面。报表：将资料库里的资料运用报表做成有利用价值的画面资料。资料页：为Access2003的新增物件，资料发布至网路的媒介。此物件完成建立后，将会在资料库档案外，再产生一个HTML档。巨集：建立简单的资料操作指令与将一连串的执行动作自动化。应用于一些重复性高的动作或者用于使用者自订工作环境上。模组：开发应用系统的工具。是让使用者能更随心所欲的去控制系统。可行性研究与需求分析可行性研究通过对部分用户和部门的调查研究表明，传统的租赁管理系统，在后期维护和更新上比较麻烦，如果对功能模块进行修改，需要对整个系统进行重新架构才能实现。本系统在基本信息管理模块中实现了对车辆、客户、驾驶员等信息的增加、删除、修改等功能。在日常任务模块中，实现了对租赁和归还信息的管理。在基础数据管理中还涉及了租赁合同的打印，非常周到，贴合实际。本系统具有：操作简便、灵活，用户界面直观；可实现企业管理程序化、条理化、规范化、高效化；提供及时、可靠的数据资料，并自动对数据进行分析；多数操作选项采用人工选择的方式，避免了用户记忆一些不必要的指令，减轻用户操作负担。需求分析开发汽车租赁管理系统的目的就是为了使租赁公司能够更好的为客户服务且工作不需要花费大量的时间和精力。这不但使客户租车过程简化、快捷，还能使租赁公司信息更规范，易管理.综上所述,公司不再需要过多的人员去管理繁杂的资料，既节省了办公效率、降低了成本,还节省了客户的时间。本系统经过短期的可行性市场调查与分析工作及长期实践操作，最后确定整体系统方案，在综合各项软件指标的前提下认真完成。第2章系统数据库设计数据库管理系统简介数据库是信息管理系统的基本技术，是计算机科学的重要分支。数据库(DataBase，DB)是指长期储存在计算机内的、有组织的、可以共享的数据集合。数据库中的数据按一定的数据模型组织、描述和储存，具有较小的冗余度、较高的数据独立性和易扩展性，并可以为各种用户共享。数据库管理系统是在操作系统的支持下，为数据库的建立、使用和维护而配置的软件环境，如MicrosoftSQLServer、MicrosoftAccess等。数据库系统是位于用户与操作系统之间的一层数据管理软件，它在操作系统的基础上，对数据库进行管理和控制，利用数据库管理系统提供的一系列命令，用户能方便地实现对数据库的基本操作(如建表、向表中添加记录、删除记录和修改记录等)。用户使用的各种数据库命令以及数据库应用程序的运行，都要通过数据库管理系统来实现；另外，数据库管理系统还要保证数据的安全性，完整性，多用户对数据库的并发使用以及发生故障后系统的回复等任务。在信息资源已成为各个部门的重要财富和资源的当下。开发一个满足各个部门信息处理要求的信息系统也因此成为一个企业或组织生存和发展的重要部分。因此，作为信息系统核心，数据库已得到越来越广泛的应用，新的应用领域采用数据库存储和处理信息资源。对于一个国家来说，数据库的规模、信息量的大小和使用频度已成为衡量这个国家信息化程度的重要标志。ADO数据库访问技术VisualBasic作为一种面向对象的可视化编程工具，具有简单易学、灵活方便易于扩充的特点。因此它越来越多的用作数据库应用程序的前端开发工具。在VisualBasic中，可以通过ActiveX数据对象(ADO)，数据访问对象(DAO)，ODBC直接连接到数据库：其中ADO是最新的数据库访问技术。它是使用更加简单，灵活的对象模型。本系统就是基于这种技术开发的。ADO在工程的创建过程中提供执行以下操作的方式：连接到数据源。指定访问数据源的命令，同时可带变量参数或优化执行。通常涉及ADO的Command对象。

执行命令，例如一个SELECT脚本。如果这个命令使数据按表中行的形式返回，则将这些行存储在易于检查、操作或更改的缓存中。适当情况下，可以把缓存行的更改内容写回数据库中，更新数据源。提供常规方法检测错误（错误通常由建立连接或执行命令造成），涉及ADO的Error对象。系统功能分析研究本系统通过对市场需求的具体调研和分析,确定本系统应具备系统管理基础数据管理、客户会员管理、日常业务管理等模块的功能.下面具体分析一下各个模块的功能。1、系统管理模块该模块可以完成修改用户密码，添加新用户，设置密码以及退出系统等操作。2、基础数据管理模块在这个模块中，可以设置车辆类型和保险类型，而且还可以对汽车销售商，车辆的保险公司进行管理，如添加，修改和删除等操作。3、客户会员管理模块在这个模块中，可以设置会员的级别以及添加，修改，和删除客户和会员的信息。4、日常业务管理模块在这个模块中可以完成车辆的出租，审核以及还车的操作，而且可以查询和打印租赁合同。系统功能模块图汽车租赁管理信息系统的系统功能结构图如图2.1所示。汽半租赁管理信息系统系统管理用S雷I车嘱窿类覆置日常业皆管理图2.1系统总体功能设计，宜类善理系统管理用S雷I车嘱窿类覆置日常业皆管理图2.1系统总体功能设计，宜类善理汽车翟哲理汽≠归普理数据字典数据字典是关于数据信息的集合，它为分析阶段的工具，其作用就是在软件分析和设计的过程中给人提供关于数据的描述信息，在数据字典中，建立一组严密一致的定义很有助于改进分析员和用户之间的通信，因此将消除可能的误解。数据字典主要应该包括的每个数据元素的控制信息有：名字，别名，描述，定义，位置。数据字典中包含的每个数据元素的控制信息是很有价值的。因为列出了使用一个给定的数据元素的所有程序（或者模块），所以很容易估计改变一个数据将产生的影响，并且能对所有受影响的程序或者模块做出相应的调整。本系统的数据字典如下：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+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+wildcard+wworkplace4、名字：membertype别名：会员类型描述：记录会员类型的编号，名称，折扣率定义：membertype=id+typename+rate位置：会员类型定义，会员信息，汽车租赁，车辆归还5、名字：company别名：公司信息描述：保险公司和车辆销售商的名称，地址，联系方式等信息定义：company=id+company+telephone+zipcode+fax+address+email+contact+typeid+comment位置：销售商信息，保险公司信息，车辆信息7、名字：types别名：类型信息描述：车辆品牌类型以及保险种类定义：types=id+typename+typeid+description8、名字：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位置：车辆租赁，车辆归还数据库各表的数据结构本系统数据库名称为CarMIS，数据库中包括：①用户信息表（users）②车辆信息表（Cars）③公司信息表（Company）④客户信息表（Customer）⑤车辆和保险类型信息表（Types）⑥会员类型信息表（MenberType）⑦租赁信息表（Lease）。各表数据结构如下：

表2.1用户信息表的数据结构表名：Users说明：用户信息表字段名类型大小空值描述Usernamenvarchar20用户名userpwdnvarchar40用户密码表2.2车辆信息表的数据结构表名：Cars说明：车辆信息表字段名类型大小空值描述Carnonvarchar20Y汽车编号Typeidsmallint2Y烈性编号carnamenvarchar50Y汽车名称colornvarchar20Y颜色oilnonvarchar30Y燃油编号enginenonvarchar50Y发动机标号carcasenvarchar50Y车架编号Saleidint2Y销售商Buydatesmalldatetime10Y购买日期Insurnonvarchar50Y保险公司insuridint4Y保单号insurtypenvarchar50Y保险类型Insursdatesmalldatetime10Y保险开始日期Insuredatesmalldatetime10Y保险结束日期Depositsmallint4Y押金Daypricesmallint4Y日租金Weekend-pricesmallint4Y周末日租金Weekpricesmallint4Y周租金monthpricesmallint4Y月租金daykmsmallint4Y日限公里overtimepricesmallint4Y超时单位费用

overkmpricesmallint14Y超公里单位费用statusnvarchar10Y状态commentntext10Y备注表2.3公司信息表的数据结构表名：Company说明：公司信息表字段名类型大小空值描述Idint4公司编号Companynvarchar100Y公司名称Telephonenvarchar50Y电话Zipcodenvarchar8Y邮编Faxnvarchar50Y传真Addessnvarchar50Y地址Emailnvarchar50Y电邮Contactnvarchar50Y联系人Typeidtinyint1Y类型编号commentntext16Y备注表2.4客户信息表的数据结构表名：Customer说明：客户信息表字段名类型大小空值描述Idnvarchar20Y客户编号Namenvarchar50Y名称Sexnvarchar2Y性别Agesmallint2Y年龄Idcardnvarchar30Y会员卡号Telephonenvarchar30Y电话Workplacenvarchar30Y工作地点

Addressnvarchar50Y地址Zipcodenvarchar50Y邮编Emailnvarchar10Y电邮Licensenonvarchar30Y驾照IDLicensetypenvarchar20Y驾照类型Getdatenvarchar20Y驾照获得日期Expireddatenvarchar20Y驾照过期日期Driveragesmallint2Y驾龄Flagtinyint2Y折扣Typeidint4Y会员类型编号Certificatenvarchar40Y抵押证件Warrantornvarchar50Y担保人Widcardnvarchar30Y担保人身份证wworkplacenvarchar100Y担保人工作地点表2.5车辆和保险类型信息表的数据结构表名：Types说明：车辆和保险类型信息表字段名类型大小空值描述Idint4编号typenamenvarchar50Y类型名称Typeidtinyint2类型编号descriptionnvarchar100Y描述表2.6会员类型信息表的数据结构表名MemberType说明：会员类型信息表字段名类型大小空值描述Idint4会员编号Typenamenvarchar20Y类型名称Ratereal8Y享受折扣

表2.7租赁信息表的数据结构表名：Lease说明：租赁信息表字段名类型大小空值描述Contracnonvarchar50Y合同编号Carnonvarchar20Y车辆编号Custidnvarchar20Y客户编号Leasetimesmalldatetime10Y租赁日期Leasemodenvarchar10Y租赁方式Price1smallint4Y价格1Price2smallint4Y价格2Workdayssmallint2Y工作天数Weekendcountsmallint2Y周末天数Depositint4Y押金Daykmsmallint2Y超限时间数Outkmsmallint4Y超限费用Oprice1smallint4Y日限时间超限费用Oprice2smallint4Y日限公里超限费用Returntimesmalldatetime10还车时间returnkmint4实际公里Othercostint4Y其他费用Ratereal4Y享受折扣Paymentint4实际支付Totalint4费用总额Statusnvarchar10Y状态Createdatesmalldatetime10创建日期Usernamenvarchar20经办人realrtimesmalldatetime10Y实际还车时间

第3章系统功能设计登录模块设计登录模块是进入系统后的第一个界面，为了提高系统的安全性，本系统设置了身份验证功能，以防非法人员进入系统。登录流程图如图3.1所示。否否图否否图3.1登录流程图登录模块窗体如图3.2所示，包含三个标签控件，一个框架，两个文本框和两个命令按钮。图3.2登陆界面首先点击工程菜单，选择“添加窗体”，在新建的工程内添加一个空窗体，在适当的位置画出框架，然后在框架内添加两个标签控件和两个文本框，然后把另一个标签和两个命令按钮画在下面，设置各个控件属性，最后编写源代码。例如：将第二个命令按钮的控制名设为“cmd_cancel”,caption属性设为“取消”，字体设为“宋体”，enable和visible属性均设为“True”，编写按钮单击时间源代码如下：PrivateSubCmd_Cancel_Click()EndEndSub主程序界面设计用户登录成功后，即进入系统主界面。主界面的外观设计应该大方美观，布局合格，方便用户的下一步操作，其窗体布局如下，菜单栏内设有五个子菜单栏，工具栏内设有六个按钮，分别连接常用的功能。用户登录成功后，即进入系统主程序界面。主界面的窗体布局如下，菜单栏内设有【基础数据管理】、【客户会员管理】【日常业务管理】【系统管理】四个子菜单，工具栏内设有六个按钮，分别为【车辆类型设置】【汽车销售商管理】【保险公司管理】【汽车租赁】【汽车归还】【会员信息】。主程序界面如图3.3。■汽车出租业务管理系统基本信息管理Q)客尸会员管理妙日常业务管理®系统用户管理8)图3.3主程序界面点击新建工程按钮，在生成的窗体上单击右键，在弹出的菜单栏上点击“菜单编辑器”命令，打开菜单编辑器。设计好程序各级菜单。在窗体上添加“图像列表控件”，用于保存工具栏按钮所使用的图像，在窗体上添加“工具栏控件”，将其与“图像控制列表控件”相关联。并加入代表耽搁按钮的“按钮对象”，最后编写工具栏对应的源代码。工具栏单击事件源代码如下：PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyLoadFrmTypeFrmType.ShowvbModalLoadFrmSalesFrmSales.ShowvbModalLoadFrmInsuranceFrmInsurance.ShowvbModalLoadFrmLeaseFrmLease.ShowvbModalLoadFrmReturnFrmReturn.ShowvbModalLoadFrmMembersFrmMembers.ShowvbModalEndSelectEndSub基础数据管理模块的实现车辆和保险类型管理窗体的设计该窗体上设有两个单选按钮，一个datalist控件，四个命令按钮，其窗体如下：

图3.4车辆和保险类型设置界面首先按设计添加窗体，安排好各控件的布局，设置其相应属性，例如：将左边的“单选按钮”名称属性设为“optsel”,caption属性设为“汽车类型”,Indexs属性设为“0”，字体属性设为“宋体”，value值设为“True”，而命令按钮设置同上，如对“添加”按钮的设置，设置完成后编写源代码。汽车销售商管理窗体的设计此窗体用于对车辆销售商的信息如：销售商名称，联系电话，传真，地址，邮编，电子邮箱等操作，还可以根据用户选择的销售商名称查询该厂商旗下汽车租赁情况。窗体设计如图3.5。图3.5汽车销售商管理界面此窗体上设置了六和命令按钮，一个Datagrid控件，一个标签控件和一个文本框。首先按设计添加窗体，做好各控件的布局，设置相应属性，如：datagrid控件名称属性设置为“datagrid1”,dragmode属性设置为“0”，allowaddnew属性设为“False”,Allowdelete属性设置为“False”,allowupdate属性设为“False”。字体设置为“宋体”，Enable和Visible属性均设为“True”。其添加命令按钮单击事件源代码如下：PrivateSubCmd_Add_Click()FrmCompanyEdit.Modify=FalseFrmCompanyEdit.nTid=1销售商FrmCompanyEdit.Show1GridRefreshEndSub保险公司管理窗体的设计此窗体用于对保险公司信息如：保险公司的公司名称，联系电话，传真，地址，邮编，电子邮箱等备注的查询，添加，修改和删除。另外还可根据用户选择的保险公司名称查询投保语该保险公司的汽车的情况。设计窗体如图3.6。图3.6保险公司管理界面首先按设计添加窗体，安排好各控件的布局，设置其相应属性，如：名称属性为“label1”，alignment属性设置为“0”，文本框对其方式为“左对齐”，Caption属性设置为“保险公司名”，字体属性设置为“宋体”。查看保险车辆按钮的单击事件源代码如下：PrivateSubCmd_ViewCars_Click()FrmSaleCars.nType=2FrmSaleCars.sSaleName=Trim(Adodc1.Recordset.Fields(1))FrmSaleCars.nSaleId=Adodc1.Recordset.Fields(0)FrmSaleCars.txtSaleName=Trim(Adodc1.Recordset.Fields(1))查看保险公司保险汽车保险公司名称FrmSaleCars.Show1EndSub车辆管理窗体的设计本窗体用于提供对车辆信息的添加，修改和删除功能，可处理的信息包括车辆的基本信息如车牌号，状态，车辆类型，颜色，押金，日租金等。设计界面如图3.7。

图3.7车辆管理界面客户会员管理模块的实现客户信息管理窗体的设计客户信息管理窗体用于对客户信息如：编号、姓名、性别、年龄、驾驶证编号、驾龄等的查找、添加、修改、删除等操作。并且提供将普通客户加入会员的服务。本窗体上设置有六个命令按钮，一个Adodc控件，一个Datagrid控件，一个标签控件和一个文本框。命令按钮分别为“添加”“修改”“删除”“查找”“加入会员”“退出”。窗体设计如图3.8。图3.8客户信息管理界面点击“工程”菜单，选择“添加窗体”，在窗体上画出所需控件，把这些控件移动至窗体内适当位置，并设置各个控件的属性，最后编写各个控件相应事件过程。如，对于命令按钮：“删除”，当放置好按钮位置后，将其名称属性设置为“Cmd_del”，对于Caption属性则设置为“删除”，字体属性设置为“宋体”，Enabled和Visible属性设置为true。进行删除操作时，首先在列表框上显示出来的客户信息条目中将要删除一条选中(如果不选择，系统则默认为选择了第一条)做出选择后，单击“删除”按钮，显示一个对话框，选中用户是否确认删除，选“是”，则系统从数据库中删除该项，并弹出一个信息框，告知用户操作成功。命令按钮“删除”单击事件源代码如下：PrivateSubCmd_Del_Click()IfAdodc1.Recordset.EOF=TrueThen请选择记录ExitSubEndIf是否确定要删除 请确认ExitSubEndIfMyCustomer.Delete(Trim(Adodc1.Recordset.Fields(0)))成功GridRefreshEndSub会员信息管理窗体设计会员信息管理窗体用于对会员信息如，编号，姓名，年龄驾驶证编号，驾龄，登记日期等的查找、修改及注销功能。本窗体上设有四个命令按钮，一个Datagrid控件，一个标签控件和一个文本框。窗体设计如图3.9。图3.9会员信息管理界面点击“工程”菜单，选择“添加窗体”，在新建工程内添加一个空窗体，先设置窗体的属性，名称属性设置为“Frmmembers”，StartUpPosition属性设置为“2”，即窗体首次出现是在屏幕中心显示，Font属性设置为“宋体”，Caption属性设置为“会员管理”。接着对其它控件的属性进行设置。命令按钮“注销会员”的功能是将用户选定的会员条目从客户信息表中删除(如果不选择，系统默认为选择了第一条)选择后，单击“注销会员”按钮，弹出对话框，询问用户“是否确定要注销会员资格”，选择“是”，系统执行注销操作，并弹出一个信息框，显示“注销会员成功”，最后系统更新Datagrid控件中显示的会员信息条目。命令按钮“注销会员”单击事件策划年供需源代码如下：PrivateSubCmd_OffMember_Click()IfAdodc1.Recordset.EOF=TrueThen请选择记录ExitSubEndIf是否确定要注销会员资格 请确认ExitSubEndIfMyCustomer.TypeId=0MyCustomer.UpdateToMember(Trim(Adodc1.Recordset.Fields(0)))注销会员成功GridRefreshEndSub会员类型管理窗体设计本窗体用于对会员类型的管理，即对会员等级进行分类，如，vip会员，一般会员，超级会员等，不同等级的用户享受的租赁价格的折扣不同。通过“添加”功能可登记新的会员用户，及其享受的折扣，通过“修改”功能可修改已有的会员类型名称及折扣。“删除”功能与之前描述的“注销会员”操作类似，在此不再赘述。本窗体上设置有四个命令按钮，一个Datagrid控件，窗体设计如图3.10。图3.10会员类型管理界面点击“工程”菜单，选择“添加窗体”，设置各个控件在窗体中的位置，然后设置窗体及各控件属性，最后编写窗体及各个空间源代码。当窗体载入是，触发form_load()事件，即窗体载入事件。该载入事件的源代码：PrivateSubForm_load()GridRefreshEndSub其中，GridRefresh为一个函数调用语句，是在窗体模块内部定义的一个私有过程，在过程中设置了Adodc控件的两个属性，分别为Connectionstring属性和Recordsource属性。该过程的作用为在DataGrid控件上向用户显示会员类型的即存信息。日常业务管理模块的实现汽车租赁管理窗体设计汽车租赁模块的实现是本系统的关键，当客户提出租车要求时，租赁公司通过系统的这一模块向数据库的Lease表中添加新的租赁记录。在车辆处于特定的状态时，可执行对记录信息的修改、删除、审核、续租等操作。车辆的状态由Lease表中状态字段指定。本窗体上设置有一个DataGrid控件，一个组合框，一个标签控件，八个命令按钮控件，设计窗体如图3.11。图3.11汽车租赁管理界面在“工程”中添加一个窗体后，按上述布局设置空间。然后进行各控件的属性设置。当执行“添加”操作并成功添加一条新的租赁信息后，将在DataGrid控件中显示出这条新的记录，其中“状态”栏内为“出租”，此时，可对这一条记录执行“修改”、“删除”操作，添加车辆出租信息后，确定所添数据无误，则应执行“租赁审核”命令，“审核”即为确定。当单击“租赁审核”按钮后，将弹出一个对话框，询问用户是否确执行租赁审核，选择“是”，车辆“状态”则变为“租赁审核”，即用户将不能对该记录执行“修改”、“删除”命令，但可执行“续租”命令。执行“续租”后，车辆状态变为“续租”。确定续租信息无误，执行“续租审核”命令。当单击“添加”命令按钮后，将触发“添加”命令按钮的单击事件。此时将打开“编辑车辆出租信息”窗体，如图3.12。

图3.12添加或修改租赁信息的界面窗体上设有三个Datagrid控件和三个ADODC控件，系统将在程序执行中为ADODC控件设置connectionstring属性和recordsource属性，为datagrid控件设置datasource属性，以达到将datagrid控件与数据库相连，在datagrid控件中显示相关信息的目的处于“出租审核”的合同可以打印，单击“打印合同”按钮，就能打印出所选的租赁合同，结果如图3.13。合同⅛β0ιU0IX>2*'甲方汽车和我公司，乙方，」汽车租篇合同一fΓ≡Wt间，»11-11-0222«54：26«一.车祸16£，⅛4WW,辽A1234J车0；秘*i⅛ιττ<⅛V!Λ⅛.典迪。斗*A色黄.发Μ机W∙12345<‰本5EW∙12345l‰'αιca∙⅛∙6J*r拿0H三方*14.玄育4.H4AIG.立⅞KU∙|y怜开蛤HMh2010-12-4«fiT^^*HM2B11-12-1,口+ι--收0保注"丕，20010.日喉0胆■40Q.'曲名*★，曰内EMfft*fi(MMH]•55许日IB金（元/日）■500,妣公里«H»（元1公里）■3Q,租赁天0（工作日）"2*>折办1«-口阶横（m口末）,MX1«h⅛φa.。，三、客户信&，X户第号，CW7~考户名整5性％纭斗叫35*图3.13租赁合同的打印

汽车归还管理窗体设计本模块用于对车辆归还业务的管理，通过本模块可对已租车辆实现归还，信息修改，结算审核和查询操作，窗体设计如图3.14。结算审核和查询操作，窗体设计如图3.14。图3.14汽车租赁归还管理界面当办理归还业务时，打开此窗体，单击命令按钮“归还”，打开“车辆归还结算审核”，如图3.15。如图3.15。图3.15汽车归还结算界面按办理租赁业务时所创建的合同编号，查找相应的车辆信息，即可进行归还操作。当处理完归还信息后，返回“车辆租赁归还”窗体，在datagrid控件中显示出刚处理完的归还业务信息，车辆状态为“归还”，只有对“归还”状态的信息，才能执行“结算审核”操作。单击“结算审核”命令按钮，将弹出一个对话框，询问用户是否确认结算审核信息，选择“是”，将最后完成车辆的归还业务的处理，此时车辆状态为“结算审核”。当添加完窗体上的各个控件后，进行窗体布局，属性设置。最后完成代码编写。如将窗体的名称属性设为 属性设为“车辆租赁归还管理”，字体设置为“宋体”，Startupposit属性设为，即窗体首次出现时位置在屏幕中心，，然后编写代码如下：PrivateSubForm_Load()GridRefresh归还归还审核Cmd_RntCheck.Enabled=FalseEndSub结论经过三个月的摸索学习。终于完成了这个“汽车租赁管理系统”。通过对开发过程的研究，我对对数据库及visualBasic6.0的使用方法有了更深的理解。让我深刻体会到一个工程的开发，编程过程并不那么简单，从软件的需求分析到系统设计再到工程代码的实现，让我体会到要成为熟练掌握编程语言的软件开发者是多么不容易，一个实用的高质量的系统软件，要想充分满足客户需求，必须扎扎实实的做好需求分析，为后续的系统设计和实现打下良好的基础。本系统界面简洁，设计合理，能够实现预计的功能，但系统的容错性还不太完善。这也暴露出我的编程能力还有待提高。今后我会继续努力学习，不断充实自己，提高自己的能力。总的来说，本系统的设计基本符合用户要求，可以为用户使用。由于本人水平有限，在设计思路和技巧方法上可能比较愚钝，在开发语言的掌握上可能相对肤浅，所以，反映到系统中，难免存在许多的不足之处，殷切希望各位老师批评、指正。致谢首先我要衷心的感谢我的指导教师黄迎春老师，因为这篇论文是在他的悉心指导下才完成的。在设计的起初阶段，我总被一些问题所难倒，不知如何切入重点，从而让我对毕业设计失去了信心与耐性，是黄老师在百忙之中抽出休息时间对我进行了一番思想上的教育并耐心的一步一步的指导我的毕业设计。在老师的细心指导下，我重新对设计有了理性的思考，这不但解决了我心中的胆怯，而且也解决了我在毕业设计中所遇到的严谨的问题，而且使我更加懂得了如何去分析和解决问题，并从中体会到了真正成功的喜悦。黄老师在学术上给予我精心的指导，可以说他一丝不苟的敬业精神、渊博的学术知识和严谨求实的治学态度使我受益匪浅，让我也把更多的精力放在了我在大学校原里最后的一次考试——毕业设计。通过这两个月的磨练，使我懂得了要想成为一名优秀的编程人员，不但要有良好的基础知识，踏实地基本功，更重要的是要有不怕困难，战胜困难的决心和勇气。因此，每每遇到问题后我都会自己潜心研究，查找各种资料，借助网络和图书两大信息力量，加上我平时的所学，尽量解决问题度过难关。其次还要感谢给予我帮助、支持和鼓励的同学特别是同组的同学，是他们给了我很大的帮助，让我能够顺利的完成本次毕业设计；是他们给了我大学最后时光的快乐，让我懂得学习的真谛。最后,我要向学习中默默支持我的家人和朋友，及所有关心帮助过我的师长和同学们表示诚挚的感谢，因为你们的存在，使得我在走进大学后努力的学习，快速的增长知识，现在即将走出大学校园，我会加倍的努力，使自己更上一层楼，做个对社会有用的人!参考文献罗朝盛.VisualBasic6.0程序设计教程.第三版.人民邮电出版社,2009.2刘志妩.基于VB和SQL的数据库编程技术，第一版，清华大学出版社,2008.4.刘玉山.VB数据库项目设计模块化教程，第一版，机械工业出版社,2009.8.杨富国,王健.VisualBasic程序开发案例解析，第一版，北京交通大学出版社,2006.2李勇帆.VisualBasic6.0程序设计与应用，人民邮电出版社,2006.2沈大林.中文VisualBasic6.0实用教程:结构化程序设计.第一版，人民邮电出版社,2005.6陈承欢.ADO.NET数据库访问技术案例教程，第一版.人民邮电出版,2008.4杨芙清．全国计算机等级考试二级教程．第1版．高等教育出版社，2001,10童爱红，候太平．VisualBasic数据库编程．第1版．清华大学出版社，北京交通大学出版社，2004，6：刘文涛，VisualBasic+Access数据库开发与实例，第一版，清华大学出版社，2006.7附录程序代码PublicSubConnectstring()EndSubPrivateSubConnect()IfIsConnect=TureThenExitSubEndIfSetcnn=NewADODB.Connectioncnn.ConnectionString=Conncnn.OpenIfcnn.State<>adStateOpenThen数据库连接失败EndEndIfIsConnect=TrueEndSubPrivateSubDisconnect()DimRcAsLongIfIsConnect=FalseThenExitSubEndIfcnn.CloseSetcnn=NothingIsConnect=FalseEndSubPublicSubDB_Connect()Connect_Num=Connect_Num+1ConnectEndSubPublicSubDB_Disconnect()IfConnect_Num>=CONNECT_LOOP_MAXThenConnect_Num=0DisconnectEndIfEndSubPublicSubDBapi_Disconnect()Connect_Num=0DisconnectEndSubPublicSubSQLExt(ByValTmpSQLstmtAsString)DimcmdAsNewADODB.CommandDB_ConnectSetcmd.ActiveConnection=cnncmd.CommandText=TmpSQLstmtcmd.ExecuteSetcmd=NothingDB_DisconnectEndSubPublicFunctionQueryExt(ByValTmpSQLstmtAsSrting)AsADODB.RecordsetDimrstAsNewADODB.RecordsetDB_ConnectSetrst.ActiveConnection=cnnrst.CuisorTyepe=aDOpenDynamicrst.LockType=adLockOptisticrst.OpenTmpSQLstmtSetQueryExt=rstEndFunctionPublicSubInit()EndSubPublicSubDelete(ByValTmpUserAsString)SQLExt(SqlStmt)EndSubPublicFunctionGetInfo(ByValTmpUserAsString)AsBooleanUserName=TampUserDimrsAsNewADODB.RecordsetSetrs=QueryExt(SqlStmt)Ifrs.EOFThenGetInfo=FalseExitFuntionElseIfIsNull(rs.Fields(1))ThenElseUserPwd=Trim(rs.Fields(1))EndIfEndIfGetInfo=TrueEndFunctionPublicFunctionIn_DB(ByValTmpUserAdString)AsBooleanDimrsAsNewADODB.RecordsetSetrs=QueryExt(SqlStmt)IfNotrs.EOFThenIn_DB=TrueElseIn_db=FalseEndIfEndFunctionPublicSubInset()SQLExt(SqlStmt)EndSubPublicSubUpdate(ByValTmpUserAsString)SQLExt(SqlStmt)EndSubPublicSubInit()TypeId=1EndSubPublicSubDelete(ByValTmpIdAsLong)SQLExt(SqlStmt)EndSubPublicFunctionGetInfo(ByValTmpIdAsLong)AsBooleanDimrsAsNewADODB.RecordsetSetrs=QueryExt(SqlStmt)Ifrs.EOFThenInitGetInfo=FalseElseIfIsNull(rs.Fields(0))ThenId=0ElseId=rs.Fields(0)EndIfIfIsNull(rs.Fields(1))ThenElseTypeName=rs.Fields(1)EndIfIfIsNull(rs.Fields(2))ThenTypeId=1ElseTypeId=rs.Fields(2)EndIfIfIsNull(rs.Fields(3))ThenElseDescription=rs.Fields(3)EndIfGetInfo=TrueEndIfEndFunctionPublicFunctionIn_DB(ByValTmpTypeNameAsString,ByValTmpTidAs_Integer)AsBooleanDimrsAsNewADODB.RecordsetSetrs=QueryExt(SqlStmt)Ifrs.EOF=TrueThenIn_DB=FaleseElseIn_DB=TrueEndIfEndFunctionPublicSubGetInfoByTypeId(ByValTmpTypeIdAsInteger)DimrsAsNewADODB.RecordsetDimiAsLongEraseArr_TypeReDimArr_Type(0)EraseArr_IdReDimArr__Id(0)Setrs=QueryExt(SqlStmt)i=0WhileNotrs.EOFReDimPreserveArr_Id(i+1)ReDimPreserveArr_Type(i+1)Arr_Id(i)=rs.Fields(0)Arr_TYPE(i)=RS.fIELDS(1)I=I+1rs.MoveNextWendEndSubPublicFunctionGetTypeNames(ByValTmpTypeIdsAsString)AsStringDimrsAsNewADODB.RecordsetDimiAsIntegeri=0Setrs=QueryExt(SqlStmt)WhlieNotrs.EOFIfi=0ThenGetTypeNames=rs.Fields(1)ElseEndIfi=i+1rs.MoveNextWendEndFunctionPublicSubInsert()SQLExt(SqlStmt)EndSubPublicSubUpdate(ByValTmpUserAsString)SQLExt(SqlStmt)EndSubPublicSubInit()TypeId=1EndSubPublicSubDelete(ByValTmpIdAsLong)SQLExt(SqlStmt)EndSubPublicFunctionGetInfo(ByValTmpIdAsInteger)AsBooleanDimrsAsNewADODB.RecordsetSetrs=QueryExt(SqlStmt)Ifrs.EOFThenInitGetInfo=FaleseElseIfIsNull(rs.Fields(0))ThenId=0ElseId=rs.Fields(0)EndIfIfIsNull(rs.Fields(1))ThenElseCompany=rs.Fields(1)EndIfIfIsNull(rs.Fields(2))ThenElseTelephone=rs.Fields(2)EndIfIfIsNull(rs.Fields(3))ThenElseZipCode=rs.Fields(3)EndIfIfIsNull(rs.Fields(4))ThenElseFax=rs.Fields(4)EndIfIfIsNull(rs.Fields(5))ThenElseAddress=rs.Fields(5)EndIfIfIsNull(rs.Fields(6))ThenElseEmail=rs.Fields(6)EndIfIfIsNull(rs.Fields(7))ThenContact=rs.Fields(7)EndIfIfIsNull(rs.Fields(8))ThenTypeId=1ElseTypeId=rs.Fields(8)EndIfIfIsNull(rs.Fields(9))ThenElseComment=rs.Fields(9)EndIfGetInfo=TrueEndIfEndFunctionPublicFunctionIn_DB(ByValTmpTidAsInteger)AsBooleanDimrsAsNewADODB.RecordsetSetrs=QueryExt(SqlStmt)Ifrs.EOF=TrueThenIn_DB=FlaseElseIn_DB=TrueEndIfEndFunctionPublicSubInsert()SQLExt(SqlStmt)EndSubPublicSubUpdate(ByValTmpIdAsLong)',Address='SQLExt(SqlStmt)EndSubPublicSubUpdateToMember(ByValTmpIdAsString)SQLExt(SqlStmt)EndSubPublicSubUpdateStatus(ByValTmpCNoAsString)LeaseSetStatus='SQLExt(SqlStmt)EndSubPublicSubUpdateAddStatus(ByValTmpCNoAsString)‘续租’，SQLExt(SqlStmt)EndSubPublicSubUpdate(ByValTmpIdAsLong),Telephone=',Fax=',Telephone=,Address='SQLExt(SqlStmt)EndSubPrivateSubGridRefresh()全部ElseEndIfAdodcl.ConnectionString=Conn合同编号，CarNoAS车牌号，“_客户号，LeaseTimeAS租赁时间，LeaseModeAS租赁模式，——AS归还时间，StatusAS状态， 日‘，Pricel*WorkDays+Price2*WeekEndCount,Pricel*WorkDays)AS租车费用其他费用，PaymentAS实际支付,DepositAS押金,TotalAS总额归还','结算审核Adodcl.RefreshSetDataGridl.DataSource=Adodc1DataGrid1.Columns(0).Width=1000DataGrid1.Columns(1).Width=1000DataGrid1.Columns(2).Width=1000DataGrid1.Columns(3).Width=1800DataGrid1.Columns(4).Width=1000DataGrid1.Columns(5).Width=1800DataGrid1.Columns(6).Width=1000DataGrid1.Columns(7).Width=1000DataGrid1.Columns(8).Width=1000DataGrid1.Columns(9).Width=1000DataGrid1.Columns(10).Width=1000DataGrid1.Columns(11).Width=1000EndSubPrivateSubForm_Load()GridRefresh出租出租审核续租续租审核归还归还审核全部Cmd_Modi.Enabled=FalseCmd_Del.Enabled=FalseCmd_Check.Enabled=FalseCmd_Cont.Enabled=FalseCmd_ContCheck.Enabled=FalseCmd_Print.Enabled=FalseEndSubPrivateSubCmd_Add_Click()DimsTimeAsStringFrmLeaseEdit.Modify=FalsesTime=Trim(Str(Time))FrmLeaseEdit.sLTime=sTimeFrmLeaseEdit.txtWorkDays.Enabled=FalseFrmLeaseEdit..txtWeekEndCount.Enabled=FalseFrmLeaseEdit.Labe119.Enabled=FalseFrmLeaseEdit.Labe120.Enabled=FalseFrmLeaseEdit.Labe113.Enabled=FalseFrmLeaseEdit.Labe114.Enabled=FalseFrmLeaseEdit.CarRefreshFrmLeaseEdit.CarPriceRefreshFrmLeaseEdit.CustomerRefreshFrmLeaseEdit.Show1GridRefreshEndSubPrivateSubCmd_Modi_Click()IfAdodcl.Recordset.EOFThen请选择记录ExitSubEndIfFrmLeaseEdit.Modify=TureFrmLeaseEdit.ContractNo=Trim(Adodcl.Recordset.Fields(0))FrmLeaseEdit.sCarNo=Trim(Adodcl.Recordset.Fields(1))FrmLeaseEdit.sCustId=Trim(Adodcl.Recordset.Fields(2))FrmLeaseEdit.txtContractNo=Trim(Adodcl.Recordset.Fields(0))FrmLeaseEdit.txtCarNo=Trim(Adodcl.Recordset.Fields(1))FrmLeaseEdit.txtCustId=Trim(Adodcl.Recordset.Fields(2))FrmLeaseEdit.cob_Mode.Text=Trim(Adodcl.Recordset.Fields(4))FrmLeaseEdit.txtLeaseTime=Trim(Adodcl.Recordset.Fields(3))FrmLeaseEdit.txtReturnTime=Trim(Adodcl.Recordset.Fields(5))IfMyLease.GetInfo(Trim(Adodcl.Recordset.Fields(0)).=TrueThenFrmLeaseEdit.txtWorkDays.Enabled=TrueFrmLeaseEdit.Labe113.Enabled=TrueFrmLeaseEdit.Labe114.Enabled=True日FrmLeaseEdit.txtWorkDays=MyLease.WorkDaysFrmLeaseEdit.txtWeekEndCount=MyLease.WeekEndCountFrmLeaseEdittxtWeekEndCount=Enabled=True工作日FrmLeaseEdit.Labe119.Enabled=TrueFrmLeaseEdit.Labe120.Enabled=True周FrmLeaseEdit.txtWorkDays=MyLease.WorkDaysFrmLeaseEdit.txtWeekEndCount=QFrmLeaseEdit.txtWeekEndCount.Enabled=False周数FrmLeaseEdit.Labe119.Enabled=FalseFrmLeaseEdit.Labe120.Enabled=False月FrmLeaseEdit.txtWorkDays=MyLease.WorkDaysFrmLeaseEdit.txtWeekEndCount=0FrmLeaseEdit.txtWeekEndCount.Enabled=False月份数FrmLeaseEdit.Labe119.Enabled=FalseFrmLeaseEdit.Labe120.Enabled=FalseEndIfFrmLeaseEdit.txtOutKM=MyLease.OutKMFrmLeaseEdit.txtCost=MyLease.TotalFrmLeaseEdit.txtUserName=Trim(MyLease.UserName)EndIfFrmLeaseEdit.CarRefreshFrmLeaseEdit.CarPriceRefreshFrmLeaseEdit.CustomerRefreshFrmLeaseEdit.Show1GridRefreshEndSubPrivateSubCmd_Del_Click()IfAdodc1.Recordset.EOF=TrueThen请选择记录ExitSubEndIf是否确定要删除租赁信息， 请确认ExitSubEndSubEndIfMyLease.Delete(Adodc1.Recordset.Fields(0))成功GridRefreshEndSubPrivateSubCmd_Check_Click()IfAdodc1.Recordset.EOF=TrueThen请选择记录ExitSubEndIf是否审核确认了租赁合同 请确认ExitSubEndIf出租审核MyLease.UpdateStatus(Adodc1.Recordset.Fields(0))GridRefreshEndSubPrivateSubCmd_Cont_Click()IfAdodcl.Recordset.EOF=TrueThen请选择记录ExitSubEndIfFrmLeaseAddEdit.sContracNo=Trim(Adodcl.Recordset.Fields(0))FrmLeaseAddEdit.txtContractNo=Trim(Adodcl.Recordset.Fields(0))IfMyLease.GetInfo(Trim(Adodcl.Recordset.Fields(0)))=TrueThenFrmLeaseAddEdit.sCarNo=Trim(MyLease.CarNo)FrmLeaseAddEdit.sCarNo=Trim(MyLease.CarNo)FrmLeaseAddEdit.sCustId=Trim(MyLease.CustId)FrmLeaseAddEdit.txtDeposit=MyLease.DepositFrmLeaseAddEdit.txtDayPrice=MyLease.Price1FrmLeaseAddEdit.txtWeekEndPrice=MyLease.Price2FrmLeaseAddEdit.txtOKMPrice=MyLease.OPrice1FrmLeaseAddEdit.txtOTPrice=MyLease.OPrice2FrmLeaseAddEdit.txtDayKM=MyLease.DayKMFrmLeaseAddEdit.txtLeaseMode=Trim(MyLease.LeaseMode)FrmLeaseAddEdit.txtLeaseTime=Trim(MyLease.LeaseTime)FrmLeaseAddEdit.txtReturnTime=Trim(MyLease.ReturnTime)FrmLeaseAddEdit.txtOutKM=MyLease.OutKMFrmLeaseAddEdit.txtRate=MyLease.Rate*10FrmLeaseAddEdit.txtUserName=Trim(MyLease.UserName)日FrmLeaseAddEdit.txtWorkDays=MyLease.WorkDaysFrmLeaseAddEdit.txtWeekEndCount=MyLease.WeekEndCount工作日FrmLeaseAddEdit.txtCost=MyLease.WorkDays*MyLease.Pricel+_MyLease.WorkDays*MyLease.Price2FrmLeaseAddEdit.txtWeekEndCount.Enabled=True周FrmLeaseAddEdit.txtWorkDays=MyLease.WorkDaysFrmLeaseAddEdit.txtWeekEndCount=0周数个周末数FrmLeaseEdit.txtCost=MyLease.WorkDays*MyLease.PricelFrmLeaseEdit.Labe119.Enabled=FalseFrmLeaseEdit.Labe120.Enabled=FalseFrmLeaseEdit.txtWeekEndCountt.Enabled=False月FrmLeaseAddEdit.txtWorkDays=MyLease.WorkDaysFrmLeaseAddEdit.txtWeekEndCount=0月份数个周末数FrmLeaseEdit.txtCost=MyLease.WorkDays*MyLease.PricelFrmLeaseEdit.Labe119.Enabled=FalseFrmLeaseEdit.Labe120.Enabled=FalseFrmLeaseEdit.txtWeekEndCountt.Enabled=FalseEndIfEndIfFrmLeaseEdit.CarRefreshFrmLeaseEdit.CustomerRefreshFrmLeaseEdit.txtContracNo.Enabled=FalseFrmLeaseEdit.Show1GridRefreshEndSubPrivateSubCmd_Print_Click()IfAdodcl.Recordset.EOF=TrueThen请选择打印的合同ExitSubEndIfDimwodcAsObjectDimwappAsObjectDimmytableAsObjectDimarowAsObjectDimwordfileAsString打印文件Contract.doc丢失，请与管理员联系“ExitSubEndIfwdoc.Visible=TrueCallSetmytable=wdoc.ActiveDocument.Tables(1)MyLease.GetInfo(Trim(Adodcl.Recordset.Fields(0)))mytable.Cell(2,1).Range.Delete合同编号Trim(Adodcl.Recordset.Fields(0))mytable.Cell(2,2).Range.Delete打印时间mytable.Cell(3,2).Range.Delete汽车租赁公司Setmytable=wdoc.ActiveDocument.Tables(2)MyCar.GetInfo(Trim(MyLease.CarNo))mytable.Cell(1,2).Range.InsertAfter.Trim(MyLease.CarNo)mytable.Cell(1,4).Range.InsertAfter.Trim(MyCar.CarName)mytable.Cell(2,2).Range.InsertAfterTrim(MyType.GetTypeNames)(Trim(Str(MyCar.TypeId)))mytable.Cell(2,4).Range.InsertAfter.Trim(MyCar.Color)mytable.Cell(3,2).Range.InsertAfter.Trim(MyCar.EngineNo)mytable.Cell(3,4).Range.InsertAfter.Trim(MyCar.CarCase)mytable.Cell(4,2).Range.InsertAfter.Trim(MyCar.TypeId)mytable.Cell(4,4).Range.InsertAfterTrim(MyType.GetTypeNames)(Trim(Str(MyCar.InsurType)))mytable.Cell(5,2).Range.InsertAfter.Trim(MyCar.InsurSdate)mytable.Cell(5,4).Range.InsertAfter.Trim(MyCar.InsurEdate)Setmytable=wdoc.ActiveDocument.Tables(3)mytable.Cell(1,2).Range.InsertAfter.Trim((Str(MyLease.Deposit))mytable.Cell(1,4).Range.InsertAfter.Trim(Str(MyCar.DayKM))sMode=Trim(MyLease.LeaseMode)mytable.Cell(2,2).Range.InsertAfter.sModemytable.Cell(2,4).Range.InsertAfter.Trim((Str(MyLease.OPrice2))mytable.Cell(3,2).Range.InsertAfter.Trim(Str(MyLease.Price1)mytable.Cell(3,4).Range.InsertAfter.Trim((Str(MyLease.OPrice1))mytable.Cell(4,2).Range.InsertAfter.Trim(Str(MyLease.WorkDays))mytable.Cell(4,4).Range.InsertAfter.Trim((Str(MyLease.Rate))mytable.Cell(3,1).Range.Deletemytable.Cell(4,1).Range.Delete日每日租金(元/日)租赁天数(工作日)mytable.