vb运输管理系统设计源代码开题报告vb036

1、目录摘要前言第一章 为什么要开发一个管理系统11 用计算机管理客运公司管理的意义12管理系统的设计分析第二章 怎样开发一个管理系统管理系统？21编程环境的选择22关系型数据库的实现23二者的结合（DBA）第三章 Windows 下的 Visual Basic 编程环境简介31 VB 连接数据库的各种方法+第四章 使用 Acs2000 实现关系型数据库41数据库的概念42新建一个数据库43修改已建的数据库44实现数据库之间的联系第五章 系统总体规划51 系统功能第六章 系统具体实现61 用户界面的实现611 登陆界面612 主界面62 数据库的实现621 用户库622 各个功能数据库第 8 章

2、结束语主要参考文献摘要管理系统管理系统是典型的信息管理系统,其开发的功能主要包括：通过计算机管理客运公司管理信息，日常办公，实现无纸化办公，通过工时计算，统计出各项数据，分析出客运现状和车辆现状，提高办事效率。经过分析,决定使用公司的 ACS 作为数据库,设计出功能库， 使用公司的 VISUAL BASIC 开发工具，利用其提供的各种面象的开发工具,尤其是ADO 控件这一能方便而简洁数据库的智能化对象,连接数据库，开发出产品。关键字：ADO、窗体、数据库。前言发展客运无论对客运公司发展还是对人民生活需求都具有十分重要的意义；发展客运是增强客运公司实力、改善客运服务质量的需要，是完善体系、提高整

3、体效益的需要，是实现两个根本性转变、走集约化发展道路的必然趋势，是发挥道路优势的拳头产品；建立客运系统可以道路竞争力，提高车辆运用效率，降低成本，减少交通事故；发展客运可以改善投资环境，促进地域经济的进程；促进沿线经济开发、房地产升值；促进形成网络型公路产业，高新技术产业及商贸开发区；促进产业结构化，加快物流速度；促进地区经济的繁荣。我国加入世界贸易组织后，必然要加快和经济结构调整的速度，加大市场开放的力度，而性的客运系统正是开放市场、促进交流的良好载体。第一章用计算机管理管理系统的意义管理系统管理的定义为，组织中管理系统的管理，意指对管理系统的获取、激励与运用与发展的全部管理过程与活动。一般

4、而言，良好的管理系统管理，有助于为客运公司达到以下的目标：一、协助组织达成发展目标与远景。二、有效地运用的能力与技术专才。三、促使组织成员的工作士气高昂且激发潜能。四、滿足组织成员的自我实现感与增加成员的工作成就感。五、发起且组织。六、提高组织成员的工作生活品质。七、协助客运公司决策。管理系统的设计分析根据实际情况，使用 ADO 控件少量代价快速地构造一个可执行的系统模型。使用户和开发可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。第二章怎样开发一个管理系统管理系统？编程环境的选择微软

5、公司的 Visual Basic 6.0 是 Windows 应用程序开发工具，使目前最为广泛的、易学易用的面象的开发工具。Visual Basic 提供了大量的控件，这些控件可用于设计界面各种功能，减少了编程的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统 VB 是一个相对较好的选择。关系型数据库的实现Acs2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、和检索。Acs 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Acs 允许创建自定义报表用于打印

6、或输出数据库中的信息。Acs 也提供了数据库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Acs 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Acs 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。二者的结合（ADO）微软的 JET 数据库引擎提供了与数据库打交道的途径，是通过它以及 VisualBasic 来数据库并对其进行。Visual Basic、Acs 以及其他微软的产品都是通过共用 JET 数据库引擎，从而给用户提供了丰富的数据类型。ADO 控件在数据库中的信息与将信息

7、显示给用户看的 Visual Basic 程序之间架起了一座桥梁。可以设置 ADO 控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，ADO 控件根据数据库中的一个或多个数据表建立一个 dynaset-type（动态集合）类型的集合。一个集合是动态的也就意味着，当原来的数据表中的容改变了以后，该集合中的也会随之改变。ADO 控件还提供了用来浏览不同的各种跳转按钮。将 ADO 控件放置在窗体中之后，还必须在该控件与要处理的数据库之间建立联系。ADO（ActiveX Data Objects）是基于组件的数据库编程接口，它是一个和编程语言无关的 COM 组件系统。本文主要介绍用 ADO

