VB_学生成绩查询系统.doc

山东凯文科技职业学院山东凯文科技职业学院 2011 届毕业论文届毕业论文 基于 VB 的图书管理系统 学 院 信息学院 学生姓名 李雪丽 指导教师 戴洪刚 专 业 08 软件技术 班 级 1 班 完成时间 2011 年 6 月 29 日 山东凯文科技职业学院 1 摘要 随着人类社会的发展 人类对知识的需求也不断地增长 在这种形势下 书籍就渐渐地成为人们获取并增长知识的主要途径 而图书馆就自然而然地在人 们的生活中占据了一定的位置 如何科学地管理图书馆不但关系到读者求知的方 便程度 也关系到图书馆的发展 因此 开发一套完善的图书馆管理系统就成不 可少了 本文介绍了在Visual Basic6 0 环境下采用 自上而下地总体规划 自下而上地应用开发 的策略开发本系统的详细过程 提出实现图书馆信息管 理 资源共享的基本目标 从而推动迈向数字化图书馆的步伐 并阐述系统结构 设计和功能设计 从图书的入库登记到查询浏览 从借书证发放到图书的借阅 形成了一个整体自动化管理模式 从软件工程的角度进行了科学而严谨的阐述 关键词 图书管理 借阅 浏览 Visual Basic6 0 Abstract With the development of society Mankind need more knowledge also constantly increase Under this fsituation book gradually become the main path to obtain the knowledge of life and library naturally occupied in people certainly position how science ground the management library not only relate to the convenient degree that the reader beg to know but also relate to the library that strategy of development therefore develop the management system of a perfect library can t little this text introduced under the Visual Basic6 0 the environment adoption from top to bottom total programming from the detailed process that bottom but up applied development develop this system from the step that but the push head into the arithmetic figure of the library and shows the system construction design and function design from the books of store in warehouse to register the search to view books that issue from library card to angle of borrow become a the whole automation the management the mode and proceeds careful explain from the software engineering science Keywords library borrow search to view Visual Basic6 0 山东凯文科技职业学院 2 目录 摘要 1 1 概 述 3 1 1 数据库及其应用 3 1 2 数据库系统 3 1 3 数据库系统简介 4 2 数据库系统设计 5 2 1 数据库设计概述 5 2 2 数据库设计周期 5 2 3 数据库开发工具简介 MICROSOFT ACCESS2003 6 2 4 图书管理系统数据库设计 6 2 4 1 数据库需求分析 6 2 4 2 数据库概要设计 7 2 4 3 数据库的具体实现 8 3 系统总体设计 11 3 1 图书管理系统简介 11 3 2 系统功能描述 1 3 3 系统模块划分 1 3 4 系统流程分析 2 3 5 开发工具简介 VISUAL BASIC6 0 3 3 6 系统详细设计 4 3 6 1 启动界面设计 4 3 6 2 登陆界面设计 4 3 6 3 主界面设计 5 3 6 4 其他功能模块设计 5 总 结 9 参 考 文 献 9 谢 辞 9 附录 系统原程序 10 山东凯文科技职业学院 3 1 概 述 1 1 数据库及其应用 自 20 世纪 70 年代以来 数据库技术得到迅速发展 目前世界上已经有数百万个数据库 系统在运行 其应用已经深入到社会生活的各个领域 从企业管理 银行管理 资源管理 经济 预测一直到信息检索 档案管理 普查统计等 我国 20 世纪 90 年代初在全国范围内装备了 12 个以数据库为基础的大型计算机系统 这些系统分布在邮电 计委 银行 电力 铁路 气象 民 航 情报 公安 军事 航天和财税等行业 现在 数据库技术还在不断发展 并且不断的与其它计算机技术相互渗透 数据库技术 与网络通信技术相结合 产生了分布式数据库系统 数据库技术与面象对象技术相结合 产生 了面向对象数据库系统等各种数据库系统 在人类迈向 21 世纪知识经济的时候 信息变为经济发展的战略资源 信息技术已成为 社会生产力重要的组成部分 人们充分认识到 数据库是信息化社会中信息资源管理与开发 利用的基础 对于一个国家 数据库的建设规模 使用水平已成为衡量该国信息化程度的重要 标志 因此 数据库的学习是非常重要的 1 2 数据库系统 数据库系统本质上是一个用计算机存储记录的系统 数据库本身可被看作为一种电子 文件柜 也就是说 它是收集计算机数据文件的仓库或容器 系统用户可以对这些文件执 行插入数据 检索数据 更改数据 删除数据等一系列操作 总之 数据库系统是一个计算机存储记录的系统 即 它是一个计算机系统 该系统 的目标存储信息并支持用户检索和更新所需要的信息 图 1 2 是一个数据库系统的简图 图 1 2 数据库系统简图 山东凯文科技职业学院 4 1 3 数据库系统简介 本人设计的是一个关于图书馆图书管理的数据库系统 通过这个系统管理员可以简捷 方便的对图书记录查阅 增加 删除等功能 而用户也可以通过这个系统对进行图书查询 借阅 归还等功能 该数据库应用程序按照用户权限和实现功能的不同分为两部分 外部学生对数据库的 查询访问和内部管理人员对数据记录的管理维护 每一部分中包含各自实现的各项功能 对 每一项功能的实现 将按照窗体设计以及运行情况的顺序逐一进行设计 本系统采用 Microsoft access 技术建立数据库 使用 VB 技术建立数据源的链接 并 且生成图书管理的数据库应用程序从而实现数据库的管理功能 山东凯文科技职业学院 5 2 数据库系统设计 2 1 数据库设计概述 计算机信息系统以数据库为核心 在数据库管理系统的支持下 进行信息的收集 整理 存储 检索 更新 加工 统计和传播等操作 对于数据库应用开发人员来说 为使现实世界的信息流计算机话 并对计算机话的 信息进行各种操作 就是如何利用数据库管理系统 系统软件和相关硬件系统 将用户的 要求转化成有效的数据结构 并使数据库结构易于实现用户新的要求的过程 确切的说 数据库设计是指对于一个给定的应用环境 提供一个确定最优数据模型 与处理模式的逻辑设计 以及一个确定数据库存储结构与存取方法的物理设计 建立起既 能反映现实世界信息和信息联系 满足用户数据要求和加工要求 有能被某个数据库管理 系统所接受 同时能实现系统目标 并有效存取数据的数据库 2 2 数据库设计周期 根据软件工程的思想 数据库设计的周期可以划分为六个阶段 1 规划阶段 确定开发的总目标 给出计划开发的软件系统的功能 性能 可靠性以及接等方面 的设想 2 需求分析阶段 认真细致地了解用户对数据的加工要求 确定系统的功能与边界 本阶段的最终结 果 提供一个可作为设计基础的系统说明书 包括对软硬件环境的要求和一整套完善的数 据流程图 3 设计阶段 把需求分析阶段所确定的功能细化 主要工作是概念设计阶段 逻辑设计阶段 物 理设计阶段 然后 对每个阶段内部设计详细的流程 4 程序编制阶段 以一种或几种特定的程序设计语言表达上一阶段确定的各模块控制流程 程序编制 时应遵循结构化程序设计方法 5 调试阶段 对已编好的程序进行单元调试 分调 整体调试 联调 和系统测试 验收 6 运行和维护阶段 这是整个设计周期最长的阶段 其工作重点是收集和记录系统实际运行的数据 在运 行中 必须保持数据库的完整性 必须有效的处理数据故障和进行数据库恢复 同时解决 山东凯文科技职业学院 6 开发过程的遗留问题 改正错误进行功能完善 2 3 数据库开发工具简介 Microsoft Access2003 Access 是 Office 办公套件中一个极为重要的组成部分 刚开始时微软公司是将 Access 单独作为一个产品进行销售的 后来微软发现如果将 Access 捆绑在 OFFICE 中一起 发售 将带来更加可观的利润 于是第一次将 Access 捆绑到 OFFICE97 中 成为 OFFICE 套 件中的一个重要成员 现在它已经成为 Office 办公套件中不可缺少的部件了 自从 1992 年开始销售以来 Access 已经卖出了超过 6000 万份 现在它已经成为世界上最流行的桌 面数据库管理系统 后来微软公司通过大量地改进 将 Access 的新版本功能变得更加强大 不管是处理公司的客户订单数据 管理自己的个人通讯录 还是大量科研数据的记录和处 理 人们都可以利用它来解决大量数据的管理工作 2 4 图书管理系统数据库设计 2 4 1 数据库需求分析 随着社会发展 人类的生产 生活越来越离不开信息 谁拥有了更多更有效的信息 谁就将在竞争中处于有利地位 信息产业正在成为一个国家的支柱 数据作为信息的载体 其管理工具数据库对于信息技术的重要性 正日益得到人们的重视 只有拥有了先进的数 据库技术 才能有效地管理好浩如烟海的数据 并从中提取出对自己有用的信息来加以利 用 从 60 年代末期开始 数据库系统已经经过了 30 多年的历程 经历了两代的演变 第 一代数据库系统是层次与网络的数据库系统 第二代数据库系统是关系数据库系统 30 年 来 人们主要致力于第二代数据库系统的理论研究和系统开发 取得了辉煌成就 完善关 系理论的确立标志着关系数据库系统理论趋于完善 商品化的 DB2 INGRES ORACLS SYBASE SQL SERVER 等关系数据库的出现标志着关系数据库系统已经 接近顶峰 第一代和第二代数据库系统的设计目标源于商业事务处理 多年来 这两代数 据库系统主要用于银行 飞机定票等事务处理 80 代以来 随着计算机应用领域的迅速扩 大 新的数据库应用等 针对新一代数据库应用 从 80 年代至今 人们一直在探索新一代 的数据库系统的理论 技术和方法 在设计家庭图书管理系统之前 我们应当知道什么是数据库以及 VB6 0 的开发环境 所 谓数据库是指以一定的组织方式存储在一起的 能为多个用户所共享的 与应用程序彼此 独立的相关联的数据集合 而数据库系统是指实现有组织的动态的存储大量关联数据 支 持多用户访问的计算机软硬件资源与数据库管理员组成的系统 我们的系统是按用户的需 求进行数据库定义 存取 运行 建立和维护功能 系统的数据库定义模型图 山东凯文科技职业学院 7 数据库定义模型图 2 4 2 数据库概要设计 软件系统本质上是信息处理系统 因此 在软件系统的整个开发过程中都必须考虑两 方面的问题 数据 及对数据的 处理 为了把用户的数据要求清晰明确地表达出来 系统分析员通常建立一个概念性的数据模型 概念性数据模型是一种面向问题的数据模型 是按照用户的观点来对数据和信息建模 它描述了从用户角度看到的数据 它反映了用户 的现实环境 且与在软件系统中的实现方法无关 这里我们运用最常用的表示概念性数据 模型的方法 是实体 联系方法即 E R 模型 通常 软件系统中有许多数据是需要长期 保存 为减少数据冗余 简化修改数据的过程 实现对数据进化规范化 数据库表的关系 山东凯文科技职业学院 8 数据库 E R 图 由 E R 图转换成关系模式如下 图书关系图 图书名图书类别作者书籍号出版社录入时间 高等数学 SSSS 0001 高等教育2006 1 数据库 SSS 0003 工业出版 20066 读者关系图 读者姓名读者编号性别读者类别工作单位家庭住址联系电话录入时间 汤水平 001 男 DFF 宜春学院 1111112678 2006 3 223003 女 FDFDFDFD 466665777 用户关系图 用户名密码 Admin 000000 2 4 3 数据库的具体实现 作为 Microsoft 公司的本地数据库 Access 在应用中使用的非常广泛 为此我选用 Access 数据库来进行数据库的设计 根据前面定义的实体及实体之间的关系 形成数据库 的表格以及各个表之间的关系 1 用户信息表 山东凯文科技职业学院 9 说明 该表是为用户进入本系统而设置的用户权限 只有同时知道用 户名和所对应的密码才能进入本系统 2 读者信息表 说明 该表是对读者的信息进行管理 3 读者类别表 说明 该表规定了读者的类别 4 图书信息表 说明 该表详细介绍了图书的相关信息 5 图书类别表 说明 该表对图书进行了分类 6 借阅信息表 山东凯文科技职业学院 10 说明 该表详细纪录了图书的借阅情况 上述所做的各表都是围绕图书借阅系统而做的 所以做好这个方面信息表是本系统成 功的关键环节之一 山东凯文科技职业学院 11 3 系统总体设计 3 1 图书管理系统简介 当今时代是飞速发展的信息时代 在各行各业中离不开信息处理 这正是计算机被广 泛应用于信息管理系统的环境 计算机的最大好处在于利用它能够进行信息管理 使用计 算机进行信息控制 不仅提高了工作效率 而且大大的提高了其安全性 尤其对于复杂的信息管理 计算机能够充分发挥它的优越性 计算机进行信息管理与信息 管理系统的开发密切相关 系统的开发是系统管理的前提 本系统就是为了管理好图书馆 信息而设计的 图书馆作为一种信息资源的集散地 图书和用户借阅资料繁多 包含很多的信息数据的 管理 现今 有很多的图书馆都是初步开始使用 甚至尚未使用计算机进行信息管理 根 据调查得知 他们以前对信息管理的主要方式是基于文本 表格等纸介质的手工处理 对 于图书借阅情况 如借书天数 超过限定借书时间的天数 的统计和核实等往往采用对借 书卡的人工检查进行 对借阅者的借阅权限 以及借阅天数等用人工计算 手抄进行 数 据信息处理工作量大 容易出错 由于数据繁多 容易丢失 且不易查找 总的来说 缺 乏系统 规范的信息管理手段 尽管有的图书馆有计算机 但是尚未用于信息管理 没有 发挥它的效力 资源闲置比较突出 这就是管理信息系统的开发的基本环境 数据处理手 工操作 工作量大 出错率高 出错后不易更改 图书馆采取手工方式对图书借阅情况进 行人工管理 由于信息比较多 图书借阅信息的管理工作混乱而又复杂 一般借阅情况是 记录在借书证上 图书的数目和内容记录在文件中 图书馆的工作人员和管理员也只是当 时对它比较清楚 时间一长 如再要进行查询 就得在众多的资料中翻阅 查找了 造成 查询费时 费力 如要对很长时间以前的图书进行更改就更加困难了 基于这此问题 我认为有必要建立一个图书管理系统 使图书管理工作规范化 系统 化 程序化 避免图书管理的随意性 提高信息处理的速度和准确性 能够及时 准确 有效的查询和修改图书情况 山东凯文科技职业学院 1 3 2 系统功能描述 1 图书管理功能 为了方便图书的借阅管理 需要对图书的类别和信息加于管理 图书管理模块可实现以下功能 添加图书类别 修改图书类别 删除图书类别 添加图书信本系统的主要功能如下 息 修改图书信息 删除图书信息 查询图书信息 2 读者管理功能 为了方便对读者的管理 需要对读者的类别和信息加予管理 读者管理模块可实现以下功能 添加读者类别 修改读者类别 删除读者类别 添加读者信息 修改读者信息 删除读者信息 查询读者信息 3 图书借阅管理功能 图书借阅模块功能实现如下 添加借书信息 查询借书信息 添加还书信息 4 系统管理功能 系统管理模块功能实现如下 添加管理员 修改管理员密码 注销 5 系统维护管理功能 系统维护主要是对系统的数据加予管理 其实现的功能如下 数据备份 数据恢复 数据压缩 数据清理 3 3 系统模块划分 根据上一小节介绍的功能 可以设计出系统的总体功能模块 如下图示 山东凯文科技职业学院 2 图书馆管理系统功能模块示意图 在本系统中 系统管理模块功能比较简单 在系统初始化时 有一默认的 系统管理员 用户 admin 由程序设计人员手动地添加到数据库中 Admin 用户可以创建用户 修改用户信息以及删 除用户 普通用户则只能修改自己的用户名和密码 系统用户管理模块的关系如下图 系统管理功能模块关系图 3 4 系统流程分析 本节将对实例进行流程分析 所谓系统流程就是用户在使用系统是的工作过程 对于多类型 用户的管理系统来说 每一类用户的工作流程都是不相同的 多用户系统的工作流程都从用户登陆 模块开始的 对多用户的身份进行认证 身份认证可以分为以下两个过程 1 确认用户是否是有效的系统用户 2 确定用户的类型 第 1 决定用户能否进入系统 第 2 个过程根据用户的类型决定用户的操作权限 从而决定用户的 工作界面 本系统的流程分析如图如下 山东凯文科技职业学院 3 系统流程分析图 进入系统后 不同类型的用户所能进行的操作也不同 这些操作可以笼统的分为系统管理和图 书借阅管理模块 3 5 开发工具简介 Visual Basic6 0 VB 是微软公司出品的一个快速可视化程序开发工具软件 借助微软在操作系统和办公软件的 垄断地位 VB 在短短的几年内风靡全球 VB 是极有和功能强大的软件 主要表现在 所见即所得 的界面设计 基于对象的设计方法 极短的软件开发周期 较易维护的生成代码 VB 程序语言具 有许多优秀的特性 用其设计应用程序时有两个基本特点 可视化设计和事件驱动编程 可视化设计 同其他的一些可视化程序开发工具一样 VB 具有可视化设计的特点 微软的 Word 在刚刚进入市 场时 同 WPS 竞争的一个重要的功能砝码就是 所见即所得 的字处理功能 VB 在设计应用程序界面 时也可以说是 所见即所得 在设计时 头脑中所想象的应用程序界面 完全可以通过键盘鼠标以及 徒手画出来 而不是编制大量的代码然后再编译生成 如果需要修改 也是利用键盘鼠标和手画 而底 层的一些程序代码由 VB 自动生成或修改 VB 为用户提供大量的界面元素 在 VB 中称为控件对象 这些控件对象对于熟悉 Windows 应用程序的用户而言是一点也不陌生 如 窗体 菜单 命令按 钮 工具按钮 检查框 等等 用户只需要利用鼠标 键盘把这些控件对象拖动到适当的位置 设置它们的大小 形状 属性等 就可以设计出所需的应用程序界面 事件驱动编程 Windows操作系统出现以来 图形化的用户界面和多任务多进程的应用程序要求程序设计不能是 单一性的 在使用VB设计应用程序时 必须首先确定应用程序如何同用户进行交互 例如发生鼠标单 击 键盘输入等事件时 由用户编写的代码控制这些事件的响应 这就是所谓的事件驱动编程 Vb6 0 有三种版本 各自满足不同的开发需要 1 Visual Basic 学习版 使编程人员轻松开发 Windows 95 98 和 windows NT 的应用程序 山东凯文科技职业学院 4 该版本包括所有的内部控件连同 grid tab 和 data bound 控件 学习版提供的文档有 程序员指 南 联机帮助及 Visual Basic 联机手册 2 专业版 为专业编程人员提供了一整套进行开发的功能完备的工具 该版本包括学习版的 全部功能连同 ActiveX 控件 还包括 Internet 控件和 Crystal Report Writer 专业版提供的文 挡有 程序员指南 联机帮助和 部件工具指南 3 企业版 使得专业编程人员能够开发功能强大的组内分布式应用程序 该版本包括专业版 的全部功能连同自动化管理器 部件管理器 数据库管理工具 Microsoft Visual Sourcesafe 面 向工程版的控制系统等 企业版提供的文挡包括专业版的所有文挡 还有 客户 服务器应用程序 开发指南 和 Sourcesafe 用户指南 本系统正是采用 VisualVisual BasicBasic 企业版所开发的管理系统 3 6 系统详细设计 根据系统分析 系统设计的结果 采用 VB 作为开发工具 实现图书管理系统各模块的功能 3 6 13 6 1 启动界面设计 系统启动首先出现如下对话框 该界面显示了有关的系统信息 3 6 23 6 2 登陆界面设计 单击启动界面确定将出现如下对话框 山东凯文科技职业学院 5 该界面为用户登陆界面 用户输入自己的用户名和密码就能成功登陆本系统 如果密码连续 3 次输错 用户身份没有被确认 系统讲自动关闭 该设计有助于维护系统的安全 防止非法登陆 3 6 33 6 3 主界面设计 用户登陆成功将进入如下系统主界面 在主界面中将显示本系统的所有功能菜单 单击任一菜单将进入相应的功能窗口 3 6 43 6 4 其他功能模块设计 图书管理模块的实现 要实现图书管理模块应首先点击图书管理主菜单如下 然后单击添加图书信息 其窗体如下 山东凯文科技职业学院 6 该窗口的功能是为用户添加图书信息而设计的 用户可以通过本窗口把图书的详细资料添加到 图书信息库中 读者信息管理模块的实现 点击读者管理主菜单如下 然后单击添加读者信息 其窗口如下 本窗口实现读者信息的添加 通过本窗口把读者的详细信息添加到读者信息库中 方便对读者 的管理 图书借阅管理模块的实现 要实现图书借阅管理模块应首先点击图书借阅管理主菜单如下 山东凯文科技职业学院 7 然后单击还书管理 其窗体如下 本窗口的功能是为实现还书管理而设计的 用户通过该界面可以有效的管理图书的归还情况 系统管理模块的实现 实现系统管理功能 点击系统管理主菜单如下 单击添加管理员 其窗口如下 新用户可以通过本窗口实现注册和添加 山东凯文科技职业学院 8 系统维护模块的实现 系统维护模块主菜单如下 单击数据备份按钮 其实现窗口如下 山东凯文科技职业学院 9 总 结 经过三个月的设计和开发 图书馆管理系统基本开发完毕 其功能基本符合用户的需求 能够 完成用户的图书信息管理 图书借阅管理 读者信息管理 系统维护等方面的功能 以及各种相关 功能的扩展 但是由于毕业设计时间较短加上知识的有限 该系统还有许多不足的地方 源程序调 试方面的问题还有好多 出错处理不够等方面问题 这些都有待于今后进一步的改善 在设计过程 中 通过学习了解了数据库系统的开发原理和应用 基本掌握了开发工具 Visual Basic6 0 和 Microsoft Access2003 的使用 为今后的学习和开发打下了坚实的基础 参 考 文 献 1 孙越编著 Visual Basic 数据库开发教程 M 人民邮电出版社 2002 2 启明工作室 Visual Basic Access 数据库应用系统开发 M 人民邮电出版社 2004 3 黄志球 李清等 数据库应用技术基础 M 机械工业出版社 2003 4 刘韬 Visual Basic6 0 数据库系统开发导航 M 人民邮电出版社 2003 5 恒扬科导 Visual Basic6 0 程序设计学与用教程 M 机械工业出社 2003 6 刘瑞新 张二峰等 Visual Basic 管理信息系统开发 M 机械工业出版社 2005 谢 辞 在本次毕业设计中 我从指导老师那学到了好多东西 老师认真负责的工作态度 严谨的治学精神 和深厚的理论水平都使我受益非浅 在系统设计开发过程中王前莉老师给予了很大的帮助 帮助解 决了很多难题 使得系统能及时开发完成 还有在我设计过程中许多同学给予了大力的支持 在这 里一致表示感谢 山东凯文科技职业学院 10 附录 系统原程序 系统开始界面程序 Option Explicit Reg Key Security Options Const READ CONTROL data source data source data source data source data source data source data source data source data source data source data source data source data source App Path database mdb If Len Trim txtpathText Text 0 Then Result MsgBox 请指定所要备份数据的路径 vbOKOnly 数据备份 Exit Sub Else If Right Trim txtpathText Text 1 Then txtpathText Text Trim txtpathText Text Else txtpathText Text Trim txtpathText Text End If If Dir txtpathText Text vbDirectory Then Result MsgBox 指定路径不存在 请建立后继续 vbOKOnly 数据备份 Exit Sub End If End If On Error GoTo ErrorHand 以下为备份数据库 连接数据库 取得数据库所有表名称 Dim strTableName As String Dim nreccount As Long Dim RecordSize As Integer sqlname select from sysobjects Where type u rsTableName Open sqlname cnnJLDB adOpenStatic adLockReadOnly While Not rsTableName EOF strTableName Trim rsTableName Name 根据表名确定各个域名及域类型 sqlname select xtype length name from syscolumns where id in select id from sysobjects where name strTableName rsColumnName Open sqlname cnnJLDB adOpenStatic adLockReadOnly rsColumnName MoveLast nreccount rsColumnName RecordCount ReDim FieldType nreccount ReDim FieldLength nreccount ReDim FieldName nreccount ReDim FieldNote nreccount rsColumnName MoveFirst RecordSize 0 While Not rsColumnName EOF nIndex rsColumnName AbsolutePosition FieldLength nIndex rsColumnName Length RecordSize RecordSize rsColumnName Length FieldType nIndex rsColumnName xtype FieldName nIndex rsColumnName Name rsColumnName MoveNext Wend rsColumnName Close Open txtpathText Text strTableName dat For Binary As 1 山东凯文科技职业学院 23 从表中读纪录 sqlname select from Trim strTableName rsData Open sqlname cnnJLDB adOpenStatic adLockReadOnly lblShowInfo Caption 正在备份数据库中表 Trim TableName 的数据 lblShowInfo Refresh ProcessDataSave Min 0 Dim lRowCount As Long Dim n As Long lRowCount 0 If Not rsData EOF Then rsData MoveLast lRowCount rsData RecordCount rsData MoveFirst End If If lRowCount 0 Then ProcessDataSave Max 1 ProcessDataSave Value 1 lblShowInfo Caption strTableName 表没有纪录 Else ProcessDataSave Max lRowCount ProcessDataSave Value ProcessDataSave Min End If Put 1 lRowCount For n 1 To lRowCount lblShowInfo Caption 正在备份数据库中表 strTableName 的数据 Format n Format lRowCount lblShowInfo Refresh For nStep 0 To nreccount 1 fieldData rsData nStep Put 1 fieldData Next nStep ProcessDataSave Value n m iBeginSaveTimer 0 rsData MoveNext Next n rsData Close Close 1 rsTableName MoveNext Wend rsTableName Close m bHaveDone True MousePointer 1 Result MsgBox 本系统数据库中的数据备份完毕 请保存数据备份目录下的数据备 份文件 vbOKOnly 数据备份 SaveSetting App Title Settings StoreDirection Trim txtpathText Text Unload Me Exit Sub ErrorHand MousePointer 1 MsgBox 数据备份失败 请重试 必要时联系开发人员 64 信息提示 End Sub 山东凯文科技职业学院 24 Private Sub Form Load m iBeginSaveTimer 0 On Error Resume Next m bHaveDone False txtpathText Text GetSetting App Title Settings StoreDirection d temp End Sub Private Sub Form Unload Cancel As Integer m iBeginSaveTimer 0 Dim iRespond As Integer If m bHaveDone False Then 如果还没有备份完数据 iRespond MsgBox 是否确认取消数据备份 64 4 信息提示 If iRespond 7 Then Cancel 1 End If End If End Sub 数据恢复 Private Sub Command1 Click m iBeginSaveTimer 0 Dim respond As Integer respond MsgBox 恢复数据将改写全部数据库现有数据 是否继续 64 4 是否 确认 If respond 7 Then Exit Sub End If If Len Trim txtpathText Text 0 Then Result MsgBox 请指定所要备份数据的路径 vbOKOnly 数据备份 Exit Sub Else If Right Trim txtpathText Text 1 Then txtpathText Text Trim txtpathText Text Else txtpathText Text Trim txtpathText Text End If If Dir txtpathText Text vbDirectory Then Result MsgBox 指定路径不存在 vbOKOnly 数据备份 Exit Sub End If End If On Error GoTo ErrorHand 连接数据库 Dim strFileName As String Dim strTableName As String Dim sqlname As String Dim rsColumnName As New ADODB Recordset Dim rs As New ADODB Recordset Dim rsData As New ADODB Recordset strFileName Dir Trim txtpathText Text dat If strFileName Then MsgBox 该处不包含所要恢复数据的备份文件 64 数据恢复 山东凯文科技职业学院 25 MousePointer 1 Exit Sub End If Dim nreccount As Long Dim bOK As Boolean 开始一个事务 cnnJLDB BeginTrans Do While strFileName If strFileName dtproperties dat Then bOK False strTableName Left strFileName Len strFileName 4 先删除该表的数据 sqlname truncate Table Trim strTableName cnnJLDB Execute sqlname 然后开始备份 sqlname select from sysobjects Where type u and name strTableName rs Open sqlname cnnJLDB adOpenStatic adLockReadOnly If Not rs EOF Then bOK True End If rs Close If bOK True Then Mou