电子商务Word文件下载.docx
《电子商务Word文件下载.docx》由会员分享，可在线阅读，更多相关《电子商务Word文件下载.docx（21页珍藏版）》请在冰点文库上搜索。
登记新书信息并编号
b）
借书证办理
登记读者信息并编号
c）
图书查询
允许读者选择查询方式，并按照读者输入的信息查找到相关图书的信息并显示
d）
借书
查看是否能借书，如果可以则登记相关信息，打印借书条。
e）
还书
查看是否超期，如果超期，则计算应交罚款。
三、
数据库设计
1．数据库
数据库名称为library.mdb。
2．表
数据库中包含三个表：
图书表（book）、读者表（reader）、借阅表（borrow）各表结构如下：
book
字段名
书号
书名
作者
出版社
出版时间
版次
价格
总册数
类型
文本
数字
字段大小
8
20
10
整数
字节
单精度型
其它
数字字符
必填
1990至当年
1~9
两位小数
1~10
主键
reader
借书证号
学号
姓名
班级
照片
OLE对象
6
4
数字字符/必填
borrow
流水号
借书日期
已归还
自动编号
文本/查阅
日期
是/否
默认值：
Date（）
否
book表与borrow表为一对多的关系，连接字段为book的书号和borrow的书号；
reader表与borrow表为一对多的关系，连接字段为reader的借书证号和borrow的借书证号。
四、
总体设计
1．总体功能设计
系统功能总体分为五个模块：
管理员登录、图书上架、借阅证办理、图书查询和借书还书。
2．系统功能模块图
总控模块
图书上架
借阅证办理
图书查询
借书还书
管理员登录
总控模块以主窗体形式出现。
其中，默认情况下，管理员登录、图书查询和借书还书模块可以使用，即所有用户都可以使用。
只有进行合法的管理员登录后，图书上架、借阅证办理才可以使用。
3．子模块功能设计
l
管理员登录子模块用来判断用户输入的密码是否正确，以决定是否进入管理员模式
图书上架子模块用来输入图书基本信息
借阅证办理子模块用来输入读者基本信息
图书查询子模块包括按照书名、读者、出版社进行选择查询、条件查询和模糊查询三大部分
借书还书子模块包括借书和还书两个二级子模块。
其中，
Ø
借书二级子模块包括借书信息输入和打印借书条两部分
还书二级子模块包括还书信息输入和计算超时欠费两部分
五、
详细设计
1．系统初始化模块
系统初始化模块的作用是声明系统全局变量，初始化系统变量设置等。
¨
模块init
OptionCompareDatabase
PublicLoginAsBoolean
'
全局变量Login-记录管理员是否登录
2．系统主控模块——主窗体
（1）功能说明
系统主窗体是用户进入系统后首先打开的窗体，主要用于方便用户进行工作选择，因此采用按钮和菜单两种方式完成。
（2）界面设计——按钮
i主窗体界面图
系统主窗体界面设计如图1。
图1
ii主窗体及控件属性
系统主窗体及控件属性如表1。
表1
名称
属性
属性值
主窗体
标题
图书借阅管理系统
滚动条
两者均无
记录选择器
导航按钮
分割线
自动调整
自动居中
是
边框样式
细边框
最大最小化按钮
最小化按钮
命令0
单击事件
运行宏“管理员登录”
Label0
命令1
运行宏“图书上架”
可见性
Label1
命令2
运行宏“借阅证办理”
Label2
命令3
运行宏“图书查询”
Label3
命令4
运行宏“借书还书”
Label4
iii主窗体及控件事件宏和代码
主窗体“加载”事件
PrivateSubForm_Load（）
Login=False
EndSub
主窗体“打开”事件
PrivateSubForm_Open（CancelAsInteger）
命令1.Visible=Login
Label1.Visible=Login
命令2.Visible=Login
Label2.Visible=Login
命令0.Visible=NotLogin
Label0.Visible=NotLogin
“管理员登录”宏
操作
参数
参数值
Close
对象类型
窗体
对象名称
OpenForm
窗体名称
“图书上架”宏
数据模式
增加
“借阅证办理”宏
“图书查询”宏
“借书还书”宏
（3）界面设计——菜单
i系统主菜单
系统主菜单（略）
如表2。
（）
表2
菜单项
子菜单
宏
管理
打开窗体OpenForm
图书信息修改
退出系统
Quit
借还书
打开查询OpenQuery
借书
打开报表OpenReport
还书
窗口
最小化
Minimize
帮助
关于…
系统说明
系统设计说明
ii宏设计
（略）如表2。
表3
3．管理员登录子模块——“管理员登录”窗体
在系统主界面中当用户选择管理员登录功能时，打开管理员登录窗体，要求用户输入管理员密码。
密码正确才能进入。
密码输入错误，给出提示并返回主控窗体。
（2）界面设计
“管理员登录”窗体界面设计如图2：
图2
控件
标签
标签1
请输入管理员密码:
文本框
密码
输入掩码
按钮
确定
默认
（3）功能实现
单击“确定”按钮时，进行密码验证，决定登录是否成功。
在“确定”按钮的“单击”事件中，写入如下代码：
PrivateSub命令2_Click（）
If密码<
>
"
admin"
Then
MsgBox"
密码输入错误！
即将进入读者登录界面。
"
Else
欢迎进入管理员登录界面！
Login=True
EndIf
DoCmd.Close
DoCmd.OpenForm"
主窗体"
4．图书上架子模块——“图书上架”窗体
在系统主界面中当用户选择“图书上架”功能时，打开“图书上架”窗体，要求用户输入图书基本信息。
输入完成后关闭窗体，即可完成图书信息输入，并返回主控窗体。
“图书上架”窗体界面设计如下图3：
图3
其中，窗体及主要控件属性设置如下：
记录源
“book”表
关闭
“关闭”按钮
PrivateSub关闭_Click（）
OnErrorGoToErr_关闭_Click
Exit_关闭_Click:
ExitSub
Err_关闭_Click:
MsgBoxErr.Description
ResumeExit_关闭_Click
5．借阅证办理子模块——“借阅证办理”窗体
在系统主界面中当用户选择“借阅证办理”功能时，打开“借阅证办理”窗体，要求用户输入读者基本信息。
输入完成后关闭窗体，即可完成读者信息输入，并返回主控窗体。
“借阅证办理”窗体界面设计如图4：
图4
“reader”表
“借书证号”
控件来源
000000
是否锁定
结束
办理结束
“班级”组合框属性如下图：
窗体加载后，自动将焦点设置在“学号”文本框上
[学号].SetFocus
输入学号后，自动将“借书证号”设置为与“学号”相同
PrivateSub学号_Change（）
[借书证号]=[学号]
PrivateSub学号_LostFocus（）
“结束”按钮
PrivateSub结束_Click（）
OnErrorGoToErr_结束_Click
ch=MsgBox（"
输入的读者信息将会保存。
请确认数据输入是否正确。
&
vbCrLf_
单击“是”将保存数据，单击“否”将回到输入窗口继续输入或修改。
_
vbQuestion+vbYesNo+vbDefaultButton2,"
确认保存"
）
Ifch=vbYesThen
Exit_结束_Click:
Err_结束_Click:
ResumeExit_结束_Click
6．图书查询子模块——“图书查询”窗体
在系统主界面中当用户选择“图书查询”功能时，打开“图书查询”窗体，允许用户选择按照书名、读者、出版社查询或使用模糊查询。
“图书查询”窗体界面设计如图5：
图5
窗体属性如下表：
“Combo条件”文本框属性如下图：
单击“按书名查询图书及现有册数”按钮（名称为“按书名查询”），打开“按书名查询图书及现有册数”窗体
PrivateSub按书名查询_Click（）
OnErrorGoToErr_按书名查询_Click
按书名查询图书及现有册数"
Exit_按书名查询_Click:
Err_按书名查询_Click:
ResumeExit_按书名查询_Click
单击“按作者查询图书及现有册数”按钮（名称为“按作者查询”），打开“按作者查询图书及现有册数”窗体
PrivateSub按作者查询_Click（）
OnErrorGoToErr_按作者查询_Click
按作者查询图书及现有册数"
Exit_按作者查询_Click:
Err_按作者查询_Click:
ResumeExit_按作者查询_Click
单击“按出版社查询图书及现有册数”按钮（名称为“按出版社查询”），打开“按出版社查询图书及现有册数”窗体
PrivateSub按出版社查询_Click（）
OnErrorGoToErr_按出版社查询_Click
按出版社查询图书及现有册数"
Exit_按出版社查询_Click:
Err_按出版社查询_Click:
ResumeExit_按出版社查询_Click
如果在“查询条件”组合框（名称为“Combo条件”）中选择“全部”，则不显示“查询内容”文本框，否则显示
PrivateSubCombo条件_Change（）
IfCombo条件.ListIndex=0Then
Text查询内容.Visible=False
Label查询内容.Visible=False
Text查询内容.Visible=True
Label查询内容.Visible=True
PrivateSubCombo条件_Click（）
Label查询内容.Visible=True
单击“条件查询”按钮（名称为“Cmd查询”），根据条件分别打开不同窗体
PrivateSubCmd查询_Click（）
SelectCaseCombo条件
Case"
全部"
查询结果"
书名"
书名查询"
OpenArgs:
=Text查询内容
作者"
作者查询"
出版社"
出版社查询"
单击“模糊查询”按钮（名称为“模糊查询”），根据条件查询（使用SQL命令）后显示
PrivateSub模糊查询_Click（）
OnErrorGoToErr_模糊查询_Click
sqlstr="
num=1
If书号<
Ifnum<
1Then
sqlstr=sqlstr&
and"
num=num+1
书号like'
*"
书号&
*'
If书名<
书名like'
书名&
If作者<
作者like'
作者&
If出版社<
出版社like'
出版社&
If出版时间<
出版时间like'
出版时间&
If版次<
num=num+1
版次like'
版次&
If价格<
价格like'
价格&
EndIf
Ifsqlstr<
=sqlstr
请输入查询要求！
Exit_模糊查询_Click:
Err_模糊查询_Click:
ResumeExit_模糊查询_Click
7．图书查询各子模块（子窗体）
（1）“按书名查询图书及现有册数”窗体、“按作者查询图书及现有册数”窗体、“按出版社查询图书及现有册数”窗体
界面设计
“按书名查询图书及现有册数”窗体界面如图6（其他类似）：
图6
各窗体“记录源”属性如下表：
“按书名查询图书及现有册数”
“按书名查询图书及现有册数”查询
“按作者查询图书及现有册数”
“按作者查询图书及现有册数”查询
“按出版社查询图书及现有册数”
“按出版社查询图书及现有册数”查询
查询实现
“按书名查询图书及现有册数”查询设计如图7：
（其余类似）
图7
“查询图书借出册数”查询实现
（2）“书名查询”窗体、“作者查询”窗体、“出版社查询”窗体
“书名查
升级会员 