8、 编程所需要注意的技巧和在 VC 下进行 ADO 编程的模式，并对CExtens 进行了简单的，希望对 ADO 开发有一定的帮助作用。因为 ADO 是一个和编程语言无关的 COM 组件系统，所以这里的要点适用于所有的编程语言和编程环境，比如：VB、VBScript、VC、Java 等等。ADO 定义了一个可编程的对象集合.ADO 对象模型:对于 ADO 其中对象来说,我觉得比较重要的是:d,Connection,Recordset 对象.虽然严格的说这是确的,但根据实际经验确实如此.下面就分别来谈一下.(1) Connection 对象Connection 对象用于建立与数据库的连接.通过连接

9、可从应用程序数据源.它保存诸如指针类型,连接字符串,查询超时,连接超时和缺省数据库这样的连接信息.(2)d 对象在建立 Connection 后 可以发出命令操作数据源 一般情况下mand 对象可以在数据库中添加 删除或更新数据或者在表中进行数据查询mand 对象在定义查询参数或执行一个有输出参数的过程时非常有用.(3) Recordset 对象Recordset 对象只代表一个集,这个集是接的数据库中的表,或者是d 对象的执行结果返回的集.在 ADO 对象模型中,是在行中检查和修改数据的最主要的方法,所有对数据的操作几乎都是在 Recordset 对象中完成的.Record 对象用于指定行,

10、移动行,添加,更改,删除.下面就具体地说说如何用 ADO 存取数据：在实际编程过程中使用 ADO 的一个典型的存取数据的步骤为：(1)连接数据源(2)打开集对象(3)使用集(4)断开连接那么具体怎么是用呢?分别来看.(我在最后将给出一个完整的使用 ADO 的实例给大家参考.)(1) 如何连接数据源利用 Connection 对象可以创建一个数据源的连接.应用的方法是Connection 对象的 Open 方法.语法:Connection 对象.Open ConnectionString, UserID, PassWord, OpenOptions其中：Connection 对象为你定义的 Co

11、nnection 对象的实例;ConnectionString 为可选项,包含了连接的数据库的信息;UserID 可选项,包含建立连接的用户名;PassWord 为可选项,包含建立连接的用户;OpenOptions 为可选项,假如设置为adConneync,则连接将异步打开.(2)打开集对象实际上集返回的是一个从数据库取回的查询结果集.因此他有两种打开方法:一种使用集的 Open 方法,另一种是用 Connection 对象的 Execute 方法.(a)集的 Open 方法语法:Recordset.Open Source, ActiveConnection, CursorType, Lock

12、Type, Options其中：Recordset 为所定义的集对象的实例.Source 可选项,指明了所打开的源信息.可以是合法令,对象变量名,SQL语句,表名,过程调用,或保存集的文件名.ActiveConnection 可选项,合法的已打开的Connection 对象的变量名,或者是包含 ConnectionString 参数的字符串.CursorType 可选项,确定打开集对象使用的指针类型.LockType 可选项 确定打开集对象使用的锁定类型.(b)Connection 对象的 Execute 方法语法:Set recordset=Connection.Execute(dText,

13、RecordsAffected,Options)参数说明:dText 一个字符串,返回要执行的SQL 命令,表名,过程或指定文本.RecordsAffected 可选项,Long 类型的值,返回操作影响的数.Options 可选项,Long 类型值,指明如何处理dText 参数.介绍完了如何打开数据库下面说说怎么使用吧.(3)使用集(a)添加新的:在 ADO 中添加新的用的方法为:AddNew 它的语法为:Recordset.AddNew FieldList, ValuesRecordset 为集对象实例FieldList 为一个字段名,或者是一个字段数组.Values 为给要加信息的字段赋的

14、值,如果FiledList 为一个字段名,那么Values应为一个单个的数值,假如 FiledList 为一个字段数组,那么 Values 必须也为一个个数,类型与FieldList 相同的数组.再用完AddNew 方法为集添加新的后,应使用UpDate 将所添加的的数据在数据库中.不过你最好在用 UpDate 方法之前使用 CancelUpdate 方法来取消该项操作.(b)修改集其实修改核对集中的数据重新赋值没太大的区别,只要用 SQL 语句将要修改的字段的一个数据找出来重新赋值就可以了.这里不再细说了.(c)删除在ADO 中删除集中的数据的方法为:Delete 方法,这与对象的方法相同,

15、但是在 ADO 中它的能力增强了,可以删掉一组了.它的语法如下:Recordset.Delete AffectRecords其中的,AffectRecords 参数是确定Delete 方法作用的方式的,它的取值如下:adAffectCurrent 只删除当前的adAffectGroup 删除符合Filter 属性设置的那些.为了一次能删除一组数据,应设置 Filter 属性.(d)查询在 ADO 中查询的方法很灵活,有几种查询的方法.使用连接对象的 Execute 方法执行 SQL 命令,返回查询集.使用对象的方法执行mandText 属性中设置的SQL 命令,返回查询集.第一个方法的具体语法

