专项任务报告书
任务题目 图书管理系统的设计与实现
系 别 计算机技术系
专业年级
学生姓名
学 号
指导教师 张三 李四 职称 高级工程师 讲师
完成地点
日 期
专项任务书
专项任务名称 图书管理系统的设计与实现
姓名 吴维康 专业 软件技术 班级 1班 学号
一、任务情况描述：
现今社会上的个体书店，其日常管理工作都是人工操作，历史数据很难保存和利用，对于书店的经营非常不利。针对这种状况，计划开发一个面向个体书店的图书管理系统，实现对人员、物流的全面管理，以帮助这些书店早日实现书店管理信息化。
二、任务完成计划：
第一阶段：3.15-3.20需求分心，确定论文题目。
第二阶段：3.21-4.1设计分析，流程图和确定模块功能。
第三阶段：4.2-4.15开发阶段，创建表，数据库。
第四阶段：4.16-5.10 程序编码测试，程序维护。
第五阶段：5.11-5.25 论文撰写及打印准备答辩。
三、计划答辩时间：2013.5.25日论文答辩
实习指导教师（签字）： 系学生顶岗实习领导小组组长（签字）：
年 月 日 年 月 日
目 录
一、序言 1
二、需求分析 2
1．系统介绍 2
2．系统面向的用户群体 2
3．系统的功能性需求 2
4．系统的非功能性需求 3
三、可行性分析报告 4
1.技术可行性 4
2.时间、设备可能性 4
3.文档要求 4
四、软件界面设计标准与规范 5
1.编写目的 5
2.界面设计思想 5
3.界面设计原则 5
4.界面设计样式 5
5.常见提示信息样式 5
6.常见错误信息样式 6
7.其他界面约定 6
五、软件编码设计标准与规范 7
1.对象命名约定 7
2.常量和变量命名约定 7
3.结构化编码约定 8
4.数据源的约定 10
5.数据库访问约定 11
6.其他约定 11
六、数据库分析与设计 12
1.数据库环境说明 12
2.数据库命名标准与规范 12
3.数据库逻辑设计 12
4.数据库物理设计 13
七、软件体系结构设计 14
1.系统概述 14
2.设计约束 14
3 系统概要设计 14
4.系统详细设计 17
八、用户界面设计报告 34
1．界面设计规范 34
2.主界面设计 34
4.子界面设计 34
5.界面资源设计 35
九、软件测试分析报告 36
1.测试范围与主要内容 36
2.测试方法 36
3.测试报告 36
十、软件使用说明 38
1.系统安装 38
2.使用说明 38
参考资料 45
图书管理系统的设计与实现
一、序言
现今社会上的个体书店，其日常管理工作都是人工操作，历史数据很难保存和利用，对于书店的经营非常不利。针对这种状况，计划开发一个面向个体书店的图书管理系统，实现对人员、物流的全面管理，以帮助这些书店早日实现书店管理信息化。
为了系统的顺利开发和维护，特编制如下技术文档：
二、需求分析
1．系统介绍
操作系统选择目前常用的Windows XP。系统性质为管理信息系统或财务软件。
本系统采用会员制管理，系统功能应包含进书管理、售书管理、退货管理、库存管理、统计分析、相关人员管理等。系统界面力求简洁、易用，在标准化的基础上考虑界面的美观和新颖。
2．系统面向的用户群体
系统主要面向中个体书店，用户群体为这些书店的经理、采购员／仓库管理员、图书销售人员、书店的会员／游客等。
3．系统的功能性需求
序号 功能名称 功能说明
1 供应商管理 包含供应商信息的登记、修改等
2 图书种类管理 包含图书大类、小类的创建
3 图书资料管理 包含图书资料的添加、修改等
4 新书入库管理 登记新书的数量、单价、金额等
5 库存统计 分门别类统计图书现有库存量、入库时间等
6 进货记录查询 查询历次进货记录
7 退货登记 登记供应商、图书种类、退货的数量、原因等
8 退货统计 按供应商统计退货记录
9 退货记录查询 查询历次退货记录
10 图书销售管理 登记销售的种类、数量、单价、折扣、顾客/会员等
11 会员管理 包含会员的创建、修改、删除等
12 优惠政策管理 包含优惠政策的制定与执行
13 本日售书统计 统计本日销售图书的数量、金额等
14 售书记录查询 查询历次售书记录
15 员工管理 包含员工帐号的创建、修改、删除等
16 统计分析 按年月日时段统计书店经营状况
17 图书检索 提供按图书的编号、书名、责任者、出版社等途径的检索
18 系统帐号管理 提供上级对下级的资料、密码管理，
19 资料、密码管理 提供修改个人资料、密码的工具
4．系统的非功能性需求
(1)用户界面需求
简洁、易用、易懂，美观、大方、标准，具备一定的兼容性。
(2)软硬件环境需求
软件环境：兼容当前主流操作系统 Windows 2003/XP 等。
硬件环境：打印机、扫描仪等。
(3)软件质量需求
易用、健壮、兼容性好、运行稳定、有一定安全保障。
三、可行性分析报告
1.技术可行性
系统的性质为管理信息系统或财务软件，因而数据库的设计与操纵是系统设计的核心。在校期间成功完成了“学校运动会管理系统”的开发与维护任务，具备一定的系统分析与设计能力，熟悉数据库的设计与操纵；指导老师姜彦芬多年从事数据库的教学与研究工作，因而该系统的实现在技术上是可行的。
2.时间、设备可能性
系统设计与开发工作预计耗时一个月，所有参与开发的人员均能够保证按时完成任务。实验设备如：计算机、打印机、扫描仪等不足，上机任务可以完成，打印机、扫描仪的实验根据具体条件暂时延缓执行。
3.文档要求
依据国家《计算机软件产品开发文件编制指南》和《现代软件工程》的理论与原则编制标准的软件技术文档。
四、软件界面设计标准与规范
1.编写目的
制定界面设计标准规范的目的是为了规范和统一软件界面设计制定软件界面设计标准与规范。
2.界面设计思想
首先考虑标准化，在标准化的基础上进行界面的美工设计。
3.界面设计原则
简单易用、简洁明了、兼容性好、标准、规范。
4.界面设计样式
采用标准Windows界面，自上至下依次为：标题栏、菜单栏、工具条、工作区、状态栏等。如下图示：
图1.系统界面
5.常见提示信息样式
提示信息按以下标准进行：采用标准Windows对话框样式，添加信息图标，后接提示信息文本和相应按钮。
如下图示：
图2.常见提示信息样式
6．常见错误信息样式
错误信息依据提示信息样式设计，将信息图标更改为警告图标。
如下图示：
图3.常见错误信息样式
7.其他界面约定
除主界面外，所有子界面均采用模式窗体，即该窗体不消失，不可以在本程序内将焦点移出子窗体。
五、软件编码设计标准与规范
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
2.常量和变量命名约定
变量名 数据类型 变量类型 含义
UserShenFen String 全局变量 用户身份标志
LogOK Boolean 全局变量 登陆状态
UserName String 全局变量 用户名
GongYingShangID String 全局变量 供应商编号
GongYingShang String 全局变量 供应商名称
TuShuBianHao String 全局变量 图书编号
DingJia Single 全局变量 图书定价
ShuMing String 全局变量 书名
HuiYuanKaHao String 全局变量 会员卡号
HYXingMing String 全局变量 会员姓名
HYDengJi String 全局变量 会员等级
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]=""" & userID & """ and [用户密码]=""" & passwd & """"
'打开数据库
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
4.数据源的约定
需用数据源的组件如：DataGrid一律采用Adodb控件。有特殊需求的情况如：身份验证应引用DAO(数据访问对象)。
5.数据库访问约定
数据库引擎采用Microsoft.Jet.OLEDB.4.0，由Adodb组件进行数据库的访问，并为其他组件提供数据源。特殊情况、身份验证等由 DAO访问数据库。
6.其他约定
无需数据显示的情况由DAO提供数据库支持，有数据显示的情况由ADODB组件提供数据库支持。
六、数据库分析与设计
1.数据库环境说明
考虑该系统的定位与现有技术力量,决定采用Microsoft Access 2000/2002作为系统的后台数据库开发环境。
2.数据库命名标准与规范
说明：下表所列为数据库及各表、视图的命名方法，具体信息请参阅7.4.1表、视图汇总。
名称 类型 命名办法约定
WFSSDataBase 系统数据库 字母
表 基本表 汉字或字母
查询 查询 汉字
字段 字段 汉字或字母
3.数据库逻辑设计
图4.数据库逻辑结构图
4.数据库物理设计
（1）表、视图汇总
视图/表名 说明
Admin 集中保存系统用户的帐号、密码
Book 集中存放书目信息
员工表 存放员工资料
供应商 供应商资料
会员表 会员资料
会员政策 会员标准及优惠政策
进书记录 进书历史记录
客户反馈 客户反馈信息
售书记录 售书历史记录
书店简介 书店简介
图书分类 图书类别
图书进价表 图书进价列表
退货记录 退货历史记录
读者查询 提供给所有用户的书目查询界面
基本统计 基本的统计分析
进书查询 进书记录查询,含进书统计
售书查询 图书销售记录查询
售书统计 图书销售记录统计
退货查询 退货记录查询
退货统计 退货统计
员工信息 员工信息查询
库存统计 现有库存统计
反馈信息 客户反馈信息查询
七、软件体系结构设计
1.系统概述
在单机环境下进行系统安全的考虑，有必要进行用户权限的划分与控制，因而系统在总体上应包含安全子系统之下的各类用户工作环境。用户权限的合理划分与有效控制是本系统体系结构设计的核心。
2.设计约束
系统将实现人员、物流的全面管理，而物流管理是系统的核心部件，怎样实现二者的共存，互不干扰，是本系统设计的难点。本系统必须实现对用户权限的有效合理控制。
3系统概要设计说明书
（1）图例说明
1.处理过程：
2.数据存储：
3.条件判断：
4.数据流：(单向)
5.数据流：（双向）
6.外部实体：
7.带有变动历史的数据存储：
（2）系统总体结构图
图10.系统总体结构图
（3）销售子系统流程图
图11. 销售子系统流程图
（4）退货子系统流程图
图13.退货子系统流程图
4.系统详细设计说明书
（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 CmdRegMe_Click() 创建员工、会员帐号
GetJinJia Public Function GetJinJia(bianHao As String) As String 提取图书进价
CmdTH_Click Private Sub
CmdTH_Click()
退货模块
CmdSaveContinue_Click Private Sub CmdSaveContinue_Click() 供应商信息登记
（2）系统核心模块详解
全局变量定义：
'用户身份标志
Public UserShenFen As String
'登陆状态
Public logOK As Boolean
'用户名
Public userName As String
'供应商编号
Public GongYingShangID As String
'供应商
Public GongYingShang As String
'图书编号
Public TuShuBianHao As String
'定价
Public DingJia As String
'书名
Public ShuMing As String
'会员卡号
Public HuiYuanKaHao As String
'会员姓名
Public HYXingMing As String
'会员等级
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
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]=""" & userID & """ and [用户密码]=""" & passwd & """"
'打开数据库
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
模块名：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
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
模块名：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 = ""
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
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
TxtCard.SelLength = Len(TxtCard.Text)
TxtCard.SetFocus
Exit Sub
End If
CmdRegMe.Enabled = False
‘开始一个事务
BeginTrans
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "员工表"
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset!员工帐号 = TxtCard.Text
Adodc1.Recordset!姓名 = TxtUName.Text
If OptionMan.Value Then
Adodc1.Recordset!性别 = "男"
Else
Adodc1.Recordset!性别 = "女"
End If
Adodc1.Recordset!地址 = TxtUDiZhi.Text
Adodc1.Recordset!手机 = TxtUDanWei.Text
Adodc1.Recordset!电子邮件 = TxtUMail.Text
Adodc1.Recordset!电话 = TxtUDianHua.Text
Adodc1.Recordset!人生格言 = TxtUMemo.Text
Adodc1.Recordset!创建日期 = Now()
Adodc1.Recordset.Update
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "Admin"
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset!用户ID = TxtCard.Text
Adodc1.Recordset!用户密码 = TxtCard.Text
Adodc1.Recordset!用户身份 = ComboShenFen.Text
Adodc1.Recordset.Update
CommitTrans
MsgBox "恭喜你，注册成功！" & vbCrLf & "员工的帐号和密码就是你填写的员工帐号！" & vbCrLf & "请员工自行修改密码或立即修改密码。", vbOKOnly + vbQuestion, "注册成功"
TxtCard.Text = ""
TxtUName.Text = ""
TxtUDanWei.Text = ""
TxtUDiZhi.Text = ""
TxtUMail.Text = ""
TxtUDianHua.Text = ""
TxtUMemo.Text = ""
CmdRegMe.Enabled = True
Exit Sub
errEnd:
Rollback
MsgBox "注册失败，操作数据库发生错误！", vbOKOnly + vbExclamation, "注册失败"
CmdRegMe.Enabled = True
End Sub
模块名：CmdSaveContinue_Click （供应商信息登记
模块原型：Private Sub CmdSaveContinue_Click()
代码：
Private Sub CmdSaveContinue_Click()
On Error GoTo errEnd
If TxtBianHao.Text = "" Then
MsgBox "请输入供应商编号！", vbOKOnly + vbExclamation, "供应商登记"
TxtBianHao.SetFocus
Exit Sub
End If
If TxtDanWei.Text = "" Then
MsgBox "请输入单位名称！", vbOKOnly + vbExclamation, "供应商登记"
TxtDanWei.SetFocus
Exit Sub
End If
If TxtDiZhi.Text = "" Then
MsgBox "请输入供应商联系地址！", vbOKOnly + vbExclamation, "供应商登记"
TxtDiZhi.SetFocus
Exit Sub
End If
If TxtDianHua.Text = "" Then
MsgBox "请输入供应商联系电话！", vbOKOnly + vbExclamation, "供应商登记"
TxtDianHua.SetFocus
Exit Sub
End If
If TxtChuanZhen.Text = "" Then TxtChuanZhen.Text = "未知"
If TxtMail.Text = "" Then TxtMail.Text = "无"
If TxtLianXiRen.Text = "" Then
MsgBox "请输入联系人姓名！", vbOKOnly + vbExclamation, "供应商登记"
TxtLianXiRen.SetFocus
Exit Sub
End If
If TxtWeb.Text = "" Then TxtWeb.Text = "无"
If TxtJianJie.Text = "" Then TxtJianJie.Text = "无"
If checkGYSID(TxtBianHao.Text) Then
MsgBox "供应商编号不唯一，请另选一个！", vbOKOnly + vbExclamation, "供应商登记"
TxtBianHao.SetFocus
TxtBianHao.SelStart = 0
TxtBianHao.SelLength = Len(TxtBianHao.Text)
Exit Sub
End If
Adodc1.Recordset.AddNew
Adodc1.Recordset!供应商编号 = TxtBianHao.Text
Adodc1.Recordset!供应商 = TxtDanWei.Text
Adodc1.Recordset!地址 = TxtDiZhi.Text
Adodc1.Recordset!网址 = TxtWeb.Text
Adodc1.Recordset!联系人 = TxtLianXiRen.Text
Adodc1.Recordset!电话 = TxtDianHua.Text
Adodc1.Recordset!传真 = TxtChuanZhen.Text
Adodc1.Recordset!电子邮件 = TxtMail.Text
Adodc1.Recordset!单位简介 = TxtJianJie.Text
Adodc1.Recordset.Update
MsgBox "供应商情况登记成功！", vbOKOnly + vbInformation, "登记成功"
TxtBianHao.Text = ""
TxtDanWei.Text = ""
TxtDiZhi.Text = ""
TxtWeb.Text = ""
TxtLianXiRen.Text = ""
TxtChuanZhen.Text = ""
TxtDianHua.Text = ""
TxtMail.Text = ""
TxtJianJie.Text = ""
TxtBianHao.SetFocus
Exit Sub
errEnd:
MsgBox "更新数据库失败!", vbOKOnly + vbExclamation, "数据库出错"
End Sub
八、用户界面设计报告
1．界面设计规范
主界面：菜单栏、工具条、工作区（本系统采用SSTab页框）、状态栏等。
界面资源：由ImageList控件提供界面资源。
2.主界面设计
主界面的设计采用标准Windows主窗口样式，自上而下依次为：菜单栏、工具条、工作区（本系统采用SSTab页框）、状态栏等。所有系统用户拥有相似的主界面。主界面包含基本的或共享的功能，如书目浏览与检索，基本统计等。
主界面如下图所示：
图14.系统主界面设计样式
4.子界面设计
除系统中主要的、基本的功能之外，子系统或非共享功能的实现均采用子界面的设计来实现，如图书销售、退货、进货管理、会员管理、员工管理、统计分析等。
子界面设计样式如下图所示：
图15.系统子界面设计样式
5.界面资源设计
系统图标：
工具栏图标：
帮助、关于对话框显示的图片：
九、软件测试分析报告
1.测试范围与主要内容
测试范围 主要内容 简要说明
系统登陆验证 验证用户身份，进行权限控制 功能性测试
信息检索功能测试 测试数据库检索代码的健壮性 功能性测试
图书销售管理功能测试 测试系统实用性、方便性 功能性测试
统计分析测试 测试按时段统计的准确性 功能性测试
数据完整性测试 测试登记失败时的数据完整性控制 功能性测试
核心代码复检 检验核心代码的质量 逻辑检错性测试
2.测试方法
功能性测试：黑盒测试 逻辑检错性测试：白盒测试
3.测试报告
测试项目 测试目的 测试数据 测试结果 改进意见 修改状态
登陆验证 系统安全和权限控制 用户名:admin
密码:admin 系统响应正常，权限控制正常 --- ---
图书销售 入帐操作的完整性 --- 数据类型控制出错，事务处理成功 增强对用户输入数据的控制 已经修正
统计分析 按时段统计功能的实现 2003-3 响应正常 --- ---
核心代码复检 检验核心代码的质量与效率 --- 编码风格良好，内部注释不足。 --- ---
十、软件使用说明
1.系统安装
下载、解压后，运行setup.exe，然后依据提示点击“下一步”即可安装成功。
安装界面如下图所示：
图16.系统安装界面
2.使用说明
（1）系统登陆
安装成功后，请依次点击“开始”->“程序”->“宛枫书社图书管理系统 V1.0 Beta 测试版”->“宛枫书社图书管理系统 V1.0 Beta 测试版”，启动画面如下图所示：
图16.系统登陆界面
依据提示在文本框中分别输入“用户帐号”和“用户密码”，然后点击“登陆”按钮。如需查看帮助信息请点“帮助”。系统初始帐号、密码为：
经理级帐号：admin 密码：admin
仓库管理员级帐号：仓库管理员 密码：admin
售书员级帐号：售书员 密码：admin
（2）注销与退出
登陆成功后，可选取“系统”->“注销”，或点取工具栏“注销”按钮，注销当前用户。选取“系统”->“退出”退出系统，停止程序运行。
图17.注销当前用户
（3）办理进货登记
办理进货登记（新书入库）是书店的一项主要业务。启动系统，以仓库管理员身份登陆系统，登陆成功后，选择“书库管理”->“如库登记”，或直接点取工具栏“进书”按钮，启动“新书入库”第一步操作，如下图所示：
图18.新书入库操作界面 选择供应商
在这一个窗体中，可以进行以下操作：a.进行供应商情况登记。点击“供应商登记”，然后输入供应商信息，供应商编号须唯一。然后，选“保存并继续”继续添加供应商信息，选“保存并返回”返回上图所示界面。b.修改资料。请直接在本界面修改资料后，点取“修改资料”。3.选择本次入库操作的供应商。在下拉列表框中选择供应商编号，系统自动列出供应商详细信息，确认后，点取“选中供应商”，进入下一步操作。
新书入库操作的第二步操作是：选择入库登记的图书品种。如下图所示：
图19.新书入库操作界面 选择图书品种
在这一步，您可以进行以下操作：
a.添加图书分类。点取“添加品种”，启动图20所示界面，可以创建两级分类，创建第一级分类，不要选“所属父类”，然后点“保存并继续”或“保存并返回”。创建第二级分类，请在所属父类栏选择父类。
图20.新书登记界面 添加图书分类
b.添加图书品种。点取“添加品种”，启动下图所示界面。依次选择图书所属大类和子类，为该新品种指定唯一的图书编号，然后登记各项书目信息。最后点取“保存…”。如需修改已存在的图书资料，请点击“修改资料”。完成本操作后，点取“保存并返回”或“返回”返回图19界面。
图21.新书登记界面 添加图书品种
c.修改图书资料。点取“修改资料”，进行现有图书资料修正。
d.选择入库操作的图书品种。依次选择图书的大类、子类和品种编号，系统自动列出图书详细资料，确认后，点击“选中该品种”，进行新书入库操作。启动图22所示界面：
确认供应商和品种无误后，请登记图书的数量、单价、折扣、金额等项，最后点击“入帐”，完成新书入库登记。入帐操作是一个“事务”处理过程，入帐操作失败不会引起数据不一致的问题。
图22.新书入库操作
(4)办理退货登记
以“仓库管理员”身份登陆系统，选取“书库管理”->“办理退货”，选取供应商和图书品种，操作步骤与进货操作类似，不再详述。最后启动下图所示界面：
图23.办理退货登记界面
确认无误后登记退货的数量、金额和退货原因，点取“入帐”完成本操作。
(5)销售图书
以“售书员”身份登陆系统，依次点取“销售管理”->“图书销售”或点击工具栏“售书”按钮，然后输入所售图书编号，将光标移出，系统自动检索书目信息，确认后，点击“选中图书”。第二步选择会员或游客，如果购书者是本店会员，请输入会员卡号，否则直接点“选中该会员”。确认信息后将启动图24所示界面，进行图书销售登记。
依次输入销售图书的数量、优惠（打折比率）等，点取“入帐”按钮。完成售书操作。
图24.图书销售
(6)会员管理
售书员和经理均可以进行会员的管理。启动图25界面，可进行会员的创建、修改和删除操作。但是，为了维护数据的完整性，有购书记录的会员不允许被删除。
图25.会员管理
(7)员工管理
员工管理的权限属于经理。以“经理”帐号登陆系统。选择“员工管理”，可以进行“创建员工帐号”、“修改员工密码”、“修改员工资料”等操作。也可以点取“员工帐号管理”启动如下图所示界面进行员工帐号的集中统一管理。
图26.员工管理
(8)书目检索
系统中所有帐号都可以进行书目检索操作。点取“检索书目”选项卡，如下图所示：
图27.检索书目
输入检索的关键词和检索的依据进行检索，检索采用“模糊检索”，可以输入关键词的一部分进行检索。
(9)查看统计信息
查看统计分析的权限属于书店经理，以经理帐号登陆系统，选取“统计分析”可以查看“基本统计分析”、“详细统计分析”、“售书统计”、“库存统计”、“退货统计”等。仓库管理员拥有查看“库存统计”、“退货统计”的权限。售书员拥有查看“售书统计”、“本日销售统计”的权限。
图28.查看统计分析
(10)修改密码
修改个人密码的权限属于“会员”以上级别用户，修改密码需要旧密码的确认。上级修改下级的密码无须旧密码确认。
参考资料
[1].《现代软件工程》 周之英 编著. 科学出版社. 2000.1
[2].《工程应用软件开发技术》 唐任仲 编著. 化学工业出版社. 1999.5
[3].《Visual Basic 6.0 中文版 参考详解》 李怀明 等著. 清华大学出版社. 1999.11
[4].《Visual Basic 6.0 高级编程技巧》 李善茂 等著. 电子工业出版社. 1999.5
[5].《Visual Basic 6.0 中文版 提高与应用》 谭浩强 主编. 电子工业出版社.
