《汽车租赁管理系统的设计与实现(共57页).doc》由会员分享，可在线阅读，更多相关《汽车租赁管理系统的设计与实现(共57页).doc（57页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、精选优质文档-倾情为你奉上摘 要 近年来，随着计算机技术的成熟及数据库技术的发展，信息管理系统的应用已延伸到社会的各个领域。以信息管理系统的开发为理论基础，开发出汽车租赁管理系统。 汽车租赁管理是汽车租赁公司开展日常运营的重要工具。传统的人工管理方式不但浪费时间，而且管理复杂，易出差错。汽车租赁管理系统能使繁琐的数据计算、信息处理变得简单易操作，完全实现数据信息的电算化管理。使用这套系统有助于提高汽车租赁公司的效率，节约成本，增加经济效益。 本论文主要介绍了该系统的生成及Visual Basic 6.0和Access的一般原理。阐述了整个汽车租赁管理系统的制作步骤及工作原理；设计实现了系统用户
2、管理、基本信息管理、业务管理、会员管理等程序模块；分析了系统的可行性并解决了可能存在的问题。关键词：数据库；Visual Basic 6.0；汽车租赁管理AbstractIn 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 manage
3、ment 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 an
4、d 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 th
5、eory 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, t
6、he business, and the members management. Keywords:Database；Visual Basic 6.0；The automobile lend-lease management目录专心-专注-专业第1章 绪 论1.1 开发背景今天，随着人民生活水平的不断提高，汽车已不再遥不可及，汽车租赁作为一种全新的消费模式已成为一个极具市场潜力的行业，它不仅可以有效的疏通汽车生产与汽车销售之间的“瓶颈”，而且对汽车消费市场的扩展有着不可低估的功效。在这个“时间就是金钱”的社会，加快生活节奏，提高生活效率刻不容缓。因此在必要的时候向汽车出租公司提出租赁车辆的要求
7、，已成为被大众认可的选择。在社会需求的带动下，汽车租赁市场出现了前所未有的繁荣景象。各个汽车租赁公司门庭若市，业务激增。然而在繁忙的景象背后，却也暴露出汽车租赁公司在处理业务信息时以人工方式为主所带来的诸如：效率低下，管理混乱，失误增多等诸多弊端。在实践中，汽车租赁行业的业主们逐渐意识到在租赁行业中借助计算机引入信息管理的重要性，并开始不断提高自身的素质和高科技在工作中的投入，以改善信息的管理，提高服务效率。 汽车租赁管理系统就是对车辆信息和客户信息的管理，主要包括车辆的基本信息、车辆的出租状态、车辆的投保情况、客户信息的管理等。它的设计开发充分按照汽车租赁的实际业务流程，结合了租赁行业的实际
8、运营特点，满足汽车租赁行业的信息化需求。1.2 系统功能简介汽车租赁管理系统针对的是汽车租赁公司在向客户提供出租车辆服务过程中面对的各种问题而开发的，对其业务信息进行自动化、信息化处理，使车辆租赁管理变得高校、快捷、规范。此系统具有完善的功能，使用轻松方便，易于维护，适应性强。包括客户信息管理、车辆信息管理、汽车租赁归还管理、会员类型管理、会员信息管理、保险公司管理、汽车销售商管理等。具有添加、修改、删除、查询等功能，通过这些管理模块，可以使汽车租赁服务更加清晰，更加便捷，提高了服务质量，减少了操作人员的工作量。希望它能为业内人员的工作提供一定的帮助。1.3 开发工具1.3.1 Visual
9、Basic 6.0简介Visual Basic是一种结构化的编程语言，它集成了一个完整且功能强大的应用程序开发环境。操作简单易学，使程序设计不再复杂。“visual”指的是开发图形用户界面（GUI）的方法。不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象加到屏幕上，一点即可。“Basic”是一种在计算机技术发展历史上应用的最为广泛的语言。 另外，在Visual Basic中引入了控件的概念，在Windows中控件的身影无处不在，各种各样的按钮，文本框等都是控件。Visual Basic把这些控件模式化，并且每个控件都有若干属性用来控制控件的外观以及工作方法。Visual Ba
10、sic是具有集成的可视化数据库工具，Visual Basic 6.0提供了一整套工具以在任何应用程序中集成数据库。它可用来设计和修改ADO等数据库工具，也可用拖放方式创建绑有数据的表格和报告。更重要的是Visual Basic简单、易学、实用，深受广大编程爱好者的喜爱。1.3.2 Access2003简介Microsoft Access数据库管理系统是Microsoft Office系列应用软件的一部分，是基于Windows平台的数据库管理系统，它操作简单、功能全面、使用方便，不仅具有传统数据库管理软件所具有的功能，同时还进一步增强了与Internet的集成，用户可以通过Internet共享A
11、ccess数据库。Access具有强大的数据管理功能，可以方便地利用各种数据源，生成窗体（表单）、查询、报表和应用程序等。1Access2003是Microsoft 公司出品的关联式资料库套装软体。它提供视觉化的设计介面，不必撰写程式，即可快速，简单地开发出美观实用的资料库管理系统。 Access2003由如下组成：资料表：为access储存资料的地方，亦为资料的根本来源，一个资料库至少要存在一个资料表。查询：可依使用者需求，以一些限制条件（筛选,过滤）来选取资料表中。表单：建立一个让使用者输入，查询，修改资料的操作画面。报表：将资料库里的资料运用报表做成有利用价值的画面资料。资料页：为Acc
12、ess2003的新增物件，资料发布至网路的媒介。此物件完成建立后，将会在资料库档案外，再产生一个HTML档。巨集：建立简单的资料操作指令与将一连串的执行动作自动化。应用于一些重复性高的动作或者用于使用者自订工作环境上。模组：开发应用系统的工具。是让使用者能更随心所欲的去控制系统。1.4 可行性研究与需求分析1.4.1 可行性研究通过对部分用户和部门的调查研究表明，传统的租赁管理系统，在后期维护和更新上比较麻烦，如果对功能模块进行修改，需要对整个系统进行重新架构才能实现。本系统在基本信息管理模块中实现了对车辆、客户、驾驶员等信息的增加、删除、修改等功能。在日常任务模块中，实现了对租赁和归还信息的
13、管理。在基础数据管理中还涉及了租赁合同的打印，非常周到，贴合实际。本系统具有：操作简便、灵活，用户界面直观；可实现企业管理程序化、条理化、规范化、高效化；提供及时、可靠的数据资料，并自动对数据进行分析；多数操作选项采用人工选择的方式，避免了用户记忆一些不必要的指令，减轻用户操作负担。1.4.2 需求分析开发汽车租赁管理系统的目的就是为了使租赁公司能够更好的为客户服务且工作不需要花费大量的时间和精力。这不但使客户租车过程简化、快捷，还能使租赁公司信息更规范，易管理.综上所述,公司不再需要过多的人员去管理繁杂的资料，既节省了办公效率、降低了成本,还节省了客户的时间。本系统经过短期的可行性市场调查与
14、分析工作及长期实践操作，最后确定整体系统方案，在综合各项软件指标的前提下认真完成。 第2章 系统数据库设计2.1数据库管理系统简介 数据库是信息管理系统的基本技术，是计算机科学的重要分支。数据库（DataBase，DB ）是指长期储存在计算机内的、有组织的、可以共享的数据集合。数据库中的数据按一定的数据模型组织、描述和储存，具有较小的冗余度、较高的数据独立性和易扩展性，并可以为各种用户共享。数据库管理系统是在操作系统的支持下，为数据库的建立、使用和维护而配置的软件环境，如Microsoft SQL Server、 Microsoft Access等。数据库系统是位于用户与操作系统之间的一层数据
15、管理软件，它在操作系统的基础上，对数据库进行管理和控制，利用数据库管理系统提供的一系列命令，用户能方便地实现对数据库的基本操作（如建表、向表中添加记录、删除记录和修改记录等）。 用户使用的各种数据库命令以及数据库应用程序的运行，都要通过数据库管理系统来实现；另外，数据库管理系统还要保证数据的安全性，完整性，多用户对数据库的并发使用以及发生故障后系统的回复等任务。在信息资源已成为各个部门的重要财富和资源的当下。开发一个满足各个部门信息处理要求的信息系统也因此成为一个企业或组织生存和发展的重要部分。因此，作为信息系统核心，数据库已得到越来越广泛的应用，新的应用领域采用数据库存储和处理信息资源。对于
16、一个国家来说，数据库的规模、信息量的大小和使用频度已成为衡量这个国家信息化程度的重要标志。2.2 ADO 数据库访问技术 Visual Basic作为一种面向对象的可视化编程工具，具有简单易学、灵活方便易于扩充的特点。因此它越来越多的用作数据库应用程序的前端开发工具。在Visual Basic中，可以通过ActiveX数据对象(ADO)，数据访问对象(DAO)，ODBC直接连接到数据库：其中ADO是最新的数据库访问技术。它是使用更加简单，灵活的对象模型。本系统就是基于这种技术开发的。ADO在工程的创建过程中提供执行以下操作的方式：1、 连接到数据源。2、 指定访问数据源的命令，同时可带变量参数
17、或优化执行。通常涉及ADO的Command对象。3、 执行命令，例如一个SELECT脚本。4、 如果这个命令使数据按表中行的形式返回，则将这些行存储在易于检查、操作或更改的缓存中。5、 适当情况下，可以把缓存行的更改内容写回数据库中，更新数据源。6、 提供常规方法检测错误（错误通常由建立连接或执行命令造成），涉及ADO的 Error对象。2.3 系统功能分析研究本系统通过对市场需求的具体调研和分析,确定本系统应具备系统管理基础数据管理、客户会员管理、日常业务管理等模块的功能.下面具体分析一下各个模块的功能。1、 系统管理模块 该模块可以完成修改用户密码，添加新用户，设置密码以及退出系统等操作。
18、2、基础数据管理模块在这个模块中，可以设置车辆类型和保险类型，而且还可以对汽车销售商，车辆的保险公司进行管理，如添加，修改和删除等操作。3、 客户会员管理模块在这个模块中，可以设置会员的级别以及添加，修改，和删除客户和会员的信息。 4、日常业务管理模块在这个模块中可以完成车辆的出租，审核以及还车的操作，而且可以查询和打印租赁合同。2.4 系统功能模块图汽车租赁管理信息系统的系统功能结构图如图2.1所示。图 2.1 系统总体功能设计2.5数据字典数据字典是关于数据信息的集合，它为分析阶段的工具，其作用就是在软件分析和设计的过程中给人提供关于数据的描述信息，在数据字典中，建立一组严密一致的定义很有
19、助于改进分析员和用户之间的通信，因此将消除可能的误解。数据字典主要应该包括的每个数据元素的控制信息有：名字，别名，描述，定义，位置。数据字典中包含的每个数据元素的控制信息是很有价值的。因为列出了使用一个给定的数据元素的所有程序（ 或者模块），所以很容易估计改变一个数据将产生的影响，并且能对所有受影响的程序或者模块做出相应的调整。本系统的数据字典如下：1、名字：car别名：车辆信息描述：车辆的购买，保险。技术信息。使用，价格等信息。定义：car= carno+cartype+arname+color+oilno+engineno+carcase+saleid+buydate+insurno+in
20、sured+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+w
21、orkplace+address+zipcode+email+licenseno+licensetype+gedate+expiredate+diverage+flag+typeid+certificate+warrantor+wildcard+wworkplace4、名字：membertype别名：会员类型描述：记录会员类型的编号，名称，折扣率定义：membertype=id+typename+rate位置：会员类型定义，会员信息，汽车租赁，车辆归还5、名字：company别名：公司信息描述：保险公司和车辆销售商的名称，地址，联系方式等信息定义：company=id+company+tele
22、phone+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+op
23、rice2+returntime+returnkm+othercost+rate+dayment+total+status+createdate+username+realtime位置：车辆租赁，车辆归还2.6数据库各表的数据结构 本系统数据库名称为CarMIS，数据库中包括：用户信息表（users）车辆信息表（Cars）公司信息表（Company）客户信息表（Customer）车辆和保险类型信息表（Types）会员类型信息表（MenberType）租赁信息表（Lease）。各表数据结构如下：表2.1 用户信息表的数据结构表名：Users说明：用户信息表字段名类型大小空值描述Usernamen
24、varchar20用户名userpwdnvarchar40用户密码表 2.2 车辆信息表的数据结构表名：Cars说明：车辆信息表字段名类型大小空值描述Carnonvarchar20Y汽车编号Typeidsmallint2Y烈性编号carnamenvarchar50Y汽车名称colornvarchar20Y颜色oilnonvarchar30Y燃油编号enginenonvarchar50Y发动机标号carcasenvarchar50Y车架编号Saleidint2Y销售商Buydatesmalldatetime10Y购买日期Insurnonvarchar50Y保险公司insuridint4Y保单号i
25、nsurtypenvarchar50Y保险类型Insursdatesmalldatetime10Y保险开始日期Insuredatesmalldatetime10Y保险结束日期Depositsmallint4Y押金Daypricesmallint4Y日租金Weekend-pricesmallint4Y周末日租金Weekpricesmallint4Y周租金monthpricesmallint4Y月租金daykmsmallint4Y日限公里overtimepricesmallint4Y超时单位费用overkmpricesmallint14Y超公里单位费用statusnvarchar10Y状态comm
26、entntext10Y备注表2.3 公司信息表的数据结构表名：Company说明：公司信息表字段名类型大小空值描述Idint4公司编号Companynvarchar100Y公司名称Telephonenvarchar50Y电话Zipcodenvarchar8Y邮编Faxnvarchar50Y传真Addessnvarchar50Y地址Emailnvarchar50Y电邮Contactnvarchar50Y联系人Typeidtinyint1Y类型编号commentntext16Y备注表2.4 客户信息表的数据结构表名：Customer说明：客户信息表字段名类型大小空值描述Idnvarchar20Y客
27、户编号Namenvarchar50Y名称Sexnvarchar2Y性别Agesmallint2Y年龄Idcardnvarchar30Y会员卡号Telephonenvarchar30Y电话Workplacenvarchar30Y工作地点Addressnvarchar50Y地址Zipcodenvarchar50Y邮编Emailnvarchar10Y电邮Licensenonvarchar30Y驾照IDLicensetypenvarchar20Y驾照类型Getdatenvarchar20Y驾照获得日期Expireddatenvarchar20Y驾照过期日期Driveragesmallint2Y驾龄Fl
28、agtinyint2Y折扣Typeidint4Y会员类型编号Certificatenvarchar40Y抵押证件Warrantornvarchar50Y担保人Widcardnvarchar30Y担保人身份证wworkplacenvarchar100Y担保人工作地点表2.5 车辆和保险类型信息表的数据结构表名：Types说明：车辆和保险类型信息表字段名类型大小空值描述Idint4编号typenamenvarchar50Y类型名称Typeidtinyint2类型编号descriptionnvarchar100Y描述表2.6 会员类型信息表的数据结构表名MemberType说明：会员类型信息表字段名
29、类型大小空值描述Idint4会员编号Typenamenvarchar20Y类型名称Ratereal8Y享受折扣表 2.7 租赁信息表的数据结构表名：Lease说明：租赁信息表字段名类型大小空值描述Contracnonvarchar50Y合同编号Carnonvarchar20Y车辆编号Custidnvarchar20Y客户编号Leasetimesmalldatetime10Y租赁日期Leasemodenvarchar10Y租赁方式Price1smallint4Y价格1Price2smallint4Y价格2Workdayssmallint2Y工作天数Weekendcountsmallint2Y周末
30、天数Depositint4Y押金Daykmsmallint2Y超限时间数Outkmsmallint4Y超限费用Oprice1smallint4Y日限时间超限费用Oprice2smallint4Y日限公里超限费用Returntimesmalldatetime10还车时间returnkmint4实际公里Othercostint4Y其他费用Ratereal4Y享受折扣Paymentint4实际支付Totalint4费用总额Statusnvarchar10Y状态Createdatesmalldatetime10创建日期Usernamenvarchar20经办人realrtimesmalldatetim
31、e10Y实际还车时间第3章 系统功能设计3.1登录模块设计登录模块是进入系统后的第一个界面，为了提高系统的安全性，本系统设置了身份验证功能，以防非法人员进入系统。 登录流程图如图3.1所示。输入用户名和密码判断用户是否存在判断密码是否正确登录成功否否是是图3.1 登录流程图登录模块窗体如图3.2所示，包含三个标签控件，一个框架，两个文本框和两个命令按钮。图3.2 登陆界面首先点击工程菜单，选择“添加窗体”，在新建的工程内添加一个空窗体，在适当的位置画出框架，然后在框架内添加两个标签控件和两个文本框，然后把另一个标签和两个命令按钮画在下面，设置各个控件属性，最后编写源代码。 例如：将第二个命令按
32、钮的控制名设为“cmd_cancel”,caption属性设为“取消”，字体设为“宋体”，enable和visible属性均设为“True”，编写按钮单击时间源代码如下： Private Sub Cmd_Cancel_Click() EndEnd Sub3.2 主程序界面设计 用户登录成功后，即进入系统主界面。主界面的外观设计应该大方美观，布局合格，方便用户的下一步操作，其窗体布局如下，菜单栏内设有五个子菜单栏，工具栏内设有六个按钮，分别连接常用的功能。 用户登录成功后，即进入系统主程序界面。主界面的窗体布局如下，菜单栏内设有【基础数据管理】、【客户会员管理】【日常业务管理】【系统管理】四个子
33、菜单，工具栏内设有六个按钮，分别为【车辆类型设置】【汽车销售商管理】【保险公司管理】【汽车租赁】【汽车归还】【会员信息】。主程序界面如图3.3。图 3.3主程序界面点击新建工程按钮，在生成的窗体上单击右键，在弹出的菜单栏上点击“菜单编辑器”命令，打开菜单编辑器。设计好程序各级菜单。在窗体上添加“图像列表控件”，用于保存工具栏按钮所使用的图像，在窗体上添加“工具栏控件”，将其与“图像控制列表控件”相关联。并加入代表耽搁按钮的“按钮对象”，最后编写工具栏对应的源代码。工具栏单击事件源代码如下： Private Sub Toolbar1_ButtonClick(ByVal Button As MSC
34、omctlLib.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 FrmLease FrmLease.Show vbModal Case ee Load FrmReturn FrmReturn.Show vbModal Case gg Load FrmMembers FrmMembe
35、rs.Show vbModalEnd SelectEnd Sub3.3 基础数据管理模块的实现3.3.1 车辆和保险类型管理窗体的设计该窗体上设有两个单选按钮，一个datalist控件，四个命令按钮，其窗体如下：图3.4车辆和保险类型设置界面首先按设计添加窗体，安排好各控件的布局，设置其相应属性，例如：将左边的“单选按钮”名称属性设为“optsel”,caption属性设为“汽车类型”,Indexs属性设为“0”，字体属性设为“宋体”，value值设为“True”，而命令按钮设置同上，如对“添加”按钮的设置，设置完成后编写源代码。3.3.2汽车销售商管理窗体的设计此窗体用于对车辆销售商的信息如
36、：销售商名称，联系电话，传真，地址，邮编，电子邮箱等操作，还可以根据用户选择的销售商名称查询该厂商旗下汽车租赁情况。窗体设计如图3.5。图3.5汽车销售商管理界面此窗体上设置了六和命令按钮，一个Datagrid控件，一个标签控件和一个文本框。首先按设计添加窗体，做好各控件的布局，设置相应属性，如：datagrid控件名称属性设置为“datagrid1”,dragmode属性设置为“0”，allowaddnew属性设为“False”,Allowdelete 属性设置为“False”,allowupdate属性设为“False”。字体设置为“宋体”，Enable和Visible属性均设为“True
37、”。 其添加命令按钮单击事件源代码如下：Private Sub Cmd_Add_Click() FrmCompanyEdit.Modify = False FrmCompanyEdit.nTid = 1 FrmCompanyEdit.txtCompany = FrmCompanyEdit.lblType = 销售商 FrmCompanyEdit.txtTelephone = FrmCompanyEdit.txtFax = FrmCompanyEdit.txtAddress = FrmCompanyEdit.txtContact = FrmCompanyEdit.txtComment = Frm
38、CompanyEdit.txtZipCode = FrmCompanyEdit.txtEmail = FrmCompanyEdit.Show 1 GridRefreshEnd Sub3.3.3 保险公司管理窗体的设计此窗体用于对保险公司信息如：保险公司的公司名称，联系电话，传真，地址，邮编，电子邮箱等备注的查询，添加，修改和删除。另外还可根据用户选择的保险公司名称查询投保语该保险公司的汽车的情况。设计窗体如图3.6。 图3.6保险公司管理界面首先按设计添加窗体，安排好各控件的布局，设置其相应属性，如：名称属性为“label1”，alignment属性设置为“0”，文本框对其方式为“左对齐”，C
39、aption属性设置为“保险公司名”，字体属性设置为“宋体”。查看保险车辆按钮的单击事件源代码如下：Private Sub Cmd_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 = 查看保险公司保险汽车
40、 FrmSaleCars.Label1 = 保险公司名称 FrmSaleCars.Show 1End Sub3.3.4车辆管理窗体的设计本窗体用于提供对车辆信息的添加，修改和删除功能，可处理的信息包括车辆的基本信息如车牌号，状态，车辆类型，颜色，押金，日租金等。设计界面如图3.7。 图3.7 车辆管理界面3.4 客户会员管理模块的实现3.4.1 客户信息管理窗体的设计 客户信息管理窗体用于对客户信息如：编号、姓名、性别、年龄、驾驶证编号、驾龄等的查找、添加、修改、删除等操作。并且提供将普通客户加入会员的服务。 本窗体上设置有六个命令按钮，一个Adodc控件，一个Datagrid控件，一个标签控
41、件和一个文本框。命令按钮分别为“添加”“修改”“删除”“查找”“加入会员”“退出”。窗体设计如图3.8。图 3.8 客户信息管理界面点击“工程”菜单，选择“添加窗体”，在窗体上画出所需控件，把这些控件移动至窗体内适当位置，并设置各个控件的属性，最后编写各个控件相应事件过程。如，对于命令按钮：“删除”，当放置好按钮位置后，将其名称属性设置为“Cmd_del”，对于Caption属性则设置为“删除”，字体属性设置为“宋体”，Enabled和Visible属性设置为true。进行删除操作时，首先在列表框上显示出来的客户信息条目中将要删除一条选中（如果不选择，系统则默认为选择了第一条）做出选择后，单击
42、“删除”按钮，显示一个对话框，选中用户是否确认删除，选“是”，则系统从数据库中删除该项，并弹出一个信息框，告知用户操作成功。命令按钮“删除”单击事件源代码如下：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 成功, vbI
43、nformation GridRefreshEnd Sub3.4.2 会员信息管理窗体设计会员信息管理窗体用于对会员信息如，编号，姓名，年龄驾驶证编号，驾龄，登记日期等的查找、修改及注销功能。 本窗体上设有四个命令按钮，一个Datagrid控件，一个标签控件和一个文本框。窗体设计如图3.9。 图3.9 会员信息管理界面点击“工程”菜单，选择“添加窗体”，在新建工程内添加一个空窗体，先设置窗体的属性，名称属性设置为“Frmmembers”，StartUpPosition属性设置为“2”，即窗体首次出现是在屏幕中心显示，Font属性设置为“宋体”，Caption属性设置为“会员管理”。接着对其它控件的属性进行设