VBA编写的 ACCESS 程序请确认后在下载咨询

图书借阅管理系统设计文档

一、系统概述

为学校图书借阅室设计图书管理系统，完成新增图书上架、读者办理图书借阅证、图书查询、借书、还书工作的自动处理。

二、需求分析

1．图书借阅处理过程简述

处理过程主要包含：新增图书上架、办理图书借阅证、图书查询、借书、还书等。

（1）新增图书上架

新书上架时，需要登记新书的：书名、作者、出版社、出版时间（年）、版次、价格、总册数的信息；并对图书统一编号（书号为8位数字）。

（2）办理图书借阅证

读者办理借书证时，需要登记读者（学生）的学号（6位）、姓名、班级、扫描学生证照片，并对借书证统一编号（借书证号为6位数字，值与学号相同）。

（3）图书查询

读者可以按照书名、作者、出版社查询图书基本信息，并可以得知现还有几册可以借阅。

（4）借书

每个学生读者最多借3本书；借书时间为2周，如果有超期未还的图书则不能再借书。

读者借书时，应登记借书证号、书号、借书日期（年月日）；并打印借书条交给读者，借书条上包括借书证号、所借各本书的书名、应还书的时间。

（5）还书

读者还书时，应查看是否超期，如果超期则每天罚款0.1元，计算出应交罚款。

2．数据分析

数据处理过程中涉及到两个实体：图书和读者；各实体应具有的属性如下：

² 图书（书号、书名、作者、出版社、出版时间、版次、价格、总册数）

² 读者（借书证号、学号、姓名、班级、照片）

由于同一种图书可以有多册上架，每个读者最多可以借阅3本书，所以图书和读者之间是多对多的关系；为了表示多对多关系，应将图书借阅定为实体，构造两个一对多关系。图书借阅的属性如下：

² 借阅（借书证号、书号、借书日期）

3．功能分析

系统功能模块包括：图书上架、借书证办理、图书查询、借书、还书；另外还包括图书信息修改和读者信息修改；共七个模块。各模块功能如下：

a) 图书上架
登记新书信息并编号

b) 借书证办理
登记读者信息并编号

c) 图书查询
允许读者选择查询方式，并按照读者输入的信息查找到相关图书的信息并显示

d) 借书
查看是否能借书，如果可以则登记相关信息，打印借书条。

e) 还书
查看是否超期，如果超期，则计算应交罚款。

三、数据库设计

1．数据库

数据库名称为library.mdb。

2．表

数据库中包含三个表：图书表（book）、读者表（reader）、借阅表（borrow）各表结构如下：

book

字段名	书号	书名	作者	出版社	出版时间	版次	价格	总册数
类型	文本	文本	文本	文本	数字	数字	数字	数字
字段大小	8	20	10	10	整数	字节	单精度型	字节
其它	数字字符	必填	必填	必填	1990至当年	1~9	两位小数	1~10
主键	主键

reader

字段名	借书证号	学号	姓名	班级	照片
类型	文本	文本	文本	文本	OLE对象
字段大小	6	6	4	6
其它	数字字符	数字字符/必填	必填
主键	主键

borrow

字段名	流水号	借书证号	书号	借书日期	已归还
类型	自动编号	文本/查阅	文本/查阅	日期	是/否
字段大小		6	8
其它		数字字符/必填	数字字符/必填	默认值：Date()	默认值：否
主键	主键

book表与borrow表为一对多的关系，连接字段为book的书号和borrow的书号；

reader表与borrow表为一对多的关系，连接字段为reader的借书证号和borrow的借书证号。

四、总体设计

1．总体功能设计

系统功能总体分为五个模块：管理员登录、图书上架、借阅证办理、图书查询和借书还书。

2．系统功能模块图

总控模块

图书上架

借阅证办理

图书查询

借书还书

管理员登录

总控模块以主窗体形式出现。其中，默认情况下，管理员登录、图书查询和借书还书模块可以使用，即所有用户都可以使用。只有进行合法的管理员登录后，图书上架、借阅证办理才可以使用。

3．子模块功能设计

l 管理员登录子模块用来判断用户输入的密码是否正确，以决定是否进入管理员模式

l 图书上架子模块用来输入图书基本信息

l 借阅证办理子模块用来输入读者基本信息

l 图书查询子模块包括按照书名、读者、出版社进行选择查询、条件查询和模糊查询三大部分

l 借书还书子模块包括借书和还书两个二级子模块。其中，

Ø 借书二级子模块包括借书信息输入和打印借书条两部分

Ø 还书二级子模块包括还书信息输入和计算超时欠费两部分

