毕业设计（论文）书店管理系统的设计与实现

《毕业设计（论文）书店管理系统的设计与实现》由会员分享，可在线阅读，更多相关《毕业设计（论文）书店管理系统的设计与实现（43页珍藏版）》请在装配图网上搜索。

1、原创性声明 本 人 郑 重 声 明 ： 所 呈 交 的 学 位 论 文 ， 是 本 人 在 导 师 的 指 导 下 ， 独 立 进 行 研 究 工 作 所 取 得 的 成 果 。 除 文 中 已 经 注 明 引 用 的 内 容 外 ， 本 论 文 不 含 任 何 其 他 个 人 或 集 体 已 经 发 表 或 撰 写 过 的 作 品 或 成 果 。 对 本 文 的 研 究 做 出 重 要 贡 献 的 个 人 和 集 体 ， 均 已 在 文 中 以 明 确 方 式 标 明 。 本 声 明 的 法 律 结 果 由 本 人 承 担 。 XXX 大学 2011 届毕业论文 题目：书店管理系统的设计与实

2、现 班 级： 姓 名： 指导老师: 2011 年 2 月 28 日 图书管理系统的设计与实现 文档信息 文件类型： 软件开发用技术文档 当前版本： V1.0 Beta 作 者： 开发人员： 单位：xx 班 完成日期： 软件信息 软件名称： 书店管理系统 版 本 号： V1.0 语言类型： 简体中文 授权类型： 测试版 运行环境： Windows XP/2003/Vista/7 等 软件大小： 3069 KB 指导老师： 软件作者： 刘洋 联系信箱： 版权所有： Copyright2010-2011.Powered by 刘洋. 开发日期： 2010 年 10 月-2011 年 2 月 相关站点

3、： CSDN，CNBLOG，MSDN 等 软件简介： 书店管理系统 V1.0 Beta 测试版 面向中小型书店、个体书 店进行全面的人员、物流管理，旨在实现书店管理信息化。 本系统采用会员制管理，将人员分为经理、仓库管理员、售 书员、会员、游客等，分别拥有不同的权限，各司其职，以 便提高工作效率。 系统功能包括：供应商管理、进书管理、图书资料管理、售 书管理、会员管理、员工管理、库存统计、售书统计、退货 统计、基本统计分析等。 北京大学网络教育学院计算机科学与技术 2011-2-28 目录 一、序言 4 二、需求分析说明书 4 2.1 系统介绍 .4 2.2 系统面向的用户群体 .4 2.3

4、系统的功能性需求 .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 开发进度安排.5 五、软件界面设计标准与规范 5 5.1 编写目的 .5 5.2 界面设计思想 .6 5.3 界面设计原则 .6 5.4 界面

5、设计样式 .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 7.3 数据库逻辑设计 .10 7.4 数据库物理设计 .10 7.4.1 表、视图汇总 .10 7.4.2 各表、视图设计详解 .11 八、软件体系结构设计说明书 15 8.1 系统概述

6、 .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 九、用户界面设计报告 32 9.1 界面设计规范 .32 9.2 系统窗体汇总 .32 9.3 主界面设计 .33 9.4 子界面设计 .33 9.5 界面资源设计 .34 十、软件测试分析报告 34 10.1 测试范围与主要内

7、容 .34 10.2 测试方法 .34 10.3 测试报告 .34 10.4 改进建议与措施 .35 十一、软件使用说明书 35 11.1 软件概述 .35 11.3 使用说明 .35 11.2.1 系统登陆 .35 11.2.2 注销与退出 .35 11.2.3 办理进货登记 .35 11.2.4 关于/帮助 .38 参考资料 39 一、序言 本书店管理系统的设计与推出是多方面原因促成的。我在日常的生活中发 现，许多中小型书店、个体书店其日常管理工作都是人工操作，历史数据很难 保存和利用，对于书店的经营非常不利。针对这种状况，我计划开发一个面向 中小型书店、个体书店的书店管理系统，实现对人员

8、、物流的全面管理，以帮 助这些书店早日实现书店管理信息化。 为了系统的顺利开发和维护，特编制如下技术文档： 二、需求分析说明书 2.1 系统介绍 本系统定位于中小型书店、个体书店，暂时考虑单机环境下的实现；操作 系统选择目前常用的 Windows XP/2003。系统性质为 MIS（管理信息系统）或财 务软件。 本系统采用会员制管理，系统功能应包含进书管理、售书管理、退货管理、 库存管理、统计分析、相关人员管理等。系统界面力求简洁、易用，在标准化 的基础上考虑界面的美观和新颖。 系统计划 2010 年 10 月初开始，2011 年 2 月初完成初步开发工作，其余工 作根据时间安排进行。 2.2

