图书管理系统毕业论文DOC.doc

河南职业技术师范学院
2013届毕业论文

题目：宛枫书社图书管理系统的设计与实现

班 级： 信管993/992班
姓 名： 胡孟杰、蔡大臣、张航
指导老师： 王改性

信息工程与管理学院

宛枫书社图书管理系统的设计与实现

文档信息
开发小组：
组长：胡孟杰
成员：蔡大臣、张航
单位：信管993/992班
文件类型：
软件开发用技术文档
当前版本：
V1.0 Beta
作 者：
胡孟杰
完成日期：
2024年7月11日

软件信息
软件名称：
宛枫书社图书管理系统
版 本 号：
V1.0 Beta
语言类型：
简体中文
软件主页：

授权类型：
免费软件/测试版
运行环境：
Windows 95/98/NT/Me/2000/XP 等
下载地址：

软件大小：
3069 KB
指导老师：
王改性
软件作者：
胡孟杰
参与开发：
蔡大臣、张航 等
参与测试：
开发人员、考试通书店（李明友）、张科伟 等
联系信箱：
webmaster@
版权所有：
Copyright©2013-2014.Powered by 胡孟杰.
开发日期：
2013年3月-2013年5月
相关站点：
华军软件园、PChome、21CN、经典下载 等
软件简介：
宛枫书社图书管理系统 V1.0 Beta 测试版 面向中小型书店、个体书店进行全面的人员、物流管理，旨在实现书店管理信息化。
本系统采用会员制管理，将人员分为经理、仓库管理员、售书员、会员、游客等，分别拥有不同的权限，各司其职，以便提高工作效率。
系统功能包括：供应商管理、进书管理、图书资料管理、售书管理、会员管理、员工管理、库存统计、售书统计、退货统计、基本统计分析等。

河南职业技术师范学院信息工程与管理学院信息管理与信息系统专业99级
中国.河南.新乡
2024-07-11
目录

一、序言 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
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
11.3.10修改密码 50
11.3.11关于/帮助 50
参考资料 51

一、序言
宛枫书社图书管理系统的设计与推出是多方面原因促成的，我有一位老乡名叫李明友，毕业后经营一家小书店：“考试通书店”，其日常管理工作都是人工操作，历史数据很难保存和利用，对于书店的经营非常不利。而其他的中小型书店、个体书店大多如此。针对这种状况，我计划开发一个面向中小型书店、个体书店的图书管理系统，实现对人员、物流的全面管理，以帮助这些书店早日实现书店管理信息化。
正在我考虑系统的规划的时候，我有幸得到王改性老师的指导，我的两位同学：蔡大臣、张航也加入了开发队伍，这更加坚定了我完成系统开发任务的决心。
为了系统的顺利开发和维护，特编制如下技术文档：

二、需求分析说明书
2.1系统介绍
本系统定位于中小型书店、个体书店，暂时考虑单机环境下的实现；操作系统选择目前常用的Windows 98/2000。系统性质为MIS（管理信息系统）或财务软件。
本系统采用会员制管理，系统功能应包含进书管理、售书管理、退货管理、库存管理、统计分析、相关人员管理等。系统界面力求简洁、易用，在标准化的基础上考虑界面的美观和新颖。
系统计划2003年3月初开始，4月初完成初步开发工作，其余工作根据时间安排进行。
2.2系统面向的用户群体
系统面向中小型书店、个体书店，用户群体为这些书店的经理、采购员／仓库管理员、图书销售人员、书店的会员／游客等。
2.3系统的功能性需求
功能序号
功能名称
功能说明
1
供应商管理
包含供应商信息的登记、修改等
2
图书种类管理
包含图书大类、小类的创建
3
图书资料管理
包含图书资料的添加、修改等
4
新书入库管理
登记新书的来源、数量、单价、折扣、金额等
5
库存统计
分门别类统计图书现有库存量、入库时间等
6
进货记录查询
查询历次进货记录
7
退货登记
登记供应商、图书种类、退货的数量、原因等
8
退货统计
按供应商统计退货记录
9
退货记录查询
查询历次退货记录
10
图书销售管理
登记销售的种类、数量、单价、折扣、顾客/会员等
11
会员管理
包含会员的创建、修改、删除等
12
优惠政策管理
包含优惠政策的制定与执行
13
本日售书统计
统计本日销售图书的数量、金额等
14
售书记录查询
查询历次售书记录
15
员工管理
包含员工帐号的创建、修改、删除等
16
统计分析
按年月日时段统计书店经营状况
17
图书检索
提供按图书的编号、书名、责任者、出版社等途径的检索
18
系统帐号管理
提供上级对下级的资料、密码管理，
19
个人资料、密码管理
提供修改个人资料、密码的工具
2.4系统的非功能性需求
2.4.1用户界面需求
简洁、易用、易懂，美观、大方、标准，具备一定的兼容性。
2.4.2软硬件环境需求
软件环境：兼容当前主流操作系统 Windows 95/98/NT/Me/2000/XP 等。
硬件环境：386以上计算机，打印机、扫描仪等。
2.4.3软件质量需求
易用、健壮、兼容性好、运行稳定、有一定安全保障。