五、详细设计

1．系统初始化模块

系统初始化模块的作用是声明系统全局变量，初始化系统变量设置等。

¨模块init

Option Compare Database

Public Login As Boolean '全局变量Login - 记录管理员是否登录

2．系统主控模块——主窗体

（1）功能说明

系统主窗体是用户进入系统后首先打开的窗体，主要用于方便用户进行工作选择，因此采用按钮和菜单两种方式完成。

（2）界面设计——按钮

i 主窗体界面图

系统主窗体界面设计如图 1。

图 1

ii 主窗体及控件属性

系统主窗体及控件属性如表 1。

表 1

名称	属性	属性值
主窗体	标题	图书借阅管理系统
	滚动条	两者均无
	记录选择器	否
	导航按钮	否
	分割线	否
	自动调整	否
	自动居中	是
	边框样式	细边框
	最大最小化按钮	最小化按钮
命令0	单击事件	运行宏“管理员登录”
Label0	标题	管理员登录
命令1	单击事件	运行宏“图书上架”
命令1	可见性	否
Label1	标题	图书上架
Label1	可见性	否
命令2	单击事件	运行宏“借阅证办理”
命令2	可见性	否
Label2	标题	借阅证办理
Label2	可见性	否
命令3	单击事件	运行宏“图书查询”
Label3	标题	图书查询
命令4	单击事件	运行宏“借书还书”
Label4	标题	借书还书

iii 主窗体及控件事件宏和代码

¨主窗体“加载”事件

Private Sub Form_Load()

End Sub

¨主窗体“打开”事件

Private Sub Form_Open(Cancel As Integer)

命令1.Visible = Login

Label1.Visible = Login

命令2.Visible = Login

Label2.Visible = Login

命令0.Visible = Not Login

Label0.Visible = Not Login

End Sub

¨ “管理员登录”宏

操作	参数	参数值
Close	对象类型	窗体
Close	对象名称	主窗体
OpenForm	窗体名称	管理员登录

¨ “图书上架”宏

操作	参数	参数值
OpenForm	窗体名称	图书上架
OpenForm	数据模式	增加

¨“借阅证办理”宏

操作	参数	参数值
OpenForm	窗体名称	借阅证办理
OpenForm	数据模式	增加

¨“图书查询”宏

操作	参数	参数值
OpenForm	窗体名称	图书查询

¨“借书还书”宏

操作	参数	参数值
OpenForm	窗体名称	借书还书

（3）界面设计——菜单

i 系统主菜单

系统主菜单（略）

如表 2。（）

表 2

菜单项	子菜单	宏	参数
管理
	管理员登录	打开窗体OpenForm
	图书上架	打开窗体OpenForm
	图书信息修改	打开窗体OpenForm
	借阅证办理	打开窗体OpenForm
	退出系统	Quit
借还书
	图书查询	打开查询OpenQuery
	借书	打开报表OpenReport
	还书	打开报表OpenReport
窗口
	最小化	Minimize
帮助
	关于…	打开窗体OpenForm
	系统说明	打开窗体OpenForm	系统设计说明

ii 宏设计

（略）如表 2。（）

表 3

3．管理员登录子模块——“管理员登录”窗体

（1）功能说明

在系统主界面中当用户选择管理员登录功能时，打开管理员登录窗体，要求用户输入管理员密码。密码正确才能进入。密码输入错误，给出提示并返回主控窗体。

（2）界面设计

“管理员登录”窗体界面设计如图 2：

图 2

控件	属性	属性值
标签	名称	标签1
标签	标题	请输入管理员密码:
文本框	名称	密码
文本框	输入掩码	密码
按钮	名称	命令2
	标题	确定
	默认	是

（3）功能实现

单击“确定”按钮时，进行密码验证，决定登录是否成功。在“确定”按钮的“单击”事件中，写入如下代码：

Private Sub命令2_Click()

If 密码<> "admin" Then

MsgBox "密码输入错误！即将进入读者登录界面。"

Else

MsgBox "欢迎进入管理员登录界面！"

End If

DoCmd.Close

DoCmd.OpenForm "主窗体"

End Sub

4．图书上架子模块——“图书上架”窗体

（1）功能说明

在系统主界面中当用户选择“图书上架”功能时，打开“图书上架”窗体，要求用户输入图书基本信息。输入完成后关闭窗体，即可完成图书信息输入，并返回主控窗体。

（2）界面设计

“图书上架”窗体界面设计如下图 3：

图 3

其中，窗体及主要控件属性设置如下：

控件	属性	属性值
窗体	记录源	“book”表
按钮	名称	关闭
按钮	标题	关闭