9、 系统面向的用户群体 系统面向中小型书店、个体书店，用户群体为这些书店的经理、采购员 仓库管理员、图书销售人员、书店的会员游客等。 2.3 系统的功能性需求 功能序号 功能名称 功能说明 1 供应商管理 包含供应商信息的登记、修改等 2 图书种类管理 包含图书大类、小类的创建 3 图书资料管理 包含图书资料的添加、修改等 4 新书入库管理 登记新书的来源、数量、单价、折扣、金额等 5 库存统计 分门别类统计图书现有库存量、入库时间等 6 进货记录查询 查询历次进货记录 7 退货登记 登记供应商、图书种类、退货的数量、原因等 8 退货统计 按供应商统计退货记录 9 退货记录查询 查询历次退货记录

10、 10 图书销售管理 登记销售的种类、数量、单价、折扣、顾客/会 员等 11 会员管理 包含会员的创建、修改、删除等 12 优惠政策管理 包含优惠政策的制定与执行 13 本日售书统计 统计本日销售图书的数量、金额等 14 售书记录查询 查询历次售书记录 15 员工管理 包含员工帐号的创建、修改、删除等 16 统计分析 按年月日时段统计书店经营状况 17 图书检索 提供按图书的编号、书名、责任者、出版社等 途径的检索 18 系统帐号管理 提供上级对下级的资料、密码管理， 19 个人资料、密码管 理 提供修改个人资料、密码的工具 2.4 系统的非功能性需求 2.4.1 用户界面需求 简洁、易用、易

11、懂，美观、大方、标准，具备一定的兼容性。 2.4.2 软硬件环境需求 软件环境：兼容当前主流操作系统 Windows XP/2003/Vista/7 等。 硬件环境：当前主流计算机，打印机、扫描仪等。 2.4.3 软件质量需求 易用、健壮、兼容性好、运行稳定、有一定安全保障。 三、可行性分析报告 3.1 技术可行性 系统的性质为 MIS 或财务软件，因而数据库的设计与操纵是系统设计的核 心。我在 2009 年 11 月至 2009 年 12 月曾经成功完成了 “学生学籍管理系统” 的开发任务，具备一定的系统分析与设计能力，熟悉数据库的设计与操纵，因 而该系统的实现在技术上是可行的。 3.2 时

12、间、设备可能性 系统设计与开发工作预计耗时一个月。实验设备如：计算机、打印机、扫描 仪等不足，上机任务可以完成，打印机、扫描仪的实验根据具体条件暂时延缓 执行。 3.3 系统工作量 该系统的工作量相对于我来说很大，必须保证按进度完成任务。实际工作量 预计超过一个月（每天 2-4 小时） 。如包含软件维护及技术文档的整理、制作， 工作量将更大。 3.4 代码工作量 预计需 40 天左右。 3.5 文档要求 依据国家计算机软件产品开发文件编制指南和现代软件工程的理论 与原则编制标准的软件技术文档。 四、开发环境与项目规划 4.1 开发环境 前台开发环境：Microsoft Visual Basic

13、 6.0 后台数据库环境：Microsoft Access 2000/2002 4.2 项目规划与管理 4.2.1 开发进度安排 2010 年 10 月 1 日至 10 月 10 日：系统分析，进行需求定义，定义系统概况 10 月 11 日至 10 月 20 日：数据库分析与设计 10 月 21 日至 10 月 30 日：软件体系结构设计 2011 年 1 月 1 日至 2 月 10 日：软件编码 2 月 10 日至 3 月 1 日：系统测试 五、软件界面设计标准与规范 5.1 编写目的 制定界面设计标准规范的目的是为了规范和统一软件界面设计制定软件界 面设计标准与规范。 5.2 界面设计思想