16、面数据连接时已经介绍过了,下面就第二方法具体说一下.d 对象的 Execute 方法的语法如下:d.Execute RecordsAffected, Parameters, Options 不返回集或者 SetRscordset=cmmnad.Execute(RecordsAffected,Parameters,Options) 返回集dText 的语法为:mandText=stringvariable其中: stringvariable 为字符串变量,包含 SQL 语句,表名或过程.(4) 断开连接在应用程序结束之前,应该分配给ADO 对象的资源,操作系统回收这些资源并可以再分配给其他应用程

17、序.使用的方法为:Close 方法.语法如下:Object.Close Object 为 ADO 对象第三章VisualBasic（简称 VB）是一种可视化的、事件驱动型的 Windows 应用程序开发工具，它在 GUI 设计、绘图、制表、运算、通信和多开发方面都具有简单易行、功能强大等优点，所以越来越受到开发的亲睐。同时，VB 在数据库开发方面也具有 Foxpro 所远不能及的强大功能。VB 能够和Acs、Excel、DbaseX、Foxpro、Btrieve 和 ODBC 等多种数据库，并能利用 VB 自身所带的数据库引擎创建Acs 数据库。所以 VB 在管理信息系统（MIS）的开发和建设

18、方面得到了是益广泛的应用。现在，笔者就 VB 应用数据库的一些方法作一简单的介绍。VB数据库通常有三种途径：第一，通过数据库控制控件 Dontrol；第二，通过 VB 提供的数据库对象变量编程；第三，通过 ODBC 接口ODBCAPI 函数。在这三种方法中，第法操作起来最方便、灵活、易于掌握，同时也最能体现 Visual Basic 面象的特色，故这里以 Foxpro2.5 的数据库为例，介绍数据库控制控件（Dontrol）数据库的方法与步骤：一、在 Form 窗口中加入Dontrol 控件用鼠标在工具窗口的Dontrol 控件按钮上双击左键，该对象即出现在Form 窗口的中间（控件名为 Da

19、ta1），用鼠标调整好控件的大小及位置。如工具箱中无此控件，可打开主菜单的 Tools/Custom，在列表中选中Dontrol复选框，确认后即可将此控件加入到工具箱中去。二、设置联接库用鼠标单击 Data1，按下 F4，打开属性窗口，设置 Connect 属性为 Foxpro2.5，设置 DatabaseName为 c:foxprowstudent.dbf（假设磁盘上已有这个文件）。三、加入字段显示、编辑控件（数据库控件）在Form 窗口中加入DGrid 控件，如不在此控件，可打开主菜单Tools/Custom，在列表中选择xDataBroundGrid 复选框，确认后即可向工具箱中加入此控

20、件。在 Form 窗口中单击选中此控件（DGrid1），按下 F4 打开属性窗口，设置 Datasource属性为 Data1，在 Form 窗口中用鼠标右键单击控件 DGrid1，选择RetrieveFields；再用鼠标右键单击控件 DGrid1，选择 Edit，用鼠标调整控件及有关字段大小；再用鼠标右键单击控件 DGrid1，选择 Properties（属性），在弹出窗口中，选择 Colums，在下拉列表中选 Colum1，将 Caption 属性改为“学号”，选择 Colum2，Caption属性改为“”，选择 Colum3、4 将 Caption 属性改为“”、“专业”，按下“确定”

21、按钮。再向 Form 窗口中加入一个按钮控件，将 Caption 属性设置为“退出”，双击该控件（d1），在代码窗口中写入“END”，存盘。此时，一个具备数据库读写、浏览功能的应用程序就建立了，按下 F5 运行，通过单击 Data1 的各按钮即可看出当前的变化情况。在此基础上，还可以借助数据库控制控件的有关属性和方法进行更灵活的操作和控制。1、 设置 Data1.Visiable=False将控件设为不可见2、 将按钮d2，3，4，5，6，7 的 Caption 属性分别设置为“追加”、“首”、“上一条”、“下一条”、“尾”、“删除”，双击各按钮，分别写入事件代码：Subd1-Click()关

22、闭应用程序EndEndSubSubd2-Click()追加Data1.Recordset.AddnewData1.Recordset.UpdateData1.Recordset.MoveLastEndSubSubd3-Click() 移向首Data1.Recordset.MoveEndSubSubd4-Click()移向上一条Data1.Recordset.MovePreviusIfData1.Recordset.BofThenData1.Recordset.MoveEndIfEndSubSubd3-Click()移向尾Data1.Recordset.MoveLastEndSubSubd4-C

