ass图书馆管理系统设计.docx
- 文档编号:18094923
- 上传时间:2023-08-13
- 格式:DOCX
- 页数:39
- 大小:3.70MB
ass图书馆管理系统设计.docx
《ass图书馆管理系统设计.docx》由会员分享,可在线阅读,更多相关《ass图书馆管理系统设计.docx(39页珍藏版)》请在冰点文库上搜索。
ass图书馆管理系统设计
(此文档为word格式,下载后您可任意编辑修改!
)
设计报告
题目:
图书馆管理系统
学院经济与管理学院
专业信息管理与信息系统
班级
学号
姓名
指导教师
1开发背景
当今时代是飞速发展的信息时代,在各行各业中离不开信息处理,这正是计算机被广泛应用于信息管理系统的环境。
计算机的最大好处在于利用它能够进行信息管理。
本系统就是为了管理好图书馆信息而设计的。
图书馆作为一种信息资源的集散地,图书和用户借阅资料繁多,包含很多的信息数据的管理,现今,有很多的图书馆都是初步开始使用,甚至尚未使用计算机进行信息管理。
根据调查得知,他们以前对信息管理的主要方式是基于文本、表格等纸介质的手工处理,对于图书借阅情况(如借书天数、超过限定借书时间的天数)的统计和核实等往往采用对借书卡的人工检查进行,对借阅者的借阅权限、以及借阅天数等用人工计算、手抄进行。
数据信息处理工作量大,容易出错;由于数据繁多,容易丢失,且不易查找。
总的来说,缺乏系统,规范的信息管理手段。
基于这此问题,我认为有必要建立一个图书管理系统,使图书管理工作规范化,系统化,程序化,避免图书管理的随意性,提高信息处理的速度和准确性,能够及时、准确、有效的查询和修改图书情况。
2可行性分析
2.1技术可行性
处理速度快,准确通过权限的设置,数据的安全性好,方便查询借阅管理等。
2.2经济可行性
图书馆在学校或大型公众场存在,其经济成分比重相对比较适中,主要是支出的费用:
其中包括基本建设费,软件开发费用,管理维护费用,人员工资和培训费等.在一个图书馆中实行统一操作,资源共享,建立图书信息库,收集各方面的图书信息,提高图书管理的计划性和预见性.开发完成运行后,为使用者带来便利。
2.3管理可行性
本系统界面友好,操作简单,比较实用。
计算机信息化管理有着储存信息量大、速度快等许多优点,处理信息及时快捷
3软件需求分析
3.1任务概述
图书管理系统需要满足来自二方面的需求,这两个方面分别是图书借阅者和图书馆管理人员。
图书借阅者的需求是查询图书馆所存的图书、个人借阅情况及个人信息的修改;图书馆工作人员对图书借阅者的借阅及还书要求进行操作,同时形成借书或还书报表给借阅者查看确认;图书馆管理人员的功能最为复杂,包括对工作人员、图书借阅者、图书进行管理和维护,及系统状态的查看、维护并生成催还图书报表。
图书借阅者可直接查看图书馆图书情况。
一般情况下,图书借阅者只应该查询和维护本人的借书情况和个人信息,若查询和维护其他借阅者的借书情况和个人信息,就要知道其他图书借阅者的借书证号和密码。
这些是很难得到的,特别是密码,所以不但满足了图书借阅者的要求,还保护了图书借阅者的个人隐私。
图书馆管理人员功能的信息量大,数据安全性和保密性要求最高。
本功能实现对图书信息、借阅者信息、总体借阅情况信息的管理和统计、管理人员信息查看及维护。
图书馆管理员可以浏览、查询、添加、删除、统计图书的基本信息;浏览、查询、统计、添加、删除和修改图书借阅者的基本信息,浏览、查询、统计图书馆的借阅信息,但不能添加、删除和修改借阅信息,这部分功能应该由图书馆工作人员执行。
3.2软件目标
系统开发的总目标是实现内部图书借阅管理的系统化、规范化和自动化。
能够对图书进行注册登记,也就是将图书的基本信息(如:
书名、作者、出版社等)预先存入数据库中,供以后检索。
能够对借阅人进行注册登记,包括记录借阅人的姓名、借阅证号、部门等信息。
提供方便的查询方法。
如:
以图书编码信息进行图书检索,并能反映出图书的借阅情况;以借阅人的借阅证号对借阅人信息进行检索。
能够对使用该管理系统的用户进行管理,按照不同的工作职能提供不同的功能授权。
提供较为完善的差错控制与友好的用户界面,尽量避免误操作。
在软、硬件方面对系统的需求,软件要求易学,界面友好,容易掌握,可以很简单方便的管理各种图书信息。
硬件的配置要求不能太高,这样可以很好的适应当前的学校图书馆。
3.3需求规定
3.3.1对功能的规定
根据以上功能,将图书管理系统的数据分为:
数据输入部分:
主要包括图书基本信息的录入、借阅人基本信息的录入、用户基本信息的录入。
数据输出部分:
主要是各种统计查询,包括:
根据图书信息(如书名、作者、出版社等)查阅图书及其借阅信息等。
数据处理部分:
主要涉及借阅和归还的处理,如一本书借出后,必须在数据库中将该书标记为已借出,以防出现数据库中有书但图书馆无书的情况;一本书归还后,同样必须在数据库中将其标记为已经归还,以便再次借出。
3.3.2对性能的规定
(1)精度
该图书管理系统可以准确的进行图书以及读者的信息查询,以及图书的借阅情况。
(2)时间特性要求
主要是对读者的注册时间、图书的入馆时间、图书的借出时间以及还书时间的要求。
(3)灵活性
只要将该管理系统的相关内容打包成图书管理系统.Exe文件,用vb中的可外接程序加载到开始菜单中,只要启动该程序就可以进入登陆界面。
没有环境的要求,方便操作和实现。
3.3.3输人输出要求
输入时必须严格按照建立各个表项时的数据要求输入数据,否则将会影响系统的准确性;输出是对查询结果的展示。
3.4运行环境规定
系统采用MicrosoftOfficeAccess2000来设计数据库,并使用当前优秀的开发工具—MicrosoftVisualBasic6.0,它有着最为灵活的数据库结构,对数据库应用有着良好的支持。
4数据设计
4.1概念结构设计
为了把数据清晰明确地表达出来,要建立一个概念性的数学模型,概念性数学模型是一种面向问题的数学模型,通常用的表示概念性的数据模型的方法是实体联系方法。
运用Access建立表:
读者类别(类别编号、类别名称、最大借阅量、最长借阅时间)
读者信息表(借阅证号、类别编号、读者姓名、部门、日期)
馆藏图书信息(书籍编号、索书号、书籍名称、作者、出版社、出版日期、入馆时间、是否可借、借阅室名)
图书管理员(编号、口令、权限)
图书借阅(书籍编号、借阅证号、借出时间、还书时间、超出天数、罚款金额)
ER图设计:
4.2逻辑结构设计
系统总体结构图
4.3数据库连接方法
数据库连接采用了ADODC控件,通过ADODC控件达到数据库与程序的连接。
具体方法是:
在窗体上放置一个datagrid网格控件和一个adodc控件,将adodc控件的属性与建立的数据库相链接,记录源设置为select*from表名,datagrid的datasource属性设置为adodc。
5软件详细开发
(1)关于我的应用程序界面
(2)图书管理员登陆界面设计
系统登录代码实现:
PrivateSubCommand1_Click()
DimsAsString,pAsString
s=Trim(Text1.Text)
p=Trim(Text2.Text)
Adodc1.RecordSource="select*from图书管理员表where编号='"+s+"'"
Adodc1.Refresh
IfAdodc1.Recordset.RecordCount=0Then
MsgBox"非系统管理员!
"
Else
Adodc1.Recordset.Find"口令='"+p+"'"
IfAdodc1.Recordset.EOF=TrueThen
MsgBox"密码错误!
"
Else
MsgBox"欢迎登陆西安理工大学图书馆管理系统!
"
zct.Show
dl.Hide
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
End
EndSub
(3)图书管理系统界面设计
图书馆管理系统主页代码设计:
PrivateSubdzgl_Click()
dzgl0.Show
UnloadMe
EndSub
PrivateSubglygl_Click()
glygl0.Show
UnloadMe
EndSub
PrivateSubhs_Click()
Form3.Show
UnloadMe
EndSub
PrivateSubjs_Click()
Form4.Show
UnloadMe
EndSub
PrivateSubtc_Click()
End
EndSub
PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.Key
CaseIs="dzgl"
dzgl_Click
CaseIs="glygl"
glygl_Click
CaseIs="tsgl"
tugl_Click
CaseIs="dzgl"
dzgl_Click
End
EndSelect
EndSub
PrivateSubtugl_Click()
tsgl0.Show
UnloadMe
EndSub
PrivateSubForm_Load()
Show
EndSub
(4)图书信息管理界面设计
(3)图书管理代码设计(实现图书信息的添加、删除、查询的功能)
PrivateSubCommand2_Click()
DimYAsInteger
Y=MsgBox("你确认要删除该记录?
",36,"删除记录")
IfY=6Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveLast
EndIf
EndIf
EndSub
PrivateSubCommand3_Click()
DimFindstrAsString
Findstr=InputBox("请输入书籍编号:
","查找","")
Adodc1.RecordSource="select*from馆藏图书信息where书籍编号='"&Findstr&"'"
Adodc1.Refresh
IfAdodc1.Recordset.RecordCount=0Then
MsgBox("无此编号图书!
请重新输入!
")
Findstr=InputBox("请输入书籍编号:
","查找","")
Adodc1.RecordSource="select*from馆藏图书信息where书籍编号='"&Findstr&"'"
Adodc1.Refresh
Else
SetDataGrid1.DataSource=Adodc1
EndIf
EndSub
PrivateSubCommand1_Click()
IfText1.Text<>""Then
Adodc1.RecordSource="select*from馆藏图书信息where书籍编号='"&Text1.Text&"'"
Adodc1.Refresh
IfAdodc1.Recordset.EOFThen
Adodc1.RecordSource="select*from馆藏图书信息"
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0)=Text1.Text
Adodc1.Recordset.Fields
(1)=Text2.Text
Adodc1.Recordset.Fields
(2)=Text3.Text
Adodc1.Recordset.Fields(3)=Text4.Text
Adodc1.Recordset.Fields(4)=Text5.Text
Adodc1.Recordset.Fields(5)=Text6.Text
Adodc1.Recordset.Fields(6)=Text7.Text
Adodc1.Recordset.Fields(7)=Text8.Text
Adodc1.Recordset.Fields(8)=Text10.Text
Adodc1.Recordset.Update
MsgBox"添加图书成功!
",vbOKOnly,""
Else
MsgBox"图书编号重复!
",vbOKOnly+vbExclamation,""
Text1.SetFocus
ExitSub
EndIf
Else
MsgBox("书籍编号不能为空!
")
Text1.SetFocus
EndIf
Adodc1.RecordSource="select*from馆藏图书信息"
Adodc1.Refresh
EndSub
PrivateSubCommand4_Click()
tsgl0.Hide
zct.Show
EndSub
PrivateSubForm_Load()
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Text8.Text=""
Text10.Text=""
EndSub
(5)读者信息管理界面设计
①读者信息管理界面设计
②读者类别管理界面设计
读者信息管理代码实现:
包括读者类别管理以及读者信息管理(实现读者以及读者类别的添加、删除、查询)
PrivateSubcommand1_Click()
IfText1(0).Text<>""Then
Adodc1.RecordSource="select*from读者信息表where借阅证号='"&Text1(0).Text&"'"
Adodc1.Refresh
IfAdodc1.Recordset.EOFThen
Adodc1.RecordSource="select*from读者信息表"
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0)=Text1(0).Text
Adodc1.Recordset.Fields
(1)=Text1
(1).Text
Adodc1.Recordset.Fields
(2)=Text1
(2).Text
Adodc1.Recordset.Fields(3)=Text1(3).Text
Adodc1.Recordset.Fields(4)=Text1(4).Text
Adodc1.Recordset.Update
MsgBox"添加读者信息成功!
",vbOKOnly,""
Else
MsgBox"借阅证号重复!
",vbOKOnly+vbExclamation,""
Text1(0).SetFocus
ExitSub
EndIf
Else
MsgBox("借阅证号不能为空!
")
Text1(0).SetFocus
EndIf
Adodc1.RecordSource="select*from读者信息表"
Adodc1.Refresh
EndSub
PrivateSubCommand2_Click()
DimYAsInteger
DimFindsAsString
Y=MsgBox("你确认要删除该记录?
",36,"删除记录")
Finds=InputBox("请输入要删除的读者借阅证号","删除记录","")
IfY=6Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveLast
EndIf
EndIf
EndSub
PrivateSubCommand3_Click()
DimFindstrAsString
Findstr=InputBox("请输入读者借阅证号","查找","")
Adodc1.RecordSource="select*from读者信息表where借阅证号='"&Findstr&"'"
Adodc1.Refresh
IfAdodc1.Recordset.RecordCount=0Then
MsgBox("无此编号读者!
请重新输入!
")
Findstr=InputBox("请输入读者借阅证号","查找","")
Adodc1.RecordSource="select*from读者信息表where借阅证号='"&Findstr&"'"
Adodc1.Refresh
Else
SetDataGrid1
(1).DataSource=Adodc1
EndIf
EndSub
PrivateSubCommand4_Click()
Adodc1.Recordset.Update
EndSub
PrivateSubtc_Click()
Me.Hide
zct.Show
EndSub
PrivateSubtj_Click()
Adodc2.Recordset.AddNew
bc.Enabled=True
EndSub
PrivateSubsc_Click()
DimYAsInteger
Y=MsgBox("你确认要删除该记录?
",36,"删除记录")
IfY=6Then
DimFinAsString
Adodc2.Recordset.MoveFirst
Fin=InputBox("请输入要删除的读者类别编号","查找","")
Adodc2.Recordset.Find"类别编号='"+Fin+"'"
Adodc2.Recordset.Delete
Adodc2.Recordset.MoveNext
IfAdodc2.Recordset.EOFThen
Adodc2.Recordset.MoveLast
EndIf
EndIf
EndSub
PrivateSubcx_Click()
DimstrAsString
Adodc2.Recordset.MoveFirst
str=InputBox("请输入类别编号:
","查找","")
Adodc2.Recordset.Find"类别编号='"+str+"'"
EndSub
PrivateSubbc_Click()
Adodc2.Recordset.Update
EndSub
PrivateSubForm1_Load()
Adodc1.Refresh
Adodc2.Refresh
EndSub
(6)图书借阅系统界面设计
图书借阅管理的代码实现:
借书系统:
PrivateSubcommand1_Click()
DimnumAsInteger,maxnumAsInteger
DimlbAsString
Adodc1.RecordSource="select*from馆藏图书信息where书籍编号='"&Text1.Text&"'and是否可借=1"
Adodc1.Refresh
IfAdodc1.Recordset.RecordCount=0Then
MsgBox"没有该图书信息或该图书已经借出,请输入所借图书的书籍编号"
Else
Adodc2.RecordSource="select*from读者信息表where借阅证号='"&Text2.Text&"'"
Adodc2.Refresh
IfAdodc2.Recordset.RecordCount=0Then
MsgBox"没有此用户,请输入正确的借阅证号"
Else
Adodc3.RecordSource="select*from图书借阅where借阅证号='"&Text2.Text&"'and还书时间isnull"
Adodc3.Refresh
num=Adodc3.Recordset.RecordCount
lb=Adodc2.Recordset.Fields("类别编号")
Adodc4.RecordSource="select*from读者类别where类别编号='"&lb&"'"
Adodc4.Refresh
maxnum=Adodc4.Recordset.Fields("最大借阅量")
Ifnum=maxnumThen
MsgBox"你的借书数目已达上限!
"
EndIf
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
Adodc2.RecordSource="select*from读者信息表where借阅证号='"&Text2.Text&"'"
Adodc2.Refresh
Adodc3.RecordSource="select*from图书借阅where借阅证号='"&Text2.Text&"'"
Adodc3.Refresh
Adodc3.Recordset.AddNew
Adodc3.Recordset.Fields("书籍编号")=Adodc1.Recordset.Fields("书籍编号")
Adodc3.Recordset.Fields("借阅证号")=Text2.Text
Adodc3.Recordset.Fields("借出时间")=Date
Adodc3.Recordset.Update
SetDataGrid2.DataSource=Adodc3
Adodc1.RecordSource="select*from馆藏图书信息where书籍编号='"&Text1.Text&"'"
Adodc1.Refresh
Adodc1.Recordset.Fields("是否可借")=0
Adodc1.Recordset.Update
Adodc1.Refresh
Adodc1.R
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- ass 图书馆 管理 系统 设计