图书管理系统论文.docx
- 文档编号:29236989
- 上传时间:2023-07-21
- 格式:DOCX
- 页数:35
- 大小:1.11MB
图书管理系统论文.docx
《图书管理系统论文.docx》由会员分享,可在线阅读,更多相关《图书管理系统论文.docx(35页珍藏版)》请在冰豆网上搜索。
图书管理系统论文
福州教育学院
()届毕业论文(设计)
题目:
系部:
专业(方向):
学号:
姓名:
提交日期:
指导教师及职称:
图书管理系统
计算机系初等教育(信息技术)专业2009届XXX
指导教师:
福建教育学院XXX
摘要
信息化的来临,面对激烈的市场竞争,在当今信息社会,各行各业都离不开信息处理,计算机的运用越来越广泛,信息管理水平越来越高。
图书馆也不再局限于人工手动管理,电子图书馆越来越受青睐。
本系统的设计,就是为了方便读者进行图书借阅,方便管理员管理图书信息。
本系统采用VB6.0和Access两个软件制作图书管理系统,提高了管理员的管理效率,图书借阅与归还也更加简便、快捷。
关键字:
图书管理系统信息数据库AccessVisualBasic6.0
目录
摘要...........................................................................................................................................................1
1、引言1
1.1选题的目的、意义1
2、图书管理系统开发相关技术介绍1
2.1VisualBasic6.0介绍1
2.2Access介绍2
3、系统总体设计分析2
3.1系统需求分析2
3.2系统实现的目标3
3.3系统的功能结构图3
3.4系统的功能模块设计3
4、系统总体结构设计4
4.1、数据库概念结构设计4
4.2、数据库逻辑结构设计4
5、图书管理系统详细设计6
5.1身份登录6
5.2主界面8
5.3读者信息管理9
5.4图书信息管理12
5.5图书借阅管理17
5.6系统管理21
6、期间遇到的问题22
6.1建立数据库23
6.2VB如何与Access连接23
6.3很多控件不知道怎么用23
7、不足之处23
8、结论24
参考文献..................................................................................................................................................24
正文内容:
1、引言
很多图书馆之前由于读者较少,藏书较少等原因,对图书的信息需求不高。
随着社会的信息化发展,图书的数量越来越多,种类越来越多样化,因此对信息的需求越来越高,这就有必要建立一个易于管理、易于操作且更加规范的图书管理系统。
1.1选题的目的、意义
社会的发展,科技的进步,信息技术的广泛应用,数字化管理成为是现代社会的发展趋势。
对于学校图书馆,图书馆的规模越来越大,如果局限于人工手动管理,拿着一本记录本,一本书一本书的登记借阅,一个读者一个读者的登记信息,数据量大,严重浪费时间、精力,而且容易出错。
像这样中小型的图书馆,为了节约人力物力就有必要建立一个图书管理系统,通过计算机,对馆内图书信息及读者信息进行管理,极大得提高了工作效率,而且查找简便,存储容量大,成本又低,是个很好的选择。
2、图书管理系统开发相关技术介绍
2.1VisualBasic6.0介绍
VB6.0是在Basic语言上发展而来的,以可视化工具进行界面设计,以结构化Basic语言为基础,以事件驱动为运行机制。
是目前最流行的程序设计语言之一。
VisualBasic6.0具有以下几个功能:
(1)具有面向对象的可视化设计工具;
(2)具有事件驱动的编程机制;(3)提供了易学易用的应用程序集成开发环境;(4)提供了结构化的程序设计语言;(5)支持多种数据库系统的访问;(6)采用了OLE技术;(7)采用了ActiveX技术;(8)新增很多实用控件。
2.2Access介绍
本系统使用Access进行数据库的创建,Access是Microsoft推出的Office系列的办公室自动化软件中用于数据库管理。
它可以接受和转换多种文件格式的数据,并且能够方便的对现存数据库系统进行扩展和升级。
它是一个中、小型的数据库管理系统,它的数据库文件储存于*.MDB文件中,数据的输入、查询非常简便。
可以高效地进行数据库开发和管理工作。
它具有以下特点:
(1)完整的数据库管理功能
Access提供了一套用于组织数据、建立查询、共享数据等功能,这些功能可以完成管理的各项工作。
(2)高度智能化的向导功能
从创建窗体、报表中的各种控件,到创建Access表、查询、数据页等基本对象,都可以使用向导功能,在向导的帮助下,很多复杂的工作也变得简单。
(3)方便操作的图形界面
Access的图形界面是标准的Windows窗口形式,独具特色的图形化查询设计,使原来需要编写大量代码的工作也只需拖动鼠标就可以完成。
3、系统总体设计分析
3.1系统需求分析
系统需求分析工作是系统生命周期中重要的一个环节,也是决定性的一步。
只有经过系统需求分析,才能了解用户对系统的功能和性能的要求,并将其转换为具体的需求规格说明,为系统的设计打下基础。
调查发现,现代的人们希望图书馆完成的不仅仅是借书和还书的功能,而更多的是对图书和借阅者信息的管理,因为这些信息管理起来相对麻烦,比较浪费时间精力,效率不高又容易出错,所以有必要让这些繁琐的程序通过计算机来执行。
本系统的图书管理涉及图书信息、读者信息、图书借阅、系统管理等管理功能,实现基本的用户需求。
3.2系统实现的目标
本图书管理系统设计目的是实现图书管理的系统化、自动化,帮助图书管理人员更好更有效地完成图书管理工作。
(1)强大的查询功能,查询灵活
(2)操作界面简洁,易于用户操作
(3)数据存储具有安全性和可靠性
(4)管理员和一般会员身份区别清晰,权限清晰
(5)实现图书借阅与归还的全程数据信息追踪
3.3系统的功能结构图
图3-1图书管理系统功能结构图
3.4系统的功能模块设计
3.4.1图书管理部分
图书信息管理主要实现图书的录入、查询,图书信息的修改。
一般会员可以方便地查询馆内图书信息,即馆内藏书以及是否被借出,界面简洁,容易操作。
图书的录入和信息的修改只能由管理员来实现,管理员可以在登录后对馆内图书的信息记录进行修改,包括图书类别的添加与删除、修改,图书信息的添加、修改等,操作简单,方便管理员对图书的管理。
3.4.2读者管理部分
读者信息管理主要实现对读者信息的查询、修改等功能,一般会员同样只能查询读者的信息,读者可以查询自己借了哪些书,何时借的,以便在规定时间内可以归还所借图书。
修改功能只能在管理员权限下才可操作,管理员可以添加读者信息,修改读者信息,确保管理系统录入的都是读者的最新信息,可以在需要的时候联系到借阅者。
3.4.3借阅管理部分
图书的借阅管理全部由管理员操作,一般会员是没有权限的。
包括图书的借阅与归还等操作,以及帮助统计已借出书与馆内存书情况。
。
管理员可以通过录入读者的信息和图书的信息、借阅日期等来实现对图书的借阅,同样的,录入图书和读者信息、还书日期实现还书。
3.4.4系统管理部分
系统管理功能也只能在管理员的权限下才可操作,管理员可以在登录账户后,进行添加会员和账户密码的修改。
4、系统总体结构设计
4.1、数据库概念结构设计
数据库是存放数据的仓库,只不过这个仓库是建在计算机存储设备上的,而且数据按照一定的格式存放。
也就是说数据库是长期存储在计算机内的、有组织的、可共享的数据集合。
数据库概念结构设计是整个数据库设计的又一个关键,它通过对用户需求进行综合、归纳与抽象,形成于独立于具体DBMS的概念模型。
4.2、数据库逻辑结构设计
逻辑结构设计是将概念结构转换成DBMS能够接受的数据模型,并对其优化。
4.2.1图书信息实体属性
首先,一个图书馆最重要的就是对馆内图书的管理,所以要创建一个关于图书信息的数据表。
图4-1图书信息实体属性图
4.2.2读者信息实体属性
再者就是对图书馆的用户进行信息的存储,需要存储读者的详细信息,这也是图书管理必不可少的一部分。
图4-2读者信息实体属性图
4.2.3借阅信息实体属性
然后就是图书管理系统中的图书借阅与归还,需要将读者信息与图书信息联系起来,图书借阅与归还是图书管理最重要的环节。
图4-3借阅信息实体属性图
4.2.4读者类别实体属性
读者类别用来记录读者的分类及其具有的权限。
图4-4读者类别实体属性图
4.2.5图书类别实体属性
图书类别主要用于管理员对图书的管理工作,方便查找与整理。
图4-5图书类别实体属性图
4.2.6用户实体属性
用户实体是用于用户第一次在本图书馆借阅浏览,需先注册一个账号,方便之后的借阅与归还操作。
图4-6用户实体属性图
5、图书管理系统详细设计
5.1身份登录
本系统设计登录的身份分为管理员与会员。
注册过的用户使用账号密码登录,选择身份进入管理员或者会员的界面,进行一系列的操作。
这个界面的设计只是用了简单的几个控件:
CommandButton(按钮)、Textbox(文本框)、Label(标签)
具体代码:
OptionExplicit
DimcntAsInteger'记录确定次数
PrivateSubCommand1_Click()
DimsqlAsString
Dimrs_loginAsNewADODB.Recordset
DimconnAsNewADODB.Connection
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\library.mdb"
IfTrim(Text1.Text)=""Then
MsgBox"用户名不能为空,请重新输入!
"
Text1.SetFocus
Else
sql="select*from用户表whereuser_ID='"&Trim(Text1.Text)&"'"
rs_login.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_login.EOF=TrueThen
MsgBox"没有这个用户,请重输入!
",vbOKOnly+vbExclamation,""
Text1.Text=""
Text1.SetFocus
Else
username=Text1.Text
IfTrim(rs_login.Fields
(1))=Trim(Text2.Text)Then
IfCombo1.Text="管理员"Then
UnloadMe
管理员.Show
Else
UnloadMe
会员.Show
EndIf
Else
MsgBox"密码不正确,请重输入!
",vbOKOnly+vbExclamation,""
Text2.SetFocus
Text2.Text=""
EndIf
EndIf
EndIf
cnt=cnt+1
Ifcnt=3Then
UnloadMe
EndIf
EndSub
PrivateSubForm_Load()
cnt=0
EndSub
5.2主界面
主界面有两个,管理员和会员的界面。
这里运用到菜单编辑器,使用菜单编辑器可以在当前窗口添加菜单栏,方便使用者选择系统的各种功能。
菜单编辑器可以通过单击工具栏中的“菜单编辑器”按钮打开其对话框,也可以通过菜单栏中的“工具”菜单—>“菜单编辑器”打开。
需要注意的是,其中必须要填的是“标题”和“名称”。
关键代码:
PrivateSubbzxx_Click()
OnErrorGoToERRB'打开帮助文件
dlgCommonDialog.HelpCommand=&HB&
dlgCommonDialog.ShowHelp
ERRB:
EndSub
5.3读者信息管理
读者信息管理主要包括读者信息的查询与修改。
5.3.1查询读者信息
查询读者信息的界面运用了更多的控件:
DataGridCombo1Check等,利用DataGrid控件列出所要查询的信息,如果是刚安装的VB在工具箱中是找不到这个控件的,需要在“工程”菜单中点击“部件”打开部件对话框,在其中勾选“MicrosoftDataGridControl6.0(sp6)(OLEDB)”,点击“确定”,这样控件就会显示在工具箱中了,直接使用就可以了。
关键代码:
PrivateSubCommand1_Click()
IfCheck1.Value=vbCheckedThen
sql="读者编号='"&Trim(Text1.Text&"")&"'"
EndIf
IfCheck2.Value=vbCheckedThen
IfTrim(sql)=""Then
sql="读者姓名='"&Trim(Text2.Text&"")&"'"
Else
sql=sql&"and读者类别='"&Trim(Text2.Text&"")&"'"
EndIf
EndIf
sql="select*from读者信息where"&sql
rs_findreader.CursorLocation=adUseClient
rs_findreader.Opensql,conn,adOpenKeyset,adLockPessimistic
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
DataGrid1.AllowUpdate=False
EndSub
5.3.2修改读者信息
关键代码:
PrivateSubCommand1_Click()
DimanswerAsString
OnErrorGoToCommand1
Command2.Enabled=False
Command1.Enabled=False
Command3.Enabled=True
Command4.Enabled=True
DataGrid1.AllowUpdate=True
ExitSub
Command1:
IfErr.Number<>0Then
MsgBoxErr.Description
EndIf
EndSub
PrivateSubForm_Load()
sql="select*from读者信息"
rs_reader.CursorLocation=adUseClient
rs_reader.Opensql,conn,adOpenKeyset,adLockPessimistic
Command3.Enabled=False
Command4.Enabled=False
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
DataGrid1.AllowUpdate=False
SetDataGrid1.DataSource=rs_reader
ExitSub
loaderror:
MsgBoxErr.Description
EndSub
PrivateSubForm_Unload(CancelAsInteger)
SetDataGrid1.DataSource=Nothing
rs_reader.Close
EndSub
5.3.3添加读者类别
关键代码:
PrivateSubCommand1_Click()
Dimrs_readerstyleAsNewADODB.Recordset
IfTrim(Text1.Text)=""Then
MsgBox"读者种类不能为空",vbOK0nly+vbExclamation,""
Text1.SetFocus
ExitSub
EndIf
IfTrim(Text2.Text)=""Then
MsgBox"借书数量不能为空",vbOK0nly+vbExclamation,""
Text2.SetFocus
ExitSub
EndIf
IfTrim(Text3.Text)=""Then
MsgBox"借书期限不能为空",vbOK0nly+vbExclamation,""
Text3.SetFocus
ExitSub
EndIf
sql="select*from读者类别where种类名称='"&Text1.Text&"'"
rs_readerstyle.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_readerstyle.EOFThen
rs_readerstyle.AddNew
rs_readerstyle.Fields(0)=Trim(Text1.Text)
rs_readerstyle.Fields
(1)=Trim(Text2.Text)
rs_readerstyle.Fields
(2)=Trim(Text3.Text)
rs_readerstyle.Update
MsgBox"添加读者类别成功!
",vbOKOnly,""
rs_readerstyle.Close
Else
MsgBox"读者类别重复!
",vbOKOnly+vbExclamation,""
Text1.SetFocus
Text1.Text=""
rs_readerstyle.Close
ExitSub
EndIf
EndSub
5.4图书信息管理
5.4.1添加图书类别
关键代码:
PrivateSubCommand1_Click()
Dimrs_bookstyleAsNewADODB.Recordset
IfTrim(Text1.Text)=""Then
MsgBox"图书种类不能为空",vbOK0nly+vbExclamation,""
Text1.SetFocus
ExitSub
EndIf
sql="select*from图书类别where类别名称='"&Text1.Text&"'"
rs_bookstyle.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_bookstyle.EOFThen
rs_bookstyle.AddNew
rs_bookstyle.Fields(0)=Trim(Text1.Text)
rs_bookstyle.Fields
(1)=Trim(Text2.Text)
rs_bookstyle.Update
MsgBox"添加图书类别成功!
",vbOKOnly,""
rs_bookstyle.Close
Else
MsgBox"图书类别重复!
",vbOKOnly+vbExclamation,""
Text1.SetFocus
Text1.Text=""
rs_bookstyle.Close
ExitSub
EndIf
EndSub
5.4.2修改图书类别
关键代码:
PrivateSubCommand2_Click()
DimanswerAsString
answer=MsgBox("确定要删除吗?
",vbYesNo,"")
Ifanswer=vbYesThen
DataGrid1.AllowDelete=True
rs_reader.Delete
rs_reader.Update
DataGrid1.Refresh
Else
ExitSub
EndIf
EndSub
PrivateSubForm_Load()
OnErrorGoToloaderror
sql="select*from图书类别"
rs_reader.CursorLocation=adUseClient
rs_reader.Opensql,conn,adOpenKeyset,adLockPessimistic
Command3.Enabled=False
Command4.Enabled=False
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
DataGrid1.AllowUpdate=False
SetDataGrid1.DataSource=rs_reader
ExitSub
loaderror:
MsgBoxErr.Description
EndSub
5.4.3添加图书信息
关键代码:
PrivateSubForm_Load()
Dimrs_leibieAsNewADODB.Recordset
DimconnAsNewADODB.Connection
DimsqlAsString
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\library.mdb"
sql="select*from图书类别"
rs_leibie.Opensql,conn,adOpenKeyset,adLockPessimistic
rs_leibie.MoveFirst
DoWhileNotrs_leibie.EOF
Combo1.AddItemrs_leibie.Fields(0)
rs_leibie.MoveNext
Loop
rs_leibie.Close
EndSub
5.4.4查询图书信息
关键代码:
PrivateSubCommand1_Click()
IfOption2.Value=TrueThen
sql="select*from图书信息where是否被借出='是'"
EndIf
IfOption3.Value=TrueThen
sql="select*from图书信息where是否被借出='否'"
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 图书 管理 系统 论文