毕业设计（论文）-基于VB的理学院资料室管理系统设计.doc

全套设计加 153893706 SHANDONG 毕业设计说明书 理学院资料室管理系统 学 院 理学院 专 业 信息与计算科学 学生姓名 学 号 指导教师 2012 年 6 月 全套设计加 153893706 I 摘要 随着社会的发展 人类的进步 人们对知识的需求在不断地增长 在这种 形势下 书籍渐渐地成为人们增加知识 获取知识的重要方式 理学院资料 室是学校图书馆的一个重要补充 同时也是我们学院的重要组成部分 它存 放着理学院各种与学习相关的重要资料 是学生 和老师在课堂之外获取知识 的一个重要途径 为了解决理学院资料室信息管理难 管理人员工作量大的 难题 使管理人员更容易对各种文献图书进行有效地管理和查询 方便师生 学习和借阅 特研究和开发了这个理学院资料室管理系统 查阅资料 进过研究和分析 系统选用数据库软件发展主流的Microsoft Access 作为后台数据库 它具有很好的查询和管理 很方便和实用 使用 Microsoft 公司的 Visual Basic6 0 为开发工具 面向对象的可视化编程技术 友好的界面使得操作更加灵活和方便 其提供的各种面向对象的可视化开发 平台作为开发工具 它的功能强大的集成环境可以使得开发人员可通过菜单 和各种生成器来轻松地对系统完成各种复杂的操作 本系统主要为学院学生和资料室管理人员提供一个功能齐全 使用方便 快捷的资料室管理系统 以代替传统的人工卡片管理模式 本系统将提供一 个既可以存储信息又可以进行增加 删除 修改 查询 同时该系统适用于 各学院的资料室 使资料室提高服务质量 更好的为学生 和老师服务 关键词 资料室 资料室管理系统 Visual Basic6 0 全套设计加 153893706 II Abstract With the development of society human progress the demand for knowledge in the constantly growing Under such circumstances the books gradually become an important way for people to increase knowledge access to knowledge Reference Room of the Faculty of Science is an important complement of the school library is also an important part of our college it is stored in the Faculty of Science and learning important information is an important way for students and teachers access to knowledge outside the classroom In order to solve the Faculty of Science of Data Room management is difficult heavy workload management problems and make management easier for a variety of literature books to effectively manage and query to facilitate teachers and students to learn and borrow special research and development of the Faculty of Science reference room management system Access to information into the research and analysis system selection of the mainstream of development of the database software Microsoft Access database as a background it has a good query and management it is convenient and practical Using Microsoft Visual Basic 6 0 development tools object oriented visual programming techniques user friendly interface makes the operation more flexible and convenient Provided a variety of object oriented visual development platform as a development tool its powerful integrated environment enables developers through the menu and a variety of builder to easily complete a variety of complex operations The system is primarily for college students and a reference room management provides a fully functional easy to use quick reference room management system to replace the traditional manual card management model The system will provide a stored information can be increased delete modify and query the system applicable to the reference room of the College so that the reference room to improve service quality better service for students and teachers Keywords reference room reference room management system Visual Basic 6 0 全套设计加 153893706 III 目录 摘要 I Abstract II 目录 III 第一章 课题的目的和意义 1 1 1 软件开发背景 1 1 2 软件开发的目的和意义 1 第二章 相关技术和可行性分析 2 2 1 相关技术 2 2 2 可行性研究 2 2 2 1 经济可行性分析 2 2 2 2 技术可行性分析 2 第三章 系统概要设计 3 3 1 基本模块 3 3 2 数据流程图 3 3 2 1 图书类别管理基本信息流程图 3 3 2 2 图书信息管理基本信息流程图 4 3 2 3 读者类别管理基本信息流程图 4 3 2 4 读者信息管理基本信息流程图 4 3 2 5 借书管理基本信息流程图 5 3 2 6 还书管理基本信息流程图 5 第四章 系统整体设计 7 4 1 模块功能分析 7 4 2 系统逻辑结构设计 7 4 3 数据库设计 9 4 3 1 建立 Access 数据库 9 4 3 2 连接数据 11 4 3 3 设置 ODBC 12 4 4 界面设计 13 4 4 2 创建各子窗体 14 4 5 建立公共模块 18 4 5 1 显示目录 18 4 6 主窗体代码 18 4 7 各子窗体的代码 20 第五章 系统测试 35 5 1 测试 35 参考文献 37 致 谢 38 全套设计加 153893706 1 第 1 章 课题的目的和意义 1 1 软件开发背景 当前时代是飞速发展的信息时代 在各行各业中都离不开信息处理 这 正是计算机被广泛应用于信息管理的环境 计算机的最大好处在于利用它能 够进行信息管理 使用计算机进行信息控制 不仅提高了工作效率 而且大 大的提高了其安全性 尤其对于复杂的信息管理 计算机能够发挥它的优越 性 计算机进行信息管理与信息管理系统的开发密切相关 系统的开发是系 统管理的前提 学校资料室作为一种信息资源的集散地 用户借阅资料繁多 包含很多 的信息数据的管理 现今 有很多的资料室都是初步开始使用 甚至尚未使 用计算机进行信息管理 根据调查得知 他们以前对信息管理的主要方式是 基于文本 表格等纸介质的手工处理 对于图书借阅情况的统计和核实往往 采用对借书卡的人工检查进行 对借阅者的借阅权限 一击借阅天数等用人 工计算 手抄进行 数据信息处理工作量大 容易出错 由于数据繁多 容 易丢失 且不易查找 中的来说 缺乏系统 规范的信息管理手段 尽管有 的资料室有计算机但是尚未用于信息管理 没有发挥它的效力 资源闲置比 较突出 这就是管理系统的开发基本环境 数据处理手工操作 工作量大 出错率高 出错后不易修改 资料室采 取手工方式对图书借阅情况人工管理 由于信息比较多 图书借阅信息的管 理工作混乱而有复杂 对很长时间以前的图书进行修改非常困难 1 2 软件开发的目的和意义 随着理学院资料室的图书和各种论文期刊杂志的数量不断增多和资料室 的不断扩大 管理越来越困难和吃力 由于各种资料的情况是随时可能会改 变的 我们必须对资料进行动态的管理 而这对于一个管理人员来说是相当 困难的 资料室管理是现代管理的重要组成部分 以前的传统的资料室管理 存 在很多弊端 在以经济效率为主的今天 如何科学有效的管理资料室是个迫 切解决的实际问题 随着理学院资料室规模的不断扩大 图书数量也相应的增 加 有关图书的各种信息量也成倍增加 面对着庞大的信息量 传统的人工方 式管理会导致图书管理上的混乱 人力与物力过多浪费 从而使资料室的负担 过重 影响整个资料室的运作和控制管理 因此 我认为有必要建立一个理学 院资料室管理系统 提高信息处理的速度和准确性 能够及时 准确 有效的 查询和修改图书情况 为了让资料室管理员从繁重的管理工作中解脱出来 使管理员利用一个软 件就能极其容易的对所有的资料进行管理 快捷 准确和高效 因此开发一个 理学院资料室管理系统是很有必要的 系统将师生和资料 师生和管理员 师 生和师生相互之间联系起来 全套设计加 153893706 2 第二章 相关技术和可行性分析 2 1 相关技术 本系统采用 Microsoft 公司的 Visual Basic6 0 为开发工具 面向对象的 可视化编程技术 友好的界面使得操作更加灵活和方便 其提供的各种面向 对象的可视化开发平台作为开发工具 它的功能强大的集成环境可以使得开 发人员可通过菜单和各种生成器来轻松地对系统完成各种复杂的操作 在数 据库方面 系统选用数据库软件发展主流的 Microsoft Access 作为后台数据库 它具有 很好的查询和管理 很方便和实用 它是由微软发布的关系式数据库管理系统 它结合了 Microsoft Jet Database Engine 和 图形用户界面 两项特点 是 Microsoft Office 的成员之一 和 SQL Server 相比 Access 部署简单方便 就一 个文件运用起来比较灵活主要的桌面数据哭系统 由于理学院资料室管理系统 是个面向本学院师生的系统 它需要处理的资料相对比较少 用Access 做 数据库比较方便和快捷 效率更高 2 2 可行性研究 可行性分析是在进行初步调查后所进行的对系统开发必要性和可能性的研 究 也称可行性研究 信息系统也应从技术可行性 经济可行性和社会可行 性三方面来论证 通过观察与实践 我认为理学院资料室管理系统的可行性 分析如下 2 2 1 经济可行性分析 作为我们学院的资料室 其面向对象主要是学院的老师和学生 经济性较 低 主要是支出的费用 其中包括设备购置费 购买图书 图书的管理和维 护费用 人员工资等 由于各个资料室实行资源共享 其设备购置 人员工 资 设备维护费用相对较少 资金投入主要放在了购置图书上 2 2 2 技术可行性分析 技术上的可行性分析主要分析技术条件能否顺利完成开发工作 软硬件能 否满足需求 本系统采用 Visual Basic 6 0 开发出友好的人机界面 数据库管 理系统采用 Access 它能够处理大量数据 它能够保持数据的完整性 安全性 硬件更新速度越来越快 容量越来越大 可靠性越来越高 硬件平台也能够 满足本系统所需 全套设计加 153893706 3 第三章 系统概要设计 3 1 基本模块 功能概述 该系统界面友好 操作简便 能方便地对图书进行添加 修 改和删除操作 对读者进行类别添加 信息修改和删除等一系列针对资料室 的图书的管理功能 开发本系统的总体任务是实现理学院资料室管理的系统 化和自动化 帮助资料室管理人员更快捷更高效地完成资料的管理工作 整 个系统由四大模块组成 每个大的模块又包括三至四个小的模块 图书管理部分 包括图书信息管理和类别管理 其功能是实现对图书 的类别的修改 删除 对书籍的添加 删除修改等操作 读者管理部分 包括读者信息管理和读者类别管理 其功能是实现对 读者的类别的修改 删除 对读者信息的添加 删除修改等操作 借阅管理部分 包括借书管理和还书管理 其功能是实现读者根据借 书权限借书功能 查询资料室图书是否借出状态 读者还书功能 系统管理部分 管理员可以更改自己的密码 还可以增加新用户以及 退出系统等操作 系统具有方便 快捷 很好维护等特点 系统结构清晰 界面友好 功 能较为齐全 能很好地帮助资料室管理人员进行管理工作 3 2 数据流程图 数据流程图 Data Flow DFD 是描述实际业务管理系统工作流程的一 种图形表示法 它具体体现了系统的逻辑模型图 它没有任何抽象的物理元 素 只是描写信息在管理系统中的处理情况 因为数据流图是逻辑系统的图 形表示 非常直白 通俗易懂 即使不是专业的计算机人员也容易了解 明 白 所以是一种非常好的通信工具 此外 设计数据流程图只用考虑系统需 要具体实现哪些功能 完全没有必要思考实现功能的过程是怎样的 所以它 也是软件设计的很好的出发点 理学院资料室管理系统主要就是为了对资料 室图书资料和学院师生的基本信息等进行计算机管理 下面就是对各个功能 模块的流程分析 3 2 1 图书类别管理基本信息流程图 图书类别管理 添加 删除 修改 全套设计加 153893706 4 流程图分析 图书分类基础为依托 以达到添加 修改 查询图书类别 记录的基本信息流的操作 同时 对数据库中的表类书籍数量进行检查 3 2 2 图书信息管理基本信息流程图 流程图分析 图书基本信息的流动首先是以图书编号为流动方向的依据 来 达到添加 修改 记录 删除图书记录 为了数据的一致性 进行这些操作 的同时 也对数据库中的记录进行检查 检查是否有重复的记录 如有则不 能进行添加 3 2 3 读者类别管理基本信息流程图 流程图分析 读者类别的信息流 首先是读者类别编号为流动方向的基础上 实现添加 修改 记录读者类别记录 数据的一致性 进行这些操作 同时 还检查数据库中的记录 检查是否有重复的记录 如果没有你可以添加 3 2 4 读者信息管理基本信息流程图 图书信息管理 添加 删除修改 读者类别管理 添加删除修改 查询 全套设计加 153893706 5 流程图分析 读者基本信息的流动首先是以读者的编号为依据 来达到 添加 修改 查询 删除读者信息的记录 同时 也对数据库中的读者信息 表的编号进行检查 3 2 5 借书管理基本信息流程图 流程图分析 图书馆管理的信息流的流动方向是借用的数量的基础上 实现 的附加元件 检查库记录 数据的一致性 进行这些操作 同时 还检查数 据库中的记录 检查是否有重复的记录 如果没有你可以添加 3 2 6 还书管理基本信息流程图 读者信息管理 添加 删除 修改查询 借书管理 添加删除查询 还书管理 添加删除查询 全套设计加 153893706 6 通过上面对各个模块流程的分析 那么我们就不难对整个系统的大致流 程有一个全面的认识 设计与自上而下的瀑布结构设计方法 每个子系统都 有一个单独的数据库结构 但也有相关的关键字 是个用户友好的系统 综 合上面各个模块的流程分析 其总体流程图如下 图书管理系 统 图书 管理 读者 管理 图书借 阅管理 系统管 理 添加管理 员 修改密码 退出系统 图书类别 管理 图书信息 管理 读者信息 管理 读者类别 管理 借书管理还书管理 第四章 7 第四章 系统整体设计 4 1 模块功能分析 图书管理部分 包括图书信息管理和类别管理 其功能是实现对各部分 数据内容进行添加 修改 查询等操作 各管理部分的明细如下 图书信息管理 包括图书信息的添加 图书信息的修改 图书信息 的查询和图书的信息删除 4 部分 其中 图书信息包括图书编号 书名 图 书类别 作者 出版社 出版日期 登记日期以及是否已被借出 图书类别管理 包括图书类别的添加 图书类别的修改 图书类别 的删除 3 部分功能 其中 图书类别包括类别名称和类别编号两部分 借阅管理部分 包括借书管理和还书管理 其功能是实现对各部分数据 内容的添加和查询等操作 各管理部分的明细如下 借书管理 包括添加借书信息和查询借书信息 2 部分功能 其中 借阅信息包括借阅编号 读者编号 读者姓名 图书编号 图书名称 出借 日期和还书日期 还书管理 实现添加还书信息功能 其中 还书信息与借阅信息部 分明细相同 读者管理部分 包括读者信息管理和读者类别管理 其功能是实现对各 部分数据内容的添加和修改 删除等操作 各管理部分的明细如下 读者信息管理 包括读者信的添加 读者信息的修改 读者信息的 查询和读者信息的删除 4 部分功能 其中 读者信息包括读者姓名 读者编 号 性别 读者类别 工作单位 家庭住址 电话号码 登记日期和已借书 数量 读者类别管理 包括读者类别的添加 读者类别的修改 读者类别 的删除 3 部分功能 其中 读者类别包括各种类名称 借书期限和有效期限 4 部分 系统管理部分 包括修改系统用户密码 增加新用户和退出系统三项功 能 系统初始设置一个超级用户名和密码 操作人员可以利用这个超级用户 名和密码登录 之后 可以设置其他的超级用户名称 也可以设置权限用户 同时也设置了这个用户可以使用的权限 4 2 系统逻辑结构设计 根据上面的数据库 E R 图 现在需要将上面的数据库概念结构转化为 Microsoft Access 2000 数据库系统所支持的实际数据模型 也就是数据库的 逻辑结构 在上面的实体以及实体之间关系的基础上 形成数据库中的表格 以及各个表格之间的关系 理学院资料室管理系统数据库中各个表格的设计 结果如下面的几个表格所示 每个表格表示在数据库中的一个表 表4 1 图书类别表 第四章 8 表4 2 图书信息表 字段名数据类型说明 图书编号文本必添字段 是 允许空字符为 否 书名文本必添字段 是 允许空字符为 否 类别文本字段大小 25 作者文本字段大小 20 出版社文本字段大小 50 出版日期日期 时间无 登记日期日期 时间无 是否借出文本必填 表 4 3 借阅信息表 表4 4 读者信息表 字段名数据类型说明 读者姓名文本必添字段 是 允许空字符为 否 读者编号文本必添字段 是 允许空字符为 否 性别文本字段大小 2 读者类别文本字段大小 50 工作单位文本字段大小 50 家庭住址文本字段大小 50 电话号码文本字段大小 50 登记日期日期 时间无 已借数量数字无 字段名数据类型说明 类别名称文本必添字段 是 允许空字符为 否 类别编号文本必添字段 是 允许空字符为 否 字段名数据类型说明 借阅编号自动编号无 读者编号文本字段大小 45 读者姓名文本字段大小 30 图书编号文本字段大小 35 图书名称文本字段大小 50 出借日期日期 时间必填 第四章 9 表4 5 读者类别表 字段名数据类型说明 种类名称文本必添字段 是 允许空字符为 否 借书数量数字无 借书期限数字无 有限期限数字无 4 3 数据库设计 这里的数据库采用 Microsoft Access 2000 用 ADO 作为连接数据对象 4 3 1 建建立立 Access 数数据据库库 启动 Access 使用程序设计器建立系统所需要的表格如下 表 4 6 读者类别表 表 4 7 读者信息表 第四章 10 表 4 8 借阅信息表 表4 9 书籍信息表 表4 10 图书类别表 第四章 11 表 4 11 系统管理表 4 3 2 连连接接数数据据 在 Visual Basic 环境下 选择 工程 引用 命令 在随后出现的对话 框中选择 Microsoft ActiveX Data Objects 2 0 Library 然后单击 确定 第四章 12 4 3 3 设设置置 ODBC VB 的 ADO 对象是通过 ODBC 来访问数据库 所以还要建立 ODBC 接 口 打开控制面板中的 管理工具 数据源 ODBC 出现如图 4 1 所示的对话 框 图 4 1 ODBC 对话框 单击 添加 按钮 出现 创建新数据源 对话框 如图 2 图4 2 创建新数据源 对话框 选择Microsoft Access Driver mdb 单击 完成 按钮 出现如图 3对话 第四章 13 框 图4 3连接数据源 在 数据源名 文本框中添加一个名字 单击 确定 按钮完成系统默认连 接设置 然后在ODBC对话框中单击 确定 按钮完成ODBC设置 4 4 界面设计 设计好的界面图 4 4所示 图4 4 图书管理系统界面 这是一个多文档界面 MDI 应用程序 可以同时显示多个文档 每个文 档显示在各自的窗体中 MDI 应用程序中常有包含子菜单的 窗体 选项 用于在窗体或文档之间进行切换 4 4 1 创创建建主主窗窗体体 第四章 14 首先创建一个工程 命名为理学院资料室管理系统 选择 工程 添加 MDI 窗体 命令 则在项目中添加了主窗体 该窗体的一些属性如表4 12 所示 表4 12 主窗体的属性 属 性值 Caption理学院资料室管理系统 NameMain MenuMainmenu1 Windowstate 添加好窗体后 右键打开菜单编辑器 用菜单编辑器来创建各级菜单 菜 单结果如表 4 13 所示 表4 13 菜单项表 菜单名称Text 属性功能描述 MenuItem1图书管理顶级菜单 包含子菜单 MenuItem12图书类别管理调出图书登记窗体 MenuItem311借书管理调出图书借阅窗体 MenuItem2读者管理顶级菜单 包含子菜单 MenuItem224查询读者信息调出查询读者信息窗体 MenuItem4系统管理顶级菜单 包含子菜单 MenuItem41添加管理员调出增加用户窗体 MenuItem42修改密码调出修改密码窗体 MenuItem43退出系统退出 4 4 2 创创建建各各子子窗窗体体 选择 工程 添加窗体 命令 添加系统所需子窗体 在这个项目中 要创建的子窗体如表 4 14 所示 表4 14 所有子窗体 子窗体名Text 添加图书信息Frmaddbookinfo 查询借书信息frmfindbookinfo 增加用户frmadduser 查询图书Frmfindbook 用户登录frmlogin 修改密码frmchangepwd 下面分别给出这些子窗体 以及它们所使用的控件 图书登记子窗体控件如表 4 15 所示 表4 15 图书登记子窗体控件 控件类别控件 Name控件 Text Label1编号 Label Label2书名 第四章 15 Label3类型 Label4购买日期 Label5 Text1 空 Text2 空 Text3 空 Text4 空 TextBox Text5 空 Command1 CommandButton Command2 DataGridDataGrid1 空 增加用户子窗体如图 4 5 所示 其控件如表 4 16 所示 图4 5 增加用户子窗体 表16 增加用户子窗体控件 控 件 类 别控件 Name控件 Text Label1输入用户名 Label2输入密码Label Label3确认密码 TextBoxText1 空 第四章 16 Text2 空 Text3 空 ComboBoxComb1选择权限 Commandl确定 CommandButton Command2取消 修改密码子窗体如图4 6 所示 图4 6 修改密码子窗体 用户登录子窗体如图 7 所示 第四章 17 图4 7 用户登录子窗体 添加读者类别子窗体如图 8所示 图8添加读者类别 第四章 18 4 5建立公共模块 4 5 1 显示目录 建立公共模块可以提高代码的效率 同时使得修改和维护代码都很方便 创建公共模块的步骤 在菜单中选择 工程 添加模块 命令 则出现模块对话框 如图 4 9所示 选择模块图标后 把模块添加到项目中 默况下名为 Module1 图4 9 模块对话框 在模块中定义整个项目的公共变量 Option Explicit Public conn As New ADODB Connection Public select menu As String Public userID As String Public userpow As String Public book num As String 在主窗体添加完菜单之后 就要为各个子菜单创建事 件 4 6 主主窗窗体体代代码码 在本项目中 子菜单事件都是 Click 事件 下面是主窗体的代码 Private Sub MenuItem111 Click frmaddbookstyle Show End Sub Private Sub MenuItem112 Click frmmodifybookstyle Show End Sub Private Sub MenuItem113 Click frmmodifybookstyle Show 第四章 19 End Sub Private Sub MenuItem121 Click frmaddbookinfo Show End Sub Private Sub MenuItem122 Click frmmodifybookinfo Show End Sub Private Sub MenuItem123 Click frmmodifybookinfo Show End Sub Private Sub MenuItem124 Click frmfindbook Show End Sub Private Sub MenuItem211 Click frmaddreaderstyle Show End Sub Private Sub MenuItem212 Click frmmodifyreaderstyle Show End Sub Private Sub MenuItem213 Click frmmodifyreaderstyle Show End Sub Private Sub MenuItem221 Click frmaddreaderinfo Show End Sub Private Sub MenuItem222 Click frmreaderinfo Show End Sub Private Sub MenuItem223 Click frmreaderinfo Show End Sub Private Sub MenuItem224 Click frmfindreaderinfo Show End Sub Private Sub MenuItem311 Click frmfindbook Show End Sub Private Sub MenuItem312 Click frmfindbookinfo Show End Sub Private Sub MenuItem321 Click frmbackbook Show End Sub Private Sub MenuItem41 Click frmadduser Show End Sub Private Sub MenuItem42 Click frmchangepwd Show End Sub Private Sub MenuItem43 Click 第四章 20 Unload Me End Sub 4 7 各子窗体的代码 1 用户登录子窗体 如图 4 10 图4 10 用户登录子窗体 在本项目中 用户登录子窗体是进入系统的第一个界面 它的作用是检 查用户输入的用户名和密码是否正确 把用户输入的用户名和密码与数据库 中的用户名相比较 如果都正确 则进入系统 其代码如下 Private Sub Form Load Dim connectionstring As String connectionstring provider Microsoft Jet oledb 4 0 data source book mdb conn Open connectionstring cnt 0 End Sub 确定 按钮的作用是检查输入的数据是否与数据库中的数据一致 Private Sub Command1 Click Dim sql As String Dim rs login As New ADODB Recordset If Trim txtuser Text Then 判断输入的用户名是否为空 MsgBox 没有这个用户 vbOKOnly vbExclamation txtuser SetFocus Else sql select from 系统管理 where 用户名 txtuser Text rs login Open sql conn adOpenKeyset adLockPessimistic If rs login EOF True Then MsgBox 没有这个用户 vbOKOnly vbExclamation txtuser SetFocus Else 检验密码是否正确 第四章 21 用户名和密码通过后 要关闭本窗体并打开主窗体 If Trim rs login Fields 1 Trim txtpwd Text Then userID txtuser Text userpow rs login Fields 2 rs login Close Unload Me MDIForm1 Show Else MsgBox 密码不正确 vbOKOnly vbExclamation txtpwd SetFocus End If End If End If 只能输入 3 次 cnt cnt 1 If cnt 3 Then Unload Me End If Exit Sub End Sub 2 添加图书信息子窗体 本窗体用来添加新书的信息 用 ADO 来连接数据库 是本窗体的重点 采 用 MDI 的子程序 所以运行后 它出现在主程序的界面下 如图4 11 所示 图4 11 添加图书子窗体 第四章 22 按钮控件要求先填写基本信息 然后与数据库信息比较 代码如下 Option Explicit Private Sub Command1 Click Dim rs addbook As New ADODB Recordset Dim sql As String If Trim Combo1 Text Then MsgBox 请选择图书种类 vbOKOnly vbExclamation Combo1 SetFocus Exit Sub End If If Trim Text1 Text Then MsgBox 图书编号不能为空 vbOKOnly vbExclamation Text1 SetFocus Exit Sub End If If Trim Text2 Text Then MsgBox 书名不能为空 vbOKOnly vbExclamation Text2 SetFocus Exit Sub End If If Not IsDate Text5 Text Then MsgBox 请按照 yyyy mm dd 格式输入日期 vbOKOnly vbExclamation Text5 SetFocus Exit Sub End If If Not IsDate Text6 Text Then MsgBox 请按照 yyyy mm dd 格式输入日期 vbOKOnly vbExclamation Text6 SetFocus Exit Sub End If sql select from 书籍信息 where 书籍编号 Text1 Text rs addbook Open sql conn adOpenKeyset adLockPessimistic If rs addbook EOF Then rs addbook AddNew rs addbook Fields 0 Trim Text1 Text rs addbook Fields 1 Trim Text2 Text rs addbook Fields 2 Trim Combo1 Text rs addbook Fields 3 Trim Text3 Text rs addbook Fields 4 Trim Text4 Text rs addbook Fields 5 Trim Text5 Text rs addbook Fields 6 Trim Text6 Text rs addbook Fields 7 否 rs addbook Update MsgBox 添加书籍成功 vbOKOnly rs addbook Close Else MsgBox 图书编号重复 vbOKOnly vbExclamation 第四章 23 Text1 SetFocus Text1 Text rs addbook Close Exit Sub End If End Sub Private Sub Command2 Click Unload Me End Sub Private Sub Form Load Dim rs leibie As New ADODB Recordset Dim sql As String sql select from 图书类别 rs leibie Open sql conn adOpenKeyset adLockPessimistic rs leibie MoveFirst Do While Not rs leibie EOF Combo1 AddItem rs leibie Fields 0 rs leibie MoveNext Loop rs leibie Close End Sub Private Sub Frame1 DragDrop Source As Control X As Single Y As Single End Sub 3 增加用户子窗体 增加用户子窗体是用来增加用户的用户名 密码和权限的 单击 确定 按钮后 还要返回一个信息框 提示成功信息 如图4 12 所示 第四章 24 图4 12 增加用户子窗体运行效果 窗体部分代码的思路是 把输入的表中的字符串 然后与数据库中的系 统的用户数据比较 如果不存在 则允许添加 代码如下 Private Sub Command1 Click Dim sql As String Dim rs add As New ADODB Recordset If Trim Text1 Text Then MsgBox 用户名不能为空 vbOKOnly vbExclamation Exit Sub Text1 SetFocus Else sql select from 系统管理 rs add Open sql conn adOpenKeyset adLockPessimistic While rs add EOF False If Trim rs add Fields 0 Trim Text1 Text Then MsgBox 已有这个用户 vbOKOnly vbExclamation Text1 SetFocus Text1 Text Text2 Text Text3 Text Combo1 Text Exit Sub Else rs add MoveNext End If Wend If Trim Text2 Text Trim Text3 Text Then MsgBox 两次密码不一致 vbOKOnly vbExclamation Text2 SetFocus Text2 Text Text3 Text Exit Sub ElseIf Trim Combo1 Text system And Trim Combo1 Text guest Then MsgBox 请选择正确的用户权限 vbOKOnly vbExclamation Combo1 SetFocus Combo1 Text Exit Sub Else rs add AddNew 第四章 25 rs add Fields 0 Text1 Text rs add Fields 1 Text2 Text rs add Fields 2 Combo1 Text rs add Update rs add Close MsgBox 添加用户成功 vbOKOnly vbExclamation Unload Me End If End If End Sub Private Sub Command2 Click Unload Me End Sub Private Sub Form Load Combo1 AddItem system Combo1 AddItem guest End Sub 4 查询图书子窗体 查询子窗体是用来查询资料室图书资料明细的 同时还可以实现借书操作 其运行效果如图 4 14 所示 图4 13 查询图书子窗体 Option Explicit Dim panduan As String Private Sub Command1 Click Dim rs findbook As New ADODB Recordset Dim sql As String If Check1 Value vbChecked Then sql 书名 Trim Text1 Text 第四章 26 End If If Check2 Value vbChecked Then If Trim sql Then sql 类别 Trim Combo1 Text Else sql sql and 书名 Trim Combo1 Text End If End If If Check3 Value vbChecked Then If Trim sql Then sql 作者 Trim Text2 Text Else sql sql and 作者 Trim Text2 Text End If End If If Check4 Value vbChecked Then If Trim sql Then sql 出版社 Trim Text3 Text Else sql sql and 出版社 Trim Text3 Text End If End If If Check5 Value vbChecked Then If Trim sql Then sql 书籍编号 Trim Text4 Text Else sql sql and 书籍编号 Trim Text4 Text End If End If If Trim sql Then MsgBox 请选择查询方式 vbOKOnly vbExclamation Exit Sub End If sql select from 书籍信息 where sql rs findbook CursorLocation adUseClient rs findbook Open sql conn adOpenKeyset adLockPessimistic DataGrid1 AllowAddNew False DataGrid1 AllowDelete False DataGrid1 AllowUpdate False Set DataGrid1 DataSource rs findbook rs findbook Close End Sub Private Sub Command2 Click Unload Me End Sub Private Sub Command3 Click If Trim book num Then 第四章 27 MsgBox 请选择要借阅的图书 vbOKOnly vbExclamation Exit Sub End If If panduan 是 Then MsgBox 此书已被借出 vbOKOnly vbExclamation Exit Sub End If frmborrowbook Show End Sub Private Sub DataGrid1 RowColChange LastRow As Variant ByVal LastCol As Integer book num DataGrid1 Columns 0 CellValue DataGrid1 Bookmark panduan DataGrid1 Columns 7 CellValue DataGrid1 Bookmark End Sub Private Sub Form Load Dim rs find As New ADODB Recordset Dim sql As String sql select from 图书类别 rs find Open sql conn adOpenKeyset adLockPessimistic rs find MoveFirst If Not rs find EOF Then Do While Not rs find EOF Combo1 AddItem rs find Fields 0 rs find MoveNext Loop Combo1 ListIndex 0 End If rs find Close End Sub 查询完毕后 输出查询结果 如图4 14 所示 第四章 28 图4 14 查询图书 5 查询借书子窗体代码 查询借书子窗体的作业是查询资料室图书 可以查询已经借出的书籍 未借 出书籍 以及可以按读者姓名来查询读者的借阅信息 第四章 29 图4 15 查询借书信息 代码如下 Option Explicit Private Sub Command1 Click Dim sql As String Dim rs f