14、 首先考虑标准化，在标准化的基础上进行界面的美工设计。 5.3 界面设计原则 简单易用、简洁明了、兼容性好、标准、规范。 5.4 界面设计样式 采用标准 Windows 界面，自上至下依次为：标题栏、菜单栏、工具条、工 作区、状态栏等。如下图示： 图 1.系统界面 5.5 常见提示信息样式 菜单栏 工具条 状态栏 工作区 提示信息按以下标准进行：采用标准 Windows 对话框样式，添加信息图标， 后接提示信息文本和相应按钮。 如下图示： 图 2.常见提示信息样式 5.6 常见错误信息样式 错误信息依据提示信息样式设计，将信息图标更改为警告图标。 如下图示： 图 3.常见错误信息样式 5.7

15、其他界面约定 除主界面外，所有子界面均采用模式窗体，即该窗体不消失，不可以在本程 序内将焦点移出子窗体。 六、软件编码设计标准与规范 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 图象显示组件 Pt

16、B CommonDialog 通用对话框组件 ComDlg Timer 时间组件 Tim ToolBar 工具栏 TlBar Menu 菜单 Mnu 信息图标 提示文本 按钮 警告图标 提示文本 SSTab 页框 SSTab ImageList 界面资源组件 ImgLst 6.2 常量和变量命名约定 变量名 数据类型 变量类型 含义 UserShenFen String 全局变量 用户身份标志 LogOK Boolean 全局变量 登陆状态 UserName String 全局变量 用户名 GongYingShangID String 全局变量 供应商编号 GongYingShang Stri

17、ng 全局变量 供应商名称 TuShuBianHao String 全局变量 图书编号 DingJia Single 全局变量 图书定价 ShuMing String 全局变量 书名 HuiYuanKaHao String 全局变量 会员卡号 HYXingMing String 全局变量 会员姓名 HYDengJi String 全局变量 会员等级 6.3 结构化编码约定 编码应清晰、可读性好，运用缩进、空行，结合大小写区别等方法保持程序 结构良好。凡与数据库操作相关的模块一律加上容错代码，涉及多表操作的模 块应运用“事务”处理，以保持数据完整性。 编码风格参照下例进行： Public Sub

18、 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 =

19、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(bi

20、anHao As String) As String On Error GoTo errEnd If bianHao = Then GetHYDaZhe = 1 Exit FunctionEnd If Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select 打折 from 会员政策 where 会员 级别= & bianHao & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst GetHYDaZhe = Adodc1.R

21、ecordset!打折Else MsgBox 会员政策数据丢失,请与经理联系!, vbOKOnly + vbExclamation, 检索错误 GetHYDaZhe = 1End If Exit FunctionerrEnd: MsgBox 检索数据库出错!, vbOKOnly + vbExclamation, 检索错误 GetDingJia = 未知End Function 模块名：GetKuCun模块原型：Public Function GetKuCun(bianHao As String) As String 代码： Public Function GetKuCun(bianHao As

22、 String) As String On Error GoTo errEnd Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select 库存量 from Book where 图书编 号= & bianHao & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst GetKuCun = Adodc1.Recordset!库存量Else MsgBox 图书资料数据丢失,请与经理联系!, vbOKOnly + vbExclama

23、tion, 检索错误 GetKuCun = 0End If Exit FunctionerrEnd: 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 errEndDim BiaoZhun As Int

24、eger Dim SUMBook As Integer If HYKaHao = Guest Then HYShengJi = False Exit FunctionEnd If BeginTrans Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select sum(实收金额) as 总金额 from 售书记录 where 会员卡号 = & HYKaHao & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst SUMBook

25、 = CInt(Adodc1.Recordset!总金额)Else SUMBook = 0End If Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select 会员标准 from 会员政策 where 会员级别=Adodc1.Refresh Adodc1.Recordset.MoveFirstBiaoZhun = CInt(Adodc1.Recordset!会员标准) If SUMBook = BiaoZhun Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = sel

26、ect * 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 = adCmdTextAdodc1.RecordSource = select 会员标准 from 会员政策 where 会员级别=Adodc1.Refresh Adodc1.Recordset.M

27、oveFirstBiaoZhun = 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 En

28、d If End If Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select 会员标准 from 会员政策 where 会员级别=Adodc1.Refresh Adodc1.Recordset.MoveFirstBiaoZhun = CInt(Adodc1.Recordset!会员标准) If SUMBook = BiaoZhun Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 会员表 where 会员卡号= & HYKaHao & A

29、dodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset!会员等级 = Adodc1.Recordset.Update End If End If Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select 会员标准 from 会员政策 where 会员级别=Adodc1.Refresh Adodc1.Recordset.MoveFirstBiaoZhun = CInt(Adodc1.Recordset

30、!会员标准) 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 = adCmdTe