23、lick()移向下一条Data1.Recordset.MoveNextIfData1.Recordset.Eof ThenData1.Recordset.MoveLastEndIfEndSub除此之外，数据库控制控件还有 Bookmark、RecordCount 等许多属性与方法，能对数据库进行各种方便的操作。由此可见，数据库控制控件具有数据库操作方面的强大功能。另外，数据库控制控件的RecordSource属性可用一个SQL 语句赋值，以此来有效地调用SQL 语句，从而发挥 SELECT 语句强大的功能，更使数据库控制控件（Dontrol）锦上添花。真正删除数据库的大家知道，缺省情况下，VB

24、删除只是把作上个删除标志而已，并没有真正删除。要真正删除，你可以使用VB提供的以下方法：Begrans、CommitTrans 、RollBack 。其中， Begrans方法开始数据库的变动， CommitTrans方法确认数据库的变动，而RollBack方法则可以恢复被删除或修改的。 它们可以嵌套使用。 因此， 要恢复被删除的， 应该在使用Begrans方法之后及使用CommiTrans方法之前使用RollBack方法。不用DATA控件操作数据库文件大家知道，在 VB中如果使用DATA控件数据库，那么程序执行就必须要一些大型DLL支持。这对于安装盘的是一个大问题。那么，在VB中能不能不用D

25、ATA控件数据库呢？在VB中不用DATA控件而数据库，只有一法：将数据库文件当成2 进制文件打开。但此法最大就是你必须了解数据库文件的结构形式。比如：FoxBase 的 DBF 文件（我不了解其它数据库的文件结构，大家可以去查查）：它由头和。而头又由两部分：头=数据库说明+字段说明。下面列出FoxBase数据库说明： FoxBase数据库说明起始地址字节数含义11FoxBase数据库文件标志2-43最后一次修改日期，3 个字节分别为年、月、日5-84文件总数9-102头长度11-122每个长度13-2220未使用下面列出字段说明，每个字段由32个字节。字段说明 起始地址字节数含义1-1111字

26、段名称12 1字段类型（分别为C、N、D、L 等）13-该字段在文件中地址字段长度小数位数-3214未使用知道了字段信息说明，就可以使用复合变量+2 进制文件来操作数据库了。Text转换为AcsMDBText文件类型在很多中都为一般应用程序与数据库之间架起一座桥梁。 你可以使用TextISAM驱动程序和SQL来把 Text文件转换成AcsMDB数据库文件，首先，为文本文件创建一个SCHEMA.INI文件。然后，你可以使用下面的代码来实现转换：DimdbAs Database,tblasTableDefSetdb=DBEngine.CreateDatabase(App.Path&mymdb.md

27、b,dbLangGeneral,dbVer_0)Settbl=db.CreateTableDef(Temp)tbl.Connect=Text;database=c:vbpjdatatbl.SourceTableName=Customer#txtdb.TableDefs.Appendtbldb.ExecuteSelectTemp.*TablefromTempdb.TableDefs.Deletetbl.Namedb.CloseSettbl= NothingSetdb=Nothing锁住数据库中的表把表 达式True=False放 到表 的ValidationRule属 性就 能锁上。HardLo

28、ckTable?实现了该功能。PublicMyDBAsDatabaseDimDummyAseger函数FunctionHardLockTable (ByValwhichActionAsString,?ByValaTableAsString) AsegerOnErroToHardLockTableErrorHardLockTable =TrueSelectCasewhichActionCaseLockMyDB.TableDefs(aTable).ValidationRule=True=FalseMyDB.TableDefs(aTable).ValidationText=?Thistableloc

29、kedvia&?ValidationRuleon&NowCaseUnLockMyDB.TableDefs(aTable).ValidationRule=MyDB.TableDefs(aTable).ValidationText=CaseTestThenUnLockIfMyDB.TableDefs(aTable).ValidationRule=True=FalseThenMyDB.TableDefs(aTable).ValidationRule=MyDB.TableDefs(aTable).ValidationText=EndIfEndSelectHardLockTableErrorExit:s

30、ubFlushDBEngineoptional,seenext suggestionExitFunctionHardLockTableError:HardLockTable =FalseMsgBoxError$& error&inHardLockTabletrying&to&whichAction&aTableResumeHardLockTableErrorExitEndFunction使用例子上锁Dummy=HardLockTable(Lock,TestTable)开锁Dummy=HardLockTable(UnLock,TestTable)关闭所有的数据连接如果在代码中使用了数据控件如，

