超级车辆管理系统的开发与设计毕业论文.doc

超级车辆管理系统的开发与设计毕业论文目 录摘 要1目 录2第一章 绪论31.1 课题开发的背景及意义31.2课题目标31.3 系统可行性分析41.3.1经济可行性分析41.3.2操作可行性分析41.4 论文完成的工作4第二章 开发语言介绍52.1系统的架构52.2系统运行环境操作系统52.3开发语言简介5第三章 系统设计93.1 系统详细调查93.2软件模块结构设计10第四章 系统实现134.1 系统登录模块：错误！未定义书签。4.2 系统主界模块如下所示:错误！未定义书签。4.3 车辆信息模块错误！未定义书签。4.3 客户明细模块错误！未定义书签。4.4 车辆维护模块错误！未定义书签。致 谢错误！未定义书签。参考文献错误！未定义书签。第一章 绪论1.1 课题开发的背景及意义当今时代是飞速发展的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。管理系统是进行信息的采集、存储、加工、维护和使用的系统。它是随着管理科学和技术科学的发展而形成的。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对进存销信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高车辆管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情,车辆管理系统提供了强大的车辆管理管理功能，方便管理员对所有车辆基本信息.运输中的车辆以及需维护车辆等信息的添加.修改.删除.查询.汇总.统计等操作。更适合大型数据库的管理1.2课题目标管理员能够方便的对信息进行添加.修改.删除.查询.汇总.统计等操作。可以将数据库发布到网上，进行资源共享。提高管理效率降低人工成本及时调整营销策略，防止价格流失强化财务监控制实现的经济效益1.3 系统可行性分析1.3.1经济可行性分析本系统开发简单但要耗去一定的时间，所用的开发工具和软件都差不多是免费的。而且，由于系统能够在未来较长的一段时期内稳定地发挥作用，这对于车辆管理信息的自动化管理，企业管理企业的人力和财力都有很大的帮助。由此可见在，开发此系统在经济上是完全可行的。1.3.2操作可行性分析如今的计算机已经走进千家万户，硬件成本的下降，导致计算机购买成本的降低.我的这套系统是利用自己的计算机加Microsoft Visual Basic 6.0作为软件的开发平台，使开发出来的系统有友好的用户界面、有良好的安全性设置、有详细的操作说明书，这样更使各类用户很快地掌握系统的使用方法,操作友好因此在操作上是可行的.1.4 论文完成的工作在本次论文中，为了更好的完成论文工作，我经过多方面的参考和研究，参考了之前学生的毕业论文，又研究了好多本方面的书籍，终于写下了今天的毕业论文。本次论文完成的工作有：本次论文的选题背景、目的意义、开发平台的技术简介（VB简介）、数据库简介、需求分析包括系统的流程图和数据流程图、模块结构设计、数据库设计包括系统E-R图、系统功能设计、系统输入设计即对系统的简单介绍。还有论文前面的摘要及其翻译、论文附录部分的外文资料及其翻译。在做需求分析时，需要画的业务流程图和数据流程图，我参考了大量的关于软件工程方面的书籍，其中的一本是电子工业出版社出版本的软件工程（第二版）是由陆惠恩、陆培恩编著的。在做数据库设计时，我根据系统的实际情况画出了系统E-R图，以便于老师更深入的了解本系统。同时还列出了系统用到数据库中所有表的表结构，以便于参照表结构来看待本系统。系统功能设计即系统的功能框图，以便于用户能够对本系统所实现的各项功能一目了然，从而更好地应用。对系统的简单的介绍，有点类似于产品说明书，使老师容易地知道系统的使用方法。关于本篇论文实现的工作就介绍到这里，具体的工作，还请老师详看本篇论文。第二章 开发语言介绍2.1系统的架构本系统开发使用的系统只是普通的PC机，操作系统为Windows 2000 Professional版本。考虑到使用的数据量不大，数据库的建立使用的是Microsoft Access, 这是因为Microsoft Access与其他的数据库软件相比，其理解和使用都更为简单易懂,容易让一般企业人员接受。2.2系统运行环境操作系统采用的是当前流行的主流操作系统微软公司的WindowsXP。2.3开发语言简介现在，市场上可以选购的应用开发产品很多，流行的也有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：Microsoft公司的Visual BasicMicrosoft公司的Visual CMicrosoft公司的Visual FoxProBorland公司的Delphi Powersoft公司的PowerBuliderJava等等在目前市场上这些众多的程序开发工具中，有些强调程序语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用；相反，如果只强调程序语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。Visual Basic是美国微软公司的第一个编程工具和系统开发的第一个产品，Visual Basic以优良的性能、较强的系统开发功能、完美的视觉界面和简单易学的特点，已经赢得了全世界广大用户的偏爱。Visual Basic的编程环境包含了快速有效的开发功能，尤其是数据窗口这一方便而简洁操纵数据库的智能化对象，使系统的开发更人性化，操作更简便。作为管理信息系统的开发，Visual Basic是一个非常理想选择。Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。总的来说，Visual Basic6.0具有以下特点：Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。面向对象的程序设计4.0版以后的Visual Basic支持面向对象的程序设计，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。结构化程序设计语言Visual Basic是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用灵活的调试器和编译器。Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。事件驱动编程机制Visual Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击”(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。访问数据库Visual Basic具有强大的数据库管理功能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问其他外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。动态数据交换(DDE)利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。对象的链接与嵌入(OLE)对象的链接与嵌入(OLE)将每个应用程序都看作是一个对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看作是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。动态链接库(DLL)Visual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。第三章 系统设计3.1 系统详细调查（1）功能需求基于以上的开发目标，系统开发的范围确定如下：本系统只涉及车辆资料部分，包括库存车辆、运输中车辆以及维护中车辆等功能；本系统提供强大的查询功能，可进行不同类型查询，提供多种索引；本系统提供记录的添加，删除和修改；本系统可单条或多条输出信息。根据车辆管理的需要，开发一个“车辆管理系统”，应能实现的功能如下：. 能够对所有车辆基本信息进行维护、查询，. 能够对处于任务状态（使用中）的车辆信息进行维护、查询能够对处于维护中车辆信息进行维护、查询。(2）数据需求通过调查和研究，本系统仅提供一个数据库，但该数据库包含各项所需信息，表名为Cars.mdb（Access表结构）。（3）运行环境大多数单位，对计算机的要求并不高，所以计算机的配置约为普通配置，DDR256M内存，17英寸纯平显示器，80G硬盘，标准键盘和鼠标， Windows 98/xp/me/2000操作系统等。而本系统开发工具选取VB6.0，所以编制的程序在以上环境的机器中均可顺利运行，并且本系统占用空间较小，主要依靠鼠标和键盘进行录入。详细调查的重点是对管理业务的流程进行描述，通过采用系统流程图中部分图工具来描述管理活动，进行规范化说明。系统分析的主要成果是系统的逻辑模型。本系统的逻辑模型主要是以系统的数据流图和数据字典为主要描述工具。即在图书管理方式和业务流程进行认真分析和研究的基础上，排除现有组织机构和业务分工所造成的信息障碍。完全从业务管理功能和管理对象出发，按照信息系统中应有的数据流和数据结构来勾画系统的概貌3.2软件模块结构设计（1）.系统方案确定。通过对系统调研与分析，系统主要应完成的功能如下：车辆信息的添加、删除、修改，客户明细资料的添加、删除、修改，维护中车辆的添加、删除、修改，以及按车牌号、按时间查询等功能。（2）.软件结构设计。系统功能图如下：登录车辆管理客户明细车辆维护车辆信息添加车辆信息删除车辆信息修改客户信息添加客户信息删除客户信息查询维护信息添加维护信息修改维护信息删除客户信息修改维护信息查询3.3 系统E-R图车辆ID车辆牌照号猫画号车辆名称车辆保险时间表车辆颜色购买时间车辆描述车辆信息客户ID客户姓名客户电话客户任务车辆牌照任务地点任务开始时间任务结束时间客户明细维护ID维护事项车辆牌照号维护日期备注车辆维护第四章 系统实现4.1 系统登录模块：启动系统后，展示屏幕停留后显示登录窗体4.2 系统主界模块如下所示: 4.3 车辆信息模块 本模块主要是对车辆信息进行录入,主要含有以下信息：车辆ID、牌照号、车辆名称、车辆颜色、购买时间、保险时间、车辆描述等等主要信息,本模块有添加,修改,删除等功能.流程图如下所示：管理员车辆信息添加车辆信息修改车辆信息删除车辆信息 本模块界面如下所示:本模块代码如下：Private Sub CmdEdit_Click(Index As Integer)If Index = 0 Then If CmdEdit(0).Caption = 添加 Then Cmdfirst.Enabled = Falsecmdnext.Enabled = Falsecmdlast.Enabled = FalseCmdPrevious.Enabled = False ExecuteSql1 select top 1 car_ID from cars order by car_ID desc If rs.RecordCount 0 Then txtid.Text = car & Format(Val(Right(rs.Fields(0).Value, 3) + 1, 0#) Else txtid.Text = car001 End If txtname.Text = txtcolor.Text = txtnumber.Text = txtdiscrip.Text = txtinsurance.Text = txtBuyDate.Text = txtname.SetFocus CmdEdit(0).Caption = 保存 CmdEdit(1).Enabled = False CmdEdit(2).Enabled = False GrdTab.Enabled = False Exit Sub End If If CmdEdit(0).Caption = 保存 Then On Error GoTo err2 If checkdata = False Then Exit Sub End If ExecuteSql1 select * from cars where car_number= & Trim(txtnumber.Text) & If rs.RecordCount 0 Then MsgBox 牌照不可能一样！请重新输入！, vbInformation, 提示 txtnumber.Text = txtnumber.SetFocus Exit Sub End If If MsgBox(确定要保存吗?, vbQuestion + vbYesNo, 保存) = vbYes Then rctlist.AddNew Call savedata rctlist.Update MsgBox 保存成功, , 提示信息 Call Form_Load CmdEdit(0).Caption = 添加 CmdEdit(1).Enabled = True CmdEdit(2).Enabled = True GrdTab.Enabled = True Cmdfirst.Enabled = Truecmdnext.Enabled = Truecmdlast.Enabled = TrueCmdPrevious.Enabled = True Exit Sub End Iferr2: MsgBox 日期的格式不对！ & vbCrLf & 日期的格式为年-月-日, , 提示信息 Err.Clear rctlist.Delete (adAffectCurrent) txtBuyDate = txtBuyDate.SetFocus Exit Sub End IfElseIf Index = 1 ThenIf rctlist.RecordCount 1 Then MsgBox 没有要修改的内容，请添加新内容！, vbInformation, 提示信息 Exit Sub End If If MsgBox(确定要修改吗！, vbQuestion + vbYesNo, 修改) = vbYes Then If checkdata = True Then Call savedata rctlist.Update MsgBox 修改成功, , 提示信息 Call Form_Load End If End IfElseIf Index = 2 ThenIf txtid = Then MsgBox 请选择你要删除的行！, , 提示信息 Exit Sub End If If MsgBox(你确定要删除吗？, vbYesNo + vbInformation, 提示信息) = vbYes Then rctlist.Delete (adAffectCurrent) MsgBox 删除完成, , 提示信息 Call Form_Load End IfEnd IfEnd SubPrivate Sub Cmdfirst_Click()If rctlist.RecordCount 0 Thenrctlist.MoveFirst showdataEnd IfEnd SubPrivate Sub cmdlast_Click()If rctlist.RecordCount 0 Thenrctlist.MoveLast showdataEnd IfEnd SubPrivate Sub cmdnext_Click()If rctlist.RecordCount 0 Then rctlist.MoveNextIf rctlist.EOF = True Then rctlist.MoveLast MsgBox 已经到记录末尾！, , 提示信息 End If showdataEnd IfEnd SubPrivate Sub CmdPrevious_Click()If rctlist.RecordCount 0 Thenrctlist.MovePrevious If rctlist.BOF = True Then rctlist.MoveFirst MsgBox 已经到记录头！, , 提示信息 End If showdataEnd IfEnd SubPrivate Sub Form_Load()ConnectToServerfilldataIf rctlist.RecordCount 0 ThenshowdataElse txtid.Text = txtname.Text = txtcolor.Text = txtnumber.Text = txtdiscrip.Text = txtinsurance.Text = txtBuyDate.Text = End IfImage1.Picture = LoadPicture(App.Path & pics00.jpg)Timer1.Enabled = TrueIf ConnectToServer = True And ExecuteSql(sql) = True ThenMsgBox 1ElseMsgBox 2End IfEnd SubPrivate Sub Grdtab_Click()GrdTab.Col = 4orientation = GrdTab.TextIf rctlist.RecordCount 1 Then GrdTab.Enabled = False Exit SubEnd Ifrctlist.MoveFirstDim sql As StringWhile rctlist.EOF = False If rctlist.Fields(3).Value = orientation Then MsgBox cstr(rctlist.Fields(4).Value ) showdata GoTo lebal End If rctlist.MoveNextWendlebal:sql = select * from Cars where Car_number= & orientation & ExecuteSql (sql)txtid.Text = CStr(rctlist.Fields(0).Value)ExecuteSql select * from Cars End SubPrivate Sub Timer1_Timer()If a = False Then lbltip.Left = lbltip.Left + 25 If lbltip.Left = 2160 Then a = True End IfElse lbltip.Left = lbltip.Left - 25 If lbltip.Left = 360 Then a = False End IfEnd IfEnd Sub往msflexgrid填数据Private Sub filldata()sql = select * from cars order by car_id ExecuteSql sqlGrdTab.Rows = rctlist.RecordCount + 1GrdTab.Cols = rctlist.Fields.Count + 1GrdTab.Row = 0GrdTab.Col = 0GrdTab.ColWidth(0) = 300GrdTab.Col = 1GrdTab.Text = 车辆IDGrdTab.ColWidth(1) = 800GrdTab.CellAlignment = flexAlignCenterCenterGrdTab.Col = 2GrdTab.Text = 车辆名称GrdTab.ColWidth(2) = 1200GrdTab.CellAlignment = flexAlignCenterCenterGrdTab.Col = 3GrdTab.Text = 车辆颜色GrdTab.ColWidth(3) = 1200GrdTab.CellAlignment = flexAlignCenterCenterGrdTab.Col = 4GrdTab.Text = 车辆牌照号GrdTab.ColWidth(4) = 1000GrdTab.CellAlignment = flexAlignCenterCenterGrdTab.Col = 5GrdTab.Text = 车辆描述GrdTab.ColWidth(5) = 1800GrdTab.CellAlignment = flexAlignCenterCenterGrdTab.Col = 6GrdTab.Text = 车辆保险时间GrdTab.ColWidth(6) = 1800GrdTab.CellAlignment = flexAlignCenterCenterGrdTab.Col = 7GrdTab.Text = 购车时间GrdTab.ColWidth(7) = 1200GrdTab.CellAlignment = flexAlignCenterCenterIf rctlist.RecordCount 0 Thentxtid.Text = rctlist.Fields(0).Valuetxtname.Text = rctlist.Fields(1).Valuetxtcolor.Text = rctlist.Fields(2).Valuetxtnumber.Text = rctlist.Fields(3).Valuetxtdiscrip.Text = rctlist.Fields(4).Valuetxtinsurance.Text = rctlist.Fields(5).ValuetxtBuyDate.Text = rctlist.Fields(6).ValueEnd IfEnd Function保存记录Public Function savedata()On Error Resume Next rctlist.Fields(0).Value = Trim(txtid.Text) rctlist.Fields(1).Value = Trim(txtname.Text) rctlist.Fields(2).Value = Trim(txtcolor.Text) rctlist.Fields(3).Value = Trim(txtnumber.Text) rctlist.Fields(4).Value = Trim(txtdiscrip.Text) rctlist.Fields(5).Value = Trim(txtinsurance.Text) rctlist.Fields(6).Value = Trim(txtBuyDate.Text) End FunctionPublic Function ExecuteSql1(sql As String) As Boolean Set rs = New ADODB.Recordset rs.ActiveConnection = con rs.CursorLocation = adUseClient rs.LockType = adLockOptimistic rs.CursorType = adOpenDynamic rs.Source = sql On Error GoTo err1 rs.Open ExecuteSql1 = True Exit Functionerr1: MsgBox Err.Description ExecuteSql1 = FalseEnd FunctionFunction checkdata() As Boolean If txtname.Text = Then MsgBox 请输入车辆名称!, vbInformation + vbOKOnly, 提示 txtname.SetFocus Exit Function End If If txtcolor.Text = Then MsgBox 请输入车辆颜色!, vbInformation + vbOKOnly, 提示 txtcolor.SetFocus Exit Function End If If txtnumber.Text = Then MsgBox 请输入车辆牌照号码!, vbInformation + vbOKOnly, 提示 txtnumber.SetFocus Exit Function End If If txtdiscrip.Text = Then MsgBox 请输入车辆描述信息!, vbInformation + vbOKOnly, 提示 txtdiscrip.SetFocus Exit Function End If If txtinsurance.Text = Then MsgBox 请输入车辆保险时间!, vbInformation + vbOKOnly, 提示 txtinsurance.SetFocus Exit Function End If If txtBuyDate = Then MsgBox 请输入车辆购入时间!, vbInformation + vbOKOnly, 提示 txtBuyDate.SetFocus Exit Function End If checkdata = TrueEnd Function4.3 客户明细模块 本模块主要是对用车客户信息的进行录入,主要含有以下信息：客户ID、客户姓名、客户电话、客户任务、牌照号、任务地点、任务开始时间、任务结束时间，备注等等主要信息,本模块有添加,修改,删除，查询功能.流程图如下图所示:管理员客户信息添加客户信息修改客户信息删除客户信息 本模块界面如下所示:本模块代码如下：Private Sub cmdAdd_Click() If cmdAdd.Caption = 添加 Then Cmdfirst.Enabled = Falsecmdnext.Enabled = Falsecmdlast.Enabled = FalseCmdPrevious.Enabled = False ExecuteSql1 select top 1 client_ID from client order by client_ID desc If rs.RecordCount 0 Then txtId.Text = client & Format(Val(Right(rs.Fields(0).Value, 4) + 1, 0#) Else txtId.Text = client0001 End If txtname.Text = Txtphone.Text = txttask.Text = txtnumber.Text = txtaddress.Text = txtstartdate.Text = Date txtenddate.Text = txtbeizhu.Text = txtname.SetFocus cmdAdd.Caption = 保存 cmdSave.Enabled = False cmdDelete.Enabled = False GrdTab.Enabled = False Exit Sub End If If cmdAdd.Caption = 保存 Then If checkdata = False Then Exit Sub End If If txtenddate.Text And txtenddate.Text Like #-#-# Then Else MsgBox 输入的日期格式不正确 & vbCrLf & _ 日期的格式为年-月-日 & vbCrLf & _ 例如2005-01-01, vbCritical + vbOKOnly, 提示信息 txtenddate.Text = txtenddate.SetFocus Exit SubEnd If If MsgBox(确定要保存吗?, vbQuestion + vbYesNo, 保存) = vbYes Then rctlist.AddNew Call savedata rctlist.Update MsgBox 保存成功, , 提示信息 Call Form_Load cmdAdd.Caption = 添加 cmdSave.Enabled = True cmdDelete.Enabled = True GrdTab.Enabled = True Cmdfirst.Enabled = True cmdnext.Enabled = True cmdlast.Enabled = True CmdPrevious.Enabled = True Exit Sub End IfEnd IfEnd SubPrivate Sub cmdDelete_Click()If GrdTab.Rows 2 Then MsgBox 请选择你要删除的行！, , 提示信息 Exit Sub End If If MsgBox(你确定要删除吗？, vbYesNo + vbInformation, 删除) = vbYes Then rctlist.Delete (adAffectCurrent) MsgBox 删除完成, , 提示信息 End If Call Form_Load End SubPrivate Sub cmdFullshow_Click()If cmdAdd.Caption = 添加 ThentxtqueryName.Text = Call Form_Load Cmdfirst.Enabled = Truecmdnext.Enabled = Truecmdlast.Enabled = TruefrmClient.C