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

河南职业技术师范学院 毕业论文 题目：题目：宛枫书社图书管理系统的设计与实现宛枫书社图书管理系统的设计与实现 班 级： 信管 姓 名： 指导老师： 信 息 工 程 与 管 理 学 院 1 宛枫书社图书管理系统的设计与实现宛枫书社图书管理系统的设计与实现 目录目录 一、序言 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 2 7.1 数据库环境说明.10 7.2 数据库命名标准与规范.10 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 3 11.3.10 修改密码50 11.3.11 关于/帮助.50 参考资料 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 本日售书统计统计本日销售图书的数量、金额等 4 14 售书记录查询查询历次售书记录 15 员工管理包含员工帐号的创建、修改、删除等 16 统计分析按年月日时段统计书店经营状况 17 图书检索提供按图书的编号、书名、责任者、出版社等途径的检索 18 系统帐号管理提供上级对下级的资料、密码管理， 19 个人资料、密码管理提供修改个人资料、密码的工具 2.42.4 系统的非功能性需求系统的非功能性需求 .1 用户界面需求 简洁、易用、易懂，美观、大方、标准，具备一定的兼容性。 .2 软硬件环境需求 软件环境：兼容当前主流操作系统 Windows 95/98/NT/Me/2000/XP 等。 硬件环境：386 以上计算机，打印机、扫描仪等。 .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 文档要求文档要求 依据国家计算机软件产品开发文件编制指南和现代软件工程的理论与原则编 制标准的软件技术文档。 四、四、开发环境与项目规划开发环境与项目规划 5 4.14.1 开发环境开发环境 前台开发环境：Microsoft Visual Basic 6.0 后台数据库环境：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 界面，自上至下依次为：标题栏、菜单栏、工具条、工作区、状态 栏等。如下图示： 菜单栏 工具条 6 图 1.系统界面 5.55.5 常见提示信息样式常见提示信息样式 提示信息按以下标准进行：采用标准 Windows 对话框样式，添加信息图标，后接提示 信息文本和相应按钮。 如下图示： 图 2.常见提示信息样式 5.65.6 常见错误信息样式常见错误信息样式 错误信息依据提示信息样式设计，将信息图标更改为警告图标。 如下图示： 图 3.常见错误信息样式 5.75.7 其他界面约定其他界面约定 除主界面外，所有子界面均采用模式窗体，即该窗体不消失，不可以在本程序内将焦 点移出子窗体。 状态栏工作区 信息图标 提示文本 按钮 警告图标 提示文本 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 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 8 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) 0 Then Adodc1.Recordset.MoveFirst GetHYDaZhe = Adodc1.Recordset!打折 Else MsgBox “会员政策数据丢失,请与经理联系!“, vbOKOnly + vbExclamation, “检索错误“ GetHYDaZhe = “1“ 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, “检索错误“ 23 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 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 & “ 24 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!会员标准) 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 会员级别=“ 25 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 CommitTrans HYShengJi = False Exit Function errEnd: Rollback HYShengJi = True Screen.MousePointer = vbDefault MsgBox “检查会员是否应升级时操作失败！“, vbOKOnly + vbExclamation, “图书销售“ CmdOK.Enabled = True End Function 26 模块名：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) 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 27 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 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 28 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 On Error GoTo errEnd dbName = App.Path If Right(dbName, 1) 0 Then 关闭数据库 userRD.Close Set userRD = Nothing userDB.Close Set userDB = Nothing checkGYSID = True Screen.MousePointer = vbDefault Else 关闭数据库 29 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 模块名：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) 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 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, “创建分类“ 31 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 “选择父类“ 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 = “图书分类“ Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset!图书分类号 = TxtBianHao.Text Adodc1.Recordset!图书分类 = TxtLeiBie.Text Adodc1.Recordset!所属父类编号 = FuLeiBianHao Adodc1.Recordset.Update MsgBox “创建分类成功！“, vbOKOnly + vbInformation, “创建分类“ TxtBianHao.Text = “ 32 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 On Error GoTo errEnd dbName = App.Path If Right(dbName, 1) 0 Then 关闭数据库 userRD.Close Set userRD = Nothing userDB.Close Set userDB = Nothing checkUserID = True Screen.MousePointer = vbDefault Else 33 关闭数据库 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 模块名：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 0 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset!用户密码 = TxtNewPasswd.Text Adodc1.Recordset.Update Else MsgBox “用户密码验证错误！你无权修改密码！“, vbOKOnly + vbExclamation, “密码错误“ TxtPasswd.Text = “ 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 35 模块名：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 If TxtUDanWei.Text = “ Then TxtUDanWei.Text = “无“ If TxtUDiZhi.Text = “ Th