JSJ06-337@VB运输管理系统设计(论文+源代码+开题报告)
收藏
资源目录
压缩包内文档预览：
编号：507659
类型：共享资源
大小：668.22KB
格式：ZIP
上传时间：2015-11-11
上传人：QQ28****1120
认证信息
个人认证
孙**（实名认证）
辽宁
IP属地：辽宁
12
积分
- 关 键 词：
-
毕业设计论文
- 资源描述：
-
JSJ06-337@VB运输管理系统设计(论文+源代码+开题报告),毕业设计论文
- 内容简介：
-
Form1 Private Sub Command1_Click() mname = Text1.Text pass = Text2.Text Dim mycn As New ADODB.Connection Dim myrs As New ADODB.Recordset Set myrs = New ADODB.Recordset mycn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kygl.mdb; myrs.Open SELECT * FROM user where (user.user)= + mname + ;, mycn, adOpenKeyset, adLockOptimistic If myrs.BOF = True And myrs.EOF = True Then MsgBox 查无此人 , , 登陆信息 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 Sub ntsPrivate Sub Command2_Click() End End Sub Private Sub Form_DblClick() MsgBox hello End Sub Private Sub Form_Load() Dim mname As String Dim pass As String End Sub Form2 Private Sub a1_Click() Form3.Show End Sub Private Sub b_Click() Form5.Show End Sub Private Sub c_Click() End End Sub Private Sub Command1_Click() frm1.Show End Sub Private Sub Command2_Click() frm4.Show End Sub Private Sub Command3_Click() frm2.Show End Sub Private Sub Command4_Click() frm3.Show End Sub Private Sub Command5_Click() ntsEnd End Sub Private Sub Command6_Click() Form3.Show End Sub Form3 Private Sub Command1_Click() Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() Adodc1.Recordset.Delete End Sub Form4 Private Sub Label2_Click() Form1.Show End Sub Private Sub Label3_Click() End End Sub form5 Private Sub Label1_Click() Form5.Hide End Sub nts Frm1 Private Sub Command1_Click() ss = Text1.Text datPrimaryRS.RecordSource = select * from ywgl_pj where 站点 = + ss + datPrimaryRS.Refresh End Sub Private Sub Command2_Click() datPrimaryRS.RecordSource = select * from ywgl_pj datPrimaryRS.Refresh End Sub Private Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefault End Sub Private Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.AddNew Exit Sub AddErr: MsgBox Err.Description End Sub Private Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit Sub ntsDeleteErr: MsgBox Err.Description End Sub Private Sub cmdRefresh_Click() 只有多用户应用程序需要 On Error GoTo RefreshErr datPrimaryRS.Refresh Exit Sub RefreshErr: MsgBox Err.Description End Sub Private Sub cmdUpdate_Click() On Error GoTo UpdateErr datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit Sub UpdateErr: MsgBox Err.Description End Sub Private Sub cmdClose_Click() Unload Me End Sub Frm2 Private Sub Command1_Click() ss = Text1.Text datPrimaryRS.RecordSource = select * from spgl where 地点 = + ss + datPrimaryRS.Refresh End Sub Private Sub Command2_Click() datPrimaryRS.RecordSource = select * from spgl datPrimaryRS.Refresh End Sub nts Private Sub Form_Resize() On Error Resume Next 当窗体调整时会调整网格 grdDataGrid.Height = Me.ScaleHeight - datPrimaryRS.Height - 30 - picButtons.Height End Sub Private Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.MoveLast grdDataGrid.SetFocus SendKeys down Exit Sub AddErr: MsgBox Err.Description End Sub Private Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit Sub DeleteErr: MsgBox Err.Description End Sub Private Sub cmdRefresh_Click() 只有多用户应用程序需要 On Error GoTo RefreshErr datPrimaryRS.Refresh Exit Sub RefreshErr: MsgBox Err.Description End Sub Private Sub cmdUpdate_Click() On Error GoTo UpdateErr nts datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit Sub UpdateErr: MsgBox Err.Description End Sub Private Sub cmdClose_Click() Unload Me End Sub Frm3 Private Sub Command1_Click() Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() Adodc1.Recordset.Delete End Sub Private Sub Command3_Click() ss = Text1.Text Adodc1.RecordSource = select * from xbty where 车号 = + ss + Adodc1.Refresh End Sub Private Sub Command4_Click() Adodc1.RecordSource = select * from xbty Adodc1.Refresh End Sub ntsFrm4 Private Sub Form_Unload(Cancel As Integer) Screen.MousePointer = vbDefault End Sub Private Sub cmdAdd_Click() On Error GoTo AddErr datPrimaryRS.Recordset.AddNew Exit Sub AddErr: MsgBox Err.Description End Sub Private Sub cmdDelete_Click() On Error GoTo DeleteErr With datPrimaryRS.Recordset .Delete .MoveNext If .EOF Then .MoveLast End With Exit Sub DeleteErr: MsgBox Err.Description End Sub Private Sub cmdRefresh_Click() 只有多用户应用程序需要 On Error GoTo RefreshErr datPrimaryRS.Refresh Exit Sub RefreshErr: MsgBox Err.Description End Sub Private Sub cmdUpdate_Click() On Error GoTo UpdateErr nts datPrimaryRS.Recordset.UpdateBatch adAffectAll Exit Sub UpdateErr: MsgBox Err.Description End Sub Private Sub cmdClose_Click() Unload Me End Sub nts *大 学 毕业论文开题报告 论文题目： 运输管理系统 学生姓名： 学号： 专 业： 计算机科学与技术 指导教师： 2004 年 04 月 06 日 nts毕 业 论 文 开 题 报 告 课题来源 科研项目 目的意义 发展客运无论对客运公司发展还是对人民生活需求都具有十分重要的意义；发展客运是增强客运公司实力、改善客运服务质量的需要，是完善运输体系、提高整体效益的需要，是实现两个根本性转变、走集约化发展道路的必然趋势，是发挥道路运输优势的拳头产品；建立客运系统可以提升道路运输竞争力，提高车辆运用效率，降低运输成本，减少交通事故；发展客运可以改善投资环境，促进地域经济国际化的进程；促进沿线经济开发、房地产升值；促进形成网络型公路产业，高新技术产业及商贸开发区；促 进产业结构化，加快物流速度；促进地区经济的繁荣。我国加入世界贸易组织后，必然要加快改革和经济结构调整的速度，加大市场开放的力度，而全国性的客运系统正是开放市场、促进交流的良好载体。随着信息技术的迅速发展，计算机应用日益普及。汽车客运售票系统就是用现代的、发展的、系统的思想和观念管理企业而建设起来的，重要目标是实现客运站的现代化管理、提高其社会效益和经济效益。 nts基本内容 系统功能 a 系统管理： 用于对系统初始化，进出系统，用户管理和密码管理等。 b 业务管理： 用与对站点，线路，班次，票价等业务基础 数据管理。可设置各种票价项目，通过票价公式自动生成票价。 c 售票管理： 主要用与窗口日常售票，具有售票，补票，留票，代售票，签票，退票等功能。 d 行包管理： 对乘客托运的行李包裹进行管理。包括行包收运，行包领取，小物品寄存管理。 e 车辆管理： 进行车辆调度管理，具体车辆报道，临时加班，班次合并，车辆及座位调整，班次延时，改乘等功能。 nts毕 业 论 文 开 题 报 告 技术分析与论证 编程环境的选择 ： 微软公司的 Visual Basic 6.0 是 Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。 Visual Basic 提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统 VB 是一个相对较好的选择。 SQL SERVER： SQL SERVER 是完全网络化的关系型数据库系统，一个真正的多用户、多线程 SQL数据库服务器，同时是具有客户机 /服务器体系结构的分布式数据库管理系统。 它具有功能强、使用简便、管理方便、运行速度快、安全可靠性强等优点，用户可利用许多语言编写访问 SQL SERVER 数据库的程序，对于中、小型应用系统是非常理想的。 ADO 控件 ： ADO 控件在数据库中的信息与将信息显示给用户看的 Visual Basic 程序之间架起了一座桥梁。我们可以设置ADO 控件的各个属性，告诉它要调用那个数据库的哪个部分。ADO 控件还提供了用来浏览不同记录的各种跳转按钮。将 ADO控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。 nts毕 业 论 文 开 题 报 告 工作 计划 1） 2004/03/25 2004/04/02 收集资料 2） 2004/04/03 2004/04/20 阅读并整理资料 3） 2004/04/21 2004/04/25 完成开题报告和任务书 4） 2004/04/26 2004/05/25 初步完成毕业设计 5） 2004/05/26 2004/05/30 修改交指导老师审定 6） 2004/05/31 2004/06/1 完善 nts目录 摘要 前言 第一章 为什么要开发一个 运输管理系统 1 1用计算机管理客运公司管理的意义 1 2 运输管理系统 的设计分析 第 二 章 怎样开发一个 运输管理系统 管理系统？ 2 1 编程环境的选择 2 2 关系型数据库的实现 2 3 二者的结合（ DBA） 第 三 章 Windows 下的 Visual Basic 编程环境简介 3 1 VB 连接数据库的各种方法 + 第 四 章 使用 Access2000 实现关系型数据库 4 1 数据库的概念 4 2 新建一个数据库 4 3 修改已建的数据库 4 4 实现数据库之 间的联系 第五章 系统总体规划 5 1 系统功能 第六章 系统具体实现 6 1 用户界面的实现 6 1 1 登陆界面 6 1 2 主界面 6 2 数据库的实现 6 2 1 用户 库 6 2 2 各个功能 数据库 nts 第 8 章 结束语 主要参考文献 nts 摘要 运输管理系统 管理系统是典型的信息管理系统 ,其开发 的功能 主要包括 ：通过计算机管理客运公司管理信息，日常办公，实现无纸化办公，通过工时计算，统计出各项数据，分析出客运现状和车辆现状， 提高办事效率 。 经过分析 ,我们 决定 使用 MICROSOFT 公司的 ACCESS 作为后台数据库 ,设计出功能库， 使用 MICROSOFT 公司的 VISUAL BASIC 开发工具 ， 利用其提供的各种面向对象的开发工具 ,尤其是 ADO控件 这一能方便而简洁操纵数据库的智能化对象 ,连接数据库，开发出产品 。 关键字： ADO、窗体、 数据库 。 nts前言 发展客运无论对客运公司发展还是对人民生活需求都具有十分重要的意义；发展客运是增强客运公司实力、 改善客运服务质量的需要，是完善运输体系、提高整体效益的需要，是实现两个根本性转变、走集约化发展道路的必然趋势，是发挥道路运输优势的拳头产品；建立客运系统可以提升道路运输竞争力，提高车辆运用效率，降低运输成本，减少交通事故；发展客运可以改善投资环境，促进地域经济国际化的进程；促进沿线经济开发、房地产升值；促进形成网络型公路产业，高新技术产业及商贸开发区；促进产业结构化，加快物流速度；促进地区经济的繁荣。我国加入世界贸易组织后，必然要加快改革和经济结构调整的速度，加大市场开放的力度，而全国性的客运系统正是开放市 场、促进交流的良好载体。 nts第一章 用计算机管理 运输管理系统 的意义 运输管理系统 管理的定义为，组织中 运输管理系统 的管理，意指一个组织对 运输管理系统 的获取、维护、激励与运用与发展的全部管理过程与活动。 一般而言，良好的 运输管理系统 管理，有助于为客运公司达到以下的目标：一、协助组织达成发展目标与远景。二、有效地运用人员的能力与技术专才。三、促使组织成员的工作士气高昂且激发潜能。四、滿足组织成员的自我实现感与增加成员的工作成就感。五、发起且落实组织变革。六、提高组织成员的工作生活品质 。七、协助客运公司负责人做出正确决策。 运输管理系统 的设计分析 根据实际情况，我们使用 ADO 控件 少量代价快速地构造一个可执行的软件系统模型。使用户和开发人员可以较快地确定需求，然后采用循环进化的开发方式，对系统模型作连续的精化，将系统需具备的性质逐渐增加上去，直到所有的性质全部满足。此时模块也发展成为最终产品了。 nts 第二章 怎样开发一个 运输管理系统 管理系统？ 编程环境的选择 微软公司的 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 控件的各个属性，告诉它要调用那个数据库的哪个部分。nts缺省情况下， ADO 控件根据数据库中的一个或多个数据表建立一个 dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记 录也会随之改变。 ADO 控件还提供了用来浏览不同记录的各种跳转按钮。将 ADO 控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。 ADO（ ActiveX Data Objects）是基于组件的数据库编程接口，它是一个和编程语言无关的 COM 组件系统。本文主要介绍用 ADO 编程所需要注意的技巧和在 VC 下进行 ADO 编程的模式，并对 C Extensions 进行了简单的讨论，希望对 ADO 开发人员有一定的帮助作用。因为 ADO 是一个和编程语言无关的 COM 组件系统，所以这里讨论的要点适用于所有的编程语 言和编程环境，比如： VB、 VBScript、 VC、 Java 等等。 ADO 定义了一个可编程的对象集合 .ADO 对象模型如图所示 : 对于 ADO 其中对象来说 ,我觉得比较重要的是 :Command,Connection,Recordset 对象 . nts 虽然严格的说这是不准确的 ,但根据我的实际经 验确实如此 .下面就分别来谈一下 . (1) Connection 对象 Connection 对象用于建立与数据库的连接 .通过连接可从应用程序访问数据源 .它保存诸如指针类型 ,连接字符串 ,查询超时 ,连接超时和缺省数据库这样的连接信息 . (2) Command 对象 在建立 Connection 后 ,可以发出命令操作数据源 .一般情况下 ,Command 对象可以在数据库中添加 ,删除或更新数据 ,或者在表中进行数据查询 .Command 对象在定义查询参数或执行一个有输出参数的存储过程时非常有用 . (3) Recordset 对象 Recordset 对象只代表一个记录集 ,这个记录集是一个连接的数据库中的表 ,或者是 Command对象的执行结果返回的记录集 .在 ADO对象模型中 ,是在行中检查和修改数据的最主要的方法 ,所有对数据的操作几乎都是在 Recordset 对象中完成的 .Record 对象用于指定行 ,移动行 ,添加 ,更改 ,删除记录 . 下面就具体地说说如何用 ADO 存取数据： 在实际编程过程中使用 ADO 的一个典型的存取数据的步骤为： (1) 连接数据源 (2) 打开记录集对象 (3) 使用记录集 (4) 断开连接 那么具体怎么是用呢 ?分别来看 .(我在最后将给出一个完整的使用 ADO 的实例给大家参考 .) (1) 如何连接数据源 利用 Connection 对象可以创建一个数据源的连接 .应用的方法是ntsConnection 对象的 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) nts 参数说明 : CommandText 一个字符串 ,返回要执行的 SQL 命令 ,表 名 ,存储过程或指定文本 . RecordsAffected 可选项 ,Long 类型的值 ,返回操作影响的记录数 . Options 可选项 ,Long 类型值 ,指明如何处理 CommandText 参数 . 介绍完了如何打开数据库下面说说怎么使用吧 . (3)使用记录集 (a)添加新的记录 : 在 ADO 中添加新的记录用的方法为 :AddNew 它的语法为 : Recordset.AddNew FieldList, Values Recordset 为记录集对象实例 FieldList 为一个字段名 ,或者是一个字段数组 . Values 为给要加信息的字段赋的值 ,如果 FiledList 为一个字段名 ,那么Values 应为一个单个的数值 ,假如 FiledList 为一个字段数组 ,那么 Values 必须也为一个个数 ,类型与 FieldList 相同的数组 . 再用完 AddNew 方法为记录集添加新的记录后 ,应使用 UpDate 将所添加的的数据存储在数据库中 .不过你最好在用 UpDate 方法之前使用 CancelUpdate 方法来取消该项操作 . (b)修改记录集 其实修改核对记录集中的数据重新赋值没有什么太大的区别 ,只要用 SQL 语句将要修改的字段的一个数据找出来重新赋值就可以了 .这里不再细说了 . (c)删除记录 在 ADO中删除记录集中的数据的方法为 :Delete方法 ,这与 DAO对象的方法相同 ,但是在 ADO 中它的能力增强了 ,可以删掉一组记录了 . 它的语法如下 : Recordset.Delete AffectRecords nts 其中的 ,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 对象 nts第三章 Visual Basic（简称 VB）是一种可视化的、事件驱动型的 Windows 应用程序开发工具，它在 GUI 设计、绘图、制表、运算、通信和多媒体开发方面都具有简 单易行、功能强大等优点，所以越来越受到开发人员的亲睐。同时， VB 在数据库开发方面也具有 Foxpro 所远不能及的强大功能。 VB 能够读取和访问 Access、 Excel、 DbaseX、Foxpro、 Btrieve 和 ODBC 等多种数据库，并能利用 VB 自身所带的数据库引擎创建Access 数据库。所以 VB 在管理信息系统（ MIS）的开发和建设方面得到了是益广泛的应用。现在，笔者就 VB 应用数据库的一些方法作一简单的介绍。 VB 访问数据库通常有三种途径：第一，通过数据库控制控件 Data Control访问；第二，通过 VB 提供的数据库对象变量编程访问；第三，通过 ODBC 接口访问ODBC API 函数。在这三种方法中，第一种方法操作起来最方便、灵活、易于掌握，同时也最能体现 Visual Basic面向对象的特色，故这里以 Foxpro2.5的数据库为例，介绍数据库控制控件（ Data Control）访问数据库的方法与步骤： 一、 在 Form 窗口中加入 Data Control 控件 用鼠标在工具窗口的 Data Control 控件按钮上双击左键，该对象即出现在Form 窗口的中间（控件名为 Data1），用鼠标调整好控件的大小及 位置。如工具箱中无此控件，可打开主菜单的 Tools/Custom，在列表中选中 Microsoft Data Control复选框，确认后即可将此控件加入到工具箱中去。 二、 设置联接库 用鼠标单击 Data1，按下 F4，打开属性窗口，设置 Connect 属性为 Foxpro2.5，设置 DatabaseName 为 c:foxprowstudent.dbf（假设磁盘上已有这个文件）。 三、 加入字段显示、编辑控件（数据库捆绑控件） 在 Form窗口中加入 DGrid控件，如不在此控件，可打开主菜单 Tools/Custom，在列表中选择 Apex Data BroundGrid 复选框，确认后即可向工具箱中加入此控件。在 Form 窗口中单击选中此控件（ DGrid1），按下 F4打开属性窗口，设置 Datasource属性为 Data1，在 Form窗口中用鼠标右键单击控件 DGrid1，选择 Retrieve Fields；再用鼠标右键单击控件 DGrid1，选择 Edit，用鼠标调整控件及有关字段大小；再用鼠标右键单击控件 DGrid1，选择 Properties（属性），在弹出窗口中，选择 Columsnts标签，在下拉列表中选 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 属性分别设置为“追加”、“首记录”、“上一条”、“下一条”、“尾记录”、“删除”，双击各按钮，分别写入事件代码： Sub Command1-Click() 关闭应用程序 End End Sub Sub Command2-Click() 追加记录 Data1.Recordset .Addnew Data1.Recordset .Update Data1.Recordset .MoveLast End Sub Sub Command3-Click() 移向首记录 Data1.Recordset .MoveFirst End Sub Sub Command4-Click() 移向上一条记录 Data1.Recordset .MovePrevius If Data1.Recordset .Bof Then Data1.Recordset .MoveFirst End If ntsEnd Sub Sub Command3-Click() 移向尾记录 Data1.Recordset .MoveLast End Sub Sub Command4-Click() 移向下一条记录 Data1.Recordset .MoveNext If Data1.Recordset .Eof Then Data1.Recordset .MoveLast End If End Sub 除此之外，数据库控制控件还有 Bookmark、 RecordCount 等许多属性与方法，能对数据库进行各种方便的操作。 由此可见，数据库控制控件具有数据库操作方 面的强大功能。另外，数据库控制控件的 RecordSource 属性可用一个 SQL语句赋值，以此来有效地调用 SQL语句，从而发挥 SELECT 语句强大的功能，更使数据库控制控件（ Data Control）锦上添花。 真正删除数据库的记录 大家知道，缺省情况下， VB 删除记录只是把记录作上个删除标志而已，并没有真正删除。要真正删除记录，你可以使用 VB 提供的以下方法： BeginTrans、CommitTrans、 RollBack。其中， BeginTrans 方法开始记录数据库的变动，CommitTrans 方法确认数据库的变动，而 RollBack 方法则可以恢复被删除或修改的记录。它们可以嵌套使用。因此，要恢复被删除的记录，应该在使用 BeginTrans 方法之后及使用 CommiTrans 方法之前使用 RollBack 方法。 不用 DATA 控件操作数据库文件 大家知道，在 VB 中如果使用 DATA 控件访问数据库，那么程序执行就必须要一些大型 DLL 支持。这对于安装盘的发放是一个大问题。那么，在 VB 中能不能不用 DATA 控件访问数据库呢？ 在 VB 中不用 DATA 控件而访问数据库，只有一法：将数据库文件当成nts2进制文件打开。但此法最大困难就是你必须了解数据库文件的结构形式。 比如： FoxBase 的 DBF 文件（我不了解其它数据库的文件结构，大家可以去查查）：它由记录头和记录构成。而记录头又由两部分构成：记录头 =数据库说明 +字段说明。下面列出 FoxBase 数据库说明： FoxBase 数据库说明 起始地址 字节数 含义 1 1 FoxBase 数据库文件标志 2-4 3 最后一次修改日期， 3 个字节分别为年、月、日 5-8 4 文件记录总数 9-10 2 记录头长度 11-12 2 每个记录长度 13-22 20 未使用 下面列出字段说明，每个字段由 32 个字节构成。 字段说明 起始地址 字节数 含义 1-11 11 字段名称 12 1 字段类型（分别为 C、 N、 D、 L 等） 13-16 4 该字段在文件中地址 17 1 字段长度 18 1 小数位数 19-32 14 未使用 知道了字段信息说明，就可以使用 复合变量 + 2 进制文件 来操作数据库了。 Text 转换为 Access MDB Text 文件类型在很多软件中都为一般应用程序与数 据库之间架起一座桥梁。你 可以使 用 Text ISAM 驱动 程序和 SQL 来把 Text 文 件转换成 Access MDB 数据库文件，首先，为文本文件创建一个 SCHEMA.INI 文件。然后，你可以使用下面的代码来实现转换： Dim db As Database, tbl as TableDef Set db = DBEngine.CreateDatabase(App.Path & mymdb.mdb, dbLangGeneral, dbVersion_0) ntsSet tbl = db.CreateTableDef(Temp) tbl.Connect = Text;database=c:vbpjdata tbl.SourceTableName = Customer#txt db.TableDefs.Append tbl db.Execute Select Temp.* into NewTable from Temp db.TableDefs.Delete tbl.Name db.Close Set tbl = Nothing Set db = Nothing 锁住数据库中的表 把表达式 True=False 放到表的 ValidationRule 属性就能锁上。 HardLockTable?实现了该功能。 声明 Public MyDB As Database Dim Dummy As Integer 函数 Function HardLockTable (ByVal whichAction As String,?ByVal aTable As String) As Integer On Error GoTo HardLockTableError HardLockTable = True Select Case whichAction Case Lock MyDB.TableDefs(aTable).ValidationRule = True=False MyDB.TableDefs(aTable).ValidationText =?This table locked via &?ValidationRule on & Now Case UnLock MyDB.TableDefs(aTable).ValidationRule = MyDB.TableDefs(aTable).ValidationText = ntsCase TestThenUnLock If MyDB.TableDefs(aTable).ValidationRule = True=False Then MyDB.TableDefs(aTable).ValidationRule = MyDB.TableDefs(aTable).ValidationText = End If End Select HardLockTableErrorExit: subFlushDBEngine optional, see next suggestion Exit Function HardLockTableError: HardLockTable = False MsgBox Error$ & error & in HardLockTable trying & to & whichAction & & aTable Resume HardLockTableErrorExit End Function 使用例子 上锁 Dummy = HardLockTable(Lock, TestTable) 开锁 Dummy = HardLockTable(UnLock, TestTable) 关闭所有的数据连接 如果在代码中使用了数据控件如 DAO， RDO， 或 ADO， 在退出时应该关闭所有打开的 recordset， database，和 workspace 。 虽然对象能自动注销， 但是数据连接不会马上断开， 可能会导致一些内存不能被系统重新分配。 下面的代码可以关闭所有打开的 DAO workspace， 并释放所占的内存。 Private Sub Form_Unload(Cancel As Integer) On Error Resume Next nts Dim ws As Workspace Dim db As Database Dim rs As Recordset For Each ws In Workspaces For Each db In ws.Databases For Each rs In db.Recordsets rs.Close Set rs = Nothing Next db.Close Set db = Nothing Next ws.Close Set ws = Nothing Next End Sub 如何删除 FoxPro 数据库的数据 ? 用 VB 对 FOXPRO 数据库操作 ,经常会遇到这样一个问题 : 只能对记录进行DEL,也就是在该条记录上打一个删除标记 ,但不能 象在数据库中那样 ,用 PACK把这条记录真正删除 .当记录数较多时 , 用 DBGRID等控件做的程序都会出错 .该怎样办呢 ?其实 ,VB 中无法对 DBF 文件进行 PACK。只能把 ISAM的设置 Deleted 设为 On。这样相当于 FoxPro 的 SET DELETED ON。不信你可以试一试。 VB应用小集 访问 VB 外来数据库 VB 最引人注目的特点，也是其最令程序员关心的地方，就是它访问多种数据nts库的强大功能。 VB中将非 MS Access 数据库称为外来数据库 (External Database)，如 dBASE、 FoxPro、 ODBC 等。 VB 中使用数据控制访问外来数据库同访问 Access 数据库类似，这里不再赘述，现在主要读一下用生成对象的方法来访问外来数据库。访问外来数据库 (以 dBASE 为例 )大致分为以下几步： 第一步：建立一个 Access 型数据库，并在数据库中创建新表 即为附加表。通过设置 附加表的各属性值，使其与你所要访问的数据库建立链接关系。程序代码如下： DimDbasDatabase DimTdasNewTabledef SetDb=OpenDatabase(MYDB.MDB) Td.Connect=dBASE:DATABASE=c:DATADIR Td.SourceTableName=AU THOR Td.Name=dBASEAuthorTable Db.tabledefsAppendTd Db.close 第二步：设置 INI 文件路径。在 VB 的程序中使用了访问外来数据库操作，将应用程序生成 EXE 文件后，必须提供一个 INI 文件。若找不到这个 INI 文件，将会导致不能访问数据库，并出现“ NOTFOUNDIN STOLLABKISAMS的错误信息。设置 INI文件路径后， VB 的程序会在 WINDOWS 子目录中寻找与应用程序同 名的 INI 文件。设置INI 文件路径代码为： SetDataAccessOption1,“Path Filename” 第三步：编辑 .INI 文件可对不同种类的数据库进行设置，下面为一 INI 文件代码： Options SystemDB=c: MyPATHSYSTEM.MDA ISAM PageTimeout=5 MaxBufferSize=128 LockRetry=20 nts CommitLockPetry=20 ReadAheadPages=16 InstallableISAMs Paradox3.x=C:VBpdx110.DLL FoxPro2.0=C:VBxbs110.DLL FoxPro2.5=C:VBpdx110.DLL dBASE=C:VBpdx110.DLL dBASE=C:VBpdx110.DLL Btrieve=C:VBbtrv110.DLL ParadoxISAM PageTimeout=600 ParadoxUsername=BaiUser ParadoxNetPath=P:PDXDB CollatingSeguence=Ascii dBASE centry=off Data=American Mark=47 Deleted=on 这样通过访问新数据库 MYDB.MDB 和表“ DBASEAU THORTABK”即可访问你所要访问的外来数据库了。 使用这种方法访问外来数据库应该注意的是，附加表在所加到的数据库中只是建立了一个链接关系，表的实际所在，仍然存在于原数据库中，该表在所附加到的数据库中被删除时，只是删掉了链接关系，实际的表并没有被删除。 nts 第四章 使用 Access2000 实现关系型数据库 数据库的概念 数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据 库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（ flat-file）和关系数据库（ relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。 新建一个数据库 创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。 1 标识需要的数据； 2 收集被标识的字段到表中； 3 标识主关键字字段； 4 绘制一个简单的数据图表； 5 规范数据； 6 标识指定字段的信息； 7 创建物理表。 修改已建的数据库 数据库的修改分为：添加、编辑和删除记录。这三种操作均可由 Visual Basic 创建的程序来完成，下面的章节将详细描述实现的具体方法。 nts 实现数据库之间的联系 数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的 组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。 对表的行和列都有特殊的叫法，每一列叫做一个 “ 字段 ” 。每个字段包含某一专题的信息。就像 “ 通讯录 ” 数据库中， “ 姓名 ” 、 “ 联系电话 ” 这些都是表中所有行共有的属性，所以把这些列称为 “ 姓名 ” 字段和 “ 联系电话 ” 字段。 我们把表中的每一行叫做一个 “ 记录 ” ，每一个记录包含这行中的所有信息，就像在通讯录数据库中某个人全部的信息，但记录在数据库中并没有专门的记录名， 常常用它所在的行数表示这是第几个记录。 数据库的结构创建好了，接下来我们需要做的就是对数据库进行一系列的基本操作。 增加记录：在“数据表”视图或“窗体”视图中打开相应的窗体，单击工具栏上的“新记录“按钮 ，键入所需数据，然后按 TAB 键转至下一个字段，在记录末尾，按 TAB 键转至下一个记录。 编辑记录：如果要编辑字段中的数据，单击要编辑的字段，如果要替换整个字段的值，指向字段的最左边，在鼠标变为加号时，单击该字段，键入要插入的文本。 注意：如果键入有错，可按 BACKSPACE 键 ；如果要取消对当前字段的更改，按 ESC 键；如果要取消对整个记录的更改，在移出该字段之前再次按 ESC 键，当从一个记录移动到其它记录时， Access 将保存对该记录的修改。 复制或移动数据：在其它应用程序，如 Excel、 Word 中，选择要复制或移动的一至多行。如果是从 Word 中复制数据，应确保记录在选择之前已经在表中排列好或已经使用制表符分隔开，如果粘贴数据到数据表中，应确保数据表中的列与要复制或移nts动的数据的顺序一致，如果粘贴数据到窗体上，而窗体上相应的控件名称与复制数据的列名相同， Access 将粘贴数据到名称相同的控件上。在 Access 中，打开要向其中粘贴记录的数据表或窗体，如果要替换现有记录，选择要替换的记录，然后单击工具栏上的“粘贴追加”或“粘贴”按钮 ；如果窗体中的记录选定器不可用，要选择当前记录，可单击“编辑”菜单中的“选择记录”命令。 删除记录：单击要删除的记录，单击工具栏上的“删除记录”按钮 。 nts第五章 系统总体规划 系统功能 a系统管理： 用于对系统初始化，进出系统，用户管理和密码管理等。 b 业务管理： 用与对站点，线路，班次，票价等业务基础数据 管理。可设置各种票价项目，通过票价公式自动生成票价！ c 售票管理： 主要用与窗口日常售票，具有售票，补票，留票，代售票，签票，退票等功能。 d 行包管理： 对乘客托运的行李包裹进行管理。包括行包收运，行包领取，小物品寄存管理。 e 车辆管理： 进行车辆调度管理，具体车辆报道，临时加班，班次合并，车辆及座位调整，班次延时，改乘等功能。 nts第六章 系统具体实现 用户界面的实现 6 1 1 登陆界面 在工程引用 ADO2.0。 在命令按钮单击写下连接 数据库 USER 表的判断语句 Private Sub Command1_Click() denlu_name = Text1.Text denlu_pass = Text2.Text Dim mycn As New ADODB.Connection Dim myrs As New ADODB.Recordset Set myrs = New ADODB.Recordset mycn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rsgl.mdb; myrs.Open SELECT * FROM user where (user.user)= + denlu_name + ;, mycn, adOpenKeyset, adLockOptimistic If myrs.BOF = True And myrs.EOF = True Then MsgBox 查无此人 , , 登陆信息 Else nts If myrs(pass) = denlu_pass Then MsgBox ok, , 登陆信息 Form2.Show Unload Me Else MsgBox 密码不正确 , , 登陆信息 End If 目的是 USER 表没有该用户，将无法使用本程序 6 1 2 主界面 具体实现见 .图 6 1 3 各个模块的实现 a系统管理： 用于对系统初始化，进出系统，用户管理和密码管理等。 nts通过 ADO 控件连接到数据库的 USER 表，通过 SQL 语句 “ SELECT user.user, user.pass FROM user; “ 筛选出全部记录 用 DATA GRID 控件，将它的数据源设为 ADO 控件，将它的各列显示出数据库的各列。属性设为可写。 b 业务管理： 用与对站点，线路，班次，票价等业务基础数据管理。可设置各种票价项目，通过票价公式自动生成票价！ c 售票管理： 主要用与窗口日常售票，具有售票，补票，留票，代售票，签票，退票等功能。 nts d 行包管理： 对乘客托运的行李包裹进行管理。包括行包收运，行包领取，小物品寄存管理。 e 车辆管理： 进行车辆调度管理，具体车辆报道，临时加班，班次合并，车辆及座位调整，班 次延时，改乘等功能。 nts 6 2 1 数据库的实现 用户表 ： 用户表 里存储了 可进入数据库的用户名和密码包括 ： 编号 ,姓名 ,密码 该 表 主要完成 用户 的 增加 、删除 、更新等功能 user pass 111 111 222 222 333 333 业务管理： 用与对站点，线路，班次，票价等业务基础数据管理。可设置各种票价项目，通过票价公式自动生成票价！ 站点 线路 班次 基价 座位等级 1111 1 ￥ 30.00 硬座 SDFAS 2 ￥ 30.00 卧铺 ADF 4 ￥ 30.00 软座 售票管理： 主要用与窗口日常售票，具有售票，补票，留票，代售票，签票，退票等功能。 ID 类别 开车时间 地点 票价 检票口 路线 起点 终点 ntsID 类别 开车时间 地点 票价 检票口 路线 起点 终点 1 售票 111 1 2 退票 222 2 3 补票 333 3 行包管理： 对乘客托运的行李包裹进行管理。包括行包收运，行包领取，小物品寄存管理。 车辆管理： ID 类别 物品重量 物品类型 寄件人 收件人 寄件时间 是否验收 1 111 1 1 1899-12-31 2 222 3 333 进行车辆调度管理，具体车辆报道，临时加班，班次合并，车辆及座位调整，班次延时，改乘等功能。 与 VB 的连接 Visual Basic 提供了与底层数据库系统紧密的连接。 Visual Basic 支持不同的关系数据库管理系统并充分发挥每一个数据库的特长。生成独立应用或脱离服务器运行的服务以上的应用， Visual Basic 连接数据库的方式有两种： 通过使用 Visual Basic 的 ADO 控件。 通过使用由 Visual Basic 提供的专用的直接与数据库相连的接口 nts第七章 结束语 经过 一 个多月的设计和开发，系统基本开发完毕。其功能基本符合用户需求，能够完成人事存储和。并提供部分系统维护功能 ,使用户方便进行数据备份和恢复、数据删除。，对于数据的一致性的问题也通过程序进行了有效的解决。 但是由于毕业设计时间较短，所以该系统还有许多不尽如人意的地方，比如 功能较少等多方面问题。这些都有待进一步改善。 致谢 在本次毕业设计中，我从指导老师身上学到了很多东西。，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢他耐心的辅导。 nts 第八章 主要参考文献 1 Visual Basic 6.0 使用指南 作者： Bob Reselman , Richard Peasley , Wayne Pruchniak. 出版社：电子工业出版社 2 中文 Access 2000 24 学时教程 作者： Craig Eddy ， Timothy
- 温馨提示:
1: 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号