1、摘要近年来，随着计算机技术的成熟及数据库技术的开展，信息管理系统的应用已延伸到社会的各个领域。以信息管理系统的开发为理论根底，开发出汽车租赁管理系统。汽车租赁管理是汽车租赁公司开展日常运营的重要工具。传统的人工管理方式不但浪费时间，而且管理复杂，易出过失。汽车租赁管理系统能使繁琐的数据计算、信息处理变得简单易操作，完全实现数据信息的电算化管理。使用这套系统有助于提高汽车租赁公司的效率，节约本钱，增加经济效益。本论文主要介绍了该系统的生成及ViSUaIBasic6.O和ACCeSS的一般原理。阐述了整个汽车租赁管理系统的制作步骤及工作原理；设计实现了系统用户管理、根本信息管理、业务管理、会员管理
2、等程序模块；分析了系统的可行性并解决了可能存在的问题。关键词：数据库；VisualBasic6.0；汽车租赁管理AbstractInrecentyears,withthedevelopmentofthetechnologyofcomputeranddatabase.Informationmanagementsystemhasstretchedintoeveryfieldofoursociety.Basedonthedevelopmenttheoryoftheinformationmanagementsystemthendevelopedanothermanagementsystem-theau
3、tomobile!end-lease.Themanagementofautomobilelendingandleasingplayaveryimportantroleinthecompany,sdaiIyoperation.Comparedwiththetraditionalwaywhichwastehumanresourcesandtime.Atthesametime,itiscomplicatedandoftenrunswithmistakes.WhiletheautomobileIend-Ieasesystemturnthecomplicateddatacalculationandinf
4、ormationprocessingintosimpleinstructions.Notonlyincreasetheefficiency,buttheeconomicbenefits.ThispapermainlyintroducesthedevelopbackgroundofthesystemandthebasictheoryofVisualBasic6.0andAccessVisual.IttellsthestructureoftheautomobileIend-Ieasemanagementsystemanditsworkingtheory;itanalyzesthespecialty
5、difficultyandimportantthingsinsystemrealization.Thedesignrealizesthemanagementofthesystemusers,thebasicinformation,thebusiness,andthemembers,management.Keywords:Database；VisualBasic6.0；TheautomobileIend-Ieasemanagement目录第1章绪论01.1 开发背景O1.2 系统功能简介O1.3 开发工具O1. 3.1VisualBasic6.O简介O1. 3.2ACCeSS2003简介11.
6、4可行性研究与需求分析21.4. 1可行性研究2需求分析2第2章系统数据库设计22.1 数据库管理系统简介22.2 ADO数据库访问技术32.3 系统功能分析研究32.4 系统功能模块图42. 5数据字典42. 6数据库各表的数据结构6第3章系统功能设计103.1登录模块设计103.2主程序界面设计103.3根底数据管理模块的实现123. 3.1车辆和保险类型管理窗体的设计12汽车销售商管理窗体的设计123. 3.3保险公司管理窗体的设计13车辆管理窗体的设计133.4客户会员管理模块的实现143. 4.1客户信息管理窗体的设计143. 4.2会员信息管理窗体设计153. 4.3会员类型管理窗
7、体设计163.5日常业务管理模块的实现163. 5.1汽车租赁管理窗体设计163. 5.2汽车归还管理窗体设计17结论18致谢18参考文献18附录程序代码20第1章绪论1.1 开发背景今天，随着人民生活水平的不断提高，汽车已不再遥不可及，汽车租赁作为一种全新的消费模式已成为一个极具市场潜力的行业，它不仅可以有效的疏通汽车生产与汽车销售之间的“瓶颈”，而且对汽车消费市场的扩展有着不可低估的成效。在这个“时间就是金钱”的社会，加快生活节奏，提高生活效率刻不容缓。因此在必要的时候向汽车出租公司提出租赁车辆的要求，已成为被群众认可的选择。在社会需求的带动下，汽车租赁市场出现了前所未有的繁荣景象。各个汽
8、车租赁公司门庭假设市，业务激增。然而在繁忙的景象背后，却也暴露出汽车租赁公司在处理业务信息时以人工方式为主所带来的诸如：效率低下，管理混乱，失误增多等诸多弊端。在实践中，汽车租赁行业的业主们逐渐意识到在租赁行业中借助计算机引入信息管理的重要性，并开始不断提高自身的素质和高科技在工作中的投入，以改善信息的管理，提高效劳效率。汽车租赁管理系统就是对车辆信息和客户信息的管理，主要包括车辆的根本信息、车辆的出租状态、车辆的投保情况、客户信息的管理等。它的设计开发充分按照汽车租赁的实际业务流程，结合了租赁行业的实际运营特点，满足汽车租赁行业的信息化需求。1.2 系统功能简介汽车租赁管理系统针对的是汽车租
9、赁公司在向客户提供出租车辆效劳过程中面对的各种问题而开发的，对其业务信息进行自动化、信息化处理，使车辆租赁管理变得高校、快捷、标准。此系统具有完善的功能，使用轻松方便，易于维护，适应性强。包括客户信息管理、车辆信息管理、汽车租赁归还管理、会员类型管理、会员信息管理、保险公司管理、汽车销售商管理等。具有添加、修改、删除、查询等功能，通过这些管理模块，可以使汽车租赁效劳更加清晰，更加便捷，提高了效劳质量，减少了操作人员的工作量。希望它能为业内人员的工作提供一定的帮助。1.3 开发工具1.4 .1VisuaIBasic6.O简介VisualBasic是一种结构化的编程语言，它集成了一个完整且功能强大
10、的应用程序开发环境。操作简单易学，使程序设计不再复杂。visual”指的是开发图形用户界面(GUI)的方法。不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象加到屏幕上，一点即可。“Basic”是一种在计算机技术开展历史上应用的最为广泛的语言。另外，在VisualBasic中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮，文本框等都是控件。ViSUalBaSiC把这些控件模式化，并且每个控件都有假设干属性用来控制控件的外观以及工作方法。VisualBaSiC是具有集成的可视化数据库工具，VisualBasic6.0提供了一整套工具以在任何应用程序中集成数
11、据库。它可用来设计和修改ADO等数据库工具，也可用拖放方式创立绑有数据的表格和报告。更重要的是ViSUalBaSiC简单、易学、实用，深受广阔编程爱好者的喜爱。1.3 .2Access2003简介MicrosoftACCeSS数据库管理系统是MiCrOSOftOffiCe系列应用软件的一局部，是基于WindoWS平台的数据库管理系统，它操作简单、功能全面、使用方便，不仅具有传统数据库管理软件所具有的功能，同时还进一步增强了与Internet的集成，用户可以通过Internet共享Access数据库。Access具有强大的数据管理功能，可以方便地利用各种数据源，生成窗体（表单）、查询、报表和应用
12、程序等。1ACCeSS2003是MiCrOSOft公司出品的关联式资料库套装软体。它提供视觉化的设计介面，不必撰写程式，即可快速，简单地开发出美观实用的资料库管理系统。Access2003由如下组成：资料表：为access储存资料的地方，亦为资料的根本来源，一个资料库至少要存在一个资料表。查询：可依使用者需求，以一些限制条件筛选,过滤）来选取资料表中。表单：建立一个让使用者输入，查询，修改资料的操作画面。报表：将资料库里的资料运用报表做成有利用价值的画面资料。资料页：为ACCeSS2003的新增物件，资料发布至网路的媒介。此物件完成建立后，将会在资料库档案外，再产生一个HTML档。巨集：建立简
13、单的资料操作指令与将一连串的执行动作自动化。应用于一些重复性高的动作或者用于使用者自订工作环境上。模组：开发应用系统的工具。是让使用者能更随心所欲的去控制系统。1.4 可行性研究与需求分析1.4.1 可行性研究通过对局部用户和部门的调查研究说明，传统的租赁管理系统，在后期维护和更新上比拟麻烦，如果对功能模块进行修改，需要对整个系统进行重新架构才能实现。本系统在根本信息管理模块中实现了对车辆、客户、驾驶员等信息的增加、删除、修改等功能。在日常任务模块中，实现了对租赁和归还信息的管理。在根底数据管理中还涉及了租赁合同的打印，非常周到，贴合实际。本系统具有：操作简便、灵活，用户界面直观；可实现企业管
14、理程序化、条理化、标准化、高效化；提供及时、可靠的数据资料，并自动对数据进行分析；多数操作选项采用人工选择的方式，防止了用户记忆一些不必要的指令，减轻用户操作负担。需求分析开发汽车租赁管理系统的目的就是为了使租赁公司能够更好的为客户效劳且工作不需要花费大量的时间和精力。这不但使客户租车过程简化、快捷，还能使租赁公司信息更标准，易管理.综上所述,公司不再需要过多的人员去管理繁杂的资料，既节省了办公效率、降低了本钱,还节省了客户的时间。本系统经过短期的可行性市场调查与分析工作及长期实践操作，最后确定整体系统方案，在综合各项软件指标的前提下认真完成。第2章系统数据库设计2.1数据库管理系统简介数据库
15、是信息管理系统的根本技术，是计算机科学的重要分支。数据库(DataBase,DB)是指长期储存在计算机内的、有组织的、可以共享的数据集合。数据库中的数据按一定的数据模型组织、描述和储存，具有较小的冗余度、较高的数据独立性和易扩展性，并可以为各种用户共享。数据库管理系统是在操作系统的支持下，为数据库的建立、使用和维护而配置的软件环境，如MiCrOSoftSQLServer、MicrosoftACCeSS等。数据库系统是位于用户与操作系统之间的一层数据管理软件，它在操作系统的根底上，对数据库进行管理和控制，利用数据库管理系统提供的一系列命令，用户能方便地实现对数据库的根本操作如建表、向表中添加记录
16、删除记录和修改记录等)。用户使用的各种数据库命令以及数据库应用程序的运行，都要通过数据库管理系统来实现；另外，数据库管理系统还要保证数据的平安性，完整性，多用户对数据库的并发使用以及发生故障后系统的回复等任务。在信息资源已成为各个部门的重要财富和资源的当下。开发一个满足各个部门信息处理要求的信息系统也因此成为一个企业或组织生存和开展的重要局部。因此，作为信息系统核心，数据库已得到越来越广泛的应用，新的应用领域采用数据库存储和处理信息资源。对于一个国家来说，数据库的规模、信息量的大小和使用频度已成为衡量这个国家信息化程度的重要标志。2. 2ADO数据库访问技术VisualBaSiC作为一种面向
17、对象的可视化编程工具，具有简单易学、灵活方便易于扩充的特点。因此它越来越多的用作数据库应用程序的前端开发工具。在ViSUalBaSiC中，可以通过ACtiVeX数据对象(AD0),数据访问对象(DA0),ODBC直接连接到数据库：其中ADo是最新的数据库访问技术。它是使用更加简单，灵活的对象模型。本系统就是基于这种技术开发的。ADO在工程的创立过程中提供执行以下操作的方式：1、连接到数据源。2、指定访问数据源的命令，同时可带变量参数或优化执行。通常涉及ADO的Command对象。3、执行命令，例如一个SELECT脚本。4、如果这个命令使数据按表中行的形式返回，那么将这些行存储在易于检查、操作或
18、更改的缓存中。5、适当情况下，可以把缓存行的更改内容写回数据库中，更新数据源。6、提供常规方法检测错误(错误通常由建立连接或执行命令造成)，涉及ADO的Error对象。2.3系统功能分析研究本系统通过对市场需求的具体调研和分析,确定本系统应具备系统管理根底数据管理、客户会员管理、日常业务管理等模块的功能.下面具体分析一下各个模块的功能。1、系统管理模块该模块可以完成修改用户密码，添加新用户，设置密码以及退出系统等操作。2、根底数据管理模块在这个模块中，可以设置车辆类型和保险类型，而且还可以对汽车销售商，车辆的保险公司进行管理，如添加，修改和删除等操作。3、客户会员管理模块在这个模块中，可以设置
19、会员的级别以及添加，修改，和删除客户和会员的信息。4、日常业务管理模块在这个模块中可以完成车辆的出租，审核以及还车的操作，而且可以查询和打印租赁合同。2.4系统功能模块图汽车租赁管理信息系统的系统功能结构图如图2.1所示。汽车租赁管理信息系统2 白 耳农 娄 计有的布 设很括每系统管理基础数据管理客户会员管理日常业务管理会员信卷理和义包的程析定该含有序（或者模块），所以很容易估计改变一个数据将产生的影响，并且能对所有受影响的程序或者模块做出相应的调整。本系统的数据字典如下：1、名字：Car别名：车辆信息描述：车辆的购置，保险。技术信息。使用，价格等信息。定义：car=carno+cartype
20、arname+color+oilno+engineno+carcase+saleid+buydate+insurno+insured+insurtype+insurSdate+insurEdate+deposit+dayprice+weekendpriceweekprice+monthprice+Daykmovertimeprice+overkmprice+status+comment位置：车辆管理，汽车租赁，车辆归还2、名字：users别名：用户信息描述：系统用户的名称定义：users=username+userpwd位置：用户信息3、名字：customer别名：客户信息描述：记录客户的名
21、字，年龄，联系方式等各种信息定义：customer=id+name+sex+age+idcard+telephone+workplace+address+zipcode+emai1+licenseno+licensetype+gedate+expiredate+diverage+flag+typeid+certificate+warrantor+wi1dcard+wworkplace4、名字：membertype别名：会员类型描述：记录会员类型的编号，名称，折扣率定义：membertype=id+typename+rate位置：会员类型定义，会员信息，汽车租赁，车辆归还5、名字：company
22、别名：公司信息描述：保险公司和车辆销售商的名称，地址，联系方式等信息定义：company=id+company+telephone+zipcode+fax+address+email+contact+typeid+comment位置：销售商信息，保险公司信息，车辆信息7、名字：types别名：类型信息描述：车辆品牌类型以及保险种类定义：types=id+typename+typeid+description8、名字：IeaSe别名：租赁业务信息描述：合同编号，租赁模式。租还车时间等业务信息定义：1ease=contractno+carno+custid+1easetime+1easemode+
23、price1+price2+workdays+weekendcount+deposit+daykm+opricel+oprice2+returntime+returnkm+othercost+rate+dayment+total+status+createdateusername+realtime位置：车辆租赁，车辆归还2. 6数据库各表的数据结构本系统数据库名称为CarMlS,数据库中包括：用户信息表(users)车辆信息表(Cars)公司信息表(Company)客户信息表(Customer)车辆和保险类型信息表(Types)会员类型信息表(MenberType)租赁信息表(Lease)o各
24、表数据结构如下：表2.1用户信息表的数据结构表名：Users说明：用户信息表字段名类型大小空值描述Usernamenvarchar20用户名userpwdnvarchar40用户密码表2.2车辆信息表的数据结构表名：Cars说明：车辆信息表字段名类型大小空值描述Carnonvarchar20Y汽车编号TyPeidSmallint2Y烈性编号carnamenvarchar50Y汽车名称colornvarchar20Y颜色oilnonvarchar30Y燃油编号enginenonvarchar50Y发动机标号carcasenvarchar50Y车架编号Saleidint2Y销售商Buydatesm
25、alIdatetime10Y购置日期Insurnonvarchar50Y保险公司insuridint4Y保单号insurtypenvarchar50Y保险类型InsursdateSmalldatetime10Y保险开始日期InsuredatesmalIdatetime10Y保险结束日期Depositsmallint4Y押金DayPriCeSmallint4Y日租金Weekend-pricesmallint4Y周末日租金Weekpricesmallint4Y周租金monthpricesmallint4Y月租金daykmsmallint4Y日限公里overtimepricesmallint4Y超时
26、单位费用Overkmpricesmallint14Y超公里单位费用statusnvarchar10Y状态commentntext10Y备注表2.3公司信息表的数据结构表名：Company说明：公司信息表字段名类型大小空值描述Idint4公司编号Companynvarchar100Y公司名称Telephonenvarchar50YZipcodenvarchar8YFaxnvarchar50YAddessnvarchar50Y地址Emai1nvarchar50Y电邮Contactnvarchar50Y联系人Typeidtinyint1Y类型编号commentntext16Y备注表2.4客户信息表的
27、数据结构表名：Customer说明：客户信息表字段名类型大小空值描述Idnvarchar20Y客户编号Namenvarchar50Y名称Sexnvarchar2Y性别Agesmallint2Y年龄Idcardnvarchar30Y会员卡号Telephonenvarchar30YWorkplacenvarchar30Y工作地点Addressnvarchar50Y地址Zipcodenvarchar50YEmailnvarchar10Y电邮Licensenonvarchar30Y驾照IDLicensetypenvarchar20Y驾照类型Getdatenvarchar20Y驾照获得日期Expired
28、datenvarchar20Y驾照过期日期Driveragesmallint2Y驾龄Flagtinyint2Y折扣Typeidint4Y会员类型编号Certificatenvarchar40Y抵押证件Warrantornvarchar50Y担保人Widcardnvarchar30Y担保人身份证workplacenvarchar100Y担保人工作地点表2.5车辆和保险类型信息表的数据结构表名：Types说明：车辆和保险类型信息表字段名类型大小空值描述Idint4编号typenamenvarchar50Y类型名称Typeidtinyint2类型编号descriptionnvarchar100Y描述
29、表2.6会员类型信息表的数据结构表名MemberType说明：会员类型信息表字段名类型大小空值描述Idint4会员编号Typenamenvarchar20Y类型名称Ratereal8Y享受折扣表2.7租赁信息表的数据结构表名：Lease说明：租赁信息表字段名类型大小空值描述Contracnonvarchar50Y合同编号Carnonvarchar20Y车辆编号Custidnvarchar20Y客户编号Leasetimesmalldatetime10Y租赁日期Leasemodenvarchar10Y租赁方式Pricelsmallint4Y价格1Price2Smallint4Y价格2Workday
30、ssmallint2Y工作天数Weekendcountsmallint2Y周末天数Depositint4Y押金Daykmsmallint2Y超限时间数Outkmsmallint4Y超限费用Opricelsmallint4Y日限时间超限费用0price2smallint4Y日限公里超限费用Returntimesmalldatetime10还车时间returnkmint4实际公里Othercostint4Y其他费用Ratereal4Y享受折扣Paymentint4实际支付Totalint4费用总额登录流程图如图3.1所示。i-登录成功图3.1登录流程图登录模块窗体如图3.2所示，包含三个标签控件，
31、一个框架，两个文本框和两个命令按钮。图3.2登陆界面首先点击工程菜单，选择“添加窗体”，在新建的工程内添加一个空窗体，在适当的位置画出框架，然后在框架内添加两个标签控件和两个文本框，然后把另一个标签和两个命令按钮画在下面，设置各个控件属性，最后编写源代码。例如：将第二个命令按钮的控制名设为“cmd/ancel，CaPtiOn属性设为“取消”,字体设为“宋体”，enable和ViSible属性均设为“True”，编写按钮单击时间源代码如下：PrivateSubCmdCancelClick()EndEndSub3. 2主程序界面设计用户登录成功后，即进入系统主界面。主界面的外观设计应该大方美观，布
32、局合格,方便用户的下一步操作，其窗体布局如下，菜单栏内设有五个子菜单栏，工具栏内设有六个按钮，分别连接常用的功能。用户登录成功后，即进入系统主程序界面。主界面的窗体布局如下，菜单栏内设有【根底数据管理】、【客户会员管理】【日常业务管理】【系统管理】四个子菜单，工具栏内设有六个按钮，分别为【车辆类型设置】【汽车销售商管理】【保险公司管理】【汽车租赁】【汽车归还】【会员信息】。主程序界面如图3.3。图3.3主程序界面点击新建工程按钮，在生成的窗体上单击右键，在弹出的菜单栏上点击“菜单编辑器”命令，翻开菜单编辑器。设计好程序各级菜单。在窗体上添加“图像列表控件”，用于保存工具栏按钮所使用的图像，在窗
33、体上添加“工具栏控件”，将其与“图像控制列表控件”相关联。并参加代表耽误按钮的“按钮对象”，最后编写工具栏对应的源代码。工具栏单击事件源代码如下：PrivateSubToolbarl_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCaseaa1.oadFrmTypeFrmType.ShowvbModalCasebb1.oadFrmSalesFrmSales.ShowvbModalCasecc1.oadFrmInsuranceFrmInsurance.ShowvbModalCasedd1.oadFrmLeaseFr
34、mLease.ShowvbModalCaseee1.oadFrmReturnFrmReturn.ShowvbModalCasegg1.oadFrmMembersFrmMembers.ShowvbModalEndSelectEndSub3.3根底数据管理模块的实现3.3.1车辆和保险类型管理窗体的设计该窗体上设有两个单项选择按钮，一个datalist控件，四个命令按钮，其窗体如下：图3.4车辆和保险类型设置界面首先按设计添加窗体，安排好各控件的布局，设置其相应属性，例如：将左边的“单项选择按钮”名称属性设为“optsel，caption属性设为“汽车类型，Indexs属性设为“0”,字体属性设为
35、宋体”,ValUe值设为“True”,而命令按钮设置同上，如对“添加”按钮的设置，设置完成后编写源代码。3.3.2汽车销售商管理窗体的设计此窗体用于对车辆销售商的信息如：销售商名称，联系，地址，电子邮箱等操作，还可以根据用户选择的销售商名称查询该厂商旗下汽车租赁情况。窗体设计如图3.5。图3.5汽车销售商管理界面此窗体上设置了六和命令按钮，一个Mtagrid控件，一个标签控件和一个文本框。首先按设计添加窗体，做好各控件的布局，设置相应属性，如：datagrid控件名称属性设置为“datagridl，CIragmode属性设置为“0，alIowaddnew属性设为Falsew,Allowdel
36、ete属性设置为False,alIowupdate属性设为False。字体设置为“宋体”，Enab为和ViSible属性均设为“True”。其添加命令按钮单击事件源代码如下：PrivateSubCmd_Add_Click()FrmCompanyEdit.Modify=FalseFrmCompanyEclit.nTid=1FrmCompanyEdit.txtCompany=”FrmCompanyEdit.IblType-销售商FrmCompanyEclit.txtTelephone=”FrmCompanyEdit.txtFax=”FrmCompanyEdit.txtAddress二FrmComp
37、anyEdit.txtContact=”FrmCompanyEdit.txtComment二FrmCompanyEclit.txtZipCode=FrmCompanyEdit.txtEmail=”FrmCompanyEdit,Show1GridRefreshEndSub3.3.3保险公司管理窗体的设计此窗体用于对保险公司信息如：保险公司的公司名称，联系，地址，电子邮箱等备注的查询，添加，修改和删除。另外还可根据用户选择的保险公司名称查询投保语该保险公司的汽车的情况。设计窗体如图3.6。图3.6保险公司管理界面首先按设计添加窗体，安排好各控件的布局，设置其相应属性，如：名称属性为rtIabel1
38、m,alignment属性设置为“0”，文本框对其方式为“左对齐”，CaPtiOn属性设置为“保险公司名”，字体属性设置为“宋体”。查看保险车辆按钮的单击事件源代码如下：PrivateSubCmdViewCars_Click()FrmSaleCars.nType=2FrmSaleCars.SSaleName-Trim(Adodcl.Recordset.Fields(1)FrmSaleCars.nSaleld=Adodcl.Recordset.Fields(0)FrmSaleCars.txtSaleName=Trim(Adodc1.Recordset.Fields(1)FrmSaleCars.C
39、aption二查看保险公司保险汽车FrmSaleCars.Labell=保险公司名称FrmSaleCars.Show1EndSub3. 3.4车辆管理窗体的设计本窗体用于提供对车辆信息的添加，修改和删除功能，可处理的信息包括车辆的根本信息如车牌号，状态，车辆类型，颜色，押金，日租金等。设计界面如图3.7。图3.7车辆管理界面3.4客户会员管理模块的实现3.4.1客户信息管理窗体的设计客户信息管理窗体用于对客户信息如：编号、姓名、性别、年龄、驾驶证编号、驾龄等的查找、添加、修改、删除等操作。并且提供将普通客户参加会员的效劳。本窗体上设置有六个命令按钮，一个AdOdC控件，一个Datagrid控件
40、一个标签控件和一个文本框。命令按钮分别为“添加”“修改”“删除”“查找”“参加会员”“退出”。窗体设计如图3.8。图3.8客户信息管理界面点击“工程”菜单，选择“添加窗体”，在窗体上画出所需控件，把这些控件移动至窗体内适当位置，并设置各个控件的属性，最后编写各个控件相应事件过程。如，对于命令按钮:“删除”，当放置好按钮位置后，将其名称属性设置为Cmd_del”,对于Caption属性那么设置为“删除”,字体属性设置为“宋体”,Enabled和Visible属性设置为trueo进行删除操作时,首先在列表框上显示出来的客户信息条目中将要删除一条选中(如果不选择，系统那么默认为选择了第一条)做出选
41、择后，单击“删除”按钮，显示一个对话框，选中用户是否确认删除，选“是，那么系统从数据库中删除该项，并弹出一个信息框，告知用户操作成功。命令按钮“删除”单击事件源代码如下：PrivateSubCmdDelClick()IfAdodcl.Recordset.EOF=TrueThenMSgBOX请选择记录ExitSubEndIfIfMSgBoX(是否确定要删除”,VbYeSNo,“请确认)=vbNoThenExitSubEndIfMyCustomer.Delete(Trim(Adodc1.Recordset.Fields(0)MsgBox成功，VbInformationGridRefreshEndS
42、ub3.4.2 会员信息管理窗体设计会员信息管理窗体用于对会员信息如，编号，姓名，年龄驾驶证编号，驾龄，登记日期等的查找、修改及注销功能。本窗体上设有四个命令按钮，一个Datagrid控件，一个标签控件和一个文本框。窗体设计如图3.9。图3.9会员信息管理界面点击“工程”菜单，选择“添加窗体”，在新建工程内添加一个空窗体，先设置窗体的属性，名称属性设置为Frmmembers”,StartUPPOSitiOrl属性设置为2，即窗体首次出现是在屏幕中心显示，FOnt属性设置为“宋体”，Caption属性设置为“会员管理”。接着对其它控件的属性进行设置。命令按钮“注销会员”的功能是将用户选定的会员条
43、目从客户信息表中删除(如果不选择，系统默认为选择了第一条)选择后，单击“注销会员”按钮，弹出对话框，询问用户“是否确定要注销会员资格”，选择“是”，系统执行注销操作，并弹出一个信息框，显示“注销会员成功”，最后系统更新Datagrid控件中显示的会员信息条目。命令按钮“注销会员”单击事件筹划年供需源代码如下：PrivateSubCmd_OffMember_Click()IfAdodcl.Recordset.EOF=TrueThenMsgBox请选择记录ExitSubEndIfIfMSgBOx(是否确定要注销会员资格“，VbYeSNo,请确认)二vbNoThenExitSubEndIfMyCus
44、tomer.TypeId=0MyCustomer.UpdateToMember(Trim(Adodcl.Recordset.Fields(0)MsgBox注销会员成功，VbInformationGridRefreshEndSub3.4.3 会员类型管理窗体设计本窗体用于对会员类型的管理，即对会员等级进行分类，如，ViP会员，一般会员，超级会员等，不同等级的用户享受的租赁价格的折扣不同。通过“添加”功能可登记新的会员用户，及其享受的折扣，通过“修改”功能可修改已有的会员类型名称及折扣。“删除”功能与之前描述的“注销会员”操作类似，在此不再赘述。本窗体上设置有四个命令按钮，一个Datagrid控件，窗体设计如图3.10。图3.10会员类型管理界面点击“工程”菜单，选择“添加窗体”，设置各个控件在窗体中的位置，然后设置窗体及各控件属性，最后编写窗体及各个空间源代码。当窗体载入是，触发formIoad()事件，即窗体载入事件。该载入事件的源代码：PrivateSubForm_load()GridRefreshEndSub其中，Gri
免费区 