31、RDO，或 ADO，在退出时应该关闭所有打开的recordset， database，和workspace。 虽然对象能自动注销， 但是数据连接不会马上断开，可能会导致一些内存不能被系统重新分配。下面的代码可以关闭所有打开的workspace，并所占的内存。PrivateSubForm_Unload(CancelAseger)OnErrorResumeNextDimwsAsWorkspaceDimdbAsDatabaseDimrsAsRecordsetForEachwsInWorkspaForEachdbInws.DatabasesForEachrsIndb.Recordsetsrs.Clos

32、eSet rs=NothingNextdb.CloseSet db=NothingNextws.CloseSet ws=NothingNextEndSub如何删除 FoxPro 数据库的数据?用 VB 对 FOXPRO 数据库操作,经常会遇到这样一个问题:只能对进行DEL,也就是在该条上打一个删除标记,但不能象在数据库中那样,用PACK把这条真正删除.当数较多时,用DBGRID 等控件做的程序都会出错.该怎样办呢?其实,VB 中无法对 DBF 文件进行 PACK。只能把 ISAM 的设置Deleted 设为 On。这样相当于 FoxPro 的 SETDELETEDON。不信你可以试一试。VB

33、应用小集VB 外来数据库VB 最引人注目的特点，也是其最令程序员关心的地方，就是它多种数据库的强大功能。VB 中将非 MSAcs 数据库称为外来数据库(External Database)，如 dBASE、FoxPro、ODBC 等。VB 中使用数据控制外来数据库同Acs 数据库类似，这里不再赘述，现在主要读一下用生成对象的方法来外来数据库。外来数据库(以 dBASE 为例)大致分为以下几步：第一步：建立一个 Acs 型数据库，并在数据库中创建新表即为附加表。通过设置附加表的各属性值，使其与你所要的数据立关系。程序代码如下：DimDbasDatabaseDimTdasNewTabledefSe

34、tDb=OpenDatabase(MYDB.MDB)Td.Connect=dBASE:DATABASE=c:DATADIRTd.SourceTableName=AUTHORTd.Name=dBASEAuthorTableDb.tabledefsAppendTdDb.close第二步：设置 INI 文件路径。在 VB 的程序中使用了外来数据库操作，将应用程序生成 EXE 文件后，必须提供一个 INI 文件。若找不到这个 INI 文件，将会导致不能数据库，并出现“NOTFOUNDINSTOLLABKISAMS的错误信息。设置 INI文件路径后，VB 的程序会在 WINDOWS 子目录中寻找与应用程

35、序同名的 INI 文件。设置INI 文件路径代码为：SetDataAcsOption1,“PathFilename”第三步：编辑.INI 文件可对不同种类的数据库进行设置，下面为一 INI 文件代码：OptionsSystemDB=c:MyPATHSYSTEM.MDAISAMPageTimeout=5MaxBufferSize=128LockRetry=20CommitLockPetry=20ReadAheages=16InstallableISAMsParadox3.x=C:VBpdx110.DLLFoxPro2.0=C:VBxbs110.DLLFoxPro2.5=C:VBpdx110.DL

36、LdBASE=C:VBpdx110.DLLdBASE=C:VBpdx110.DLLBtrieve=C:VBbtrv110.DLLParadoxISAMPageTimeout=600ParadoxUsername=BaiUserParadoxNetPath=P:PDXDBCollatingSeguence=AsciidBASEcentry=offData=AmericanMark=47Deleted=on这样通过新数据库 MYDB.MDB 和表“DBASEAUTHORTABK”即可你所要的外来数据库了。使用这种方法外来数据库应该注意的是，附加表在所加到的数据库中只是建立了一个关系，表的实际所在，

37、仍然存在数据库中，该表在所附加到的数据库中被删除时，只是删掉了关系，实际的表并没有被删除。第四章使用 Acs2000 实现关系型数据库数据库的概念数据库是一种数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象、域等。新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1标识需要的数据；2收集被标识的字段到表

38、中；3标识主关键字字段；4绘制一个简单的数据图表；5规范数据；6标识指定字段的信息；7创建物理表。修改已建的数据库数据库的修改分为：添加、编辑和删除。这三种操作均可由 Visual Basic创建的程序来完成，下面的章节将详细描述实现的具体方法。实现数据库之间的联系数据库之间的关系指明两个库之间共个共同的关键字值。接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合