三、可行性分析报告
3.1技术可行性
系统的性质为MIS或财务软件，因而数据库的设计与操纵是系统设计的核心。我在2002年11月至2003年3月曾经成功完成了“蓝色梦幻留言板”的开发与维护任务，具备一定的系统分析与设计能力，熟悉数据库的设计与操纵；指导老师王改性多年从事数据库的教学与研究工作，因而该系统的实现在技术上是可行的。
3.2人员可能性
我有“蓝色梦幻留言板”的开发经验，目前时间充足，可以完成开发任务。
蔡大臣的计算机功底很深，可以参与系统的数据库设计与开发。
张航有深厚的文字功底，可以参与用户文档的制作、内部文档整理、后期测试等任务。
所有人员均可立即投入开发工作。
3.3时间、设备可能性
系统设计与开发工作预计耗时一个月，所有参与开发的人员均能够保证按时完成任务。实验设备如：计算机、打印机、扫描仪等不足，上机任务可以完成，打印机、扫描仪的实验根据具体条件暂时延缓执行。
3.4系统工作量
该系统的工作量相对于我们的开发小组来说很大，必须保证按进度完成任务。实际工作量预计超过一个月（每天4-8小时）。如包含软件维护及技术文档的整理、制作，工作量将更大。
3.5代码工作量
预计需25天左右。
3.6文档要求
依据国家《计算机软件产品开发文件编制指南》和《现代软件工程》的理论与原则编制标准的软件技术文档。

四、开发环境与项目规划
4.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界面，自上至下依次为：标题栏、菜单栏、工具条、工作区、状态栏等。如下图示：
菜单栏

状态栏
工作区

图1.系统界面
5.5常见提示信息样式
提示信息按以下标准进行：采用标准Windows对话框样式，添加信息图标，后接提示信息文本和相应按钮。
如下图示：
按钮
信息图标
提示文本

图2.常见提示信息样式
5.6常见错误信息样式
错误信息依据提示信息样式设计，将信息图标更改为警告图标。
如下图示：
警告图标
提示文本

图3.常见错误信息样式
5.7其他界面约定
除主界面外，所有子界面均采用模式窗体，即该窗体不消失，不可以在本程序内将焦点移出子窗体。

六、软件编码设计标准与规范
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
图象显示组件
PtB
CommonDialog
通用对话框组件
ComDlg
Timer
时间组件
Tim
ToolBar
工具栏
TlBar
Menu
菜单
Mnu
SSTab
页框
SSTab
ImageList
界面资源组件
ImgLst
6.2常量和变量命名约定
变量名
数据类型
变量类型
含义
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) <> "、" 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
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

数量
数字（长整型）

单价
货币

折扣
数字（单精度型）

金额
货币

进书日期
日期/时间

长日期

备注
备注

基本表：[客户反馈]
字段
类型
长度
格式
约束
ID
自动编号（长整型）

主键
姓名
文本
150

身份
文本
50

性别
文本
50

单位
文本
255

地址
文本
255

电子邮件
文本
150

反馈信息
备注

反馈日期
日期/时间

长日期

基本表：[售书记录]
字段
类型
长度
格式
约束
ID
自动编号（长整型）

主键
图书编号
文本
250

数量
数字（整型）

会员卡号
文本
250

实际打折
数字（单精度型）

实收金额
货币

日期
文本
50
长日期

备注
备注

基本表：[书店简介]
字段
类型
长度
格式
约束
书店名称
文本
255

主键
地址
文本
255

网址
文本
255

联系人
文本
150

电话
文本
50