（3）功能实现

¨“关闭”按钮

Private Sub 关闭_Click()

On Error GoTo Err_关闭_Click

DoCmd.Close

Exit_关闭_Click:

Exit Sub

Err_关闭_Click:

MsgBox Err.Description

Resume Exit_关闭_Click

End Sub

5．借阅证办理子模块——“借阅证办理”窗体

（1）功能说明

在系统主界面中当用户选择“借阅证办理”功能时，打开“借阅证办理”窗体，要求用户输入读者基本信息。输入完成后关闭窗体，即可完成读者信息输入，并返回主控窗体。

（2）界面设计

“借阅证办理”窗体界面设计如图 4：

图 4

其中，窗体及主要控件属性设置如下：

控件	属性	属性值
窗体	记录源	“reader”表
“借书证号” 文本框	名称	借书证号
	控件来源	借书证号
	输入掩码	000000
	是否锁定	是
按钮	名称	结束
	标题	办理结束
	默认	是

“班级”组合框属性如下图：

（3）功能实现

¨窗体加载后，自动将焦点设置在“学号”文本框上

Private Sub Form_Load()

[学号].SetFocus

End Sub

¨输入学号后，自动将“借书证号”设置为与“学号”相同

Private Sub 学号_Change()

[借书证号] = [学号]

End Sub

Private Sub 学号_LostFocus()

[借书证号] = [学号]

End Sub

¨ “结束”按钮

Private Sub 结束_Click()

On Error GoTo Err_结束_Click

ch = MsgBox("输入的读者信息将会保存。请确认数据输入是否正确。" & vbCrLf _

& "单击“是”将保存数据，单击“否”将回到输入窗口继续输入或修改。", _

vbQuestion + vbYesNo + vbDefaultButton2, "确认保存")

If ch = vbYes Then

DoCmd.Close

End If

Exit_结束_Click:

Exit Sub

Err_结束_Click:

MsgBox Err.Description

Resume Exit_结束_Click

End Sub

6．图书查询子模块——“图书查询”窗体

（1）功能说明

在系统主界面中当用户选择“图书查询”功能时，打开“图书查询”窗体，允许用户选择按照书名、读者、出版社查询或使用模糊查询。

（2）界面设计

“图书查询”窗体界面设计如图 5：

图 5

窗体属性如下表：

属性	属性值
标题	图书查询
滚动条	两者均无
记录选择器	否
导航按钮	否
分割线	否
自动调整	否
自动居中	是
边框样式	细边框
最大最小化按钮	最小化按钮

“Combo条件”文本框属性如下图：

（3）功能实现

¨单击“按书名查询图书及现有册数”按钮（名称为“按书名查询”），打开“按书名查询图书及现有册数”窗体

Private Sub 按书名查询_Click()

On Error GoTo Err_按书名查询_Click

DoCmd.OpenForm "按书名查询图书及现有册数"

Exit_按书名查询_Click:

Exit Sub

Err_按书名查询_Click:

MsgBox Err.Description

Resume Exit_按书名查询_Click

End Sub

¨单击“按作者查询图书及现有册数”按钮（名称为“按作者查询”），打开“按作者查询图书及现有册数”窗体

Private Sub 按作者查询_Click()

On Error GoTo Err_按作者查询_Click

DoCmd.OpenForm "按作者查询图书及现有册数"

Exit_按作者查询_Click:

Exit Sub

Err_按作者查询_Click:

MsgBox Err.Description

Resume Exit_按作者查询_Click

End Sub

¨单击“按出版社查询图书及现有册数”按钮（名称为“按出版社查询”），打开“按出版社查询图书及现有册数”窗体

Private Sub 按出版社查询_Click()

On Error GoTo Err_按出版社查询_Click

DoCmd.OpenForm "按出版社查询图书及现有册数"

Exit_按出版社查询_Click:

Exit Sub

Err_按出版社查询_Click:

MsgBox Err.Description

Resume Exit_按出版社查询_Click

End Sub

¨如果在“查询条件”组合框（名称为“Combo条件”）中选择“全部”，则不显示“查询内容”文本框，否则显示

Private Sub Combo条件_Change()

If Combo条件.ListIndex = 0 Then

Text查询内容.Visible = False

Label查询内容.Visible = False

Else

Text查询内容.Visible = True

Label查询内容.Visible = True

End If

End Sub

Private Sub Combo条件_Click()

If Combo条件.ListIndex = 0 Then

Text查询内容.Visible = False

Label查询内容.Visible = False

Else

Text查询内容.Visible = True

Label查询内容.Visible = True

