宛枫书社图书管理系统的设计与实现毕业论文.doc

宛枫书社图书管理系统的设计与实现毕业论文宛枫书社图书管理系统的设计与实现毕业论文 目录目录 一 序言 4 二 需求分析说明书 4 2 1 系统介绍 4 2 2 系统面向的用户群体 4 2 3 系统的功能性需求 4 2 4 系统的非功能性需求 5 2 4 1 用户界面需求 5 2 4 2 软硬件环境需求 5 2 4 3 软件质量需求 5 三 可行性分析报告 5 3 1 技术可行性 5 3 2 人员可能性 5 3 3 时间 设备可能性 5 3 4 系统工作量 5 3 5 代码工作量 5 3 6 文档要求 5 四 开发环境与项目规划 5 4 1 开发环境 5 4 2 项目规划与管理 5 4 2 1 开发人员安排 5 4 2 2 开发进度安排 6 五 软件界面设计标准与规范 6 5 1 编写目的 6 5 2 界面设计思想 6 5 3 界面设计原则 6 5 4 界面设计样式 6 5 5 常见提示信息样式 6 5 6 常见错误信息样式 7 5 7 其他界面约定 7 六 软件编码设计标准与规范 7 6 1 对象命名约定 7 6 2 常量和变量命名约定 8 6 3 结构化编码约定 8 6 4 数据源的约定 9 6 5 数据库访问约定 9 6 6 其他约定 9 七 数据库分析与设计 10 7 1 数据库环境说明 10 7 2 数据库命名标准与规范 10 1 7 3 数据库逻辑设计 10 7 4 数据库物理设计 10 7 4 1 表 视图汇总 10 7 4 2 各表 视图设计详解 11 八 软件体系结构设计说明书 15 8 1 系统概述 15 8 2 设计约束 15 8 3 设计策略 15 8 4 系统概要设计说明书 16 8 4 1 图例说明 16 8 4 2 系统总体结构图 16 8 4 3 销售子系统流程图 17 8 4 4 进货子系统流程图 17 8 4 5 退货子系统流程图 17 8 5 系统详细设计说明书 17 8 5 1 系统模块汇总 17 8 5 2 系统核心模块详解 18 8 5 3 系统模块详解 28 九 用户界面设计报告 42 9 1 界面设计规范 42 9 2 系统窗体汇总 42 9 3 主界面设计 43 9 4 子界面设计 43 9 5 界面资源设计 44 十 软件测试分析报告 44 10 1 测试范围与主要内容 44 10 2 测试方法 44 10 3 测试报告 44 10 4 改进建议与措施 45 十一 软件使用说明书 45 11 1 软件概述 45 11 2 系统安装 45 11 3 使用说明 45 11 3 1 系统登陆 45 11 3 2 注销与退出 46 11 3 3 办理进货登记 46 11 3 4 办理退货登记 48 11 3 5 销售图书 48 11 3 6 会员管理 49 11 3 7 员工管理 49 11 3 8 书目检索 50 11 3 9 查看统计信息 50 11 3 10 修改密码 50 11 3 11 关于 帮助 50 2 参考资料 51 一 序言一 序言 宛枫书社图书管理系统的设计与推出是多方面原因促成的 我有一位老乡名叫李明友 毕业后经营一家小书店 考试通书店 其日常管理工作都是人工操作 历史数据很难保 存和利用 对于书店的经营非常不利 而其他的中小型书店 个体书店大多如此 针对这 种状况 我计划开发一个面向中小型书店 个体书店的图书管理系统 实现对人员 物流 的全面管理 以帮助这些书店早日实现书店管理信息化 正在我考虑系统的规划的时候 我有幸得到王改性老师的指导 我的两位同学 蔡大 臣 张航也加入了开发队伍 这更加坚定了我完成系统开发任务的决心 为了系统的顺利开发和维护 特编制如下技术文档 二 二 需求分析说明书需求分析说明书 2 1 系统介绍系统介绍 本系统定位于中小型书店 个体书店 暂时考虑单机环境下的实现 操作系统选择目 前常用的 Windows 98 2000 系统性质为 MIS 管理信息系统 或财务软件 本系统采用会员制管理 系统功能应包含进书管理 售书管理 退货管理 库存管理 统计分析 相关人员管理等 系统界面力求简洁 易用 在标准化的基础上考虑界面的美 观和新颖 系统计划 2003 年 3 月初开始 4 月初完成初步开发工作 其余工作根据时间安排进行 2 22 2 系统面向的用户群体系统面向的用户群体 系统面向中小型书店 个体书店 用户群体为这些书店的经理 采购员 仓库管理员 图书销售人员 书店的会员 游客等 2 32 3 系统的功能性需求系统的功能性需求 功能序号功能名称功能说明 1 供应商管理包含供应商信息的登记 修改等 2 图书种类管理包含图书大类 小类的创建 3 图书资料管理包含图书资料的添加 修改等 4 新书入库管理登记新书的来源 数量 单价 折扣 金额等 5 库存统计分门别类统计图书现有库存量 入库时间等 6 进货记录查询查询历次进货记录 7 退货登记登记供应商 图书种类 退货的数量 原因等 8 退货统计按供应商统计退货记录 9 退货记录查询查询历次退货记录 10 图书销售管理登记销售的种类 数量 单价 折扣 顾客 会员等 11 会员管理包含会员的创建 修改 删除等 12 优惠政策管理包含优惠政策的制定与执行 13 本日售书统计统计本日销售图书的数量 金额等 14 售书记录查询查询历次售书记录 15 员工管理包含员工帐号的创建 修改 删除等 3 16 统计分析按年月日时段统计书店经营状况 17 图书检索提供按图书的编号 书名 责任者 出版社等途径的检索 18 系统帐号管理提供上级对下级的资料 密码管理 19 个人资料 密码管理提供修改个人资料 密码的工具 2 42 4 系统的非功能性需求系统的非功能性需求 2 4 12 4 1 用户界面需求 简洁 易用 易懂 美观 大方 标准 具备一定的兼容性 2 4 22 4 2 软硬件环境需求 软件环境 兼容当前主流操作系统 Windows 95 98 NT Me 2000 XP 等 硬件环境 386 以上计算机 打印机 扫描仪等 2 4 32 4 3 软件质量需求 易用 健壮 兼容性好 运行稳定 有一定安全保障 三三 可行性分析报告 可行性分析报告 3 13 1 技术可行性技术可行性 系统的性质为 MIS 或财务软件 因而数据库的设计与操纵是系统设计的核心 我在 2002 年 11 月至 2003 年 3 月曾经成功完成了 蓝色梦幻留言板 的开发与维护任务 具备 一定的系统分析与设计能力 熟悉数据库的设计与操纵 指导老师王改性多年从事数据库 的教学与研究工作 因而该系统的实现在技术上是可行的 3 23 2 人员可能性人员可能性 我有 蓝色梦幻留言板 的开发经验 目前时间充足 可以完成开发任务 蔡大臣的计算机功底很深 可以参与系统的数据库设计与开发 张航有深厚的文字功底 可以参与用户文档的制作 内部文档整理 后期测试等任务 所有人员均可立即投入开发工作 3 33 3 时间 设备可能性时间 设备可能性 系统设计与开发工作预计耗时一个月 所有参与开发的人员均能够保证按时完成任务 实验设备如 计算机 打印机 扫描仪等不足 上机任务可以完成 打印机 扫描仪的实 验根据具体条件暂时延缓执行 3 43 4 系统工作量系统工作量 该系统的工作量相对于我们的开发小组来说很大 必须保证按进度完成任务 实际工 作量预计超过一个月 每天 4 8 小时 如包含软件维护及技术文档的整理 制作 工作量 将更大 3 53 5 代码工作量代码工作量 预计需 25 天左右 3 63 6 文档要求文档要求 依据国家 计算机软件产品开发文件编制指南 和 现代软件工程 的理论与原则编 制标准的软件技术文档 四 四 开发环境与项目规划开发环境与项目规划 4 14 1 开发环境开发环境 前台开发环境 Microsoft Visual Basic 6 0 4 后台数据库环境 Microsoft Access 2000 2002 4 2 项目规划与管理 4 2 1 开发人员安排 系统分析与设计 胡孟杰 程序编制 胡孟杰 数据库设计 胡孟杰 蔡大臣 文档整理与制作 蔡大臣 张航 系统测试 胡孟杰 蔡大臣 张航 考试通书店 李明友 等 4 2 2 开发进度安排 3 月 1 日至 3 月 5 日 系统分析 进行需求定义 定义系统概况 3 月 6 日至 3 月 7 日 数据库分析与设计 3 月 8 日至 3 月 9 日 软件体系结构设计 3 月 10 日至 3 月 31 日 软件编码 4 月 1 日至 4 月 2 日 系统测试 五 软件界面设计标准与规范五 软件界面设计标准与规范 5 1 编写目的 制定界面设计标准规范的目的是为了规范和统一软件界面设计制定软件界面设计标准 与规范 5 2 界面设计思想 首先考虑标准化 在标准化的基础上进行界面的美工设计 5 3 界面设计原则 简单易用 简洁明了 兼容性好 标准 规范 5 4 界面设计样式 采用标准 Windows 界面 自上至下依次为 标题栏 菜单栏 工具条 工作区 状态 栏等 如下图示 菜单栏 工具条 5 图 1 系统界面 5 55 5 常见提示信息样式常见提示信息样式 提示信息按以下标准进行 采用标准 Windows 对话框样式 添加信息图标 后接提示 信息文本和相应按钮 如下图示 图 2 常见提示信息样式 5 65 6 常见错误信息样式常见错误信息样式 错误信息依据提示信息样式设计 将信息图标更改为警告图标 如下图示 图 3 常见错误信息样式 5 75 7 其他界面约定其他界面约定 除主界面外 所有子界面均采用模式窗体 即该窗体不消失 不可以在本程序内将焦 点移出子窗体 六 软件编码设计标准与规范六 软件编码设计标准与规范 6 16 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 状态栏工作区 信息图标 提示文本 按钮 警告图标 提示文本 6 CommonDialog通用对话框组件ComDlg Timer时间组件Tim ToolBar工具栏TlBar Menu菜单Mnu SSTab页框SSTab ImageList界面资源组件ImgLst 6 26 2 常量和变量命名约定常量和变量命名约定 变量名数据类型变量类型含义 UserShenFenString全局变量用户身份标志 LogOKBoolean全局变量登陆状态 UserNameString全局变量用户名 GongYingShangIDString全局变量供应商编号 GongYingShangString全局变量供应商名称 TuShuBianHaoString全局变量图书编号 DingJiaSingle全局变量图书定价 ShuMingString全局变量书名 HuiYuanKaHaoString全局变量会员卡号 HYXingMingString全局变量会员姓名 HYDengJiString全局变量会员等级 6 36 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 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 打开数据库出错 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 21 End If Exit Function errEnd 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 模块原型 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 22 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 会员标准 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 会员等级 23 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 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 会员标准 24 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 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 End If 25 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 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 26 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 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 Dim dbName As String Dim STRSQL As String Screen MousePointer 11 27 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 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 28 模块名 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 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 Exit Function 29 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 创建分类 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 30 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 图书分类 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 31 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 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 checkUserID True Screen MousePointer vbDefault Else 关闭数据库 userRD Close Set userRD Nothing userDB Close Set userDB Nothing Screen MousePointer vbDefault checkUserID 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 32 模块名 CmdChgPass Click 模块原型 Private Sub CmdChgPass Click 代码 Private Sub CmdChgPass Click On Error GoTo errEnd If TxtUserID Text Then MsgBox 请输入你的帐号 vbOKOnly vbExclamation 更改密码 TxtUserID SetFocus Exit Sub End If If TxtPasswd Text Then MsgBox 请输入你的旧密码 vbOKOnly vbExclamation 更改密码 TxtPasswd SetFocus Exit Sub End If If TxtNewPasswd Text Then MsgBox 请输入你的新密码 vbOKOnly vbExclamation 更改密码 TxtNewPasswd SetFocus Exit Sub End If If TxtNewPasswd Text TxtNewPasswdC Text Then MsgBox 密码输入不一致 请重试 vbOKOnly vbExclamation 更改密码 TxtPasswd Text TxtNewPasswd Text TxtNewPasswdC Text TxtPasswd SetFocus Exit Sub End If If checkUserID TxtUserID Text Then Adodc1 CommandType adCmdText Adodc1 RecordSource select from Admin where 用户密码 TxtPasswd Text and 用 户 ID TxtUserID Text Adodc1 Refresh If Adodc1 Recordset RecordCount 0 Then Adodc1 Recordset MoveFirst Adodc1 Recordset 用户密码 TxtNewPasswd Text Adodc1 Recordset Update Else MsgBox 用户密码验证错误 你无权修改密码 vbOKOnly vbExclamation 密码错误 TxtPasswd Text 33 TxtNewPasswd Text TxtNewPasswdC Text Exit Sub End If MsgBox 用户密码修改成功 请牢记 vbOKOnly vbInformation 更改密码 TxtPasswd Text TxtNewPasswd Text TxtNewPasswdC Text Else MsgBox 该用户不存在 无法修改密码 vbOKOnly vbExclamation 更改密码 TxtPasswd Text TxtNewPasswd Text TxtNewPasswdC Text End If Exit Sub errEnd MsgBox Err Description vbCrLf 更改密码失败 vbOKOnly vbExclamation 操作数据库出 错 End Sub 模块名 CmdRegMe Click 模块原型 Private Sub CmdRegMe Click 代码 Private Sub CmdRegMe Click On Error GoTo errEnd If TxtCard Text Then MsgBox 请填写员工帐号 vbOKOnly vbExclamation 创建员工帐号 TxtCard SetFocus Exit Sub End If If TxtUName Text Then MsgBox 请填写员工的姓名 vbOKOnly vbExclamation 创建员工帐号 TxtUName SetFocus Exit Sub End If If ComboShenFen Text Or ComboShenFen Text 请选择员工身份 Then MsgBox 请选择员工的身份 vbOKOnly vbExclamation 创建员工帐号 ComboShenFen SetFocus Exit Sub End If 34 If TxtUDanWei Text Then TxtUDanWei Text 无 If TxtUDiZhi Text Then MsgBox 请填写员工的地址 vbOKOnly vbExclamation 创建员工帐号 TxtUDiZhi SetFocus Exit Sub End If If TxtUMail Text Then TxtUMail Text 无 If TxtUDianHua Text Then TxtUDianHua Text 无 If TxtUMemo Text Then TxtUMemo Text 无 If checkUserID TxtCard Text Then MsgBox 这个员工帐号已经被注册 请另选一个 vbOKOnly vbExclamation 创建员工帐号 TxtCard SelStart 0 TxtCar