31、xtAdodc1.RecordSource = select 会员标准 from 会员政策 where 会员级别=Adodc1.Refresh Adodc1.Recordset.MoveFirstBiaoZhun = CInt(Adodc1.Recordset!会员标准) If SUMBook = BiaoZhun Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = select * from 会员表 where 会员卡号= & HYKaHao & Adodc1.Refresh If Adodc1.Recordset.Record

32、Count 0 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset!会员等级 = Adodc1.Recordset.Update End If End If CommitTransHYShengJi = False Exit FunctionerrEnd: Rollback HYShengJi = True Screen.MousePointer = vbDefault MsgBox 检查会员是否应升级时操作失败！, vbOKOnly + vbExclamation, 图书销售 CmdOK.Enabled = True End Function 模

33、块名：CmdSellBook_Click模块原型：Private Sub CmdSellBook_Click() 代码： Private Sub CmdSellBook_Click() On Error GoTo errEndDim QD As Integer CmdSellBook.Enabled = False If TxtShuLiang.Text = Then MsgBox 请输入交易的数量!, vbOKOnly + vbExclamation, 填写数 量 TxtShuLiang.SetFocus CmdSellBook.Enabled = True Exit Sub End IfI

34、f GetKuCun(TuShuBianHao) = 0 Or GetKuCun(TuShuBianHao) TxtShuLiang.Text Then MsgBox 该类图书库存量不足,请与仓库管理员联系!, vbOKOnly + vbExclamation, 库存不足 TxtShuLiang.SetFocus CmdSellBook.Enabled = True Exit Sub End IfIf TxtZheKou.Text = Then MsgBox 请输入交易的实际折扣率!, vbOKOnly + vbExclamation, 填写折扣 TxtZheKou.SetFocus CmdS

35、ellBook.Enabled = True Exit SubEnd If If TxtZheKou.Text 1 Then MsgBox 实际折扣率填写错误!请在 0 与 1 之间选择., vbOKOnly + vbExclamation, 填写折扣 TxtZheKou.SetFocus CmdSellBook.Enabled = True Exit Sub End IfIf TxtSJJinE.Text = Then MsgBox 请输入交易的实际金额!, vbOKOnly + vbExclamation, 填写金额 TxtSJJinE.SetFocus CmdSellBook.Enabl

36、ed = True Exit SubEnd If If TxtMemo.Text = Then TxtMemo.Text = 无 QD = MsgBox(确定入帐吗?, vbOKCancel + vbQuestion, 确认入帐)If QD = vbCancel Then CmdSellBook.Enabled = True Exit Sub End If售书入帐 Screen.MousePointer = 11BeginTrans Adodc1.CommandType = adCmdTableAdodc1.RecordSource = 售书记录 Adodc1.Refresh Adodc1.R

37、ecordset.AddNewAdodc1.Recordset!图书编号 = TuShuBianHao Adodc1.Recordset!数量 = TxtShuLiang.TextAdodc1.Recordset!会员卡号 = HuiYuanKaHao Adodc1.Recordset!实际打折 = TxtZheKou.TextAdodc1.Recordset!实收金额 = TxtSJJinE.Text Adodc1.Recordset!日期 = Year(Now) & - & Month(Now) & - & Day(Now) & . Adodc1.Recordset!备注 = TxtMem

38、o.TextAdodc1.Recordset.Update Adodc1.CommandType = adCmdTextAdodc1.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.UpdateEls

39、e Rollback Screen.MousePointer = vbDefault MsgBox 图书资料丢失，请与仓库管理员联系！, vbOKOnly + vbExclamation, 交易失败 CmdSellBook.Enabled = True Exit Sub End If If HYShengJi(HuiYuanKaHao) Then Rollback CommitTrans Screen.MousePointer = vbDefaultMsgBox 恭喜您,交易成功!, vbOKOnly + vbInformation, 交易成功 Unload Me Exit Sub errEn

40、d: 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 BooleanDim userDB As Dat

41、abase Dim userRD As RecordsetDim dbName As String Dim STRSQL As String Screen.MousePointer = 11 On Error GoTo errEnd dbName = App.PathIf Right(dbName, 1) Then dbName = dbName + dbName = dbName + DataBaseWFSSDataBase.mdbSTRSQL = select 图书分类 from 图书分类 where 图书分类号 = & UID & 打开数据库Set userDB = DBEngine.W

