还剩54页未读,继续阅读
本资源只提供10页预览,全部文档请下载后查看!喜欢就下载吧,查找使用更方便
文本内容:
摘要近年来,随着计算机技术的成熟及数据库技术的发展,信息管理系统的应用已延伸到社会的各个领域以信息管理系统的开发为理论基础,开发出汽车租赁管理系统汽车租赁管理是汽车租赁公司开展日常运营的重要工具传统的人工管理方式不但浪费时间,而且管理复杂,易出差错汽车租赁管理系统能使繁琐的数据计算、信息处理变得简单易操作,完全实现数据信息的电算化管理使用这套系统有助于提高汽车租赁公司的效率,节约成本,增加经济效益本论文主要介绍了该系统的生成及VisualBasic
6.0和Access的一般原理阐述了整个汽车租赁管理系统的制作步骤及工作原理;设计实现了系统用户管理、基本信息管理、业务管理、会员管理等程序模块;分析了系统的可行性并解决了可能存在的问题关键词数据库;VisualBasic
6.0;汽车租赁管理AbstractInrecentyearswiththedevelopmentofthetechnologyofcomputeranddatabase.Informationmanagementsystemhasstretchedintoeveryfieldofoursociety.Basedonthedevelopmenttheoryoftheinformationmanagementsystemthendevelopedanothermanagementsystem--theautomobilelend-lease.Themanagementofautomobilelendingandleasingplayaveryimportantroleinthecompanysdailyoperation.Comparedwiththetraditionalwaywhichwastehumanresourcesandtime.Atthesametimeitiscomplicatedandoftenrunswithmistakes.Whiletheautomobilelend-leasesystemturnthecomplicateddatacalculationandinformationprocessingintosimpleinstructions.Notonlyincreasetheefficiencybuttheeconomicbenefits.ThispapermainlyintroducesthedevelopbackgroundofthesystemandthebasictheoryofVisualBasic
6.0andAccessVisual.Ittellsthestructureoftheautomobilelend-leasemanagementsystemanditsworkingtheory;itanalyzesthespecialtydifficultyandimportantthingsinsystemrealization.Thedesignrealizesthemanagementofthesystemusersthebasicinformationthebusinessandthemembersmanagement.Keywords: Database;VisualBasic
6.0;Theautomobilelend-leasemanagement目 录TOC\o1-3\h\z\u第1章绪论
11.1开发背景
11.2系统功能简介
11.3开发工具
11.
3.1VisualBasic
6.0简介
21.
3.2Access2003简介
21.4可行性研究与需求分析
31.
4.1可行性研究
31.
4.2需求分析3第2章系统数据库设计
42.1数据库管理系统简介
42.2ADO数据库访问技术
42.3系统功能分析研究
52.4系统功能模块图
52.5数据字典
62.6数据库各表的数据结构7第3章系统功能设计
123.1登录模块设计
123.2主程序界面设计
133.3基础数据管理模块的实现
143.
3.1车辆和保险类型管理窗体的设计
143.
3.2汽车销售商管理窗体的设计
153.
3.3保险公司管理窗体的设计
163.
3.4车辆管理窗体的设计
173.4客户会员管理模块的实现
183.
4.1客户信息管理窗体的设计
183.
4.2会员信息管理窗体设计
193.
4.3会员类型管理窗体设计
213.5日常业务管理模块的实现
213.
5.1汽车租赁管理窗体设计
223.
5.2汽车归还管理窗体设计24结论26致谢27参考文献27附录程序代码29第1章绪论
1.1开发背景今天,随着人民生活水平的不断提高,汽车已不再遥不可及,汽车租赁作为一种全新的消费模式已成为一个极具市场潜力的行业,它不仅可以有效的疏通汽车生产与汽车销售之间的“瓶颈”,而且对汽车消费市场的扩展有着不可低估的功效在这个“时间就是金钱”的社会,加快生活节奏,提高生活效率刻不容缓因此在必要的时候向汽车出租公司提出租赁车辆的要求,已成为被大众认可的选择在社会需求的带动下,汽车租赁市场出现了前所未有的繁荣景象各个汽车租赁公司门庭若市,业务激增然而在繁忙的景象背后,却也暴露出汽车租赁公司在处理业务信息时以人工方式为主所带来的诸如效率低下,管理混乱,失误增多等诸多弊端在实践中,汽车租赁行业的业主们逐渐意识到在租赁行业中借助计算机引入信息管理的重要性,并开始不断提高自身的素质和高科技在工作中的投入,以改善信息的管理,提高服务效率汽车租赁管理系统就是对车辆信息和客户信息的管理,主要包括车辆的基本信息、车辆的出租状态、车辆的投保情况、客户信息的管理等它的设计开发充分按照汽车租赁的实际业务流程,结合了租赁行业的实际运营特点,满足汽车租赁行业的信息化需求
1.2系统功能简介汽车租赁管理系统针对的是汽车租赁公司在向客户提供出租车辆服务过程中面对的各种问题而开发的,对其业务信息进行自动化、信息化处理,使车辆租赁管理变得高校、快捷、规范此系统具有完善的功能,使用轻松方便,易于维护,适应性强包括客户信息管理、车辆信息管理、汽车租赁归还管理、会员类型管理、会员信息管理、保险公司管理、汽车销售商管理等具有添加、修改、删除、查询等功能,通过这些管理模块,可以使汽车租赁服务更加清晰,更加便捷,提高了服务质量,减少了操作人员的工作量希望它能为业内人员的工作提供一定的帮助
1.3开发工具
1.
3.1VisualBasic
6.0简介VisualBasic是一种结构化的编程语言,它集成了一个完整且功能强大的应用程序开发环境操作简单易学,使程序设计不再复杂“visual”指的是开发图形用户界面(GUI)的方法不需编写大量代码去描述界面元素的外观和位置,而只要把预先建立的对象加到屏幕上,一点即可“Basic”是一种在计算机技术发展历史上应用的最为广泛的语言另外,在VisualBasic中引入了控件的概念,在Windows中控件的身影无处不在,各种各样的按钮,文本框等都是控件VisualBasic把这些控件模式化,并且每个控件都有若干属性用来控制控件的外观以及工作方法VisualBasic是具有集成的可视化数据库工具,VisualBasic
6.0提供了一整套工具以在任何应用程序中集成数据库它可用来设计和修改ADO等数据库工具,也可用拖放方式创建绑有数据的表格和报告更重要的是VisualBasic简单、易学、实用,深受广大编程爱好者的喜爱
1.
3.2Access2003简介MicrosoftAccess数据库管理系统是MicrosoftOffice系列应用软件的一部分,是基于Windows平台的数据库管理系统,它操作简单、功能全面、使用方便,不仅具有传统数据库管理软件所具有的功能,同时还进一步增强了与Internet的集成,用户可以通过Internet共享Access数据库Access具有强大的数据管理功能,可以方便地利用各种数据源,生成窗体(表单)、查询、报表和应用程序等1Access2003是Microsoft公司出品的关联式资料库套装软体它提供视觉化的设计介面,不必撰写程式,即可快速,简单地开发出美观实用的资料库管理系统Access2003由如下组成资料表为access储存资料的地方,亦为资料的根本来源,一个资料库至少要存在一个资料表查询可依使用者需求,以一些限制条件(筛选过滤…)来选取资料表中表单建立一个让使用者输入,查询,修改资料的操作画面报表将资料库里的资料运用报表做成有利用价值的画面资料资料页为Access2003的新增物件,资料发布至网路的媒介此物件完成建立后,将会在资料库档案外,再产生一个HTML档巨集建立简单的资料操作指令与将一连串的执行动作自动化应用于一些重复性高的动作或者用于使用者自订工作环境上模组开发应用系统的工具是让使用者能更随心所欲的去控制系统
1.4可行性研究与需求分析
1.
4.1可行性研究通过对部分用户和部门的调查研究表明,传统的租赁管理系统,在后期维护和更新上比较麻烦,如果对功能模块进行修改,需要对整个系统进行重新架构才能实现本系统在基本信息管理模块中实现了对车辆、客户、驾驶员等信息的增加、删除、修改等功能在日常任务模块中,实现了对租赁和归还信息的管理在基础数据管理中还涉及了租赁合同的打印,非常周到,贴合实际本系统具有操作简便、灵活,用户界面直观;可实现企业管理程序化、条理化、规范化、高效化;提供及时、可靠的数据资料,并自动对数据进行分析;多数操作选项采用人工选择的方式,避免了用户记忆一些不必要的指令,减轻用户操作负担
1.
4.2需求分析开发汽车租赁管理系统的目的就是为了使租赁公司能够更好的为客户服务且工作不需要花费大量的时间和精力这不但使客户租车过程简化、快捷,还能使租赁公司信息更规范,易管理.综上所述公司不再需要过多的人员去管理繁杂的资料,既节省了办公效率、降低了成本还节省了客户的时间本系统经过短期的可行性市场调查与分析工作及长期实践操作,最后确定整体系统方案,在综合各项软件指标的前提下认真完成第2章系统数据库设计
2.1数据库管理系统简介数据库是信息管理系统的基本技术,是计算机科学的重要分支数据库(DataBase,DB)是指长期储存在计算机内的、有组织的、可以共享的数据集合数据库中的数据按一定的数据模型组织、描述和储存,具有较小的冗余度、较高的数据独立性和易扩展性,并可以为各种用户共享数据库管理系统是在操作系统的支持下,为数据库的建立、使用和维护而配置的软件环境,如MicrosoftSQLServer、MicrosoftAccess等数据库系统是位于用户与操作系统之间的一层数据管理软件,它在操作系统的基础上,对数据库进行管理和控制,利用数据库管理系统提供的一系列命令,用户能方便地实现对数据库的基本操作(如建表、向表中添加记录、删除记录和修改记录等)用户使用的各种数据库命令以及数据库应用程序的运行,都要通过数据库管理系统来实现;另外,数据库管理系统还要保证数据的安全性,完整性,多用户对数据库的并发使用以及发生故障后系统的回复等任务在信息资源已成为各个部门的重要财富和资源的当下开发一个满足各个部门信息处理要求的信息系统也因此成为一个企业或组织生存和发展的重要部分因此,作为信息系统核心,数据库已得到越来越广泛的应用,新的应用领域采用数据库存储和处理信息资源对于一个国家来说,数据库的规模、信息量的大小和使用频度已成为衡量这个国家信息化程度的重要标志
2.2ADO数据库访问技术VisualBasic作为一种面向对象的可视化编程工具,具有简单易学、灵活方便易于扩充的特点因此它越来越多的用作数据库应用程序的前端开发工具在VisualBasic中,可以通过ActiveX数据对象ADO,数据访问对象DAO,ODBC直接连接到数据库其中ADO是最新的数据库访问技术它是使用更加简单,灵活的对象模型本系统就是基于这种技术开发的ADO在工程的创建过程中提供执行以下操作的方式
1、连接到数据源
2、指定访问数据源的命令,同时可带变量参数或优化执行通常涉及ADO的Command对象
3、执行命令,例如一个SELECT脚本
4、如果这个命令使数据按表中行的形式返回,则将这些行存储在易于检查、操作或更改的缓存中
5、适当情况下,可以把缓存行的更改内容写回数据库中,更新数据源
6、提供常规方法检测错误(错误通常由建立连接或执行命令造成),涉及ADO的Error对象
2.3系统功能分析研究本系统通过对市场需求的具体调研和分析确定本系统应具备系统管理基础数据管理、客户会员管理、日常业务管理等模块的功能.下面具体分析一下各个模块的功能
1、系统管理模块该模块可以完成修改用户密码,添加新用户,设置密码以及退出系统等操作
2、基础数据管理模块在这个模块中,可以设置车辆类型和保险类型,而且还可以对汽车销售商,车辆的保险公司进行管理,如添加,修改和删除等操作
3、客户会员管理模块在这个模块中,可以设置会员的级别以及添加,修改,和删除客户和会员的信息
4、日常业务管理模块在这个模块中可以完成车辆的出租,审核以及还车的操作,而且可以查询和打印租赁合同
2.4系统功能模块图汽车租赁管理信息系统的系统功能结构图如图
2.1所示图
2.1系统总体功能设计
2.5数据字典数据字典是关于数据信息的集合,它为分析阶段的工具,其作用就是在软件分析和设计的过程中给人提供关于数据的描述信息,在数据字典中,建立一组严密一致的定义很有助于改进分析员和用户之间的通信,因此将消除可能的误解数据字典主要应该包括的每个数据元素的控制信息有名字,别名,描述,定义,位置数据字典中包含的每个数据元素的控制信息是很有价值的因为列出了使用一个给定的数据元素的所有程序(或者模块),所以很容易估计改变一个数据将产生的影响,并且能对所有受影响的程序或者模块做出相应的调整本系统的数据字典如下
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+wworkplace
4、名字membertype别名会员类型描述记录会员类型的编号,名称,折扣率定义membertype=id+typename+rate位置会员类型定义,会员信息,汽车租赁,车辆归还
5、名字company别名公司信息描述保险公司和车辆销售商的名称,地址,联系方式等信息定义company=id+company+telephone+zipcode+fax+address+email+contact+typeid+comment位置销售商信息,保险公司信息,车辆信息
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+othercost+rate+dayment+total+status+createdate+username+realtime位置车辆租赁,车辆归还
2.6数据库各表的数据结构本系统数据库名称为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.1登录流程图登录模块窗体如图
3.2所示,包含三个标签控件,一个框架,两个文本框和两个命令按钮图
3.2登陆界面首先点击工程菜单,选择“添加窗体”,在新建的工程内添加一个空窗体,在适当的位置画出框架,然后在框架内添加两个标签控件和两个文本框,然后把另一个标签和两个命令按钮画在下面,设置各个控件属性,最后编写源代码例如将第二个命令按钮的控制名设为“cmd_cancel”caption属性设为“取消”,字体设为“宋体”,enable和visible属性均设为“True”,编写按钮单击时间源代码如下PrivateSubCmd_Cancel_ClickEndEndSub
3.2主程序界面设计用户登录成功后,即进入系统主界面主界面的外观设计应该大方美观,布局合格,方便用户的下一步操作,其窗体布局如下,菜单栏内设有五个子菜单栏,工具栏内设有六个按钮,分别连接常用的功能用户登录成功后,即进入系统主程序界面主界面的窗体布局如下,菜单栏内设有【基础数据管理】、【客户会员管理】【日常业务管理】【系统管理】四个子菜单,工具栏内设有六个按钮,分别为【车辆类型设置】【汽车销售商管理】【保险公司管理】【汽车租赁】【汽车归还】【会员信息】主程序界面如图
3.3图
3.3 主程序界面点击新建工程按钮,在生成的窗体上单击右键,在弹出的菜单栏上点击“菜单编辑器”命令,打开菜单编辑器设计好程序各级菜单在窗体上添加“图像列表控件”,用于保存工具栏按钮所使用的图像,在窗体上添加“工具栏控件”,将其与“图像控制列表控件”相关联并加入代表耽搁按钮的“按钮对象”,最后编写工具栏对应的源代码工具栏单击事件源代码如下PrivateSubToolbar1_ButtonClickByValButtonAsMSComctlLib.ButtonSelectCaseButton.KeyCaseaaLoadFrmTypeFrmType.ShowvbModalCasebbLoadFrmSalesFrmSales.ShowvbModalCaseccLoadFrmInsuranceFrmInsurance.ShowvbModalCaseddLoadFrmLeaseFrmLease.ShowvbModalCaseeeLoadFrmReturnFrmReturn.ShowvbModalCaseggLoadFrmMembersFrmMembers.ShowvbModalEndSelectEndSub
3.3基础数据管理模块的实现
3.
3.1车辆和保险类型管理窗体的设计该窗体上设有两个单选按钮,一个datalist控件,四个命令按钮,其窗体如下图
3.4车辆和保险类型设置界面首先按设计添加窗体,安排好各控件的布局,设置其相应属性,例如将左边的“单选按钮”名称属性设为“optsel”caption属性设为“汽车类型”Indexs属性设为“0”,字体属性设为“宋体”,value值设为“True”,而命令按钮设置同上,如对“添加”按钮的设置,设置完成后编写源代码
3.
3.2汽车销售商管理窗体的设计此窗体用于对车辆销售商的信息如销售商名称,联系电话,传真,地址,邮编,电子邮箱等操作,还可以根据用户选择的销售商名称查询该厂商旗下汽车租赁情况窗体设计如图
3.5图
3.5 汽车销售商管理界面此窗体上设置了六和命令按钮,一个Datagrid控件,一个标签控件和一个文本框首先按设计添加窗体,做好各控件的布局,设置相应属性,如datagrid控件名称属性设置为“datagrid1”dragmode属性设置为“0”,allowaddnew属性设为“False”Allowdelete属性设置为“False”allowupdate属性设为“False”字体设置为“宋体”,Enable和Visible属性均设为“True”其添加命令按钮单击事件源代码如下PrivateSubCmd_Add_ClickFrmCompanyEdit.Modify=FalseFrmCompanyEdit.nTid=1FrmCompanyEdit.txtCompany=FrmCompanyEdit.lblType=销售商FrmCompanyEdit.txtTelephone=FrmCompanyEdit.txtFax=FrmCompanyEdit.txtAddress=FrmCompanyEdit.txtContact=FrmCompanyEdit.txtComment=FrmCompanyEdit.txtZipCode=FrmCompanyEdit.txtEmail=FrmCompanyEdit.Show1GridRefreshEndSub
3.
3.3保险公司管理窗体的设计此窗体用于对保险公司信息如保险公司的公司名称,联系电话,传真,地址,邮编,电子邮箱等备注的查询,添加,修改和删除另外还可根据用户选择的保险公司名称查询投保语该保险公司的汽车的情况设计窗体如图
3.6图
3.6保险公司管理界面首先按设计添加窗体,安排好各控件的布局,设置其相应属性,如名称属性为“label1”,alignment属性设置为“0”,文本框对其方式为“左对齐”,Caption属性设置为“保险公司名”,字体属性设置为“宋体”查看保险车辆按钮的单击事件源代码如下PrivateSubCmd_ViewCars_ClickFrmSaleCars.nType=2FrmSaleCars.sSaleName=TrimAdodc
1.Recordset.Fields1FrmSaleCars.nSaleId=Adodc
1.Recordset.Fields0FrmSaleCars.txtSaleName=TrimAdodc
1.Recordset.Fields1FrmSaleCars.Caption=查看保险公司保险汽车FrmSaleCars.Label1=保险公司名称FrmSaleCars.Show1EndSub
3.
3.4车辆管理窗体的设计本窗体用于提供对车辆信息的添加,修改和删除功能,可处理的信息包括车辆的基本信息如车牌号,状态,车辆类型,颜色,押金,日租金等设计界面如图
3.7图
3.7车辆管理界面
3.4客户会员管理模块的实现
3.
4.1客户信息管理窗体的设计客户信息管理窗体用于对客户信息如编号、姓名、性别、年龄、驾驶证编号、驾龄等的查找、添加、修改、删除等操作并且提供将普通客户加入会员的服务本窗体上设置有六个命令按钮,一个Adodc控件,一个Datagrid控件,一个标签控件和一个文本框命令按钮分别为“添加”“修改”“删除”“查找”“加入会员”“退出”窗体设计如图
3.8图
3.8客户信息管理界面点击“工程”菜单,选择“添加窗体”,在窗体上画出所需控件,把这些控件移动至窗体内适当位置,并设置各个控件的属性,最后编写各个控件相应事件过程如,对于命令按钮“删除”,当放置好按钮位置后,将其名称属性设置为“Cmd_del”,对于Caption属性则设置为“删除”,字体属性设置为“宋体”,Enabled和Visible属性设置为true进行删除操作时,首先在列表框上显示出来的客户信息条目中将要删除一条选中(如果不选择,系统则默认为选择了第一条)做出选择后,单击“删除”按钮,显示一个对话框,选中用户是否确认删除,选“是”,则系统从数据库中删除该项,并弹出一个信息框,告知用户操作成功命令按钮“删除”单击事件源代码如下PrivateSubCmd_Del_ClickIfAdodc
1.Recordset.EOF=TrueThenMsgBox请选择记录ExitSubEndIfIfMsgBox是否确定要删除vbYesNo请确认=vbNoThenExitSubEndIfMyCustomer.DeleteTrimAdodc
1.Recordset.Fields0MsgBox成功vbInformationGridRefreshEndSub
3.
4.2会员信息管理窗体设计会员信息管理窗体用于对会员信息如,编号,姓名,年龄驾驶证编号,驾龄,登记日期等的查找、修改及注销功能本窗体上设有四个命令按钮,一个Datagrid控件,一个标签控件和一个文本框窗体设计如图
3.9图
3.9会员信息管理界面点击“工程”菜单,选择“添加窗体”,在新建工程内添加一个空窗体,先设置窗体的属性,名称属性设置为“Frmmembers”,StartUpPosition属性设置为“2”,即窗体首次出现是在屏幕中心显示,Font属性设置为“宋体”,Caption属性设置为“会员管理”接着对其它控件的属性进行设置命令按钮“注销会员”的功能是将用户选定的会员条目从客户信息表中删除(如果不选择,系统默认为选择了第一条)选择后,单击“注销会员”按钮,弹出对话框,询问用户“是否确定要注销会员资格”,选择“是”,系统执行注销操作,并弹出一个信息框,显示“注销会员成功”,最后系统更新Datagrid控件中显示的会员信息条目命令按钮“注销会员”单击事件策划年供需源代码如下PrivateSubCmd_OffMember_ClickIfAdodc
1.Recordset.EOF=TrueThenMsgBox请选择记录ExitSubEndIfIfMsgBox是否确定要注销会员资格vbYesNo请确认=vbNoThenExitSubEndIfMyCustomer.TypeId=0MyCustomer.UpdateToMemberTrimAdodc
1.Recordset.Fields0MsgBox注销会员成功vbInformationGridRefreshEndSub
3.
4.3会员类型管理窗体设计本窗体用于对会员类型的管理,即对会员等级进行分类,如,vip会员,一般会员,超级会员等,不同等级的用户享受的租赁价格的折扣不同通过“添加”功能可登记新的会员用户,及其享受的折扣,通过“修改”功能可修改已有的会员类型名称及折扣“删除”功能与之前描述的“注销会员”操作类似,在此不再赘述本窗体上设置有四个命令按钮,一个Datagrid控件,窗体设计如图
3.10图
3.10会员类型管理界面点击“工程”菜单,选择“添加窗体”,设置各个控件在窗体中的位置,然后设置窗体及各控件属性,最后编写窗体及各个空间源代码当窗体载入是,触发form_load事件,即窗体载入事件该载入事件的源代码PrivateSubForm_loadGridRefreshEndSub其中,GridRefresh为一个函数调用语句,是在窗体模块内部定义的一个私有过程,在过程中设置了Adodc控件的两个属性,分别为Connectionstring属性和Recordsource属性该过程的作用为在DataGrid控件上向用户显示会员类型的即存信息
3.5日常业务管理模块的实现
3.
5.1汽车租赁管理窗体设计汽车租赁模块的实现是本系统的关键,当客户提出租车要求时,租赁公司通过系统的这一模块向数据库的Lease表中添加新的租赁记录在车辆处于特定的状态时,可执行对记录信息的修改、删除、审核、续租等操作车辆的状态由Lease表中状态字段指定本窗体上设置有一个DataGrid控件,一个组合框,一个标签控件,八个命令按钮控件,设计窗体如图
3.11图
3.11汽车租赁管理界面在“工程”中添加一个窗体后,按上述布局设置空间然后进行各控件的属性设置当执行“添加”操作并成功添加一条新的租赁信息后,将在DataGrid控件中显示出这条新的记录,其中“状态”栏内为“出租”,此时,可对这一条记录执行“修改”、“删除”操作,添加车辆出租信息后,确定所添数据无误,则应执行“租赁审核”命令,“审核”即为确定当单击“租赁审核”按钮后,将弹出一个对话框,询问用户是否确执行租赁审核,选择“是”,车辆“状态”则变为“租赁审核”,即用户将不能对该记录执行“修改”、“删除”命令,但可执行“续租”命令执行“续租”后,车辆状态变为“续租”确定续租信息无误,执行“续租审核”命令当单击“添加”命令按钮后,将触发“添加”命令按钮的单击事件此时将打开“编辑车辆出租信息”窗体,如图
3.12图
3.12添加或修改租赁信息的界面窗体上设有三个Datagrid控件和三个ADODC控件,系统将在程序执行中为ADODC控件设置connectionstring属性和recordsource属性,为datagrid控件设置datasource属性,以达到将datagrid控件与数据库相连,在datagrid控件中显示相关信息的目的处于“出租审核”的合同可以打印,单击“打印合同”按钮,就能打印出所选的租赁合同,结果如图
3.13图
3.13租赁合同的打印
3.
5.2汽车归还管理窗体设计本模块用于对车辆归还业务的管理,通过本模块可对已租车辆实现归还,信息修改,结算审核和查询操作,窗体设计如图
3.14图
3.14汽车租赁归还管理界面当办理归还业务时,打开此窗体,单击命令按钮“归还”,打开“车辆归还结算审核”,如图
3.15图
3.15汽车归还结算界面按办理租赁业务时所创建的合同编号,查找相应的车辆信息,即可进行归还操作当处理完归还信息后,返回“车辆租赁归还”窗体,在datagrid控件中显示出刚处理完的归还业务信息,车辆状态为“归还”,只有对“归还”状态的信息,才能执行“结算审核”操作单击“结算审核”命令按钮,将弹出一个对话框,询问用户是否确认结算审核信息,选择“是”,将最后完成车辆的归还业务的处理,此时车辆状态为“结算审核”当添加完窗体上的各个控件后,进行窗体布局,属性设置最后完成代码编写如将窗体的名称属性设为Frmreturncaption属性设为“车辆租赁归还管理”,字体设置为“宋体”,Startupposit属性设为2,即窗体首次出现时位置在屏幕中心,,然后编写代码如下PrivateSubForm_LoadGridRefreshcob_Status.AddItem归还0cob_Status.AddItem归还审核1Cmd_RntCheck.Enabled=FalseEndSub结论经过三个月的摸索学习终于完成了这个“汽车租赁管理系统”通过对开发过程的研究,我对对数据库及visualBasic
6.0的使用方法有了更深的理解让我深刻体会到一个工程的开发,编程过程并不那么简单,从软件的需求分析到系统设计再到工程代码的实现,让我体会到要成为熟练掌握编程语言的软件开发者是多么不容易,一个实用的高质量的系统软件,要想充分满足客户需求,必须扎扎实实的做好需求分析,为后续的系统设计和实现打下良好的基础本系统界面简洁,设计合理,能够实现预计的功能,但系统的容错性还不太完善这也暴露出我的编程能力还有待提高今后我会继续努力学习,不断充实自己,提高自己的能力总的来说,本系统的设计基本符合用户要求,可以为用户使用由于本人水平有限,在设计思路和技巧方法上可能比较愚钝,在开发语言的掌握上可能相对肤浅,所以,反映到系统中,难免存在许多的不足之处,殷切希望各位老师批评、指正致谢首先我要衷心的感谢我的指导教师黄迎春老师,因为这篇论文是在他的悉心指导下才完成的在设计的起初阶段,我总被一些问题所难倒,不知如何切入重点,从而让我对毕业设计失去了信心与耐性,是黄老师在百忙之中抽出休息时间对我进行了一番思想上的教育并耐心的一步一步的指导我的毕业设计在老师的细心指导下,我重新对设计有了理性的思考,这不但解决了我心中的胆怯,而且也解决了我在毕业设计中所遇到的严谨的问题,而且使我更加懂得了如何去分析和解决问题,并从中体会到了真正成功的喜悦黄老师在学术上给予我精心的指导,可以说他一丝不苟的敬业精神、渊博的学术知识和严谨求实的治学态度使我受益匪浅,让我也把更多的精力放在了我在大学校原里最后的一次考试——毕业设计通过这两个月的磨练,使我懂得了要想成为一名优秀的编程人员,不但要有良好的基础知识,踏实地基本功,更重要的是要有不怕困难,战胜困难的决心和勇气因此,每每遇到问题后我都会自己潜心研究,查找各种资料,借助网络和图书两大信息力量,加上我平时的所学,尽量解决问题度过难关其次还要感谢给予我帮助、支持和鼓励的同学特别是同组的同学,是他们给了我很大的帮助,让我能够顺利的完成本次毕业设计;是他们给了我大学最后时光的快乐,让我懂得学习的真谛最后我要向学习中默默支持我的家人和朋友,及所有关心帮助过我的师长和同学们表示诚挚的感谢,因为你们的存在,使得我在走进大学后努力的学习,快速的增长知识,现在即将走出大学校园,我会加倍的努力,使自己更上一层楼,做个对社会有用的人!参考文献
[1]罗朝盛.VisualBasic
6.0程序设计教程.第三版.人民邮电出版社
2009.2
[2]刘志妩.基于VB和SQL的数据库编程技术,第一版,清华大学出版社
2008.
4.
[3]刘玉山.VB数据库项目设计模块化教程,第一版,机械工业出版社
2009.
8.
[4]杨富国王健.VisualBasic程序开发案例解析,第一版,北京交通大学出版社
2006.2
[5]李勇帆.VisualBasic
6.0程序设计与应用,人民邮电出版社
2006.2
[6]沈大林.中文VisualBasic
6.0实用教程:结构化程序设计.第一版,人民邮电出版社
2005.6
[7]陈承欢.ADO.NET数据库访问技术案例教程,第一版.人民邮电出版
2008.4
[8]杨芙清.全国计算机等级考试二级教程.第1版.高等教育出版社,200110
[9]童爱红,候太平.VisualBasic数据库编程.第1版.清华大学出版社,北京交通大学出版社,2004,6
[10]刘文涛,VisualBasic+Access数据库开发与实例,第一版,清华大学出版社,
2006.7附录程序代码PublicSubConnectstringConn=provider=Microsoft.Jet.Oledb.
4.0;DataSource=_App.pATH+\database\CarMIS.mdb;PersistSecurityInfo=FalseEndSubPrivateSubConnectIfIsConnect=TureThenExitSubEndIfSetcnn=NewADODB.Connectioncnn.ConnectionString=Conncnn.OpenIfcnn.StateadStateOpenThenMsgBox数据库连接失败EndEndIfIsConnect=TrueEndSubPrivateSubDisconnectDimRcAsLongIfIsConnect=FalseThenExitSubEndIfcnn.CloseSetcnn=NothingIsConnect=FalseEndSubPublicSubDB_ConnectConnect_Num=Connect_Num+1ConnectEndSubPublicSubDB_DisconnectIfConnect_Num=CONNECT_LOOP_MAXThenConnect_Num=0DisconnectEndIfEndSubPublicSubDBapi_DisconnectConnect_Num=0DisconnectEndSubPublicSubSQLExtByValTmpSQLstmtAsStringDimcmdAsNewADODB.CommandDB_ConnectSetcmd.ActiveConnection=cnncmd.CommandText=TmpSQLstmtcmd.ExecuteSetcmd=NothingDB_DisconnectEndSubPublicFunctionQueryExtByValTmpSQLstmtAsSrtingAsADODB.RecordsetDimrstAsNewADODB.RecordsetDB_ConnectSetrst.ActiveConnection=cnnrst.CuisorTyepe=aDOpenDynamicrst.LockType=adLockOptisticrst.OpenTmpSQLstmtSetQueryExt=rstEndFunctionPublicSubInitUserName=UserPwd=EndSubPublicSubDeleteByValTmpUserAsStringSqlStmt=DELETEFROMUsersWHEREUserName=_+TrimTmpUser+SQLExtSqlStmtEndSubPublicFunctionGetInfoByValTmpUserAsStringAsBooleanUserName=TampUserDimrsAsNewADODB.RecordsetSqlStmt=SELECT*FROMUsersWHEREUserName=_+TrimTmpUser+Setrs=QueryExtSqlStmtIfrs.EOFThenGetInfo=FalseExitFuntionElseIfIsNullrs.Fields1ThenUserPwd=ElseUserPwd=Trimrs.Fields1EndIfEndIfGetInfo=TrueEndFunctionPublicFunctionIn_DBByValTmpUserAdStringAsBooleanDimrsAsNewADODB.RecordsetSqlStmt=SELECT*FROMUsersWHEREUserName=_+TrimTmpUser+Setrs=QueryExtSqlStmtIfNotrs.EOFThenIn_DB=TrueElseIn_db=FalseEndIfEndFunctionPublicSubInsetSqlStmt=INSERTINTOUsersValues_+TrimUserName++TrimUserPwd+SQLExtSqlStmtEndSubPublicSubUpdateByValTmpUserAsStringSqlStmt=UpdateUsersSetUserName=+TrimUserName_+UserPwd=+TrimUserPwd_+WHEREUserName=+TrimTmpUser+SQLExtSqlStmtEndSubPublicSubInitTypeName=TypeId=1Description=EndSubPublicSubDeleteByValTmpIdAsLongSqlStmt=DELETEFROMTypesWHEREId=+TrimTmpIdSQLExtSqlStmtEndSubPublicFunctionGetInfoByValTmpIdAsLongAsBooleanDimrsAsNewADODB.RecordsetSqlStmt=SELECT*FROMTypesWHEREId=+TrimTmpIdSetrs=QueryExtSqlStmtIfrs.EOFThenInitGetInfo=FalseElseIfIsNullrs.Fields0ThenId=0ElseId=rs.Fields0EndIfIfIsNullrs.Fields1ThenTypeName=ElseTypeName=rs.Fields1EndIfIfIsNullrs.Fields2ThenTypeId=1ElseTypeId=rs.Fields2EndIfIfIsNullrs.Fields3ThenDescription=ElseDescription=rs.Fields3EndIfGetInfo=TrueEndIfEndFunctionPublicFunctionIn_DBByValTmpTypeNameAsStringByValTmpTidAs_IntegerAsBooleanDimrsAsNewADODB.RecordsetSqlStmt=SELECT*FROMTypesWHERETypeName_+TrimTmpTypeName+ANDTypeId=+TrimStrTmpTidSetrs=QueryExtSqlStmtIfrs.EOF=TrueThenIn_DB=FaleseElseIn_DB=TrueEndIfEndFunctionPublicSubGetInfoByTypeIdByValTmpTypeIdAsIntegerDimrsAsNewADODB.RecordsetDimiAsLongEraseArr_TypeReDimArr_Type0EraseArr_IdReDimArr__Id0SqlStmt=SELECT*FROMTypesWHERETypeId=+TrimTmpTypeIdSetrs=QueryExtSqlStmti=0WhileNotrs.EOFReDimPreserveArr_Idi+1ReDimPreserveArr_Typei+1Arr_Idi=rs.Fields0Arr_TYPEi=RS.fIELDS1I=I+1rs.MoveNextWendEndSubPublicFunctionGetTypeNamesByValTmpTypeIdsAsStringAsStringDimrsAsNewADODB.RecordsetDimiAsIntegeri=0GetTypeNames=Sqlstmt=SELECT*FROMTypesWHEREIdIN+TrimTmpTypeIds+Setrs=QueryExtSqlStmtWhlieNotrs.EOFIfi=0ThenGetTypeNames=rs.Fields1ElseGetTypeNames=GetTypeNames++rs.Fields1EndIfi=i+1rs.MoveNextWendEndFunctionPublicSubInsertSqlStmt=INSERTINTOUsersValues_+TrimUsersName++TrimUserPwd+SQLExtSqlStmtEndSubPublicSubUpdateByValTmpUserAsStringSqlStmt=UpdateUsersSetUserName=+TrimUserName_+UserPwd=+TrimUserPwd_+WHEREUserName=+TrimTmpUser+SQLExtSqlStmtEndSubPublicSubInitCompany=Telephone=ZipCode=Fax=Address=Email=Contact=TypeId=1Comment=EndSubPublicSubDeleteByValTmpIdAsLongSqlStmt=DELETEFROMCompanyWHEREId=+TrimTmpIdSQLExtSqlStmtEndSubPublicFunctionGetInfoByValTmpIdAsIntegerAsBooleanDimrsAsNewADODB.RecordsetSqlStmt=SELECT*FROMCompanyWHEREId=+TrimTmpIdSetrs=QueryExtSqlStmtIfrs.EOFThenInitGetInfo=FaleseElseIfIsNullrs.Fields0ThenId=0ElseId=rs.Fields0EndIfIfIsNullrs.Fields1ThenCompany=ElseCompany=rs.Fields1EndIfIfIsNullrs.Fields2ThenTelephone=ElseTelephone=rs.Fields2EndIfIfIsNullrs.Fields3ThenZipCode=ElseZipCode=rs.Fields3EndIfIfIsNullrs.Fields4ThenFax=ElseFax=rs.Fields4EndIfIfIsNullrs.Fields5ThenAddress=ElseAddress=rs.Fields5EndIfIfIsNullrs.Fields6ThenEmail=ElseEmail=rs.Fields6EndIfIfIsNullrs.Fields7ThenContact=Contact=rs.Fields7EndIfIfIsNullrs.Fields8ThenTypeId=1ElseTypeId=rs.Fields8EndIfIfIsNullrs.Fields9ThenComment=ElseComment=rs.Fields9EndIfGetInfo=TrueEndIfEndFunctionPublicFunctionIn_DBByValTmpTidAsIntegerAsBooleanDimrsAsNewADODB.RecordsetSqlStmt=SELECT*FROMCompanyWHERETypeId=+TrimStrTmpTidSetrs=QueryExtSqlStmtIfrs.EOF=TrueThenIn_DB=FlaseElseIn_DB=TrueEndIfEndFunctionPublicSubInsertSqlStmt=INSERTINTOCompanyCompanyTelephoneFaxZipCodeAddress__EmailContactTypeIdCommentVALUES+TrimCompany+_TrimTelephone++TrimFax++TrimZipCode+__TrimAddress++TrimEmail++TrimContact+__TrimTypeId++TrimComment+SQLExtSqlStmtEndSubPublicSubUpdateByValTmpIdAsLongSqlStmt=UPDATECompanySETCompany=+TrimCompany_Telephone=+TrimTelephone+Fax=+TrimFax+_ZipCode=+TrimZipCode+Address=+TrimAddress+_Email=TrimEmail+Contact=+TrimContact+Comment=_TrimComment+WhereId=+TrimStrTmpIdSQLExtSqlStmtEndSubPublicSubUpdateToMemberByValTmpIdAsStringSqlStmt=UpdateCustomerSetFlag=1_+TypeId=+TrimTypeId_+WHEREId=+TrimTmpId+SQLExtSqlStmtEndSubPublicSubUpdateStatusByValTmpCNoAsStringSqlStmt=UpdateLeaseSetStatus=+TrimStatus+WHERE_ContractNo=+TrimTmpCNo+SQLExtSqlStmtEndSubPublicSubUpdateAddStatusByValTmpCNoAsStringSqlStmt=UpdateLeaseSetStatus=‘续租’,ReturnTime=+_TrimReturnTime+_+WorkDays=+TrimWorkDays+WeekEndCount=+_TrimWeekEndCount+_+Total=+TrimTotal+UserNme=+TrimUseName+_+WHEREContractNo=+TrimTmpCNo+SQLExtSqlStmtEndSubPublicSubUpdateByValTmpIdAsLongSqlStmt=UPDATECompanySETCompany+TrimCompany_Telephone=+TrimTelephone+Fax=+TrimFax+__ZipCode=+TrimZioCode+Address=+TrimAddress+_Email=_TrimEmail+Contact=+TrimContact+Comment=_TrimComment+WhereId=+TrimStrTmpIdSQLExtSqlStmtEndSubPrivateSubGridRefreshIfTrimcob_Status.Text=OrTrimcob_Status.Text=全部ThenSchCnd=ElseSchCnd=ANDStatus=+Trimcob_Status.Text+EndIfAdodcl.ConnectionString=ConnAdodcl.RecorSource=SELECTContractNoAS合同编号,CarNoAS车牌号,“_+CustIdAS客户号,LeaseTimeAS租赁时间,LeaseModeAS租赁模式,——+ReturnTimeAS归还时间,StatusAS状态,+IIF[Status]=日‘,Pricel*WorkDays+Price2*WeekEndCountPricel*WorkDaysAS租车费用_+OtherCostAS其他费用,PaymentAS实际支付DepositAS押金TotalAS总额_+FROMLeaseWHEREStatusNOTIN归还结算审核+SchCnd_+ORDERBYReturnTimeDESCLeaseTimeDESCAdodcl.RefreshSetDataGridl.DataSource=Adodc1DataGrid
1.Columns
0.Width=1000DataGrid
1.Columns
1.Width=1000DataGrid
1.Columns
2.Width=1000DataGrid
1.Columns
3.Width=1800DataGrid
1.Columns
4.Width=1000DataGrid
1.Columns
5.Width=1800DataGrid
1.Columns
6.Width=1000DataGrid
1.Columns
7.Width=1000DataGrid
1.Columns
8.Width=1000DataGrid
1.Columns
9.Width=1000DataGrid
1.Columns
10.Width=1000DataGrid
1.Columns
11.Width=1000EndSubPrivateSubForm_LoadGridRefreshcob_Status.AddItem出租0cob_Status.AddItem出租审核1cob_Status.AddItem续租2cob_Status.AddItem续租审核3cob_Status.AddItem归还4cob_Status.AddItem归还审核5cob_Status.AddItem全部6Cmd_Modi.Enabled=FalseCmd_Del.Enabled=FalseCmd_Check.Enabled=FalseCmd_Cont.Enabled=FalseCmd_ContCheck.Enabled=FalseCmd_Print.Enabled=FalseEndSubPrivateSubCmd_Add_ClickDimsTimeAsStringFrmLeaseEdit.Modify=FalseFrmLeaseEdit.sCarNo=FrmLeaseEdit.sCustId=FrmLeaseEdit.txtContractNo=FrmLeaseEdit.txtCarNo=FrmLeaseEdit.txtCustId=sTime=TrimStrTimeFrmLeaseEdit.sLTime=sTimeFrmLeaseEdit.txtLeaseTime=TrimStrDate++sTimeFrmLeaseEdit.txtReturnTime=FrmLeaseEdit.txtUserName=FrmLeaseEdit.txtWorkDays.Enabled=FalseFrmLeaseEdit..txtWeekEndCount.Enabled=FalseFrmLeaseEdit.Labe
119.Enabled=FalseFrmLeaseEdit.Labe
120.Enabled=FalseFrmLeaseEdit.Labe
113.Enabled=FalseFrmLeaseEdit.Labe
114.Enabled=FalseFrmLeaseEdit.CarRefreshFrmLeaseEdit.CarPriceRefreshFrmLeaseEdit.CustomerRefreshFrmLeaseEdit.Show1GridRefreshEndSubPrivateSubCmd_Modi_ClickIfAdodcl.Recordset.EOFThenMsgBox请选择记录ExitSubEndIfFrmLeaseEdit.Modify=TureFrmLeaseEdit.ContractNo=TrimAdodcl.Recordset.Fields0FrmLeaseEdit.sCarNo=TrimAdodcl.Recordset.Fields1FrmLeaseEdit.sCustId=TrimAdodcl.Recordset.Fields2FrmLeaseEdit.txtContractNo=TrimAdodcl.Recordset.Fields0FrmLeaseEdit.txtCarNo=TrimAdodcl.Recordset.Fields1FrmLeaseEdit.txtCustId=TrimAdodcl.Recordset.Fields2FrmLeaseEdit.cob_Mode.Text=TrimAdodcl.Recordset.Fields4FrmLeaseEdit.txtLeaseTime=TrimAdodcl.Recordset.Fields3FrmLeaseEdit.txtReturnTime=TrimAdodcl.Recordset.Fields5IfMyLease.GetInfoTrimAdodcl.Recordset.Fields
0.=TrueThenFrmLeaseEdit.txtWorkDays.Enabled=TrueFrmLeaseEdit.Labe
113.Enabled=TrueFrmLeaseEdit.Labe
114.Enabled=TrueIfTrimMyLease.LeaseMode=日ThenFrmLeaseEdit.txtWorkDays=MyLease.WorkDaysFrmLeaseEdit.txtWeekEndCount=MyLease.WeekEndCountFrmLeaseEdittxtWeekEndCount=Enabled=TrueFrmLeaseEdit.Labe
113.Caption=工作日FrmLeaseEdit.Labe
119.Enabled=TrueFrmLeaseEdit.Labe
120.Enabled=TrueElseIfTrimMyLease.LeaseMode=周ThenFrmLeaseEdit.txtWorkDays=MyLease.WorkDaysFrmLeaseEdit.txtWeekEndCount=QFrmLeaseEdit.txtWeekEndCount.Enabled=FalseFrmLeaseEdit.Labe
113.Caption=周数FrmLeaseEdit.Labe
119.Enabled=FalseFrmLeaseEdit.Labe
120.Enabled=FalseElseIfTrimMyLease.LeaseMode=月ThenFrmLeaseEdit.txtWorkDays=MyLease.WorkDaysFrmLeaseEdit.txtWeekEndCount=0FrmLeaseEdit.txtWeekEndCount.Enabled=FalseFrmLeaseEdit.Labe
113.Caption=月份数FrmLeaseEdit.Labe
119.Enabled=FalseFrmLeaseEdit.Labe
120.Enabled=FalseEndIfFrmLeaseEdit.txtOutKM=MyLease.OutKMFrmLeaseEdit.txtCost=MyLease.TotalFrmLeaseEdit.txtUserName=TrimMyLease.UserNameEndIfFrmLeaseEdit.CarRefreshFrmLeaseEdit.CarPriceRefreshFrmLeaseEdit.CustomerRefreshFrmLeaseEdit.Show1GridRefreshEndSubPrivateSubCmd_Del_ClickIfAdodc
1.Recordset.EOF=TrueThenMsgBox请选择记录ExitSubEndIfIfMsBox是否确定要删除租赁信息,vbYesNo请确认=vbNoThenExitSubEndSubEndIfMyLease.DeleteAdodc
1.Recordset.Fields0MsgBox成功vbInformationGridRefreshEndSubPrivateSubCmd_Check_ClickIfAdodc
1.Recordset.EOF=TrueThenMsgBox请选择记录ExitSubEndIfIfMsgBox是否审核确认了租赁合同vbYesNo请确认=vbNoThenExitSubEndIfMyLease.Status=出租审核MyLease.UpdateStatusAdodc
1.Recordset.Fields0GridRefreshEndSubPrivateSubCmd_Cont_ClickIfAdodcl.Recordset.EOF=TrueThenMsgBox请选择记录ExitSubEndIfFrmLeaseAddEdit.sContracNo=TrimAdodcl.Recordset.Fields0FrmLeaseAddEdit.txtContractNo=TrimAdodcl.Recordset.Fields0IfMyLease.GetInfoTrimAdodcl.Recordset.Fields0=TrueThenFrmLeaseAddEdit.sCarNo=TrimMyLease.CarNoFrmLeaseAddEdit.sCarNo=TrimMyLease.CarNoFrmLeaseAddEdit.sCustId=TrimMyLease.CustIdFrmLeaseAddEdit.txtDeposit=MyLease.DepositFrmLeaseAddEdit.txtDayPrice=MyLease.Price1FrmLeaseAddEdit.txtWeekEndPrice=MyLease.Price2FrmLeaseAddEdit.txtOKMPrice=MyLease.OPrice1FrmLeaseAddEdit.txtOTPrice=MyLease.OPrice2FrmLeaseAddEdit.txtDayKM=MyLease.DayKMFrmLeaseAddEdit.txtLeaseMode=TrimMyLease.LeaseModeFrmLeaseAddEdit.txtLeaseTime=TrimMyLease.LeaseTimeFrmLeaseAddEdit.txtReturnTime=TrimMyLease.ReturnTimeFrmLeaseAddEdit.txtOutKM=MyLease.OutKMFrmLeaseAddEdit.txtRate=MyLease.Rate*10FrmLeaseAddEdit.txtUserName=TrimMyLease.UserNameIfTrimMyLease.LeaseMode=日ThenFrmLeaseAddEdit.txtWorkDays=MyLease.WorkDaysFrmLeaseAddEdit.txtWeekEndCount=MyLease.WeekEndCountFrmLeaseAddEdit.Labe
113.Caption=工作日FrmLeaseAddEdit.txtCost=MyLease.WorkDays*MyLease.Pricel+_MyLease.WorkDays*MyLease.Price2FrmLeaseAddEdit.txtWeekEndCount.Enabled=TrueElseIfTrimMyLease.LeaseMode=周ThenFrmLeaseAddEdit.txtWorkDays=MyLease.WorkDaysFrmLeaseAddEdit.txtWeekEndCount=0FrmLeaseEdit.Labe
113.Caption=周数FrmLeaseEdit.Labe
114.Caption=个FrmLeaseEdit.Labe
119.Caption=周末数FrmLeaseEdit.txtCost=MyLease.WorkDays*MyLease.PricelFrmLeaseEdit.Labe
119.Enabled=FalseFrmLeaseEdit.Labe
120.Enabled=FalseFrmLeaseEdit.txtWeekEndCountt.Enabled=FalseElseIfTrimMyLease.LeaseMode=月ThenFrmLeaseAddEdit.txtWorkDays=MyLease.WorkDaysFrmLeaseAddEdit.txtWeekEndCount=0FrmLeaseEdit.Labe
113.Caption=月份数FrmLeaseEdit.Labe
114.Caption=个FrmLeaseEdit.Labe
119.Caption=周末数FrmLeaseEdit.txtCost=MyLease.WorkDays*MyLease.PricelFrmLeaseEdit.Labe
119.Enabled=FalseFrmLeaseEdit.Labe
120.Enabled=FalseFrmLeaseEdit.txtWeekEndCountt.Enabled=FalseEndIfEndIfFrmLeaseEdit.CarRefreshFrmLeaseEdit.CustomerRefreshFrmLeaseEdit.txtContracNo.Enabled=FalseFrmLeaseEdit.Show1GridRefreshEndSubPrivateSubCmd_Print_ClickIfAdodcl.Recordset.EOF=TrueThenMsgBox请选择打印的合同ExitSubEndIfDimwodcAsObjectDimwappAsObjectDimmytableAsObjectDimarowAsObjectDimwordfileAsStringWordfile=Contract.docIfDirwordfile=ThenMsgBox打印文件Contract.doc丢失,请与管理员联系“ExitSubEndIfSetwdoc=CreateObjectWord.Applicationwdoc.Visible=TrueCallwodc.Documents.OpenApp.Path+\+wordfileReadOnly:=True_Revert:=TrueSetmytable=wdoc.ActiveDocument.Tables1MyLease.GetInfoTrimAdodcl.Recordset.Fields0mytable.Cell
21.Range.Deletemytable.Cell
21.Range.InsertAfter合同编号:+_TrimAdodcl.Recordset.Fields0mytable.Cell
22.Range.Deletemytable.Cell
22.Range.InsertAfter打印时间:+TrimStrNowmytable.Cell
32.Range.Deletemytable.Cell
32.Range.InsertAfter汽车租赁公司Setmytable=wdoc.ActiveDocument.Tables2MyCar.GetInfoTrimMyLease.CarNomytable.Cell
12.Range.InsertAfter.TrimMyLease.CarNomytable.Cell
14.Range.InsertAfter.TrimMyCar.CarNamemytable.Cell
22.Range.InsertAfterTrimMyType.GetTypeNamesTrimStrMyCar.TypeIdmytable.Cell
24.Range.InsertAfter.TrimMyCar.Colormytable.Cell
32.Range.InsertAfter.TrimMyCar.EngineNomytable.Cell
34.Range.InsertAfter.TrimMyCar.CarCasemytable.Cell
42.Range.InsertAfter.TrimMyCar.TypeIdmytable.Cell
44.Range.InsertAfterTrimMyType.GetTypeNamesTrimStrMyCar.InsurTypemytable.Cell
52.Range.InsertAfter.TrimMyCar.InsurSdatemytable.Cell
54.Range.InsertAfter.TrimMyCar.InsurEdateSetmytable=wdoc.ActiveDocument.Tables3mytable.Cell
12.Range.InsertAfter.TrimStrMyLease.Depositmytable.Cell
14.Range.InsertAfter.TrimStrMyCar.DayKMsMode=TrimMyLease.LeaseModemytable.Cell
22.Range.InsertAfter.sModemytable.Cell
24.Range.InsertAfter.TrimStrMyLease.OPrice2mytable.Cell
32.Range.InsertAfter.TrimStrMyLease.Price1mytable.Cell
34.Range.InsertAfter.TrimStrMyLease.OPrice1mytable.Cell
42.Range.InsertAfter.TrimStrMyLease.WorkDaysmytable.Cell
44.Range.InsertAfter.TrimStrMyLease.Ratemytable.Cell
31.Range.Deletemytable.Cell
41.Range.DeleteIfsMode=日Thenmytable.Cell
31.Range.InsertAfter.每日租金(元/日)mytable.Cell
41.Range.InsertAfter.租赁天数(工作日)mytable.Cell
52.Range.InsertAfter.TrimStrMyLease.Price2mytable.Cell
54.Range.InsertAfter.TrimStrMyLease.WeekEndCountElseIfsMode=周Thenmytable.Cell
31.Range.InsertAfter.每周租金(元/周)mytable.Cell
41.Range.InsertAfter.租赁周数mytable.Cell
51.Range.Deletemytable.Rows
5.Selectwdoc.Selection.CutElseIfsMode=月Thenmytable.Cell
31.Range.InsertAfter.每月租金(元/月)mytable.Cell
41.Range.InsertAfter.租赁月数mytable.Rows
5.Selectwdoc.Selection.CutEndIfMyCustomer.GetInfoTrimMyLease.CustIdSetmytable=wdoc.ActiveDocument.Tables4mytable.Cell
12.Range.InsertAfter.TrimMyLease.CustIdmytable.Cell
14.Range.InsertAfter.TrimMyCustomer.Namemytable.Cell
22.Range.InsertAfter.TrimMyCustomer..Sexmytable.Cell
24.Range.InsertAfter.TrimStrMyCustomer..Agemytable.Cell
32.Range.InsertAfter.TrimMyCustomer..IdCardmytable.Cell
34.Range.InsertAfter.TrimMyCustomer..Telephonemytable.Cell
42.Range.InsertAfter.TrimMyCustomer..WorkPlacemytable.Cell
44.Range.InsertAfter.TrimMyCustomer..Addressmytable.Cell
52.Range.InsertAfter.TrimMyCustomer..LicenseNomytable.Cell
54.Range.InsertAfter.TrimMyCustomer..LicenseTypemytable.Cell
62.Range.InsertAfter.TrimMyCustomer..GetDatemytable.Cell
64.Range.InsertAfter.TrimMyCustomer..ExpiredDatemytable.Cell
72.Range.InsertAfter.TrimMyCustomer..Certificatemytable.Cell
74.Range.InsertAfter.TrimMyCustomer..Warrantormytable.Cell
82.Range.InsertAfter.TrimMyCustomer..WldCardmytable.Cell
84.Range.InsertAfter.TrimMyCustomer..WWorkPlaceMyCustomer.GetInfoTrimMyLease.CustIdSetmytable=wdoc.ActiveDocument.Tables5mytable.Cell
12.Range.InsertAfter.TrimMyLease.LeaseTimemytable.Cell
14.Range.InsertAfter.TrimMyLease.ReturnTimemytable.Cell
22.Range.InsertAfter.TrimStrMyLease.OutKMwdoc.ActiveDocument.PrintOutMsgBox打印作业已提交,打印完成后单击【确定】结束Wdoc.Quit0Setwdoc=NothingEndSubPublicSubCarRefreshAdoCar.ConnectionString=ConnAdoCar.RecordSource=SELECTc.CarNoAS车牌号,c.CarNameAS_车辆名称,t.TypeNameAS车辆类型_+c.ColorAS颜色c.OilNoAS汽油编号c.BuyDateAS购买日期——+FROMCarscTypest_+WHEREc.TypeId=t.IdANDc.CarNo=+TrimsCarNo+AdoCar.RefreshSetDateGridl.DataSource=AdoCarDataGridl.Columns
0.Width=1400DataGridl.Columns
1.Width=1400DataGridl.Columns
2.Width=1200DataGridl.Columns
3.Width=1000DataGridl.Columns
4.Width=1000DataGridl.Columns
5.Width=1600EndSubPublicSubCustomerRefreshAdoCustomer.ConnectionString=ConnAdoCustomer.RecordSource=SELECTIdAS客户号,NameAS姓名,SexAS_性别,AgeAS年龄_+TelephoneAS电话LicenseNoAS驾驶证号CertificateAS抵押证件_+FROMCustomerWHEREId=+TrimsCustId+AdoCustomer.RefreshSetDataGrid
2.DataSource=AdoCustomerDataGrid
2.Columns0Width=1000DataGrid
2.Columns1Width=1000DataGrid
2.Columns2Width=800DataGrid
2.Columns3Width=800DataGrid
2.Columns4Width=1600DataGrid
2.Columns5Width=1600DataGrid
2.Columns6Width=1000EndSubPrivateSubtxtWeekEndCount_ChangenCnt=ValtxtWorkDaysnECnt=ValtxtWeekEndCountIfTrimtxtLeaseMode.Text=日ThenlCost=ValtxtDayPrice*nCnt+ValtxtWeekEndPrice*nECnttxtReturnTime=TrimDateAdddnCnt+nECnt*2CDatetxtLeaseTimeEndIftxtCost=1Cose*ValtxtRate/10EndSubPrivateSubtxtWorkDays_ChangenCnt=ValtxtWorkDaysnECnt=ValtxtWeekEndCountIfTrimtxtLeaseMode.Text=日Then1Cost=ValtxtDayPrice*nCnt+ValtxtWeekEndPrice*nECnttxtReturnTime=TrimDateAdddnCnt+nECnt*2CDatetxtLeaseTimeElselfTrimtxtLeaseMode.Text=周Then1Cost=ValtxtDayPrice*nCnttxtReturnTime=TrimDateAdddnCnt*7CDatetxtLeaseTimeElselfTrimtxtLeaseMode.Text=月Then1Cost=ValtxtDayPrice*nCnttxtReturnTime=TrimDateAdddnCntCDatetxtLeaseTimeEndIftxtCost=1Cost*ValtxtRate/10EndSub输入用户名和密码判断用户是否存在判断密码是否正确登录成功否否是是。