资源目录
压缩包内文档预览：
编号：59048792
类型：共享资源
大小：533.92KB
格式：RAR
上传时间：2020-03-17
上传人：qq77****057
认证信息
个人认证
李**（实名认证）
江苏
IP属地：江苏
7.2
积分
- 关 键 词：
-
VB082
运输
管理
系统
- 资源描述：
-
VB082运输管理系统,VB082,运输,管理,系统
- 内容简介：
-
Form1Private Sub Command1_Click()mname = Text1.Textpass = Text2.TextDim mycn As New ADODB.ConnectionDim myrs As New ADODB.RecordsetSet myrs = New ADODB.Recordsetmycn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kygl.mdb;myrs.Open SELECT * FROM user where (user.user)= + mname + ;, mycn, adOpenKeyset, adLockOptimisticIf myrs.BOF = True And myrs.EOF = True ThenMsgBox 查无此人, , 登陆信息Else If myrs(pass) = pass Then MsgBox ok, , 登陆信息 Form2.Show Form4.Label2.Enabled = False Form4.Label2.BackColor = &HC0C0C0 Unload Me Else MsgBox 密码不正确, , 登陆信息 End If End If End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_DblClick()MsgBox helloEnd SubPrivate Sub Form_Load()Dim mname As StringDim pass As StringEnd SubForm2Private Sub a1_Click()Form3.ShowEnd SubPrivate Sub b_Click()Form5.ShowEnd SubPrivate Sub c_Click()EndEnd SubPrivate Sub Command1_Click()frm1.ShowEnd SubPrivate Sub Command2_Click()frm4.ShowEnd SubPrivate Sub Command3_Click()frm2.ShowEnd SubPrivate Sub Command4_Click()frm3.ShowEnd SubPrivate Sub Command5_Click()EndEnd SubPrivate Sub Command6_Click()Form3.ShowEnd SubForm3Private Sub Command1_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.DeleteEnd SubForm4Private Sub Label2_Click()Form1.ShowEnd SubPrivate Sub Label3_Click()EndEnd Subform5Private Sub Label1_Click()Form5.HideEnd SubFrm1Private Sub Command1_Click()ss = Text1.TextdatPrimaryRS.RecordSource = select * from ywgl_pj where 站点= + ss + datPrimaryRS.RefreshEnd SubPrivate Sub Command2_Click()datPrimaryRS.RecordSource = select * from ywgl_pj datPrimaryRS.RefreshEnd SubPrivate Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefaultEnd SubPrivate Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.AddNew Exit SubAddErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit SubDeleteErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdRefresh_Click() 只有多用户应用程序需要 On Error GoTo RefreshErr datPrimaryRS.Refresh Exit SubRefreshErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdUpdate_Click() On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit SubUpdateErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubFrm2Private Sub Command1_Click()ss = Text1.TextdatPrimaryRS.RecordSource = select * from spgl where 地点= + ss + datPrimaryRS.RefreshEnd SubPrivate Sub Command2_Click()datPrimaryRS.RecordSource = select * from spgldatPrimaryRS.RefreshEnd SubPrivate Sub Form_Resize() On Error Resume Next 当窗体调整时会调整网格 grdDataGrid.Height = Me.ScaleHeight - datPrimaryRS.Height - 30 - picButtons.HeightEnd SubPrivate Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.MoveLast grdDataGrid.SetFocus SendKeys down Exit SubAddErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit SubDeleteErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdRefresh_Click() 只有多用户应用程序需要 On Error GoTo RefreshErr datPrimaryRS.Refresh Exit SubRefreshErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdUpdate_Click() On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit SubUpdateErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubFrm3Private Sub Command1_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.DeleteEnd SubPrivate Sub Command3_Click()ss = Text1.TextAdodc1.RecordSource = select * from xbty where 车号= + ss + Adodc1.RefreshEnd SubPrivate Sub Command4_Click()Adodc1.RecordSource = select * from xbty Adodc1.RefreshEnd SubFrm4Private Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefaultEnd SubPrivate Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.AddNew Exit SubAddErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit SubDeleteErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdRefresh_Click() 只有多用户应用程序需要 On Error GoTo RefreshErr datPrimaryRS.Refresh Exit SubRefreshErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdUpdate_Click() On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit SubUpdateErr: MsgBox Err.DescriptionEnd SubPrivate Sub cmdClose_Click() Unload MeEnd Sub*大 学毕业论文开题报告论文题目： 运输管理系统 学生姓名： 学号： 专 业： 计算机科学与技术 指导教师： 2004年04月06日毕 业 论 文 开 题 报 告课题来源科研项目目的意义发展客运无论对客运公司发展还是对人民生活需求都具有十分重要的意义；发展客运是增强客运公司实力、改善客运服务质量的需要，是完善运输体系、提高整体效益的需要，是实现两个根本性转变、走集约化发展道路的必然趋势，是发挥道路运输优势的拳头产品；建立客运系统可以提升道路运输竞争力，提高车辆运用效率，降低运输成本，减少交通事故；发展客运可以改善投资环境，促进地域经济国际化的进程；促进沿线经济开发、房地产升值；促进形成网络型公路产业，高新技术产业及商贸开发区；促进产业结构化，加快物流速度；促进地区经济的繁荣。我国加入世界贸易组织后，必然要加快改革和经济结构调整的速度，加大市场开放的力度，而全国性的客运系统正是开放市场、促进交流的良好载体。随着信息技术的迅速发展，计算机应用日益普及。汽车客运售票系统就是用现代的、发展的、系统的思想和观念管理企业而建设起来的，重要目标是实现客运站的现代化管理、提高其社会效益和经济效益。基本内容系统功能a系统管理：用于对系统初始化，进出系统，用户管理和密码管理等。b 业务管理：用与对站点，线路，班次，票价等业务基础数据管理。可设置各种票价项目，通过票价公式自动生成票价。c 售票管理：主要用与窗口日常售票，具有售票，补票，留票，代售票，签票，退票等功能。d 行包管理：对乘客托运的行李包裹进行管理。包括行包收运，行包领取，小物品寄存管理。e 车辆管理：进行车辆调度管理，具体车辆报道，临时加班，班次合并，车辆及座位调整，班次延时，改乘等功能。毕 业 论 文 开 题 报 告技术分析与论证编程环境的选择：微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。SQL SERVER：SQL SERVER是完全网络化的关系型数据库系统，一个真正的多用户、多线程SQL数据库服务器，同时是具有客户机/服务器体系结构的分布式数据库管理系统。它具有功能强、使用简便、管理方便、运行速度快、安全可靠性强等优点，用户可利用许多语言编写访问SQL SERVER 数据库的程序，对于中、小型应用系统是非常理想的。ADO 控件：ADO 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。我们可以设置ADO控件的各个属性，告诉它要调用那个数据库的哪个部分。ADO控件还提供了用来浏览不同记录的各种跳转按钮。将ADO控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。毕 业 论 文 开 题 报 告工作计划1）2004/03/252004/04/02 收集资料2）2004/04/032004/04/20 阅读并整理资料3）2004/04/212004/04/25 完成开题报告和任务书4）2004/04/262004/05/25 初步完成毕业设计5）2004/05/262004/05/30 修改交指导老师审定6）2004/05/312004/06/1 完善目录摘要 前言第一章 为什么要开发一个运输管理系统11用计算机管理客运公司管理的意义12 运输管理系统的设计分析第二章 怎样开发一个运输管理系统管理系统？21 编程环境的选择22 关系型数据库的实现23 二者的结合（DBA）第三章 Windows下的Visual Basic 编程环境简介31 VB连接数据库的各种方法+第四章 使用Access2000 实现关系型数据库41 数据库的概念42 新建一个数据库43 修改已建的数据库44 实现数据库之间的联系第五章 系统总体规划51 系统功能第六章 系统具体实现61 用户界面的实现611 登陆界面612 主界面 62 数据库的实现621 用户库622 各个功能数据库 第8章 结束语主要参考文献摘要 运输管理系统管理系统是典型的信息管理系统,其开发的功能主要包括：通过计算机管理客运公司管理信息，日常办公，实现无纸化办公，通过工时计算，统计出各项数据，分析出客运现状和车辆现状，提高办事效率。 经过分析,我们决定使用 MICROSOFT公司的 ACCESS作为后台数据库,设计出功能库， 使用 MICROSOFT公司的 VISUAL BASIC开发工具，利用其提供的各种面向对象的开发工具,尤其是ADO控件这一能方便而简洁操纵数据库的智能化对象,连接数据库，开发出产品。关键字：ADO、窗体、数据库。前言发展客运无论对客运公司发展还是对人民生活需求都具有十分重要的意义；发展客运是增强客运公司实力、改善客运服务质量的需要，是完善运输体系、提高整体效益的需要，是实现两个根本性转变、走集约化发展道路的必然趋势，是发挥道路运输优势的拳头产品；建立客运系统可以提升道路运输竞争力，提高车辆运用效率，降低运输成本，减少交通事故；发展客运可以改善投资环境，促进地域经济国际化的进程；促进沿线经济开发、房地产升值；促进形成网络型公路产业，高新技术产业及商贸开发区；促进产业结构化，加快物流速度；促进地区经济的繁荣。我国加入世界贸易组织后，必然要加快改革和经济结构调整的速度，加大市场开放的力度，而全国性的客运系统正是开放市场、促进交流的良好载体。第一章 用计算机管理运输管理系统的意义 运输管理系统管理的定义为，组织中运输管理系统的管理，意指一个组织对运输管理系统的获取、维护、激励与运用与发展的全部管理过程与活动。一般而言，良好的运输管理系统管理，有助于为客运公司达到以下的目标：一、协助组织达成发展目标与远景。二、有效地运用人员的能力与技术专才。三、促使组织成员的工作士气高昂且激发潜能。四、滿足组织成员的自我实现感与增加成员的工作成就感。五、发起且落实组织变革。六、提高组织成员的工作生活品质。七、协助客运公司负责人做出正确决策。 运输管理系统的设计分析 根据实际情况，我们使用ADO控件少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。第二章怎样开发一个运输管理系统管理系统？ 编程环境的选择 微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。 关系型数据库的实现 Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。 二者的结合（ADO） 微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。 ADO 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。我们可以设置ADO控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，ADO控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。ADO控件还提供了用来浏览不同记录的各种跳转按钮。将ADO控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。 ADO（ActiveX Data Objects）是基于组件的数据库编程接口，它是一个和编程语言无关的COM组件系统。本文主要介绍用ADO编程所需要注意的技巧和在VC下进行ADO编程的模式，并对CExtensions进行了简单的讨论，希望对ADO开发人员有一定的帮助作用。因为ADO是一个和编程语言无关的COM组件系统，所以这里讨论的要点适用于所有的编程语言和编程环境，比如：VB、VBScript、VC、Java等等。 ADO定义了一个可编程的对象集合.ADO对象模型如图所示:对于ADO其中对象来说,我觉得比较重要的是:Command,Connection,Recordset对象.虽然严格的说这是不准确的,但根据我的实际经验确实如此.下面就分别来谈一下.(1) Connection对象Connection对象用于建立与数据库的连接.通过连接可从应用程序访问数据源.它保存诸如指针类型,连接字符串,查询超时,连接超时和缺省数据库这样的连接信息.(2) Command对象在建立Connection后,可以发出命令操作数据源.一般情况下,Command对象可以在数据库中添加,删除或更新数据,或者在表中进行数据查询.Command对象在定义查询参数或执行一个有输出参数的存储过程时非常有用.(3) Recordset对象Recordset对象只代表一个记录集,这个记录集是一个连接的数据库中的表,或者是Command对象的执行结果返回的记录集.在ADO对象模型中,是在行中检查和修改数据的最主要的方法,所有对数据的操作几乎都是在Recordset对象中完成的.Record对象用于指定行,移动行,添加,更改,删除记录.下面就具体地说说如何用ADO存取数据：在实际编程过程中使用ADO的一个典型的存取数据的步骤为：(1) 连接数据源(2) 打开记录集对象(3) 使用记录集(4) 断开连接那么具体怎么是用呢?分别来看.(我在最后将给出一个完整的使用ADO的实例给大家参考.)(1) 如何连接数据源利用Connection对象可以创建一个数据源的连接.应用的方法是Connection对象的Open方法.语法:Connection对象.Open ConnectionString, UserID, PassWord, OpenOptions其中：Connection对象为你定义的Connection对象的实例;ConnectionString为可选项,包含了连接的数据库的信息;UserID 可选项,包含建立连接的用户名;PassWord为可选项,包含建立连接的用户密码;OpenOptions为可选项,假如设置为adConnectAsync,则连接将异步打开.(2)打开记录集对象实际上记录集返回的是一个从数据库取回的查询结果集.因此他有两种打开方法:一种使用记录集的Open方法,另一种是用Connection对象的Execute方法.(a)记录集的Open方法语法:Recordset.Open Source, ActiveConnection, CursorType, LockType, Options其中：Recordset为所定义的记录集对象的实例.Source可选项,指明了所打开的记录源信息.可以是合法的命令,对象变量名,SQL语句,表名,存储过程调用,或保存记录集的文件名.ActiveConnection可选项,合法的已打开的Connection对象的变量名,或者是包含ConnectionString参数的字符串.CursorType可选项,确定打开记录集对象使用的指针类型.LockType可选项 确定打开记录集对象使用的锁定类型.(b)Connection对象的Execute方法语法:Set recordset=Connection.Execute(CommandText,RecordsAffected,Options)参数说明:CommandText 一个字符串,返回要执行的SQL命令,表名,存储过程或指定文本.RecordsAffected 可选项,Long类型的值,返回操作影响的记录数.Options 可选项,Long类型值,指明如何处理CommandText参数.介绍完了如何打开数据库下面说说怎么使用吧.(3)使用记录集(a)添加新的记录:在ADO中添加新的记录用的方法为:AddNew 它的语法为:Recordset.AddNew FieldList, ValuesRecordset为记录集对象实例FieldList为一个字段名,或者是一个字段数组.Values为给要加信息的字段赋的值,如果FiledList为一个字段名,那么Values应为一个单个的数值,假如FiledList为一个字段数组,那么Values必须也为一个个数,类型与FieldList相同的数组.再用完AddNew方法为记录集添加新的记录后,应使用UpDate将所添加的的数据存储在数据库中.不过你最好在用UpDate方法之前使用CancelUpdate方法来取消该项操作.(b)修改记录集其实修改核对记录集中的数据重新赋值没有什么太大的区别,只要用SQL语句将要修改的字段的一个数据找出来重新赋值就可以了.这里不再细说了.(c)删除记录在ADO中删除记录集中的数据的方法为:Delete方法,这与DAO对象的方法相同,但是在ADO中它的能力增强了,可以删掉一组记录了.它的语法如下:Recordset.Delete AffectRecords其中的,AffectRecords参数是确定Delete方法作用的方式的,它的取值如下:adAffectCurrent 只删除当前的记录adAffectGroup 删除符合Filter属性设置的那些记录.为了一次能删除一组数据,应设置Filter属性.(d)查询记录在ADO中查询的方法很灵活,有几种查询的方法.使用连接对象的Execute方法执行SQL命令,返回查询记录集.使用Command对象的Execute方法执行CommandText属性中设置的SQL命令,返回查询记录集.第一个方法的具体语法在前面数据连接时已经介绍过了,下面就第二方法具体说一下.Command对象的Execute方法的语法如下:Command.Execute RecordsAffected, Parameters, Options 不返回记录集或者 Set Rscordset=cmmnad.Execute(RecordsAffected,Parameters,Options) 返回记录集CommandText的语法为:Command.CommandText=stringvariable其中: stringvariable为字符串变量,包含SQL语句,表名或存储过程.(4) 断开连接在应用程序结束之前,应该释放分配给ADO对象的资源,操作系统回收这些资源并可以再分配给其他应用程序.使用的方法为:Close方法.语法如下:Object.Close Object为ADO对象第三章VisualBasic（简称VB）是一种可视化的、事件驱动型的Windows应用程序开发工具，它在GUI设计、绘图、制表、运算、通信和多媒体开发方面都具有简单易行、功能强大等优点，所以越来越受到开发人员的亲睐。同时，VB在数据库开发方面也具有Foxpro所远不能及的强大功能。VB能够读取和访问Access、Excel、DbaseX、Foxpro、Btrieve和ODBC等多种数据库，并能利用VB自身所带的数据库引擎创建Access数据库。所以VB在管理信息系统（MIS）的开发和建设方面得到了是益广泛的应用。现在，笔者就VB应用数据库的一些方法作一简单的介绍。VB访问数据库通常有三种途径：第一，通过数据库控制控件DataControl访问；第二，通过VB提供的数据库对象变量编程访问；第三，通过ODBC接口访问ODBCAPI函数。在这三种方法中，第一种方法操作起来最方便、灵活、易于掌握，同时也最能体现VisualBasic面向对象的特色，故这里以Foxpro2.5的数据库为例，介绍数据库控制控件（DataControl）访问数据库的方法与步骤：一、在Form窗口中加入DataControl控件用鼠标在工具窗口的DataControl控件按钮上双击左键，该对象即出现在Form窗口的中间（控件名为Data1），用鼠标调整好控件的大小及位置。如工具箱中无此控件，可打开主菜单的Tools/Custom，在列表中选中MicrosoftDataControl复选框，确认后即可将此控件加入到工具箱中去。二、设置联接库用鼠标单击Data1，按下F4，打开属性窗口，设置Connect属性为Foxpro2.5，设置DatabaseName为c:foxprowstudent.dbf（假设磁盘上已有这个文件）。三、加入字段显示、编辑控件（数据库捆绑控件）在Form窗口中加入DGrid控件，如不在此控件，可打开主菜单Tools/Custom，在列表中选择ApexDataBroundGrid复选框，确认后即可向工具箱中加入此控件。在Form窗口中单击选中此控件（DGrid1），按下F4打开属性窗口，设置Datasource属性为Data1，在Form窗口中用鼠标右键单击控件DGrid1，选择RetrieveFields；再用鼠标右键单击控件DGrid1，选择Edit，用鼠标调整控件及有关字段大小；再用鼠标右键单击控件DGrid1，选择Properties（属性），在弹出窗口中，选择Colums标签，在下拉列表中选Colum1，将Caption属性改为“学号”，选择Colum2，Caption属性改为“姓名”，选择Colum3、4将Caption属性改为“性别”、“专业”，按下“确定”按钮。再向Form窗口中加入一个按钮控件，将Caption属性设置为“退出”，双击该控件（Command1），在代码窗口中写入“END”，存盘。此时，一个具备数据库读写、浏览功能的应用程序就建立了，按下F5运行，通过单击Data1的各按钮即可看出当前记录的变化情况。在此基础上，我们还可以借助数据库控制控件的有关属性和方法进行更灵活的操作和控制。1、设置Data1.Visiable=False将控件设为不可见2、将按钮Command2，3，4，5，6，7的Caption属性分别设置为“追加”、“首记录”、“上一条”、“下一条”、“尾记录”、“删除”，双击各按钮，分别写入事件代码：SubCommand1-Click()关闭应用程序EndEndSubSubCommand2-Click()追加记录Data1.Recordset.AddnewData1.Recordset.UpdateData1.Recordset.MoveLastEndSubSubCommand3-Click()移向首记录Data1.Recordset.MoveFirstEndSubSubCommand4-Click()移向上一条记录Data1.Recordset.MovePreviusIfData1.Recordset.BofThenData1.Recordset.MoveFirstEndIfEndSubSubCommand3-Click()移向尾记录Data1.Recordset.MoveLastEndSubSubCommand4-Click()移向下一条记录Data1.Recordset.MoveNextIfData1.Recordset.EofThenData1.Recordset.MoveLastEndIfEndSub除此之外，数据库控制控件还有Bookmark、RecordCount等许多属性与方法，能对数据库进行各种方便的操作。由此可见，数据库控制控件具有数据库操作方面的强大功能。另外，数据库控制控件的RecordSource属性可用一个SQL语句赋值，以此来有效地调用SQL语句，从而发挥SELECT语句强大的功能，更使数据库控制控件（DataControl）锦上添花。真正删除数据库的记录大家知道，缺省情况下，VB删除记录只是把记录作上个删除标志而已，并没有真正删除。要真正删除记录，你可以使用VB提供的以下方法：BeginTrans、CommitTrans、RollBack。其中，BeginTrans方法开始记录数据库的变动，CommitTrans方法确认数据库的变动，而RollBack方法则可以恢复被删除或修改的记录。它们可以嵌套使用。因此，要恢复被删除的记录，应该在使用BeginTrans方法之后及使用CommiTrans方法之前使用RollBack方法。不用DATA控件操作数据库文件大家知道，在VB中如果使用DATA控件访问数据库，那么程序执行就必须要一些大型DLL支持。这对于安装盘的发放是一个大问题。那么，在VB中能不能不用DATA控件访问数据库呢？在VB中不用DATA控件而访问数据库，只有一法：将数据库文件当成2进制文件打开。但此法最大困难就是你必须了解数据库文件的结构形式。比如：FoxBase的DBF文件（我不了解其它数据库的文件结构，大家可以去查查）：它由记录头和记录构成。而记录头又由两部分构成：记录头=数据库说明+字段说明。下面列出FoxBase数据库说明：FoxBase数据库说明起始地址字节数含义11FoxBase数据库文件标志2-43最后一次修改日期，3个字节分别为年、月、日5-84文件记录总数9-102记录头长度11-122每个记录长度13-2220未使用下面列出字段说明，每个字段由32个字节构成。字段说明起始地址字节数含义1-1111字段名称121字段类型（分别为C、N、D、L等）13-164该字段在文件中地址171字段长度181小数位数19-3214未使用知道了字段信息说明，就可以使用复合变量+2进制文件来操作数据库了。Text转换为AccessMDBText文件类型在很多软件中都为一般应用程序与数据库之间架起一座桥梁。你可以使用TextISAM驱动程序和SQL来把Text文件转换成AccessMDB数据库文件，首先，为文本文件创建一个SCHEMA.INI文件。然后，你可以使用下面的代码来实现转换：DimdbAsDatabase,tblasTableDefSetdb=DBEngine.CreateDatabase(App.Path&mymdb.mdb,dbLangGeneral,dbVersion_0)Settbl=db.CreateTableDef(Temp)tbl.Connect=Text;database=c:vbpjdatatbl.SourceTableName=Customer#txtdb.TableDefs.Appendtbldb.ExecuteSelectTemp.*intoNewTablefromTempdb.TableDefs.Deletetbl.Namedb.CloseSettbl=NothingSetdb=Nothing锁住数据库中的表把表达式True=False放到表的ValidationRule属性就能锁上。HardLockTable?实现了该功能。声明PublicMyDBAsDatabaseDimDummyAsInteger函数FunctionHardLockTable(ByValwhichActionAsString,?ByValaTableAsString)AsIntegerOnErrorGoToHardLockTableErrorHardLockTable=TrueSelectCasewhichActionCaseLockMyDB.TableDefs(aTable).ValidationRule=True=FalseMyDB.TableDefs(aTable).ValidationText=?Thistablelockedvia&?ValidationRuleon&NowCaseUnLockMyDB.TableDefs(aTable).ValidationRule=MyDB.TableDefs(aTable).ValidationText=CaseTestThenUnLockIfMyDB.TableDefs(aTable).ValidationRule=True=FalseThenMyDB.TableDefs(aTable).ValidationRule=MyDB.TableDefs(aTable).ValidationText=EndIfEndSelectHardLockTableErrorExit:subFlushDBEngineoptional,seenextsuggestionExitFunctionHardLockTableError:HardLockTable=FalseMsgBoxError$&error&inHardLockTabletrying&to&whichAction&aTableResumeHardLockTableErrorExitEndFunction使用例子上锁Dummy=HardLockTable(Lock,TestTable)开锁Dummy=HardLockTable(UnLock,TestTable)关闭所有的数据连接如果在代码中使用了数据控件如DAO，RDO，或ADO，在退出时应该关闭所有打开的recordset，database，和workspace。虽然对象能自动注销，但是数据连接不会马上断开，可能会导致一些内存不能被系统重新分配。下面的代码可以关闭所有打开的DAOworkspace，并释放所占的内存。PrivateSubForm_Unload(CancelAsInteger)OnErrorResumeNextDimwsAsWorkspaceDimdbAsDatabaseDimrsAsRecordsetForEachwsInWorkspacesForEachdbInws.DatabasesForEachrsIndb.Recordsetsrs.CloseSetrs=NothingNextdb.CloseSetdb=NothingNextws.CloseSetws=NothingNextEndSub如何删除FoxPro数据库的数据?用VB对FOXPRO数据库操作,经常会遇到这样一个问题:只能对记录进行DEL,也就是在该条记录上打一个删除标记,但不能象在数据库中那样,用PACK把这条记录真正删除.当记录数较多时,用DBGRID等控件做的程序都会出错.该怎样办呢?其实,VB中无法对DBF文件进行PACK。只能把ISAM的设置Deleted设为On。这样相当于FoxPro的SETDELETEDON。不信你可以试一试。VB应用小集访问VB外来数据库VB最引人注目的特点，也是其最令程序员关心的地方，就是它访问多种数据库的强大功能。VB中将非MSAccess数据库称为外来数据库(ExternalDatabase)，如dBASE、FoxPro、ODBC等。VB中使用数据控制访问外来数据库同访问Access数据库类似，这里不再赘述，现在主要读一下用生成对象的方法来访问外来数据库。访问外来数据库(以dBASE为例)大致分为以下几步：第一步：建立一个Access型数据库，并在数据库中创建新表即为附加表。通过设置附加表的各属性值，使其与你所要访问的数据库建立链接关系。程序代码如下：DimDbasDatabaseDimTdasNewTabledefSetDb=OpenDatabase(MYDB.MDB)Td.Connect=dBASE:DATABASE=c:DATADIRTd.SourceTableName=AUTHORTd.Name=dBASEAuthorTableDb.tabledefsAppendTdDb.close第二步：设置INI文件路径。在VB的程序中使用了访问外来数据库操作，将应用程序生成EXE文件后，必须提供一个INI文件。若找不到这个INI文件，将会导致不能访问数据库，并出现“NOTFOUNDINSTOLLABKISAMS的错误信息。设置INI文件路径后，VB的程序会在WINDOWS子目录中寻找与应用程序同名的INI文件。设置INI文件路径代码为：SetDataAccessOption1,“PathFilename”第三步：编辑.INI文件可对不同种类的数据库进行设置，下面为一INI文件代码：OptionsSystemDB=c:MyPATHSYSTEM.MDAISAMPageTimeout=5MaxBufferSize=128LockRetry=20CommitLockPetry=20ReadAheadPages=16InstallableISAMsParadox3.x=C:VBpdx110.DLLFoxPro2.0=C:VBxbs110.DLLFoxPro2.5=C:VBpdx110.DLLdBASE=C:VBpdx110.DLLdBASE=C:VBpdx110.DLLBtrieve=C:VBbtrv110.DLLParadoxISAMPageTimeout=600ParadoxUsername=BaiUserParadoxNetPath=P:PDXDBCollatingSeguence=AsciidBASEcentry=offData=AmericanMark=47Deleted=on这样通过访问新数据库MYDB.MDB和表“DBASEAUTHORTABK”即可访问你所要访问的外来数据库了。使用这种方法访问外来数据库应该注意的是，附加表在所加到的数据库中只是建立了一个链接关系，表的实际所在，仍然存在于原数据库中，该表在所附加到的数据库中被删除时，只是删掉了链接关系，实际的表并没有被删除。 第四章使用Access2000 实现关系型数据库 数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。 新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1 标识需要的数据；2 收集被标识的字段到表中；3 标识主关键字字段；4 绘制一个简单的数据图表；5 规范数据；6 标识指定字段的信息；7 创建物理表。 修改已建的数据库 数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。 实现数据库之间的联系 数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。 对表的行和列都有特殊的叫法，每一列叫做一个“字段”。每个字段包含某一专题的信息。就像“通讯录”数据库中，“姓名”、“联系电话”这些都是表中所有行共有的属性，所以把这些列称为“姓名”字段和“联系电话”字段。我们把表中的每一行叫做一个“记录”，每一个记录包含这行中的所有信息，就像在通讯录数据库中某个人全部的信息，但记录在数据库中并没有专门的记录名，常常用它所在的行数表示这是第几个记录。数据库的结构创建好了，接下来我们需要做的就是对数据库进行一系列的基本操作。 增加记录：在“数据表”视图或“窗体”视图中打开相应的窗体，单击工具栏上的“新记录“按钮 ，键入所需数据，然后按 TAB 键转至下一个字段，在记录末尾，按 TAB 键转至下一个记录。 编辑记录：如果要编辑字段中的数据，单击要编辑的字段，如果要替换整个字段的值，指向字段的最左边，在鼠标变为加号时，单击该字段，键入要插入的文本。 注意：如果键入有错，可按 BACKSPACE 键；如果要取消对当前字段的更改，按ESC 键；如果要取消对整个记录的更改，在移出该字段之前再次按 ESC 键，当从一个记录移动到其它记录时， Access 将保存对该记录的修改。 复制或移动数据：在其它应用程序，如Excel、Word中，选择要复制或移动的一至多行。如果是从Word中复制数据，应确保记录在选择之前已经在表中排列好或已经使用制表符分隔开，如果粘贴数据到数据表中，应确保数据表中的列与要复制或移动的数据的顺序一致，如果粘贴数据到窗体上，而窗体上相应的控件名称与复制数据的列名相同，Access 将粘贴数据到名称相同的控件上。在Access 中，打开要向其中粘贴记录的数据表或窗体，如果要替换现有记录，选择要替换的记录，然后单击工具栏上的“粘贴追加”或“粘贴”按钮 ；如果窗体中的记录选定器不可用，要选择当前记录，可单击“编辑”菜单中的“选择记录”命令。 删除记录：单击要删除的记录，单击工具栏上的“删除记录”按钮 。第五章系统总体规划系统功能a系统管理：用于对系统初始化，进出系统，用户管理和密码管理等。b 业务管理：用与对站点，线路，班次，票价等业务基础数据管理。可设置各种票价项目，通过票价公式自动生成票价！c 售票管理：主要用与窗口日常售票，具有售票，补票，留票，代售票，签票，退票等功能。d 行包管理：对乘客托运的行李包裹进行管理。包括行包收运，行包领取，小物品寄存管理。e 车辆管理：进行车辆调度管理，具体车辆报道，临时加班，班次合并，车辆及座位调整，班次延时，改乘等功能。第六章系统具体实现用户界面的实现611 登陆界面 在工程引用ADO2.0。在命令按钮单击写下连接数据库USER表的判断语句Private Sub Command1_Click()denlu_name = Text1.Textdenlu_pass = Text2.TextDim mycn As New ADODB.ConnectionDim myrs As New ADODB.RecordsetSet myrs = New ADODB.Recordsetmycn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rsgl.mdb;myrs.Open SELECT * FROM user where (user.user)= + denlu_name + ;, mycn, adOpenKeyset, adLockOptimisticIf myrs.BOF = True And myrs.EOF = True ThenMsgBox 查无此人, , 登陆信息Else If myrs(pass) = denlu_pass Then MsgBox ok, , 登陆信息 Form2.Show Unload Me Else MsgBox 密码不正确, , 登陆信息 End If 目的是USER表没有该用户，将无法使用本程序 612 主界面具体实现见.图613 各个模块的实现a系统管理：用于对系统初始化，进出系统，用户管理和密码管理等。通过ADO控件连接到数据库的USER表，通过SQL语句“SELECT user.user, user.pass FROM user; “ 筛选出全部记录 用DATA GRID控件，将它的数据源设为ADO控件，将它的各列显示出数据库的各列。属性设为可写。b 业务管理：用与对站点，线路，班次，票价等业务基础数据管理。可设置各种票价项目，通过票价公式自动生成票价！c 售票管理：主要用与窗口日常售票，具有售票，补票，留票，代售票，签票，退票等功能。d 行包管理：对乘客托运的行李包裹进行管理。包括行包收运，行包领取，小物品寄存管理。e 车辆管理：进行车辆调度管理，具体车辆报道，临时加班，班次合并，车辆及座位调整，班次延时，改乘等功能。621数据库的实现用户表：用户表里存储了可进入数据库的用户名和密码包括：编号,姓名,密码该表主要完成用户的增加、删除 、更新等功能userpass111111222222333333业务管理：用与对站点，线路，班次，票价等业务基础数据管理。可设置各种票价项目，通过票价公式自动生成票价！站点线路班次基价座位等级11111￥30.00硬座SDFAS2￥30.00卧铺ADF4￥30.00软座售票管理：主要用与窗口日常售票，具有售票，补票，留票，代售票，签票，退票等功能。ID类别开车时间地点票价检票口路线起点终点1售票11112退票22223补票3333行包管理：对乘客托运的行李包裹进行管理。包括行包收运，行包领取，小物品寄存管理。车辆管理：ID类别物品重量物品类型寄件人收件人寄件时间是否验收1111111899-12-3122223333进行车辆调度管理，具体车辆报道，临时加班，班次合并，车辆及座位调整，班次延时，改乘等功能。与VB的连接Visual Basic提供了与底层数据库系统紧密的连接。Visual Basic 支持不同的关系数据库管理系统并充分发挥每一个数据库的特长。生成独立应用或脱离服务器运行的服务以上的应用，Visual Basic连接数据库的方式有两种：通过使用Visual Basic的 ADO控件。 通过使用由Visual Basic提供的专用的直接与数据库相连的接口第七章结束语经过一个多月的设计和开发，系统基本开发完毕。其功能基本符合用户需求，能够完成人事存储和。并提供部分系统维护功能,使用户方便进行数据备份和恢复、数据删除。，对于数据的一致性的问题也通过程序进行了有效的解决。但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如功能较少等多方面问题。这些都有待进一步改善。 致谢在本次毕业设计中，我从指导老师身上学到了很多东西。，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢他耐心的辅导。第八章主要参考文献1 Visual Basic 6.0 使用指南 作者：Bob Reselman , Richard Peasley , Wayne Pruchniak.出版社：电子工业出版社 2 中文Access 2000 24学时教程 作者：Craig Eddy ，Timothy Buchanan出版社：机械工业出版社附录程序清单及注释程序清单6.1 FORM1Private Sub Command1_Click()denlu_name = Text1.Textdenlu_pass = Text2.TextDim mycn As New ADODB.ConnectionDim myrs As New ADODB.RecordsetSet myrs = New ADODB.Recordsetmycn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rsgl.mdb;myrs.Open SELECT * FROM user where (user.user)= + denlu_name + ;, mycn, adOpenKeyset, adLockOptimisticIf myrs.BOF = True And myrs.EOF = True ThenMsgBox 查无此人, , 登陆信息Else If myrs(pass) = denlu_pass Then MsgBox ok, , 登陆信息 Form2.Show Unload Me Else MsgBox 密码不正确, , 登陆信息 End If End If End SubFORM2Private Sub Command1_Click()Form4.ShowEnd SubPrivate Sub Command3_Click()Form5.ShowEnd SubPrivate Sub Command4_Click()Form6.ShowEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Command6_Click()Form3.ShowEnd SubFORM3ADO控件，Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rsgl.mdb;Persist Security Info=False连接语句SELECT user.user, user.passFROM user;FORM4ADO控件，Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rsgl.mdb;Persist Security Info=False附录： 开发环境简介1 系统的开发1.1 编程环境的选择微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。1.2 关系型数据库的实现 Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。1.3 二者的结合（ADO）微软的JET数据库引擎提供了与数据库打交道的途径，们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。 ADO 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。们可以设置ADO控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，ADO控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。ADO控件还提供了用来浏览不同记录的各种跳转按钮。将ADO控件放置在窗体中之后，们还必须在该控件与要处理的数据库之间建立联系。 ADO（ActiveX Data Objects）是基于组件的数据库编程接口，它是一个和编程语言无关的COM组件系统。本文主要介绍用ADO编程所需要注意的技巧和在VC下进行ADO编程的模式，并对CExtensions进行了简单的讨论，希望对ADO开发人员有一定的帮助作用。因为ADO是一个和编程语言无关的COM组件系统，所以这里讨论的要点适用于所有的编程语言和编程环境，比如：VB、VBScript、VC、Java等等。 ADO定义了一个可编程的对象集合.ADO对象模型如图所示:对于ADO其中对象来说,觉得比较重要是:Command,Connection,Recordset对象。虽然严格的说这是不准确的,但根据的实际经验确实如此。下面就分别来谈一下。、Connection对象：Connection对象用于建立与数据库的连接。通过连接可从应用程序访问数据 源。它保存诸如指针类型,连接字符串,查询超时,连接超时和缺省数据库这样的连接信息。、Command对象：在建立Connection后,可以发出命令操作数据源。一般情况下,Command对象可以在数据库中添加,删除或更新数据,或者在表中进行数据查询。ommand对象在定义查询参数或执行一个有输出参数的存储过程时非常有用。、Recordset对象：Recordset对象只代表一个记录集,这个记录集是一个连接的数据库中的表,或者是Command对象的执行结果返回的记录集。在ADO对象模型中,是在行中检查和修改数据的最主要的方法,所有对数据的操作几乎都是在Recordset对象中完成的。ecord对象用于指定行,移动行,添加,更改,删除记录。下面就具体地说说如何用ADO存取数据,在实际编程过程中使用ADO的一个典型的存取数据的步骤为： 、数据源 、记录集对象 、记录集 、连接2 Windows下的 Visual Basic编程环境VisualBasic（简称VB）是一种可视化的、事件驱动型的Windows应用程序开发工具，它在GUI设计、绘图、制表、运算、通信和多媒体开发方面都具有简单易行、功能强大等优点，所以越来越受到开发人员的亲睐。同时，VB在数据库开发方面也具有Foxpro所远不能及的强大功能。VB能够读取和访问Access、Excel、DbaseX、Foxpro、Btrieve和ODBC等多种数据库，并能利用VB自身所带的数据库引擎创建Access数据库。所以VB在管理信息系统（MIS）的开发和建设方面得到了是益广泛的应用。现在，笔者就VB应用数据库的一些方法作一简单的介绍。VB访问数据库通常有三种途径：第一，通过数据库控制控件DataControl访问；第二，通过VB提供的数据库对象变量编程访问；第三，通过ODBC接口访问ODBCAPI函数。在这三种方法中，第一种方法操作起来最方便、灵活、易于掌握，同时也最能体现VisualBasic面向对象的特色，故这里以Foxpro2.5的数据库为例，介绍数据库控制控件（DataControl）访问数据库的方法与步骤：一、在Form窗口中加入DataControl控件用鼠标在工具窗口的DataControl控件按钮上双击左键，该对象即出现在Form窗口的中间（控件名为Data1），用鼠标调整好控件的大小及位置。如工具箱中无此控件，可打开主菜单的Tools/Custom，在列表中选中MicrosoftDataControl复选框，确认后即可将此控件加入到工具箱中去。二、设置联接库用鼠标单击Data1，按下F4，打开属性窗口，设置Connect属性为Foxpro2.5，设置DatabaseName为c:foxprowstudent.dbf（假设磁盘上已有这个文件）。三、加入字段显示、编辑控件（数据库捆绑控件）在Form窗口中加入DGrid控件，如不在此控件，可打开主菜单Tools/Custom，在列表中选择ApexDataBroundGrid复选框，确认后即可向工具箱中加入此控件。在Form窗口中单击选中此控件（DGrid1），按下F4打开属性窗口，设置Datasource属性为Data1，在Form窗口中用鼠标右键单击控件DGrid1，选择RetrieveFields；再用鼠标右键单击控件DGrid1，选择Edit，用鼠标调整控件及有关字段大小；再用鼠标右键单击控件DGrid1，选择Properties（属性），在弹出窗口中，选择Colums标签，在下拉列表中选Colum1，将Caption属性改为“学号”，选择Colum2，Caption属性改为“姓名”，选择Colum3、4将Caption属性改为“性别”、“专业”，按下“确定”按钮。再向Form窗口中加入一个按钮控件，将Caption属性设置为“退出”，双击该控件（Command1），在代码窗口中写入“END”，存盘。此时，一个具备数据库读写、浏览功能的应用程序就建立了，按下F5运行，通过单击Data1的各按钮即可看出当前记录的变化情况。3 使用Access2000实现关系型数据库2.3.1数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。所谓数据库（Database）就是指按一定组织方式存储再一起的，相互有关的若干个数据的结合，数据库管理系统（Database Management System）就是一种操纵和管理数据库的大型软件，简称DBMS,他们建立在操作系统的基础上，对数据库进行统一的管理和控制，其功能包括数据库定义，数据库管理，数据库建立和维护，于操作系统通信等。DBMS通常由数据字典，数据描述语言及其编译程序，数据操纵（查询）语言及其编译程序，数据库管理例行程序等部分组成。关系数据库是以关系模型为基础的数据库，是根据表、记录和字段之间的关系进行组织和访问的一种数据库，它通过若干个表（Table）来存取数据，并且通过关系（Relation）将这些表联系在一起，关系数据库提供了成为机构化查询语言（SQL）标准接口，该接口允许使用多种数据库工具和产品，关系数据库是目前最广泛应用的数据库。在Visual Basic中，关系型数据库一般可以分为两类：一类是桌面数据库，例如Access、Paradox、FoxPro、Dbase,另一类就是客户/服务器数据库，例如SQL Server、Oracle和Sybase等。一般而言，桌面数据库主要应用于小型的、单机的数据库应用程序。也是初学者常用的数据库类型。实现起来比较方便，但同时也只能提供数据的存取功能。它主要用于小型的、单机的、单用户的数据库管理系统。管理信息系统的数据库选用Microsoft公司的Access产品作为数据库应用程序。目前的Access 2000是Microsoft强大的桌面数据库平台的第六代产品，是3 2位Access的第三个版本。Access有以下一些基本定义：数据库是一个包含各种Access “对象”(表、查询、窗体、报表、宏和模块)的文件，Access中所有工作都是建立在此基础之上的。表是存放数据的容器，被设计成行和列的格式，就像电子表中的那样。每一列叫做一个“字段”，包含特定类型的信息，如姓名或学历。每一行称为一个“记录”，包含与单个实体有关的所有信息，如某个员工的姓名、性别、所在部门、学历等。对于像Access这样的关系数据库管理程序，一个数据库通常包含几个存放相关数据的不同表。查询是一个Access对象，它询问数据库中有关数据的问题。根据设计方法的不同，查询能够在数据库中检索并组合来自不同表的数据。例如，可以设计一个查询来告知在公司中工作超过1年的职员有多少。查询还可以对一组数据执行操作，如更新或删除某组记录。窗体是一个窗口，它提供一种很方便的途径来查看数据库中已有记录或向数据库中增添新记录。在Access中，可以创建一个窗体，用来同时查阅单个表或多个表中的数据，还可以打印和显示窗体。报表是一个Access对象，设计来显示数据，其作用类似于窗体，但主要是用于数据打印，不能输入数据。 页是一种特殊类型的窗体，它使用户能够利用Web浏览器查看和编辑Access的表。宏用来保存Access中的一系列操作。可自动执行一些日常的任务，以便简化在Access中的工作。 模块是用Visual Basic for Applications(VBA) 编写的过程，VBA是Access的基础程序设计语言。利用VBA可以编写程序代码来完成Access宏所不能完成的特定任务。3.2新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。、 标识需要的数据；、 收集被标识的字段到表中；、 标识主关键字字段；、 绘制一个简单的数据图表；、 规范数据；、 标识指定字段的信息；、 创建物理表。3.3修改已建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。 3.4实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。 对表的行和列都有特殊的叫法，每一列叫做一个“字段”。每个字段包含某一专题的信息。就像“通讯录”数据库中，“姓名”、“联系电话”这些都是表中所有行共有的属性，所以把这些列称为“姓名”字段和“联系电话”字段。把表中的每一行叫做一个“记录”，每一个记录包含这行中的所有信息，就像在通讯录数据库中某个人全部的信息，但记录在数据库中并没有专门的记录名，常常用它所在的行数表示这是第几个记录。数据库的结构创建好了，接下来们需要做的就是对数据库进行一系列的基本操作。 增加记录：在“数据表”视图或“窗体”视图中打开相应的窗体，单击工具栏上的“新记录“按钮 ，键入所需数据，然后按 TAB 键转至下一个字段，在记录末尾，按 TAB 键转至下一个记录。 编辑记录：如果要编辑字段中的数据，单击要编辑的字段，如果要替换整个字段的值，指向字段的最左边，在鼠标变为加号时，单击该字段，键入要插入的文本。 注意：如果键入有错，可按 BACKSPACE 键；如果要取消对当前字段的更改，按ESC 键；如果要取消对整个记录的更改，在移出该字段之前再次按 ESC 键，当从一个记录移动到其它记录时， Access 将保存对该记录的修改。 复制或移动数据：在其它应用程序，如Excel、Word中，选择要复制或移动的一至多行。如果是从Word中复制数据，应确保记录在选择之前已经在表中排列好或已经使用制表符分隔开，如果粘贴数据到数据表中，应确保数据表中的列与要复制或移动的数据的顺序一致，如果粘贴数据到窗体上，而窗体上相应的控件名称与复制数据的列名相同，Access 将粘贴数据到名称相同的控件上。在Access 中，打开要向其中粘贴记录的数据表或窗体，如果要替换现有记录，选择要替换的记录，然后单击工具栏上的“粘贴追加”或“粘贴”按钮 ；如果窗体中的记录选定器不可用，要选择当前记录，可单击“编辑”菜单中的“选择记录”命令。 删除记录：单击要删除的记录，单击工具栏上的“删除记录”按钮 。4使用ADO数据控件访问数据库ADO(Active Data Objects)是一种新的数据访问方式，具有以下特征： 有一个简化的对象模型 与其他Microsoft和非Microsoft技术更加紧密的集成。 是一个本地和远程数据访问、远程和断开连接的记录集、用户可以访问的数据绑定接口以及层次化的记录集的通用接口。XX人事劳资管理信息系统通过ADO这个数据控件来访问数据库，首先，安装ADO 控件要在简体中文VISUAL BASIC6.0企业版中注册后才能使用。ADO(ActiveX Data Object)是微软提出的数据访问接口，它实现了RDO的绝大多数功能，另外还增加了一些用户以前没有接触到的特征。Visual Basic 6.0可以很好地支持ADO和OLE DB数据访问模式。在ADO2.0中包含了数据绑定、可视化设计工具以及OLE DB数据源书写模板等新的内容。在Visual Basic6.0中，ADO的数据环境设计器(Data Environment Designer)取代了Visual Basic 5.0中的RDO的用户连接设计器(User Connection Designer)。User Connection对象只支持ODBC数据源，而Data Environment对象可以连接所有的OLE DB数据源o ADO
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号