图书管理系统设计毕业论文.doc

第 1 页 图书管理系统设计毕业论文图书管理系统设计毕业论文 目目 录录 1 1第一章第一章 前言前言 5 2第二章第二章 需求分析说明需求分析说明 6 2 1系统介绍 6 2 2系统面向的用户群体 6 2 3 三 系统的功能性需求 6 2 4 四 系统的非功能性需求 7 2 4 1 一 用户界面需求 7 2 4 2 二 软硬件环境需求 7 2 4 3 三 软件质量需求 8 3 3第三章第三章 可行性分析报告可行性分析报告 8 3 1 一 技术可行性 8 3 2 二 人员可能性 8 3 3 三 时间 设备可能性 8 3 4 四 系统工作量 9 3 5 五 代码工作量 9 3 6 六 文档要求 9 4 4第四章第四章 开发环境与项目规划开发环境与项目规划 9 4 1 一 开发环境 9 4 2 二 开发进度安排 9 5 5第五章第五章 软件界面设计标准与规范软件界面设计标准与规范 10 5 1 一 编写目的 10 5 2 二 界面设计思想 10 5 3 三 界面设计原则 10 第 2 页 5 4 四 界面设计样式 10 5 5 五 常见提示信息样式 11 5 6 六 常见错误信息样式 11 5 7 七 其他界面约定 11 6 6第六章第六章 软件编码设计标准与规范软件编码设计标准与规范 12 6 1 一 对象命名约定 12 6 2 二 常量和变量命名约定 12 6 3 三 结构化编码约定 13 6 4 四 数据源的约定 15 6 5 五 数据库访问约定 15 6 6 六 其他约定 15 7 7第七章第七章 数据库分析与设计数据库分析与设计 16 7 1 一 数据库环境说明 16 7 2 二 数据库命名标准与规范 16 7 3 三 数据库逻辑设计 16 7 4 四 数据库物理设计 17 7 4 1 一 表 视图汇总 17 7 4 2 二 各表 视图设计详解 17 8 8第八章第八章 软件体系结构设计说明书软件体系结构设计说明书 22 8 1 一 系统概述 22 8 2 二 设计约束 22 8 3 三 设计策略 22 8 4 四 系统概要设计说明书 23 8 4 1 一 图例说明 23 8 4 2 二 系统总体结构图 23 8 4 3 三 销售子系统流程图 24 第 3 页 8 4 4 四 进货子系统流程图 25 8 4 5 五 退货子系统流程图 25 8 5 五 系统详细设计说明书 25 8 5 1 一 系统模块汇总 25 8 5 2 二 系统核心模块详解 27 8 5 3 三 系统模块详解 42 9 9第九章第九章 用户界面设计报告用户界面设计报告 62 9 1 一 界面设计规范 62 9 2 二 系统窗体汇总 62 9 3 三 主界面设计 64 9 4 四 子界面设计 64 9 5 五 界面资源设计 65 1010第十章第十章 软件测试分析报告软件测试分析报告 66 10 1一 测试范围与主要内容 66 10 2二 测试方法 66 10 3三 测试报告 66 10 4四 改进建议与措施 67 1111第十一章第十一章 软件使用说明书软件使用说明书 67 11 1一 软件概述 67 11 2二 系统安装 68 11 3三 使用说明 68 11 3 1 一 系统登陆 68 11 3 2 二 注销与退出 69 11 3 3 三 办理进货登记 69 11 3 4 四 办理退货登记 72 11 3 5 五 销售图书 73 11 3 6 六 会员管理 74 11 3 7 七 员工管理 75 11 3 8 八 书目检索 75 11 3 9 九 查看统计信息 75 11 3 10 十 修改密码 76 第 4 页 11 3 11 十一 关于 帮助 77 1212第十三章第十三章 结束语结束语 77 1313致致 谢谢 78 1414参参 考考 文文 献献 79 图书管理系统设计图书管理系统设计 摘摘 要要 图书管理系统是典型的信息管理系统 MIS 其开发主要包括后台数据库的建立和维护以及前端 应用程序的开发两个方面 对于前者要求建立起数据一致性和完整性强 数据安全性好的库 而对 于后者则要求应用程序功能完备 易使用等特点 因此本人结合开入式图书馆的要求 对 MS SQL Server2000 数据库管理系统 SQL 语言原理 Visual Basic 应用程序设计 Visual Basic 数据库 Access 技术进行了较深入的学习和应用 主 要完成对图书管理系统的需求分析 功能模块划分 数据库模式分析 并由此设计了数据库结构和 应用程序 系统运行结果证明 本文所设计的图书管理系统可以满足借阅者 图书馆工作人员和高 级管理员三方面的需要 设计充分利用 Visual Basic 6 MS SQL Server2000 数据库技术的强大力量 提高了编程效 率和可靠性 关键词 数据库 access Visual Basic6 0 图书管理 窗体 Summary The books administrative system is typical informations managements s systems MIS it develops main two respects of development including setting up and maintenance and front application program of backstage supporter s database Demand to set up the consistency of the data and integrality the storehouse of strong data with good security to the former Require to the latter that the function of the application program is complete apt characteristic of using etc So combine and make the request of the entering type library in person to MS SQL Server2000 data base management system SQL language principle Visual Basic use and design program Visual Basic database technology has carried on the deeper study and application finish demand analysis function module dividing database mode analysis to the books administrative system mainly and has designed structure of the database and application program from this The systematic operation result is proved the books administrative system designed of this text can meet the needs of three respects of persons who borrow library staff member and senior administrator Design and fully utilize Visual Basic 6 strong strength of MS SQL Server2000 database technology has improved programming efficiency and dependability Keyword The database access Visual Basic 6 0 taking care of books window body 第 5 页 第 6 页 1 1第一章第一章 前言前言 随着计算机及网络技术的飞速发展 Internet Intranet 应用在全球范围内日益普及 当今社 会正快速向信息化社会前进 信息自动化的作用也越来越大 从而使我们从繁杂的事务中解放出来 提高了我们的工作效率 目前各种图书馆的借阅工作部分还是手工管理 工作效率很低 并且不能及时了解图书的种类 和读者需求的图书等 不能更好的适应当前读者的借阅要求 手工管理还存在这许多弊端 由于不 可避免的人为因素 造成数据的遗漏 误报 计算机信息化管理有着储存量大 速度快等许多优点 提供给我们的处理信息及时快捷 因此我们利用计算机提供给我们的信息对读者的借阅过程形成一 整套动态的管理 作为一个功能较完备的 Windows 软件开发平台 Visual Basic 专业版提供了对数据库应用的强 大支持 尤其提供了使用数据控件和绑定控制项 使用数据库存取对象变量 Data Access Object Variable 直接调用 ODBC 2 0 API 接口函数等三种访问数据库的方法 对其标准内置的 Ms Access 数据库 它可以提供不弱于专业数据库软件的支持 可以进行完整的数据库维护 操作及 其事务处理 VB 数据库的核心结构是所谓的 MicroSoft JET 数据库引擎 JET 引擎的作用就像是一 块 面板 在其上可以插入多种 ISAM Indexed Sequential Access Method 即索引顺序存取方 法 数据驱动程序 JET 引擎为 Access 格式数据库提供了直接的内部 build in 支持 这就是 VB 对 Access 数据库具有丰富支持的真正原因 VB 专业版中提供了 FoxPro dBASE 或 Xbase Paradox Btrieve 等数据库的 ISAM 驱动程序 这就使得 VB 能支持这些数据库格式 另外 其他 的许多兼容 ISAM 的驱动程序也可以通过从厂商的售后服务得到 因而从理论上说 VB 能支持所有 兼容 ISAM 的数据库格式 前提是只需获得这些数据库的 ISAM 驱动接口程序 2第二章第二章 需求分析说明需求分析说明 2 12 1 系统介绍系统介绍 本系统定位于中小型书店 个体书店 暂时考虑单机环境下的实现 操作系统选择目前常用的 Windows 98 2000 XP 系统性质为 MIS 管理信息系统 或财务软件 本系统采用会员制管理 系统功能应包含进书管理 售书管理 退货管理 库存管理 统计分 析 相关人员管理等 系统界面力求简洁 易用 在标准化的基础上考虑界面的美观和新颖 系统计划 2005 年 8 月初开始 11 月初完成初步开发工作 其余工作根据时间安排进行 第 7 页 2 22 2 系统面向的用户群体系统面向的用户群体 系统面向中小型书店 个体书店 用户群体为这些书店的经理 采购员 仓库管 理员 图书销售人员 书店的会员 游客等 2 3 三 系统的功能性需求 功能序号功能名称功能说明 1 供应商管理包含供应商信息的登记 修改等 2 图书种类管理包含图书大类 小类的创建 3 图书资料管理包含图书资料的添加 修改等 4 新书入库管理登记新书的来源 数量 单价 折扣 金额等 5 库存统计分门别类统计图书现有库存量 入库时间等 6 进货记录查询查询历次进货记录 7 退货登记登记供应商 图书种类 退货的数量 原因等 8 退货统计按供应商统计退货记录 9 退货记录查询查询历次退货记录 10 图书销售管理登记销售的种类 数量 单价 折扣 顾客 会员 等 11 会员管理包含会员的创建 修改 删除等 12 优惠政策管理包含优惠政策的制定与执行 13 本日售书统计统计本日销售图书的数量 金额等 14 售书记录查询查询历次售书记录 15 员工管理包含员工帐号的创建 修改 删除等 16 统计分析按年月日时段统计书店经营状况 17 图书检索提供按图书的编号 书名 责任者 出版社等途 径的检索 18 系统帐号管理提供上级对下级的资料 密码管理 19 个人资料 密码管 理 提供修改个人资料 密码的工具 第 8 页 2 4 四 系统的非功能性需求 2 4 1 一 用户界面需求 简洁 易用 易懂 美观 大方 标准 具备一定的兼容性 2 4 2 二 软硬件环境需求 软件环境 兼容当前主流操作系统 Windows 95 98 NT Me 2000 XP 等 硬件环境 386 以上计算机 打印机 扫描仪等 2 4 3 三 软件质量需求 易用 健壮 兼容性好 运行稳定 有一定安全保障 3第三章 可行性分析报告 3 1 一 技术可行性 系统的性质为 MIS 或财务软件 因而数据库的设计与操纵是系统设计的核心 我在 2004 年 11 月至 2005 年 6 月曾经成功完成了 汇龙小学留言板 的开发与维护任务 具备一定的系统分析与设计能力 熟悉数据库的设计与操纵 指导老师邹永康等老师 多年从事数计算机的教学与研究工作 因而该系统的实现在技术上是可行的 3 2 二 人员可能性 我有 汇龙小学留言板 的开发经验 目前时间充足 可以完成开发任务 第 9 页 我的计算机功底很深 可以参与系统的数据库设计与开发 且深厚的文字功底 可 以参与用户文档的制作 内部文档整理 后期测试等任务 3 3 三 时间 设备可能性 系统设计与开发工作预计耗时五个多月 根据时间均能够保证按时完成任务 实验 设备如 计算机 打印机 扫描仪等不足 上机任务可以完成 打印机 扫描仪的实 验根据具体条件暂时延缓执行 3 4 四 系统工作量 该系统的工作量相对于个人开发来说很大 必须保证按进度完成任务 实际工作量 预计超过五个月 每天 4 8 小时 如包含软件维护及技术文档的整理 制作 工作量 将更大 3 5 五 代码工作量 预计需 35 天左右 3 6 六 文档要求 依据国家 计算机软件产品开发文件编制指南 和 现代软件工程 的理论与原则 编制标准的软件技术文档 4第四章 开发环境与项目规划 4 1 一 开发环境 前台开发环境 Microsoft Visual Basic 6 0 后台数据库环境 Microsoft Access 2000 2002 4 2 二 开发进度安排 4 月 1 日 4 月 20 日阅读有关参考资料 做好课题的需求分析并做好课题的系统结构 第 10 页 及功能模块设计 及编码实现部分模块 4 月 21 日 4 月 30 日 设计方案审定并进行编码实现初步功能 5 月 1 日 7 月中旬系统模块编码实现 系统调试并撰写论文第一稿 交指导教师 8 月 10 月上旬进一步修改系统 完成论文第二 三稿 指导教师评阅 10 月中旬 12 月系统投入实践工作进行检测 进一步改进完善 论文定稿 12 月中旬答辩 5第五章 软件界面设计标准与规范 5 1 一 编写目的 制定界面设计标准规范的目的是为了规范和统一软件界面设计制定软件界面设计标 准与规 5 2 二 界面设计思想 首先考虑标准化 在标准化的基础上进行界面的美工设计 5 3 三 界面设计原则 简单易用 简洁明了 兼容性好 标准 规范 5 4 四 界面设计样式 采用标准 Windows 界面 自上至下依次为 标题栏 菜单栏 工具条 工作区 状态栏等 如下图示 菜单栏工具条 第 11 页 图 1 系统界面 5 5 五 常见提示信息样式 提示信息按以下标准进行 采用标准 Windows 对话框样式 添加信息图标 后接提 示信息文本和相应按钮 如下图示 图 2 常见提示信息样式 5 6 六 常见错误信息样式 错误信息依据提示信息样式设计 将信息图标更改为警告图标 如下图示 工作区 信息图标 提示文本 按钮 第 12 页 图 3 常见错误信息样式 5 7 七 其他界面约定 除主界面外 所有子界面均采用模式窗体 即该窗体不消失 不可以在本程序内将 焦点移出子窗体 6第六章 软件编码设计标准与规范 6 1 一 对象命名约定 对象名对象类型命名约定 前缀码 Form 窗体 Frm Command 按钮 Cmd Label 标签 Lab TextBox 文本框 Txt ComboBox 组合框 ComB ListBox 列表框 LstB Adodb 数据库访问对象 Adodb DataGrid 数据表格显示组件 DataGrid Frame 框架 Fam Option 单选框 Opt CheckBox 复选框 Chk PictureBox 图象显示组件 PtB CommonDialog 通用对话框组件 ComDlg Timer 时间组件 Tim 警告图标 提示文本 第 13 页 ToolBar 工具栏 TlBar Menu 菜单 Mnu SSTab 页框 SSTab ImageList 界面资源组件 ImgLst 6 2 二 常量和变量命名约定 变量名数据类型变量类型含义 UserShenFenString 全局变量用户身份标志 LogOKBoolean 全局变量登陆状态 UserNameString 全局变量用户名 GongYingShangIDString 全局变量供应商编号 GongYingShangString 全局变量供应商名称 TuShuBianHaoString 全局变量图书编号 DingJiaSingle 全局变量图书定价 ShuMingString 全局变量书名 HuiYuanKaHaoString 全局变量会员卡号 HYXingMingString 全局变量会员姓名 HYDengJiString 全局变量会员等级 6 3 三 结构化编码约定 编码应清晰 可读性好 运用缩进 空行 结合大小写区别等方法保持程序结构良 好 凡与数据库操作相关的模块一律加上容错代码 涉及多表操作的模块应运用 事 务 处理 以保持数据完整性 编码风格参照下例进行 Public Sub CheckUser userID As String passwd As String Dim userDB As Database Dim userRD As Recordset Dim dbName As String Dim STRSQL As String 第 14 页 Screen MousePointer 11 On Error GoTo errEnd dbName App Path If Right dbName 1 Then dbName dbName dbName dbName DataBase WFSSDataBase mdb STRSQL select 用户身份 from Admin where 用户 ID Data Source Persist Security Info False Adodc1 ConnectionString connSTR Exit Sub errEnd MsgBox 连接数据库失败 vbOKOnly vbExclamation 打开数据库出错 第 33 页 End End Sub 模块名 GetHYDaZhe 模块原型 Public Function GetHYDaZhe bianHao As String As String 代码 Public Function GetHYDaZhe bianHao As String As String On Error GoTo errEnd If bianHao Then GetHYDaZhe 1 Exit Function End If Adodc1 CommandType adCmdText Adodc1 RecordSource select 打折 from 会员政策 where 会员级别 bianHao Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then Adodc1 Recordset MoveFirst GetHYDaZhe Adodc1 Recordset 打折 Else MsgBox 会员政策数据丢失 请与经理联系 vbOKOnly vbExclamation 检索错误 GetHYDaZhe 1 End If Exit Function errEnd 第 34 页 MsgBox 检索数据库出错 vbOKOnly vbExclamation 检索错误 GetDingJia 未知 End Function 模块名 GetKuCun 模块原型 Public Function GetKuCun bianHao As String As String 代码 Public Function GetKuCun bianHao As String As String On Error GoTo errEnd Adodc1 CommandType adCmdText Adodc1 RecordSource select 库存量 from Book where 图书编号 bianHao Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then Adodc1 Recordset MoveFirst GetKuCun Adodc1 Recordset 库存量 Else MsgBox 图书资料数据丢失 请与经理联系 vbOKOnly vbExclamation 检索错误 GetKuCun 0 End If Exit Function errEnd MsgBox 检索数据库出错 vbOKOnly vbExclamation 检索错误 GetDingJia 未知 End Function 模块名 HYShengJi 第 35 页 模块原型 Public Function HYShengJi HYKaHao As String As Boolean 代码 Public Function HYShengJi HYKaHao As String As Boolean On Error GoTo errEnd Dim BiaoZhun As Integer Dim SUMBook As Integer If HYKaHao Guest Then HYShengJi False Exit Function End If BeginTrans Adodc1 CommandType adCmdText Adodc1 RecordSource select sum 实收金额 as 总金额 from 售书记 录 where 会员卡号 HYKaHao Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then Adodc1 Recordset MoveFirst SUMBook CInt Adodc1 Recordset 总金额 Else SUMBook 0 End If Adodc1 CommandType adCmdText Adodc1 RecordSource select 会员标准 from 会员政策 where 会员级 别 Adodc1 Refresh Adodc1 Recordset MoveFirst BiaoZhun CInt Adodc1 Recordset 会员标准 第 36 页 If SUMBook BiaoZhun Then Adodc1 CommandType adCmdText Adodc1 RecordSource select from 会员表 where 会员卡号 HYKaHao Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then Adodc1 Recordset MoveFirst Adodc1 Recordset 会员等级 Adodc1 Recordset Update End If End If Adodc1 CommandType adCmdText Adodc1 RecordSource select 会员标准 from 会员政策 where 会员级 别 Adodc1 Refresh Adodc1 Recordset MoveFirst BiaoZhun CInt Adodc1 Recordset 会员标准 If SUMBook BiaoZhun Then Adodc1 CommandType adCmdText Adodc1 RecordSource select from 会员表 where 会员卡号 HYKaHao Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then Adodc1 Recordset MoveFirst Adodc1 Recordset 会员等级 Adodc1 Recordset Update End If End If 第 37 页 Adodc1 CommandType adCmdText Adodc1 RecordSource select 会员标准 from 会员政策 where 会员级 别 Adodc1 Refresh Adodc1 Recordset MoveFirst BiaoZhun CInt Adodc1 Recordset 会员标准 If SUMBook BiaoZhun Then Adodc1 CommandType adCmdText Adodc1 RecordSource select from 会员表 where 会员卡号 HYKaHao Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then Adodc1 Recordset MoveFirst Adodc1 Recordset 会员等级 Adodc1 Recordset Update End If End If Adodc1 CommandType adCmdText Adodc1 RecordSource select 会员标准 from 会员政策 where 会员级 别 Adodc1 Refresh Adodc1 Recordset MoveFirst BiaoZhun CInt Adodc1 Recordset 会员标准 If SUMBook BiaoZhun Then Adodc1 CommandType adCmdText Adodc1 RecordSource select from 会员表 where 会员卡号 HYKaHao 第 38 页 Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then Adodc1 Recordset MoveFirst Adodc1 Recordset 会员等级 Adodc1 Recordset Update End If End If Adodc1 CommandType adCmdText Adodc1 RecordSource select 会员标准 from 会员政策 where 会员级 别 Adodc1 Refresh Adodc1 Recordset MoveFirst BiaoZhun CInt Adodc1 Recordset 会员标准 If SUMBook BiaoZhun Then Adodc1 CommandType adCmdText Adodc1 RecordSource select from 会员表 where 会员卡号 HYKaHao Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then Adodc1 Recordset MoveFirst Adodc1 Recordset 会员等级 Adodc1 Recordset Update End If End If CommitTrans HYShengJi False Exit Function 第 39 页 errEnd Rollback HYShengJi True Screen MousePointer vbDefault MsgBox 检查会员是否应升级时操作失败 vbOKOnly vbExclamation 图书销售 CmdOK Enabled True End Function 模块名 CmdSellBook Click 模块原型 Private Sub CmdSellBook Click 代码 Private Sub CmdSellBook Click On Error GoTo errEnd Dim QD As Integer CmdSellBook Enabled False If TxtShuLiang Text Then MsgBox 请输入交易的数量 vbOKOnly vbExclamation 填写数量 TxtShuLiang SetFocus CmdSellBook Enabled True Exit Sub End If If GetKuCun TuShuBianHao 0 Or GetKuCun TuShuBianHao TxtShuLiang Text Then MsgBox 该类图书库存量不足 请与仓库管理员联系 vbOKOnly vbExclamation 库存不足 TxtShuLiang SetFocus CmdSellBook Enabled True Exit Sub 第 40 页 End If If TxtZheKou Text Then MsgBox 请输入交易的实际折扣率 vbOKOnly vbExclamation 填写折 扣 TxtZheKou SetFocus CmdSellBook Enabled True Exit Sub End If If TxtZheKou Text 1 Then MsgBox 实际折扣率填写错误 请在 0 与 1 之间选择 vbOKOnly vbExclamation 填写折扣 TxtZheKou SetFocus CmdSellBook Enabled True Exit Sub End If If TxtSJJinE Text Then MsgBox 请输入交易的实际金额 vbOKOnly vbExclamation 填写金额 TxtSJJinE SetFocus CmdSellBook Enabled True Exit Sub End If If TxtMemo Text Then TxtMemo Text 无 QD MsgBox 确定入帐吗 vbOKCancel vbQuestion 确认入帐 If QD vbCancel Then CmdSellBook Enabled True Exit Sub End If 售书入帐 Screen MousePointer 11 第 41 页 BeginTrans Adodc1 CommandType adCmdTable Adodc1 RecordSource 售书记录 Adodc1 Refresh Adodc1 Recordset AddNew Adodc1 Recordset 图书编号 TuShuBianHao Adodc1 Recordset 数量 TxtShuLiang Text Adodc1 Recordset 会员卡号 HuiYuanKaHao Adodc1 Recordset 实际打折 TxtZheKou Text Adodc1 Recordset 实收金额 TxtSJJinE Text Adodc1 Recordset 日期 Year Now Month Now Day Now Adodc1 Recordset 备注 TxtMemo Text Adodc1 Recordset Update Adodc1 CommandType adCmdText Adodc1 RecordSource select from Book where 图书编号 TuShuBianHao Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then Adodc1 Recordset MoveFirst Adodc1 Recordset 库存量 Adodc1 Recordset 库存量 TxtShuLiang Text Adodc1 Recordset Update Else Rollback Screen MousePointer vbDefault MsgBox 图书资料丢失 请与仓库管理员联系 vbOKOnly 第 42 页 vbExclamation 交易失败 CmdSellBook Enabled True Exit Sub End If If HYShengJi HuiYuanKaHao Then Rollback CommitTrans Screen MousePointer vbDefault MsgBox 恭喜您 交易成功 vbOKOnly vbInformation 交易成功 Unload Me Exit Sub errEnd Rollback Screen MousePointer vbDefault MsgBox Err Description vbOKOnly vbExclamation 操作数据库出错 交易失败 CmdSellBook Enabled True End Sub 8 5 3 三 系统模块详解 模块名 checkGYSID 模块原型 Public Function checkGYSID UID As String As Boolean 代码 Public Function checkGYSID UID As String As Boolean Dim userDB As Database Dim userRD As Recordset 第 43 页 Dim dbName As String Dim STRSQL As String Screen MousePointer 11 On Error GoTo errEnd dbName App Path If Right dbName 1 Then dbName dbName dbName dbName DataBase WFSSDataBase mdb STRSQL select 图书分类 from 图书分类 where 图书分类号 UID 打开数据库 Set userDB DBEngine Workspaces 0 OpenDatabase dbName False True 检索用户 验证密码 Set userRD userDB OpenRecordset STRSQL dbOpenSnapshot If userRD RecordCount 0 Then 关闭数据库 userRD Close Set userRD Nothing userDB Close Set userDB Nothing checkGYSID True Screen MousePointer vbDefault Else 关闭数据库 userRD Close Set userRD Nothing 第 44 页 userDB Close Set userDB Nothing Screen MousePointer vbDefault checkGYSID False End If Exit Function errEnd Screen MousePointer vbDefault MsgBox Err Description vbOKOnly vbExclamation 创建类别 Err Clear 关闭数据库 userRD Close Set userRD Nothing userDB Close Set userDB Nothing End Function 模块名 checkFenLei 模块原型 Public Function checkFenLei UID As String As Boolean 代码 Public Function checkFenLei UID As String As Boolean Dim userDB As Database Dim userRD As Recordset Dim dbName As String Dim STRSQL As String Screen MousePointer 11 On Error GoTo errEnd 第 45 页 dbName App Path If Right dbName 1 Then dbName dbName dbName dbName DataBase WFSSDataBase mdb STRSQL select 图书分类 from 图书分类 where 图书分类 UID 打开数据库 Set userDB DBEngine Workspaces 0 OpenDatabase dbName False True 检索用户 验证密码 Set userRD userDB OpenRecordset STRSQL dbOpenSnapshot If userRD RecordCount 0 Then 关闭数据库 userRD Close Set userRD Nothing userDB Close Set userDB Nothing checkFenLei True Screen MousePointer vbDefault Else 关闭数据库 userRD Close Set userRD Nothing userDB Close Set userDB Nothing Screen MousePointer vbDefault checkFenLei False End If 第 46 页 Exit Function errEnd Screen MousePointer vbDefault MsgBox Err Description vbOKOnly vbExclamation 创建类别 Err Clear 关闭数据库 userRD Close Set userRD Nothing userDB Close Set userDB Nothing End Function 模块名 CmdNewFenLei Click 模块原型 Private Sub CmdNewFenLei Click 代码 Private Sub CmdNewFenLei Click On Error GoTo errEnd If TxtBianHao Text Then MsgBox 请填写图书分类号 vbOKOnly vbExclamation 创建分类 TxtBianHao SetFocus Exit Sub End If If TxtLeiBie Text Then MsgBox 请填写图书分类名称 vbOKOnly vbExclamation 创建分类 TxtLeiBie SetFocus Exit Sub End If If checkFenLei TxtLeiBie Text Then MsgBox 图书分类名称不唯一 请另选一个 vbOKOnly vbExclamation 创建分类 第 47 页 TxtLeiBie SetFocus TxtLeiBie SelStart 0 TxtLeiBie SelLength Len TxtLeiBie Text Exit Sub End If If ComboFuLei Text And ComboFuLei Text 选择父类 Then If Not checkFenLei ComboFuLei Text Then MsgBox 所选父类不存在 请重试 vbOKOnly vbExclamation 选择父类 ComboFuLei SetFocus Exit Sub End If Adodc1 CommandType adCmdText Adodc1 RecordSource select 图书分类号 from 图书分类 where 图书分类号 所属父类编号 and 图书分类 ComboFuLei Text Adodc1 Refresh Adodc1 Recordset MoveFirst FuLeiBianHao Adodc1 Recordset 图书分类号 End If If checkGYSID TxtBianHao Text Then MsgBox 图书分类编号不唯一 请另选一个 vbOKOnly vbExclamation 创建分类 TxtBianHao SetFocus TxtBianHao SelStart 0 TxtBianHao SelLength Len TxtBianHao Text Exit Sub End If If FuLeiBianHao Then FuLeiBianHao TxtBianHao Text Adodc1 CommandType adCmdTable Adodc1 RecordSource 图书分类 第 48 页 Adodc1 Refresh Adodc1 Recordset AddNew Adodc1 Recordset 图书分类号 TxtBianHao Text Adodc1 Recordset 图书分类 TxtLeiBie Text Adodc1 Recordset 所属父类编号 FuLeiBianHao Adodc1 Recordset Update MsgBox 创建分类成功 vbOKOnly vbInformation 创建分类 TxtBianHao Text TxtLeiBie Text ComboFuLei Text 选择父类 FuLeiBianHao TxtFuLei Text TxtBianHao SetFocus Exit Sub errEnd MsgBox 更新数据库失败 vbOKOnly vbExclamation 数据库出错 End Sub 模块名 checkUserID 模块原型 Public Function checkUserID UID As String As Boolean 代码 Public Function checkUserID UID As String As Boolean Dim userDB As Database Dim userRD As Recordset Dim dbName As String Dim STRSQL As String Screen MousePointer 11 第 49 页 On Error GoTo errEnd dbName App Path If Right dbName 1 Then dbName dbName dbName dbName DataBase WFSSDataBase mdb STRSQL select 用户身份 from Admin where 用户 I