图书管理系统设计说明书.docx
- 文档编号:4683006
- 上传时间:2022-12-07
- 格式:DOCX
- 页数:35
- 大小:1.30MB
图书管理系统设计说明书.docx
《图书管理系统设计说明书.docx》由会员分享,可在线阅读,更多相关《图书管理系统设计说明书.docx(35页珍藏版)》请在冰豆网上搜索。
图书管理系统设计说明书
大学二级学院图书管理系统的设计与开发
1.项目开发背景
学院于2002年开始创办图书资料室,经过几年的建设,现已有图书近7000册,期刊260种,并将继续购进图书期刊。
图书资料室于2003年下半年开始向全院教师开放,允许教师同时借书10册,每册图书借期3个月,学生限借1册,借期1周,过期罚款,不可以续借,期刊部外借,但可以复印。
学院不断有新书购进和新的教师和学生加入,工作人员工强度大,效率低下。
因此有必要开发一套图书管理系统进行计算机管理。
2.可行性分析
可行性分析的目的是说明该软件开发项目的实现在技术,经济和社会条件方面的可行性。
一般的,软件领域的可行性分析主要考虑3个因素:
经济,技术和社会环境。
2.1技术上的可行性
本产品的关键技术是基于VisualBasic编程的程序设计和Access数据库相结合,将所有数据信息都放入数据库中进行存储,而这些数据信息的调用则是完全由程序完成的,即“程序设计数据化,数据管理程序化”思想。
本系统产品采用VisualBasic编程的程序设计与Access据库相结合的方法进行开发,而图书管理系统实现的理论及技术也日趋成熟,因此图书管理系统应用软件的开发手段是完全可行的。
2.2社会因素的可行性
系统的社会因素方面的可行性应该从法律因素和用户使用这两个方面进行分析。
本产品的所有资料都由开发单位保管,另外通过签订合同来确定开发单位和使用单位的职责和违约,因此在法律因素发面,该系统是可行的。
另外使用本操作系统的人员要求有一定的计算机知识,计算机管理人员要求具有计算机专业知识。
因此在用户使用方面,图书管理系统也是可行的。
2.3经济方面可行性
系统的经济方面的可行性应该从项目开发的投入金额、收益、收益投资比、投资回收周期和敏感性分析来考虑。
会使用该系统全面节省了人力,通过计算机来实现对图书管理系统,大大提高了图书管理的工作效率,节省了时间。
系统的开发需要少量设备购置费、软件开发费、管理和维护费用,且人员培训过程简单费用不多。
运行费用方面,由于系统比较小,不必进行太多的运行维护,系统的开发可以较好地解决因业务繁杂而造成的处理效率低,出错率偏高的局面,并可以及时了解各项业务的进展情况,从而提高效益,同时还可以减少人工劳动、提高工作效率、扩大业务量和更好的服务全院师生。
3.系统分析
3.1系统功能结构分析
本图书管理系统主要是对该大学二级学院图书的借阅工作进行管理,要实现的主要功能如下:
1)读者管理
2)图书管理
3)借书还书处理
4)系统管理
读者管理:
读者为该院的教师和学生,本功能需要实现对在校的本院教师和学生进行注册(添加读者),离校的本院教师和学生进行注销(删除读者),和读者的基本信息以及借还状态查询。
并且进行注册和注销操作需要有操作权限的管理员才能实现,读者需要输入正确的账号密码才能对自己的信息进行查询。
图书管理:
本功能需要实现有管理权限的管理员对新书的入库(书籍信息的添加),旧书的处理(书籍信息的删除)进行操作,和读者对书籍基本信息,图书编号,是否可借等信息进行查询。
借书还书处理:
本功能需要实现在册读者的借书和还书操作。
借书操作需要完成比对是否为可借书籍,并对所借书籍进行借出纪录。
借书操作中系统还应自动完成读者借书次数的累加,并从当日开始计算还书日期。
还书操作需要完成对所还书籍进行归还纪录,并计算是否超期,如果超期,计算罚款金额。
系统管理:
系统管理需要实现用户设置并对其进行权限管理。
由于本系统涉及用户数量多,管理难度大。
因此,按实际需求,将用户按账号类型分为一级管理员,二级管理员和用户。
现系统功能分析如图1
图1.图书管理系统功能图
3.2组织结构分析
该二级学院图书资料室的组织结构分析图如图2
图2.组织结构图
3.3客户端流程图
否
是
否
是
4.数据库设计
4.1数据库的建立
系统的数据库主要是应用Access编辑软件进行编辑的,本系统数据
库由读者信息表,图书信息表,借还状态表,用户管理表组成。
各表建立的示意图如下:
4.2数据库的连接
在VisualBasic中,使程序与数据库的连接有两种方式,一种使通过设置ADO控件的属性将程序与数据库进行连接,另一种是通过代码形式将ADO控件连接数据库,通过代码的形式虽然加大了开发难度,但是有很多的优点,所以,在程序开发是选择了以代码的形式来连接数据库。
1)首先是添加新的部件:
MicrosoftADODATAControl6.0和MicrosoftDataGridGridContol6.0。
方法是点击工程---部件---在需要的这两个部件上面划勾。
这样新的布局就添加成功了。
2)具体连接的方法,在窗体上画一个ADODC1部件,然后在上面单击右键,选择ADODC属性,点击“生成”,选择如图:
3)然后下一步选择所建立的数据库测试连接
4)连接测试成功之后,点击确定,选择数据源,如图:
5)点击确定之后,就可以了。
然后在下面所对应的DataGrid中的Datasource选择为adodc1。
这样就把数据库和VB连接起来了。
5.系统设计
下面是该系统的部分界面以及主要代码的介绍:
5.1登录界面
由管理员输入账号和相应密码,如果匹配则登录后直接连接到图书查询界面。
如果不匹配则提示输入账号或者密码错误。
(由于系统功能并未实现,账号和密码均为系统预设)
其代码如下:
PrivateSubCommand1_Click()
IfText1.Text="0701030234"AndText2.Text="111111"Then
Form1.Hide
Form3.Show
ElseIfText1.Text="zhengyu"AndText2.Text="222222"Then
Form1.Hide
Form3.Show
Else
MsgBox"您输入的密码或用户名不符"
Text1.Text=""
Text2.Text=""
EndIf
EndSub
PrivateSubCommand2_Click()
End
EndSub
5.2图书管理模块
5.2.1图书查询界面
由登录界面转接到图书查询界面之后就可以根据所掌握的相关信息进行查询了,这里提供的查询方式为在相应的框体输入信息,然后单击其后的查询按钮便可进行查询。
如果没有相关的纪录则会提示没有相关的信息,并将框体清空。
实现代码如下:
PrivateSubCommand1_Click()
DimtsbhAsString
tsbh=Text1.Text
Adodc1.Recordset.Filter="图书编号='"+tsbh+"'"
IfAdodc1.Recordset.EOFThen
MsgBox"没有您所查的相关信息"
EndIf
Text1.Text=""
EndSub
PrivateSubCommand2_Click()
DimtsmcAsString
tsmc=Text2.Text
Adodc1.Recordset.Filter="图书名称='"+tsmc+"'"
IfAdodc1.Recordset.EOFThen
MsgBox"没有您所查的相关信息"
EndIf
Text2.Text=""
EndSub
PrivateSubCommand3_Click()
DimzzAsString
zz=Text3.Text
Adodc1.Recordset.Filter="作者='"+zz+"'"
IfAdodc1.Recordset.EOFThen
MsgBox"没有您所查的相关信息"
EndIf
Text3.Text=""
EndSub
PrivateSubCommand4_Click()
DimtslxAsString
tslx=Combo1.Text
Adodc1.Recordset.Filter="图书类型='"+tslx+"'"
IfAdodc1.Recordset.EOFThen
MsgBox"没有您所查的相关信息"
EndIf
EndSub
PrivateSubCommand9_Click()
DimcbsAsString
cbs=Text5.Text
Adodc1.Recordset.Filter="出版社='"+cbs+"'"
IfAdodc1.Recordset.EOFThen
MsgBox"没有您所查的相关信息"
EndIf
Text5.Text=""
EndSub
将光标移动至第一个,移动至下一个,移动至上一个,移动至最后一个由以下代码实现:
PrivateSubCommand5_Click()
Adodc1.Recordset.MoveFirst
EndSub
PrivateSubCommand6_Click()
Adodc1.Recordset.MoveNext
EndSub
PrivateSubCommand7_Click()
Adodc1.Recordset.MovePrevious
EndSub
PrivateSubCommand8_Click()
Adodc1.Recordset.MoveLast
EndSub
菜单项中的各个功能的转换由以下代码实现:
PrivateSubmnudzxx_Click()
Form3.Hide
Form4.Show
EndSub
PrivateSubmnujshs_Click()
Form3.Hide
Form6.Show
EndSub
PrivateSubmnutc_Click()
End
EndSub
PrivateSubmnutsxxgl_Click()
Form3.Hide
Form5.Show
EndSub
PrivateSubmnuxdzzc_Click()
Form3.Hide
Form2.Show
EndSub
PrivateSubmnudzxxcx_Click()
Form4.Show
Form3.Hide
EndSub
5.2.2图书信息管理界面
在本界面实现的功能有三个,即图书信息录入功能,图书信息修改功能,图书信息删除功能。
图书信息录入时要求每个框体必须输入相应信息,否则将提示输入。
其中图书编号须是数字形式,购买日期须是日期形式。
如果输入图书编号已存在,则提示该编号的书已存在。
录入成功之后框体将清空。
录入功能实现代码如下:
PrivateSubCommand1_Click()
IfText1.Text=""Then
MsgBox"请输入图书编号"
ExitSub
EndIf
IfText2.Text=""Then
MsgBox"请输入图书名称"
ExitSub
EndIf
IfCombo1.Text="Combo1"Then
MsgBox"请选择图书类型"
ExitSub
EndIf
IfText4.Text=""Then
MsgBox"请输入作者"
ExitSub
EndIf
IfText5.Text=""Then
MsgBox"请输入出版社"
ExitSub
EndIf
IfText6.Text=""Then
MsgBox"请按年/月/日输入购买日期"
ExitSub
EndIf
IfText7.Text=""Then
MsgBox"请输入新旧备注"
ExitSub
EndIf
IfText1.Text<>""Then
Adodc1.Recordset.Filter="图书编号='"+Text1.Text+"'"
IfAdodc1.Recordset.EOF=FalseThen
MsgBox"该编号的书已经存在"
ExitSub
EndIf
EndIf
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("图书编号")=Text1.Text
Adodc1.Recordset.Fields("图书名称")=Text2.Text
Adodc1.Recordset.Fields("图书类型")=Combo1.Text
Adodc1.Recordset.Fields("作者")=Text4.Text
Adodc1.Recordset.Fields("出版社")=Text5.Text
Adodc1.Recordset.Fields("购买日期")=Text6.Text
Adodc1.Recordset.Fields("备注")=Text7.Text
Adodc1.Recordset.Fields("可借")="是"
MsgBox"图书信息录入成功"
Text1.Text=""
Text2.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
修改和删除功能设计思路是在框体中不必输入全部信息,根据提供信息进行组合搜索,通过移动光标选择后再进行修改和删除。
搜索部分的代码如下:
PrivateSubCommand2_Click()
DimtsbhAsString
DimtsmcAsString
DimtslxAsString
DimzzAsString
DimcbsAsString
DimgmrqAsString
DimbzAsString
tsbh=Text1.Text
tsmc=Text2.Text
tslx=Combo1.Text
zz=Text4.Text
cbs=Text5.Text
gmrq=Text6.Text
bz=Text7.Text
Iftsmc<>""Then
a="图书名称='"+tsmc+"'"+"and"
Else
a=""
EndIf
Iftsbh<>""Then
b="图书编号="+tsbh+"and"
Else
b=""
EndIf
Ifzz<>""Then
c="作者='"+zz+"'"+"and"
Else
c=""
EndIf
Ifcbs<>""Then
d="出版社='"+cbs+"'"+"and"
Else
d=""
EndIf
Ifgmrq<>""Then
e="购买日期="+gmrq+"and"
Else
e=""
EndIf
Ifbz<>""Then
f="备注='"+bz+"'"+"and"
Else
f=""
EndIf
Iftslx<>""Then
g="图书类型='"+tslx+"'"+"and"
Else
g=""
EndIf
s1=a+b+c+d+e+f+g
If(Len(s1)-4)<0Then
MsgBox"请输入必要搜索信息"
ExitSub
Else
Adodc1.Recordset.Filter=Left(s1,Len(s1)-4)
EndIf
IfAdodc1.Recordset.EOF=TrueThen
MsgBox"没有要修改或删除的纪录"
ExitSub
EndIf
MsgBox"请选择要修改或删除的纪录"
EndSub
修改部分:
图书编号不可修改以外其他所有信息均可修改,但必须将所有信息重新填入否则将有提示输入完整信息。
借出中的图书不能进行修改。
修改成功后将框体清空。
实现代码如下:
PrivateSubCommand4_Click()
Dimy
IfText2.Text=""Then
MsgBox"请输入图书名称"
ExitSub
EndIf
IfCombo1.Text="Combo"Then
MsgBox"请选择图书类型"
ExitSub
EndIf
IfText4.Text=""Then
MsgBox"请输入作者"
ExitSub
EndIf
IfText5.Text=""Then
MsgBox"请输入出版社"
ExitSub
EndIf
IfText6.Text=""Then
MsgBox"请按年/月/日输入购买日期"
ExitSub
EndIf
IfText7.Text=""Then
MsgBox"请输入新旧备注"
ExitSub
EndIf
IfAdodc1.Recordset.Fields("可借")="否"Then
MsgBox"借出中,不能修改"
ExitSub
EndIf
y=MsgBox("要修改该记录吗?
",vbYesNo,"修改记录")
Ify=vbNoThen
Text1.Text=""
Text2.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
ExitSub
EndIf
'Adodc1.Recordset.Fields("图书编号")=Text1.Text
Adodc1.Recordset.Fields("图书名称")=Text2.Text
Adodc1.Recordset.Fields("图书类型")=Combo1.Text
Adodc1.Recordset.Fields("作者")=Text4.Text
Adodc1.Recordset.Fields("出版社")=Text5.Text
Adodc1.Recordset.Fields("购买日期")=Text6.Text
Adodc1.Recordset.Fields("备注")=Text7.Text
Adodc1.Recordset.Fields("可借")="是"
MsgBox"图书信息修改成功"
Text1.Text=""
Text2.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
EndSub
删除部分:
单击删除按钮后将提示是否删除,单击否后,将直接退出修改。
实现代码如下:
PrivateSubCommand3_Click()
Dimy
y=MsgBox("要删除该记录吗?
",vbYesNo,"删除记录")
Ify=vbNoThen
ExitSub
Else
IfAdodc1.Recordset.EOF=TrueThen
MsgBox"没有要删除的纪录"
ExitSub
Else
Adodc1.Recordset.Delete
MsgBox"删除成功"
EndIf
EndIf
EndSub
菜单项中各个窗体的转换由以下代码实现:
PrivateSubmnudzxx_Click()
Form5.Hide
Form4.Show
EndSub
PrivateSubmnujshs_Click()
Form5.Hide
Form6.Show
EndSub
PrivateSubmnutc_Click()
End
EndSub
PrivateSubmnutscx_Click()
Form5.Hide
Form3.Show
EndSub
PrivateSubmnuxtgl_Click()
Form5.Hide
Form7.Show
EndSub
PrivateSubmnuxdzzc_Click()
Form5.Hide
Form2.Show
EndSub
5.3读者管理模块
5.3.1新读者注册界面
本功能只提供教师和学生两种读者类型注册,读者编号须为数字,如果系统中已存在该读者编号,则提示读者编号不可用。
功能实现代码如下
PrivateSubCommand1_Click()
IfText1.Text=""Then
MsgBox"请输入读者编号"
ExitSub
EndIf
IfText2.Text=""Then
MsgBox"请输入姓名"
ExitSub
EndIf
IfOption1.Value=FalseAndOption2.Value=FalseThen
MsgBox"请选择读者类型"
ExitSub
EndIf
IfCombo1.Text="Combo1"Then
MsgBox"请选择性别"
ExitSub
EndIf
IfText1.Text<>""Then
Adodc1.Recordset.Filter="读者编号='"+Text1.Text+"'"
IfAdodc1.Recordset.EOF=FalseThen
MsgBox"读者编号不可用,请重新输入"
ExitSub
EndIf
EndIf
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("读者编号")=Text1.Text
Adodc1.Recordset.Fields("姓名")=Text2.Text
Adodc1.Recordset.Fields("性别")=Combo1.Text
IfOption1.Value=TrueThen
Adodc1.Recordset.Fields("职称")=Option1.Caption
Adodc1.Recordset.Fields("备注")=1
Else
Adodc1.Recordset.Fields("职称")=Option2.Caption
Adodc1.Recordset.Fields("备注")=2
EndIf
MsgBox"新读者注册成功"
Text1.Text=""
Text2.Text=""
EndSub
以下为取消的代码。
单击取消
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 图书 管理 系统 设计 说明书