End If

End Sub

¨单击“条件查询”按钮（名称为“Cmd查询”），根据条件分别打开不同窗体

Private Sub Cmd查询_Click()

Select Case Combo条件

Case "全部"

DoCmd.OpenForm "查询结果"

Case "书名"

DoCmd.OpenForm "书名查询", OpenArgs:=Text查询内容

Case "作者"

DoCmd.OpenForm "作者查询", OpenArgs:=Text查询内容

Case "出版社"

DoCmd.OpenForm "出版社查询", OpenArgs:=Text查询内容

End If

End Sub

¨单击“模糊查询”按钮（名称为“模糊查询”），根据条件查询（使用SQL命令）后显示

Private Sub 模糊查询_Click()

On Error GoTo Err_模糊查询_Click

sqlstr = ""

num = 1

If 书号 <> "" Then

If num <> 1 Then

sqlstr = sqlstr & " and "

End If

num = num + 1

sqlstr = sqlstr & "书号 like '*" & 书号 & "*'"

End If

If 书名 <> "" Then

If num <> 1 Then

sqlstr = sqlstr & " and "

End If

num = num + 1

sqlstr = sqlstr & "书名 like '*" & 书名 & "*'"

End If

If 作者 <> "" Then

If num <> 1 Then

sqlstr = sqlstr & " and "

End If

num = num + 1

sqlstr = sqlstr & "作者 like '*" & 作者 & "*'"

End If

If 出版社 <> "" Then

If num <> 1 Then

sqlstr = sqlstr & " and "

End If

num = num + 1

sqlstr = sqlstr & "出版社 like '*" & 出版社 & "*'"

End If

If 出版时间 <> "" Then

If num <> 1 Then

sqlstr = sqlstr & " and "

End If

num = num + 1

sqlstr = sqlstr & "出版时间 like '*" & 出版时间 & "*'"

End If

If 版次 <> "" Then

If num <> 1 Then

sqlstr = sqlstr & " and "

End If

num = num + 1

sqlstr = sqlstr & "版次 like '*" & 版次 & "*'"

End If

If 价格 <> "" Then

If num <> 1 Then

sqlstr = sqlstr & " and "

End If

num = num + 1

sqlstr = sqlstr & "价格 like '*" & 价格 & "*'"

End If

If sqlstr <> "" Then

DoCmd.OpenForm "查询结果", OpenArgs:=sqlstr

Else

MsgBox "请输入查询要求！"

End If

Exit_模糊查询_Click:

Exit Sub

Err_模糊查询_Click:

MsgBox Err.Description

Resume Exit_模糊查询_Click

End Sub

7．图书查询各子模块（子窗体）

（1） “按书名查询图书及现有册数”窗体、“按作者查询图书及现有册数”窗体、“按出版社查询图书及现有册数”窗体

¨界面设计

“按书名查询图书及现有册数”窗体界面如图 6（其他类似）：

图 6

各窗体“记录源”属性如下表：

窗体	属性值
“按书名查询图书及现有册数”	“按书名查询图书及现有册数”查询
“按作者查询图书及现有册数”	“按作者查询图书及现有册数”查询
“按出版社查询图书及现有册数”	“按出版社查询图书及现有册数”查询

¨查询实现

“按书名查询图书及现有册数”查询设计如图 7：（其余类似）

图 7

¨“查询图书借出册数”查询实现

（2） “书名查询”窗体、“作者查询”窗体、“出版社查询”窗体

¨界面设计

“书名查询”窗体界面如图 8（其他类似）：

图 8

¨查询功能实现

“书名查询”窗体加载代码和查询按钮代码如下：（其余窗体类似）

Private Sub Form_Load()

查询书名 = Me.OpenArgs

Me.RecordSource = "select * from 查询图书及现有册数 where 书名='" & Me.OpenArgs & "'"

记录数.Caption = "共" & DCount("书号", "查询图书及现有册数", "书名='" & Me.OpenArgs & "'") & "条记录"

查询书名.SetFocus

End Sub

Private Sub 查询_Click()

Me.RecordSource = "select * from 查询图书及现有册数 where 书名='" & 查询书名 & "'"

记录数.Caption = "共" & DCount("书号", "查询图书及现有册数", "书名='" & 查询书名 & "'") & "条记录"

查询书名.SetFocus

End Sub

¨“查询图书及现有册数”查询实现

（3） “查询结果”窗体

¨界面设计

“查询结果”窗体界面如图 9：

图 9

¨功能实现

“查询结果”窗体加载代码如下：

Private Sub Form_Load()

If Me.OpenArgs <> "" Then