39、关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的立关系。对表的行和列都有特殊的叫法，每一列叫做一个“字段”。每个字段包含某一专题的信息。就像“”数据库中，“”、“”这些都是表中所有行共有的属性，所以把这些列称为“”字段和“”字段。把表中的每一行叫做一个“”，每一个包含这行中的所有信息，就像在数据库中某个人全部的信息，但在数据库中并没有专门的名，常常用它所在的行数表示这是第几个。数据库的结构创建好了，接下来需要做的就是对数据库进行一系列的基本操作。增加：在“数据表”视图或“窗体”视图中打开相应的窗体，单击上的“新“按钮 ，键入所需数据，然后按 TAB 键转至下

40、一个字段，在末尾，按 TAB 键转至下一个。编辑：如果要编辑字段中的数据，单击要编辑的字段，如果要替换整个字段的值，指向字段的最左边，在鼠标变为加号时，单击该字段，键入要的文本。注意：如果键入有错，可按 BACKSPACE 键；如果要取消对当前字段的更改，按 ESC键；如果要取消对整个的更改，在移出该字段之前再次按 ESC 键，当从一个记录移动到其它时， Acs 将保存对该的修改。或移动数据：在其它应用程序，如 Excel、Word 中，选择要或移动的一至多行。如果是从 Word 中数据，应确保在选择之前已经在表中排列好或已经使用制表符分隔开，如果粘贴数据到数据表中，应确保数据表中的列与要或移

41、动的数据的顺序一致，如果粘贴数据到窗体上，而窗体上相应的控件名称与数据的列名相同，Acs 将粘贴数据到名称相同的控件上。在 Acs 中，打开要向其中粘贴的数据表或窗体，如果要替换现有，选择要替换的，然后单击工具栏上的“粘贴追加”或“粘贴”按钮 ；如果窗体中的选定器不可用，要选择当前，可单击“编辑”菜单中的“选择”命令。删除：单击要删除的，单击上的“删除”按钮 。第五章系统总体规划系统功能a 系统管理：用于对系统初始化，进出系统，用户管理和管理等。b 业务管理：用与对站点，线路，班次，票价等业务基础数据管理。可设置各种票价项目，通过票价公式自动生成票价！c售票管理：主要用与窗口日常售票，具有售票

42、，补票，留票，票，签票，退票等功能。d行包管理：对乘客托运的行李进行管理。包括行包收运，行包领取，小物品寄存管理。e车辆管理：进行车辆调度管理，具体车辆，临时加班，班次合并，车辆及座位调整，班次延时，改乘等功能。第六章系统具体实现用户界面的实现611 登陆界面在工程ADO2.0。在命令按钮单击写下连接数据库 USER 表的判断语句Private Subd1_Click()denlu_name = Text1.Textdenlu_pass = Text2.TextDimAs New ADODB.ConnectionDimmyrs As New ADODB.RecordsetSetmyrs = N

43、ew ADODB.Recordset.Open Provider=.Jet.OLEDB.4.0;DataSource=rsgl.mdb;myrs.Open SELECT * FROM user where (user.user)= + denlu_name + ;, adOpenKeyset, adLockOptimisticIf myrs.BOF = True And myrs.EOF = True ThenMsgBox 查无此人, , 登陆信息ElseIf myrs(pass) = denlu_pass ThenMsgBox ok, , 登陆信息Form2.ShowUnload MeEls

44、eMsgBox 不正确, , 登陆信息End If目的是 USER 表没有该用户，将无法使用本程序612 主界面具体实现见.图613 各个模块的实现a 系统管理：用于对系统初始化，进出系统，用户管理和管理等。通过 ADO 控件连接到数据库的 USER 表，通过SQL 语句“SELECT user.user, usassFROM user; “筛选出全部用 DATA GRID 控件，将它的数据源设为 ADO 控件，将它的各列显示出数据库的各列。属性设为可写。b 业务管理：用与对站点，线路，班次，票价等业务基础数据管理。可设置各种票价项目，通过票价公式自动生成票价！c 售票管理：主要用与窗口日常售

45、票，具有售票，补票，留票，票，签票，退票等功能。d行包管理：对乘客托运的行李进行管理。包括行包收运，行包领取，小物品寄存管理。e车辆管理：进行车辆调度管理，具体车辆，临时加班，班次合并，车辆及座位调整，班次延时，改乘等功能。621 数据库的实现用户表：用户表里了可进入数据库的用户名和包括：,该表主要完成用户的增加、删除 、更新等功能业务管理：用与对站点，线路，班次，票价等业务基础数据管理。可设置各种票价项目，通过票价公式自动生成票价！售票管理：主要用与窗口日常售票，具有售票，补票，留票，票，签票，退票等功能。ID类别开车时间地点票价检票口路线起点终点1售票11112退票22223补票3333站

