变量名 数据类型 变量类型 含义 UserShenFen String 全局变量 用户身份标志 LogOK Boolean 全局变量 登陆状态 UserName String 全局变量 用户名 GongYingShangID String 全局变量 供应商编号 GongYingShang String 全局变量 供应商名称 TuShuBianHao String 全局变量 图书编号 DingJia Single 全局变量 图书定价 ShuMing String 全局变量 书名 HuiYuanKaHao String 全局变量 会员卡号 HYXingMing String 全局变量 会员姓名 HYDengJi String 全局变量 会员等级 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
Screen.MousePointer = 11 On Error GoTo errEnd
dbName = App.Path
If Right(dbName, 1) <> \、\、\dbName = dbName + \、WFSSDataBase.mdb\
STRSQL = \[用户身份] from [Admin] where [用户ID]=\& userID & \用户密码]=\
'打开数据库
Set userDB = DBEngine.Workspaces(0).OpenDatabase(dbName, False, True)
'检索用户,验证密码
Set userRD = userDB.OpenRecordset(STRSQL, dbOpenSnapshot)
If userRD.RecordCount > 0 Then '设置用户身份
UserShenFen = userRD![用户身份] '关闭数据库 userRD.Close
Set userRD = Nothing userDB.Close
Set userDB = Nothing
'进入用户环境 Load FrmMain FrmMain.Show Unload FrmLogIn logOK = True
userName = userID
Screen.MousePointer = vbDefault Else
'关闭数据库 userRD.Close
Set userRD = Nothing userDB.Close
Set userDB = Nothing logOK = False
Screen.MousePointer = vbDefault MsgBox \用户名或密码错误！请重新输入！\vbOKOnly + vbExclamation, \登陆失败\
End If Exit Sub
errEnd：
Screen.MousePointer = vbDefault
MsgBox Err.Description, vbOKOnly + vbExclamation, \登陆错误\ logOK = False Err.Clear '关闭数据库 userRD.Close
Set userRD = Nothing userDB.Close
Set userDB = Nothing Exit Sub End Sub
6.4数据源的约定
需用数据源的组件如：DataGrid一律采用Adodb控件。有特殊需求的情况如：身份验证应引用DAO(数据访问对象)。 6.5数据库访问约定
数据库引擎采用Microsoft.Jet.OLEDB.4.0，由Adodb组件进行数据库的访问，并为其他组件提供数据源。特殊情况、身份验证等由 DAO访问数据库。 6.6其他约定
无需数据显示的情况由DAO提供数据库支持，有数据显示的情况由ADODB组件提供数据库支持。
七、数据库分析与设计
7.1数据库环境说明
考虑该系统的定位与现有技术力量,决定采用Microsoft Access 2000/2002作为系统的后台数据库开发环境。 7.2数据库命名标准与规范
说明：下表所列为数据库及各表、视图的命名方法，具体信息请参阅7.4.1表、视图汇总。 名称 类型 命名办法约定 WFSSDataBase 系统数据库 字母 表 基本表 汉字或字母 查询 查询 汉字 字段 字段 汉字或字母 7.3数据库逻辑设计
员工表 会员表 会员政策 Admin 员工帐号 用户ID 会员级别 会员级别
? ? ? 会员卡号
?
图书分类
图书分类号 售书记录 Book
? 图书分类号 会员卡号
图书编号 图书编号
? ? 图书进价表
图书编号
供应商 进书记录 ?
供应商编号 图书编号 退货记录
? 图书编号 供应商编号
? 供应商编号
?
图4.数据库逻辑结构图
7.4数据库物理设计
7.4.1表、视图汇总 视图/表名 类型 说明 Admin 基本表 集中保存系统用户的帐号、密码 Book 基本表 集中存放书目信息 员工表 基本表 存放员工资料 供应商 基本表 供应商资料 会员表 基本表 会员资料 会员政策 基本表 会员标准及优惠政策 进书记录 基本表 进书历史记录 客户反馈 基本表 客户反馈信息 售书记录 基本表 售书历史记录 书店简介 基本表 书店简介 图书分类 基本表 图书类别 图书进价表 基本表 图书进价列表 退货记录 基本表 退货历史记录 读者查询 查询 提供给所有用户的书目查询界面 基本统计 查询 基本的统计分析 进书查询 查询 进书记录查询,含进书统计 售书查询 查询 图书销售记录查询 售书统计 查询 图书销售记录统计 退货查询 查询 退货记录查询 退货统计 查询 退货统计 员工信息 查询 员工信息查询 库存统计 查询 现有库存统计 反馈信息 查询 客户反馈信息查询
7.4.2各表、视图设计详解
[说明]：空缺位置表示无要求，主键在约束栏注明。 基本表：[Admin] 字段 类型 长度 格式 约束 用户ID 文本 250 主键 用户密码 文本 250 用户身份 文本 250 基本表：[Book] 字段 类型 长度 格式 约束 图书编号 文本 250 主键 图书分类号 文本 150 书名 文本 255 丛书 文本 150 作者 文本 255 出版社 文本 255 版次 文本 150 ISBN 文本 250 定价 货币 库存量 数字（ 整型） 内容简介 备注 关键词 文本 255 出版日期 文本 150 入库时间 日期/时间 长日期 Now() 基本表：[供应商] 字段 类型 长度 供应商编号 文本 250 供应商 文本 255 地址 文本 255 网址 文本 255 联系人 文本 255 电话 文本 50 传真 文本 150 电子邮件 文本 150 单位简介 备注 基本表：[会员表] 字段 类型 长度 会员卡号 文本 50 会员等级 文本 50 姓名 文本 150 性别 文本 50 地址 文本 250 单位 文本 250 电话 文本 50 电子邮件 文本 150 人生格言 备注 注册日期 日期/时间 基本表：[会员政策] 字段 类型 长度 会员级别 文本 50 会员标准 数字(整型) 打折 文本 50 赠送礼品 文本 250 备注 备注 基本表：[进书记录] 字段 类型 长度 ID 自动编号（长整型） 供应商编文本 250 号 图书编号 文本 250 数量 数字（长整型） 单价 货币 折扣 数字（单精度型） 金额 货币 进书日期 日期/时间 备注 备注 格式 格式 长日期 格式 格式 长日期 约束 主键 约束 主键 约束 主键 约束 主键