Me.RecordSource = "select * from 查询图书及现有册数 where " & Me.OpenArgs

查询条件.Caption = "查询条件：" & Me.OpenArgs

End If

记录数.Caption = "共" & DCount("书号", "查询图书及现有册数", Me.OpenArgs) & "条记录"

End Sub

8．借书还书

（1）功能说明

（略）

（2）界面设计

（略）

（3）功能实现

（略）

9．设置启动窗体

将主窗体设置为启动窗体。

一、 系统概述

二、 需求分析

1． 图书借阅处理过程简述

（1） 新增图书上架

（2） 办理图书借阅证

（3） 图书查询

（4） 借书

（5） 还书

2． 数据分析

3． 功能分析

三、 数据库设计

1． 数据库

2． 表

四、 总体设计

1． 总体功能设计

2． 系统功能模块图

3． 子模块功能设计

五、 详细设计

1． 系统初始化模块

¨模块init

2． 系统主控模块——主窗体

（1） 功能说明

（2） 界面设计——按钮

i 主窗体界面图

ii 主窗体及控件属性

iii 主窗体及控件事件宏和代码

¨主窗体“加载”事件

¨主窗体“打开”事件

¨ “管理员登录”宏

¨ “图书上架”宏

¨“借阅证办理”宏

¨“图书查询”宏

¨“借书还书”宏

（3） 界面设计——菜单

i 系统主菜单

ii 宏设计

3． 管理员登录子模块——“管理员登录”窗体

（1） 功能说明

（2） 界面设计

（3） 功能实现

4． 图书上架子模块——“图书上架”窗体

（1） 功能说明

（2） 界面设计

（3） 功能实现

¨“关闭”按钮

5． 借阅证办理子模块——“借阅证办理”窗体

（1） 功能说明

（2） 界面设计

（3） 功能实现

¨窗体加载后，自动将焦点设置在“学号”文本框上

¨输入学号后，自动将“借书证号”设置为与“学号”相同

¨ “结束”按钮

6． 图书查询子模块——“图书查询”窗体

（1） 功能说明

（2） 界面设计

（3） 功能实现

¨单击“按书名查询图书及现有册数”按钮（名称为“按书名查询”），打开“按书名查询图书及现有册数”窗体

¨单击“按作者查询图书及现有册数”按钮（名称为“按作者查询”），打开“按作者查询图书及现有册数”窗体

¨单击“按出版社查询图书及现有册数”按钮（名称为“按出版社查询”），打开“按出版社查询图书及现有册数”窗体

¨如果在“查询条件”组合框（名称为“Combo条件”）中选择“全部”，则不显示“查询内容”文本框，否则显示

¨单击“条件查询”按钮（名称为“Cmd查询”），根据条件分别打开不同窗体

¨单击“模糊查询”按钮（名称为“模糊查询”），根据条件查询（使用SQL命令）后显示

7． 图书查询各子模块（子窗体）

（1） “按书名查询图书及现有册数”窗体、“按作者查询图书及现有册数”窗体、“按出版社查询图书及现有册数”窗体

¨界面设计

¨查询实现

¨“查询图书借出册数”查询实现

（2） “书名查询”窗体、“作者查询”窗体、“出版社查询”窗体

¨界面设计

¨查询功能实现

¨“查询图书及现有册数”查询实现

（3） “查询结果”窗体

¨界面设计

¨功能实现

8． 借书还书

（1） 功能说明

（2） 界面设计

（3） 功能实现

9． 设置启动窗体

一、系统概述

二、需求分析

1．图书借阅处理过程简述

（1）新增图书上架

（2）办理图书借阅证

（3）图书查询

（4）借书

（5）还书

2．数据分析

3．功能分析

三、数据库设计

1．数据库

2．表

四、总体设计

1．总体功能设计

2．系统功能模块图

3．子模块功能设计

五、详细设计

1．系统初始化模块

2．系统主控模块——主窗体

（1）功能说明

（2）界面设计——按钮

（3）界面设计——菜单

3．管理员登录子模块——“管理员登录”窗体

（1）功能说明

（2）界面设计

（3）功能实现

4．图书上架子模块——“图书上架”窗体

（1）功能说明

（2）界面设计

（3）功能实现

5．借阅证办理子模块——“借阅证办理”窗体

（1）功能说明

（2）界面设计

（3）功能实现

6．图书查询子模块——“图书查询”窗体

（1）功能说明

（2）界面设计

（3）功能实现

7．图书查询各子模块（子窗体）

8．借书还书

（1）功能说明

（2）界面设计

（3）功能实现

9．设置启动窗体