46、点线路班次基价座位等级11111￥30.00硬座SDFAS2￥30.00卧铺ADF4￥30.00软座usass111111222222333333行包管理：对乘客托运的行李进行管理。包括行包收运，行包领取，小物品寄存管理。车辆管理：进行车辆调度管理，具体车辆，临时加班，班次合并，车辆及座位调整，班次延时，改乘等功能。与 VB 的连接Visual Basic 提供了与底层数据库系统紧密的连接。Visual Basic 支持不同的关系数据库管理系统并充分发挥每一个数据库的特长。生成独立应用或脱离服务器运行的服务以上的应用，Visual Basic 连接数据库的方式有两种：通过使用 Visual B

47、asic 的 ADO 控件。通过使用由 Visual Basic 提供的的直接与数据库相连的接口ID类别物品重量物品类型寄件人收件人寄件时间是否验收1111111899-12-3122223333第七章结束语经过一个多月的设计和开发，系统基本开发完毕。其功能基本符合用户需求，能够完成人事和。并提供部分功能,使用户方便进行数据备份和恢复、数据删除。，对于数据的一致性也通过程序进行了有效的解决。但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如功能较少等多方面问题。这些都有待进一步改善。致谢在本次毕业设计中，我从指导老师身上学到了很多东西。，使我得到不少的提高这对于我以后的工作和学

48、习都有一种巨大的帮助，感谢他耐心的辅导。第八章主要参考文献1 Visual Basic 6.0 使用指南作者：Bob Reselman , Richard Peasley , WaynePruchniak.：电子工业2 中文 Acs 2000 24 学时作者：Craig Eddy ，Timothy Buchanan：机械工业附录程序及注释程序6.1FORM1Private Subd1_Click()denlu_name =Text1.Textdenlu_pass =Text2.TextDimAs New ADODB.ConnectionDimmyrs As New ADODB.Recordse

49、tSetmyrs = New ADODB.Recordset.Open Provider=.Jet.OLEDB.4.0;Data Source=rsgl.mdb;myrs.Open SELECT * FROM user where (user.user)= + denlu_name + ;,adOpenKeyset, adLockOptimisticIf myrs.BOF = True And myrs.EOF = True ThenMsgBox 查无此人, , 登陆信息ElseIf myrs(pass) = denlu_pass ThenMsgBox ok, , 登陆信息Form2.Show

50、Unload MeElseMsgBox不正确,登陆信息End IfEnd IfEnd SubFORM2Private Subd1_Click()Form4.ShowEnd SubPrivate Subd3_Click()Form5.ShowEnd SubPrivate Subd4_Click()Form6.ShowEnd SubPrivate Subd5_Click()Unload MeEnd SubPrivate Subd6_Click()Form3.ShowEnd SubFORM3ADO 控件，Provider=.Jet.OLEDB.4.0;DataSource=rsgl.mdb;Pers

51、istSecurityInfo=False连接语句SELECT user.user,usassFROM user;FORM4ADO 控件，Provider=.Jet.OLEDB.4.0;DataSource=rsgl.mdb;PersistSecurityInfo=False附录：开发环境简介1 系统的开发1.1 编程环境的选择微软公司的 Visual Basic 6.0 是 Windows 应用程序开发工具，使目前最为广泛的、易学易用的面象的开发工具。Visual Basic 提供了大量的控件，这些控件可用于设计界面各种功能，减少了编程的工作量，也简化了界面设计过程，从而有效的提高了应用程序

52、的运行效率和可靠性。故而，实现本系统 VB 是一个相对较好的选择。1.2 关系型数据库的实现Acs2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、和检索。Acs 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Acs 允许创建自定义报表用于打印或输出数据库中的信息。Acs 也提供了数据库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Acs 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Acs 作为关系数据库开发具备了许多优点，可以在一个

53、数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。1.3 二者的结合（ADO）微软的 JET 数据库引擎提供了与数据库打交道的途径，们是通过它以及 VisualBasic 来数据库并对其进行。Visual Basic、Acs 以及其他微软的软件产品都是通过共用 JET 数据库引擎，从而给用户提供了丰富的数据类型。ADO 控件在数据库中的信息与将信息显示给用户看的 Visual Basic 程序之间架起了一座桥梁。们可以设置 ADO 控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，ADO 控件根据数据库中的一个或多个数据表建立一个 dynaset-type（动态集合）类型的集

