图书管理系统的设计与实现论文(编辑修改稿)

图书管理系统的设计与实现论文(编辑修改稿)内容摘要：

g 全局变量 供应商名称 TuShuBianHao String 全局变量 图书编号 DingJia Single 全局变量 图书定价 ShuMing String 全局变量 书名 HuiYuanKaHao String 全局变量 会员 卡号 HYXingMing String 全局变量 会员姓名 HYDengJi String 全局变量 会员等级 编码应清晰、可读性好，运用缩进、空行，结合大小写区别等方法保持程序结构良好。 凡与数据库操作相关的模块一律加上容错代码，涉及多表操作的模块应运用“事务”处理，以保持数据完整性。 编码风格参照下例进行： 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 = 11 On Error GoTo errEnd dbName = If Right(dbName, 1) 、 Then dbName = dbName + 、 dbName = dbName + DataBase、 第 9 页 共 45 页 STRSQL = select [用户身份 ] from [Admin] where [用户 ID]= amp。 userID amp。 and [用户密码 ]= amp。 passwd amp。 39。 打开数据库 Set userDB = (0).OpenDatabase(dbName, False, True) 39。 检索用户 ,验证密码 Set userRD = (STRSQL, dbOpenSnapshot) If 0 Then 39。 设 置用户身份 UserShenFen = userRD![用户身份 ] 39。 关闭数据库 Set userRD = Nothing Set userDB = Nothing 39。 进入用户环境 Load FrmMain Unload FrmLogIn logOK = True userName = userID = vbDefault Else 39。 关闭数据库 第 10 页 共 45 页 Set userRD = Nothing Set userDB = Nothing logOK = False = vbDefault MsgBox 用户名或密码错误。 请重新 输入。 , vbOKOnly + vbExclamation, 登陆失败 End If Exit Sub errEnd： = vbDefault MsgBox , vbOKOnly + vbExclamation, 登陆错误 logOK = False 39。 关闭数据库 Set userRD = Nothing Set userDB = Nothing Exit Sub End Sub 需用数据源的组件如： DataGrid一律采用 Adodb控件。 有特殊需求的情况如：身份验证应引用 DAO(数据访问对象 )。 第 11 页 共 45 页 数据库引擎采用 ，由 Adodb 组件进行数据库的访问，并为其他组件提供数据源。 特殊情况、身份验证等由 DAO 访问数据库。 无需数据显示的情况由 DAO提供数据库支持，有数据显示的情况由ADODB组件提供数据库支持。 第 12 页 共 45 页 六 、数据库分析与设计 考虑该系统的定位与现有技术力量 ,决定采用 Microsoft Access 20xx/20xx 作为系统的后台数据库开发环境。 说明：下表所列为数据库及各表、视图的命名方法，具体信息请参阅、视图汇总。 名称 类型 命名办法约定 WFSSDataBase 系统数据库 字母 表 基本表 汉字或字母 查询 查询 汉字 字段 字段 汉字或字母 图 结构图 退货记录 图书编号 供应商编号 „ Admin 用户 ID „ 员工表 员工帐号 „ 会员政策 会员级别 „ 图书分类 图书分类号 „ Book 图书分类号 图书编号 „ 进书记录 图书编号 供应 商编号 „ 供应商 供应商编号 „ 会员表 会员级别 会员卡号 „ 售书记录 会员卡号 图书编号 „ 图书进价表 图书编号 „ 第 13 页 共 45 页 （ 1） 表、视图汇总 视图 /表名 说明 Admin 集中保存系统用户的帐号、密码 Book 集中存放书目信息 员工表 存放员工资料 供应商 供应商资料 会员表 会员资料 会员政策 会员标准及优惠政策 进书记录 进书历史记录 客户反馈 客户反馈信息 售书记录 售书历史记录 书店简介 书店简介 图书分类 图书类别 图书进价表 图书进价列表 退货记录 退货历史记录 读者查询 提供给所有用户的书目查询界面 基本统计 基本的统计分析 进书查询 进书记录查询 ,含 进书统计 售书查询 图书销售记录查询 售书统计 图书销售记录统计 退货查询 退货记录查询 退货统计 退货统计 员工信息 员工信息查询 库存统计 现有库存统计 反馈信息 客户反馈信息查询 第 14 页 共 45 页 七 、软件体系结构设计说明书 在单机环境下进行系统安全的考虑，有必要进行用户权限的划分与控制，因而系统在总体上应包含安全子系统之下的各类用户工作环境。 用户权限的合理划分与有效控制是本系统体系结构设计的核心。 系统将实现人员、物流的全面管理，而物流管理是系统的核心部件，怎样实现二者的 共存，互不干扰，是本系统设计的难点。 本系统必须实现对用户权限的有效合理控制。 3 系统概要设计说明书 （ 1） 图例说明 ： ： ： ： (单向 ) ：（双向） ： ： 过程、模块 数据表 决策 数据表 实体 第 15 页 共 45 页 （ 2） 系统总体结构图 图 经理子系统 图书管理系统 统计分析 基本统计 安全子系统 售书员子系统 仓库管理员子系统 游客子系统 会 员子系统 登陆验证 身份鉴别 权限控制 员工管理 会员政策 书店概况 进货统计 库存统计 退货统计 销售统计 退货子系统 库存管理 进货子系统 供应商管理 入库登记 书目管理 销售子系统 会员管理 销售统计 创建帐号 修改资料 删除帐号 个人资料 修改密码 购书记录 书目检索 会员注册 信息反馈 第 16 页 共 45 页 （ 3） 销售子系统流程图 图 11. 销售子系统流程图 （ 4） 退货子系统流程图 图 仓管员 选择供应商 选择品种 退货登记 退货记录 进货记录 供应商 Book 售书员 选择图书 选择会员 图书销售 售书记录 会员表 Book 会员表 优惠政策 第 17 页 共 45 页 （ 1） 系统模块汇总 模块名 原型或声明 模块说明 CheckUser Public Sub CheckUser(userID As String, passwd As String) 用户帐号、密码验证和身份鉴别 LogOff Public Sub LogOff() 注销模块 Sys_exit Public Sub Sys_exit() 系统退出摸块 Form_Load Private Sub Form_Load() 初始化模块，连接数据库 GetKuCun Public Function GetKuCun(bianHao As String) As String 获取、检验图书现有库存量 CmdSellBook_Click Private Sub CmdSellBook_Click() 图书销售模块 checkFenLei Public Function checkFenLei(UID As String) As Boolean 检测图书分类是否已经存在 CmdNewFenLei_Click Private Sub CmdNewFenLei_Click() 创建类别 checkUserID Public Function checkUserID(UID As String) As Boolean 检测用户帐号是否存在 CmdChgPass_Click Private Sub CmdChgPass_Click() 修 改密码 CmdRegMe_Click Private Sub 创建员工、会员第 18 页 共 45 页 CmdRegMe_Click() 帐号 GetJinJia Public Function GetJinJia(bianHao As String) As String 提取图书进价 CmdTH_Click Private Sub CmdTH_Click() 退货模块 CmdSaveContinue_Click Private Sub CmdSaveContinue_Click() 供应商信息登记 （ 2） 系统核心模块详解 全局变量定义： 39。 用户身份标志 Public UserShenFen As String 39。 登陆状态 Public logOK As Boolean 39。 用户名 Public userName As String 39。 供应商编号 Public GongYingShangID As String 39。 供应商 Public GongYingShang As String 39。 图书编号 Public TuShuBianHao As String 39。 定价 Public DingJia As String 39。 书名 第 19 页 共 45 页 Public ShuMing As String 39。 会员卡号 Public HuiYuanKaHao As String 39。 会员姓名 Public HYXingMing As String 39。 会员等级 Public HYDengJi As String 模块名： CheckUser （ 用户帐号、密码验证和身份鉴别 原型： Public Sub CheckUser(userID As String, passwd As String) 代码： 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 = 11 On Error GoTo errEnd dbName = If Right(dbName, 1) \ Then dbName = dbName + \ dbName = dbName + DataBase\ STRSQL = select [用户身份 ] from [Admin] where [用户 ID]= amp。 userID amp。 and [用户密码 ]= amp。 passwd 第 20 页 共 45 页 amp。