42、orkspaces(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 = vbDefaultElse 关闭数据库 userRD.Close Set userRD

43、 = 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 = NothingEnd F

44、unction 模块名：checkFenLei模块原型：Public Function checkFenLei(UID As String) As Boolean 代码： Public Function checkFenLei(UID As String) As Boolean Dim userDB As DatabaseDim userRD As Recordset Dim dbName As StringDim STRSQL As String Screen.MousePointer = 11 On Error GoTo errEnd dbName = App.PathIf Right(d

45、bName, 1) Then dbName = dbName + dbName = dbName + DataBaseWFSSDataBase.mdbSTRSQL = select 图书分类 from 图书分类 where 图书分类= & UID & 打开数据库Set userDB = DBEngine.Workspaces(0).OpenDatabase(dbName, False, True)检索用户,验证密码 Set userRD = userDB.OpenRecordset(STRSQL, dbOpenSnapshot) If userRD.RecordCount 0 Then 关闭数

46、据库 userRD.Close Set userRD = Nothing userDB.Close Set userDB = Nothing checkFenLei = True Screen.MousePointer = vbDefaultElse 关闭数据库 userRD.Close Set userRD = Nothing userDB.Close Set userDB = Nothing Screen.MousePointer = vbDefault checkFenLei = False End IfExit Function errEnd: Screen.MousePointer

47、= vbDefault MsgBox Err.Description, vbOKOnly + vbExclamation, 创建类别 Err.Clear 关闭数据库 userRD.Close Set userRD = Nothing userDB.Close Set userDB = NothingEnd Function 模块名：CmdNewFenLei_Click模块原型：Private Sub CmdNewFenLei_Click() 代码： Private Sub CmdNewFenLei_Click() On Error GoTo errEndIf TxtBianHao.Text =

48、 Then MsgBox 请填写图书分类号!, vbOKOnly + vbExclamation, 创建分 类 TxtBianHao.SetFocus Exit SubEnd If If TxtLeiBie.Text = Then MsgBox 请填写图书分类名称!, vbOKOnly + vbExclamation, 创建 分类 TxtLeiBie.SetFocus Exit SubEnd If If checkFenLei(TxtLeiBie.Text) Then MsgBox 图书分类名称不唯一，请另选一个！, vbOKOnly + vbExclamation, 创建分类 TxtLeiB

49、ie.SetFocus TxtLeiBie.SelStart = 0 TxtLeiBie.SelLength = Len(TxtLeiBie.Text) Exit SubEnd 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

50、 Adodc1.RecordSource = select 图书分类号 from 图书分类 where 图书分类号=所属父类编号 and 图书分类= & ComboFuLei.Text & Adodc1.Refresh Adodc1.Recordset.MoveFirst FuLeiBianHao = Adodc1.Recordset!图书分类号 End IfIf checkGYSID(TxtBianHao.Text) Then MsgBox 图书分类编号不唯一，请另选一个！, vbOKOnly + vbExclamation, 创建分类 TxtBianHao.SetFocus TxtBian

51、Hao.SelStart = 0 TxtBianHao.SelLength = Len(TxtBianHao.Text) Exit Sub End IfIf FuLeiBianHao = Then FuLeiBianHao = TxtBianHao.Text Adodc1.CommandType = adCmdTableAdodc1.RecordSource = 图书分类 Adodc1.Refresh Adodc1.Recordset.AddNewAdodc1.Recordset!图书分类号 = TxtBianHao.Text Adodc1.Recordset!图书分类 = TxtLeiBie

52、.TextAdodc1.Recordset!所属父类编号 = FuLeiBianHao Adodc1.Recordset.Update MsgBox 创建分类成功！, vbOKOnly + vbInformation, 创建分类TxtBianHao.Text = TxtLeiBie.Text = ComboFuLei.Text = 选择父类 FuLeiBianHao = TxtFuLei.Text = TxtBianHao.SetFocus Exit SuberrEnd: MsgBox 更新数据库失败!, vbOKOnly + vbExclamation, 数据库出错 End Sub 模块名：

53、checkUserID模块原型：Public Function checkUserID(UID As String) As Boolean 代码： Public Function checkUserID(UID As String) As Boolean Dim userDB As DatabaseDim userRD As Recordset Dim dbName As StringDim STRSQL As String Screen.MousePointer = 11 On Error GoTo errEnd dbName = App.PathIf Right(dbName, 1) Th

54、en dbName = dbName + dbName = dbName + DataBaseWFSSDataBase.mdbSTRSQL = 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.

55、Close Set userRD = Nothing userDB.Close Set userDB = Nothing checkUserID = True Screen.MousePointer = vbDefaultElse 关闭数据库 userRD.Close Set userRD = Nothing userDB.Close Set userDB = Nothing Screen.MousePointer = vbDefault checkUserID = False End IfExit Function errEnd: Screen.MousePointer = vbDefaul

56、t MsgBox Err.Description, vbOKOnly + vbExclamation, 修改密码 Err.Clear 关闭数据库 userRD.Close Set userRD = Nothing userDB.Close Set userDB = NothingEnd Function 模块名：CmdChgPass_Click模块原型：Private Sub CmdChgPass_Click() 代码： Private Sub CmdChgPass_Click() On Error GoTo errEnd If TxtUserID.Text = Then MsgBox 请输入

57、你的帐号！, vbOKOnly + vbExclamation, 更改密 码 TxtUserID.SetFocus Exit SubEnd If If TxtPasswd.Text = Then MsgBox 请输入你的旧密码！, vbOKOnly + vbExclamation, 更改 密码 TxtPasswd.SetFocus Exit SubEnd If If TxtNewPasswd.Text = Then MsgBox 请输入你的新密码！, vbOKOnly + vbExclamation, 更改 密码 TxtNewPasswd.SetFocus Exit SubEnd If If

58、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 wher

59、e 用户密码 = & 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 = TxtNewPasswd.Tex

60、t = 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

61、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 SubEnd If If TxtUNam

62、e.Text = Then MsgBox 请填写员工的姓名！, vbOKOnly + vbExclamation, 创建 员工帐号 TxtUName.SetFocus Exit SubEnd If If ComboShenFen.Text = Or ComboShenFen.Text = 请选择员工身份 Then MsgBox 请选择员工的身份！, vbOKOnly + vbExclamation, 创建员工帐号 ComboShenFen.SetFocus Exit Sub End IfIf TxtUDanWei.Text = Then TxtUDanWei.Text = 无 If TxtUD

63、iZhi.Text = Then MsgBox 请填写员工的地址！, vbOKOnly + vbExclamation, 创建 员工帐号 TxtUDiZhi.SetFocus Exit SubEnd 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 这个员工帐号已经被注册！请另选一个！, vbOKO

64、nly + vbExclamation, 创建员工帐号 TxtCard.SelStart = 0 TxtCard.SelLength = Len(TxtCard.Text) TxtCard.SetFocus Exit SubEnd If CmdRegMe.Enabled = False开始一个事务 BeginTrans Adodc1.CommandType = adCmdTableAdodc1.RecordSource = 员工表 Adodc1.Refresh Adodc1.Recordset.AddNewAdodc1.Recordset!员工帐号 = TxtCard.Text Adodc1.

65、Recordset!姓名 = TxtUName.TextIf OptionMan.Value Then Adodc1.Recordset!性别 = 男Else Adodc1.Recordset!性别 = 女End If Adodc1.Recordset!地址 = TxtUDiZhi.TextAdodc1.Recordset!手机 = TxtUDanWei.Text Adodc1.Recordset!电子邮件 = TxtUMail.TextAdodc1.Recordset!电话 = TxtUDianHua.Text Adodc1.Recordset!人生格言 = TxtUMemo.TextAdo

66、dc1.Recordset!创建日期 = Now() Adodc1.Recordset.Update Adodc1.CommandType = adCmdTableAdodc1.RecordSource = Admin Adodc1.Refresh Adodc1.Recordset.AddNewAdodc1.Recordset!用户 ID = TxtCard.Text Adodc1.Recordset!用户密码 = TxtCard.TextAdodc1.Recordset!用户身份 = ComboShenFen.Text Adodc1.Recordset.Update CommitTrans MsgBox 恭喜你，注册成功！ & vbCrLf & 员工的帐号和密码就是你填写的员工帐号！ & vbCrLf & 请员工自行修改密码或立即修改密码。, vbOKOnly + vbQuestion, 注册成功 TxtCard.Text = TxtUName.Text = TxtUDanWei.Text = TxtUDiZhi.Text = TxtUMail.Text = TxtUDianHua.