54、合。一个集合是动态的也就意味着，当原来的数据表中的容改变了以后，该集合中的也会随之改变。ADO 控件还提供了用来浏览不同的各种跳转按钮。将 ADO 控件放置在窗体中之后，们还必须在该控件与要处理的数据库之间建立联系。ADO（ActiveX Data Objects）是基于组件的数据库编程接口，它是一个和编程语言无关的 COM 组件系统。本文主要介绍用 ADO 编程所需要注意的技巧和在 VC 下进行ADO 编程的模式，并对CExtens 进行了简单的，希望对 ADO 开发有一定的帮助作用。因为 ADO 是一个和编程语言无关的 COM 组件系统，所以这里的要点适用于所有的编程语言和编程环境，比如：

55、VB、VBScript、VC、Java 等等。ADO定义了一个可编程的对象集合.ADO 对象模型:对于 ADO 其中对象来说 觉得比较重要是mand,Connection,Recordset 对象。虽然严格的说这是确的,但根据的实际经验确实如此。下面就分别来谈一下。、Connection 对象：Connection 对象用于建立与数据库的连接。通过连接可从应用程序数据源。它保存诸如指针类型,连接字符串,查询超时,连接超时和缺省数据库这样的连接信息。、d 对象：在建立 Connection 后 可以发出命令操作数据源。一般情况下mand 对象可以在数据库中添加,删除或更新数据,或者在表中进行数据

56、查询。ommand 对象在定义查询参数或执行一个有输出参数的过程时非常有用。、Recordset 对象：Recordset 对象只代表一个d 对象的执行结果返回的集,这个集是接的数据库中的表,或者是集。在 ADO 对象模型中,是在行中检查和修改数据的最主要的方法,所有对数据的操作几乎都是在 Recordset 对象中完成的。ecord 对象用于指定行,移动行,添加,更改,删除。下面就具体地说说如何用 ADO 存取数据,在实际编程过程中使用 ADO 的一个典型的存取数据的步骤为：、数据源、集对象集、连接2 Windows 下的 Visual Basic 编程环境VisualBasic（简称 VB

57、）是一种可视化的、事件驱动型的 Windows 应用程序开发工具，它在 GUI 设计、绘图、制表、运算、通信和多开发方面都具有简单易行、功能强大等优点，所以越来越受到开发的亲睐。同时，VB 在数据库开发方面也具有 Foxpro 所远不能及的强大功能。VB 能够和Acs、Excel、DbaseX、Foxpro、Btrieve 和 ODBC 等多种数据库，并能利用 VB 自身所带的数据库引擎创建Acs 数据库。所以 VB 在管理信息系统（MIS）的开发和建设方面得到了是益广泛的应用。现在，笔者就 VB 应用数据库的一些方法作一简单的介绍。VB数据库通常有三种途径：第一，通过数据库控制控件 Dont

58、rol；第二，通过 VB 提供的数据库对象变量编程；第三，通过 ODBC 接口ODBCAPI 函数。在这三种方法中，第法操作起来最方便、灵活、易于掌握，同时也最能体现 Visual Basic 面象的特色，故这里以 Foxpro2.5 的数据库为例，介绍数据库控制控件（Dontrol）数据库的方法与步骤：一、在 Form 窗口中加入Dontrol 控件用鼠标在工具窗口的Dontrol 控件按钮上双击左键，该对象即出现在Form 窗口的中间（控件名为 Data1），用鼠标调整好控件的大小及位置。如工具箱中无此控件，可打开主菜单的 Tools/Custom，在列表中选中Dontrol复选框，确认后

59、即可将此控件加入到工具箱中去。二、设置联接库用鼠标单击 Data1，按下 F4，打开属性窗口，设置 Connect 属性为 Foxpro2.5，设置 DatabaseName为 c:foxprowstudent.dbf（假设磁盘上已有这个文件）。三、加入字段显示、编辑控件（数据库控件）在Form 窗口中加入DGrid 控件，如不在此控件，可打开主菜单Tools/Custom，在列表中选择xDataBroundGrid 复选框，确认后即可向工具箱中加入此控件。在 Form 窗口中单击选中此控件（DGrid1），按下 F4 打开属性窗口，设置 Datasource属性为 Data1，在 Form

60、窗口中用鼠标右键单击控件 DGrid1，选择RetrieveFields；再用鼠标右键单击控件 DGrid1，选择 Edit，用鼠标调整控件及有关字段大小；再用鼠标右键单击控件 DGrid1，选择 Properties（属性），在弹出窗口中，选择 Colums，在下拉列表中选 Colum1，将 Caption 属性改为“学号”，选择 Colum2，Caption属性改为“”，选择 Colum3、4 将 Caption 属性改为“”、“专业”，按下“确定”按钮。再向 Form 窗口中加入一个按钮控件，将 Caption 属性设置为“退出”，双击该控件（d1），在代码窗口中写入“END”，存盘。此