手机
数字（长整型）

电子邮件
文本
150

书店简介
备注

备注
备注

基本表：[图书分类]
字段
类型
长度
格式
约束
图书分类号
文本
150

主键
图书分类
文本
250

所属父类编号
文本
150

基本表：[图书进价表]
字段
类型
长度
格式
约束
图书编号
文本
150

主键
进价
货币

进书日期
日期/时间

长日期

基本表：[退货记录]
字段
类型
长度
格式
约束
ID
自动编号（长整型）

主键
供应商编号
文本
250

图书编号
文本
250

进价
货币

退货数量
数字（整型）

金额
货币

退货原因
备注

退货日期
日期/时间

长日期

备注
备注

基本表：[员工表]
字段
类型
长度
格式
约束
员工帐号
文本
250

主键
姓名
文本
150

性别
文本
50

地址
文本
255

电话
文本
50

手机
文本
150

电子邮件
文本
150

人生格言
备注

创建日期
日期/时间

长日期
Now()
视图：[基本统计]

图5.基本统计视图结构
视图：[读者查询]

图6.读者查询视图结构
视图：[退货统计]

图7.退货统计视图结构
视图：[售书统计]

图8.售书统计视图结构
视图：[售书查询]

图9.售书查询视图结构
注：其他视图结构：[略]。
八、软件体系结构设计说明书
8.1系统概述
在单机环境下进行系统安全的考虑，有必要进行用户权限的划分与控制，因而系统在总体上应包含安全子系统之下的各类用户工作环境。用户权限的合理划分与有效控制是本系统体系结构设计的核心。
8.2设计约束
系统将实现人员、物流的全面管理，而物流管理是系统的核心部件，怎样实现二者的共存，互不干扰，是本系统设计的难点。本系统必须实现对用户权限的有效合理控制。
8.3设计策略
由于所有的物流都需要有人员的活动才能够发生，因此，我决定采用一种“人员活动带动物流”的策略来解决人员管理与物流管理的统一管理问题。
这个想法是模拟现实而来的，比如说，只有采购人员进行了“采购”或“进书”活动，才会引起“入库登记”或“新书入库”这个物流。
8.4系统概要设计说明书
8.4.1图例说明
过程、模块
1.处理过程：

数据表
2.数据存储：

决策
3.条件判断：

4.数据流：(单向)

5.数据流：（双向）
实体

6.外部实体：

数据表
7.带有变动历史的数据存储：

8.4.2系统总体结构图
登陆验证

会员政策
员工管理
书店概况
统计分析
安全子系统
权限控制
身份鉴别

经理子系统

宛枫书社图书管理系统

基本统计
退货统计
库存统计
进货统计
销售统计

进货子系统
库存管理
退货子系统

书目管理
入库登记
供应商管理
仓库管理员子系统

删除帐号
修改资料
创建帐号
销售统计
会员管理
销售子系统

售书员子系统

购书记录
修改密码
个人资料

会员子系统

信息反馈
会员注册
书目检索

游客子系统

图10.系统总体结构图
8.4.3销售子系统流程图
售书员

Book

会员表
选择图书
选择会员

会员表
图书销售
优惠政策

售书记录

图11. 销售子系统流程图
8.4.4进货子系统流程图
仓管员

选择供应商
供应商

修改资料
供应商登记

选择品种
供应商
供应商

添加类别
添加品种

Book

入库登记
修改资料
图书分类

Book

图书进价表
进货记录

图12.进货子系统流程图
8.4.5退货子系统流程图

选择供应商
仓管员
供应商
选择品种
退货记录
退货登记
Book
进货记录

图13.退货子系统流程图
8.5系统详细设计说明书
8.5.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()
初始化模块，连接数据库
GetHYDaZhe
函数
Public Function GetHYDaZhe(bianHao As String) As String
提取会员政策的会员优惠办法
GetKuCun
函数
Public Function GetKuCun(bianHao As String) As String
获取、检验图书现有库存量
HYShengJi
函数
Public Function HYShengJi(HYKaHao As String) As Boolean
会员升级维护
CmdSellBook_Click
子程序
Private Sub CmdSellBook_Click()
图书销售模块
checkGYSID
函数
Public Function checkGYSID(UID As String) As Boolean
检验数据表主键，避免插入错误
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()
供应商信息登记
注：其他模块（略）
8.5.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.MousePo