数据库原理实验报告.doc
《数据库原理实验报告.doc》由会员分享，可在线阅读，更多相关《数据库原理实验报告.doc（15页珍藏版）》请在冰点文库上搜索。
数据库原理课程设计
题目：
图书馆管理系统
学校：
福建农林大学东方学院
专业：
计算机科学与技术2班
学号：
姓名：
学号：
姓名：
指导教师：
2011年6月26号
目录
1.引言................................................2
1.1课程设计的目的....................................2
1.2设计的实际目的和意义.............................2
1.2.1设计的意义..................................2
1.2.2设计的实际目的..............................2
2.设计内容和要求......................................2
2.1功能需求分析......................................2
2.2系统需要解决的主要问题............................3
2.3系统应该具备的基本功能............................3
3.数据库设计...........................................3
3.1系统结构设计......................................3
3.1.1总体设计图...................................3
3.2.1系统E-R图表示...............................4
3.2.2数据库表截图分析..............................4
4．程序设计..............................................5
4.1界面设计及主要功能代码............................5
4.1登录界面...........................................5
4.2主菜单界面.......................................5
4.3借书界面...........................................7
4.4借阅查询界面..........................................8
4.5还书界面...........................................9
4.6读者信息界面.......................................10
4.7图书信息查阅界面...................................12
4.8添加读者界面.......................................13
4.9添加图书界面.......................................13
5.总结...................................................13
6.结束语.................................................14
1引言
1.1、课程设计的目的
1、掌握数据库设计的基本方法，熟悉数据库设计的步骤。
2、通过设计数据库系统应用课题，进一步熟悉数据库管理系统的操作技术，提高动手能力，提高分析问题和解决问题的能力。
3、学习基本“C/S结构”数据库编程方法。
1.2设计的实际目的和意义
1.2.1设计的意义
图书馆管理系统是图书馆管理工作中不可缺少的部分,它的内容对于图书馆的管理者和使用者来说都至关重要,所以图书管理系统应该能够为管理者或读者提供充足的信息和快捷的数据处理手段。
但图书馆管理若采用完全手工操做，通过卡片记录信息，既浪费时间，又浪费人工、纸张，而且书籍和读者的信息查询比较麻烦，这对于查找、更新和维护都带来了不少的困难。
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。
作为计算机应用的一部分,使用计算机对图书信息进行管理,具有着手工管理所无法比拟的优点.例如:
检索迅速、查找方便、易修改、可靠性高、存储量大、数据处理快捷、保密性好、寿命长、成本低、便于打印等。
这些优点能够极大地提高图书管理的效率,也是图书馆的科学化、正规化管理,与世界接轨的重要条件。
因此，开发这样一套管理软件成为很有必要的事情。
1.2.2设计的实际目的
图书馆管理系统是为实现图书管理工作系统化、规范化、自动化，运用VisualBasic6.0数据库管理系统开发的应用软件。
它将计算机操作及管理融到图书管理系统的实际运用中，使日常手工管理的复杂方法和过程被计算机简单、易行的操作所替代，一方面图书馆在正常运营中总是面对大量的读者信息、书籍信息以及两者相互作用产生的借书信息、还书信息.因此需要对读者资源、书籍资源、借书信息、还书信息进行管理、及时了解各个环节的变更,这系统能够迅速、准确地向图书馆管理者提供有效的信息；另一方面也极大地减轻了工作人员的工作强度、提高了工作效率，充分地发挥了人力资源的作用。
通过开发本系统，旨在推动企业对计算机技术的普及与运用，促进图书馆管理系统的现代化、科学化和规范化。
2设计内容和要求
图书管理信息系统是典型的信息管理系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
对于后台数据库的建立要求建立起数据一致性和完整性强.数据安全性好的库。
而对于前端应用程序则要求应用程序功能完备,易使用等特点。
2.1功能需求分析
要实现一个软件系统，首先应该进行需求分析，这样才能令设计出的软件满足用户的各项功能。
图书管理系统需要满足来自三方面的需求，这三个方面分别是图书借阅者、图书馆工作人员和图书馆管理人员。
图书借阅者的需求是查询图书馆所存的图书、个人借阅情况及个人信息的修改；图书馆工作人员对图书借阅者的借阅及还书要求进行操作，同时形成借书或还书报表给借阅者查看确认；图书馆管理人员的功能最为复杂，包括对工作人员、图书借阅者、图书进行管理和维护及系统状态的查看、维护并生成催还图书报表。
2.2系统需要解决的主要问题
图书借阅者可直接查看图书馆图书情况，如果图书借阅者根据本人借书证号和密码登录系统，还可以进行本人借书情况的查询和维护部分个人信息。
一般情况下，图书借阅者只应该查询和维护本人的借书情况和个人信息，若查询和维护其他借阅者的借书情况和个人信息，就要知道其他图书借阅者的借书证号和密码。
这些是很难得到的，特别是密码，所以不但满足了图书借阅者的要求，还保护了图书借阅者的个人隐私。
图书馆工作人员有修改图书借阅者借书和还书记录的权限，所以需对工作人员登陆本模块进行更多的考虑。
在此模块中，图书馆工作人员可以为图书借阅者加入借书记录或是还书记录，并打印生成相应的报表给用户查看和确认。
图书馆管理人员功能的信息量大，数据安全性和保密性要求最高。
本功能实现对图书信息、借阅者信息、总体借阅情况信息的管理和统计、工作人员和管理人员信息查看及维护。
图书馆管理员可以浏览、查询、添加、删除、修改、统计图书的基本信息；浏览、查询、统计、添加、删除和修改图书借阅者的基本信息，浏览、查询、统计图书馆的借阅信息。
2.3系统应该具备的基本功能
系统功能分析是在系统开发的总体任务的基础上完成。
图书管理系统需要完成功能主要有：
①．关于图书资料管理的
图书信息：
图书类别、书籍编号、书籍名称、作者姓名、出版社名称等。
②．关于读者管理的
读者信息：
读者类别、登记日期、读者姓名、性别、读者编号、家庭住址、电话号码、工作单位等。
③．关于借还书管理的：
借书信息：
读者姓名、书籍编号、书名、类别、作者、出版社等。
还书信息：
图书编号、读者编号、读者姓名、书籍编号、书籍名称等。
这三个方面形成了图书借阅的一个工作整体，利用计算机的自动化处理，可方便快捷地共享信息、交流信息，高效地协同工作。
在软硬件方面对系统的需求，软件要求易学，界面友好，容易掌握，可以很简单方便的进行图书借阅信息管理。
硬件的配置要求不能太高，这样可以很好的适应当前的学校图书馆的借阅。
3数据库设计
3.1系统结构设计
系统结构采用当前流行的C/S结构，也就是客户端/服务器模式，它开发时间短，成本低，而且数据量的传输快等优点。
本设计是以学校图书馆借阅系统为例。
编程语言采用delphi6.0，它可视化的开发环境，可以快速完成系统的开发，内部集成的数据库访问通道，可以轻松方便的对数据库管理。
3.1.1总体设计图
3.2.1系统E-R图表示
3.2.2数据库表截图分析
根据系统ER图,应用SQLSever2000,设计数据库,共分化成七个表:
读者类别表、读者信息表、罚款处理、借阅信息表、书籍信息、图书类别、系统管理表分别截图如下.
表3.1
表3.2
表3.3
表3.4
表3.5
表3.6
表3.7
4．界面设计和主要功能代码
4.1登录界面
思想：
设计登录界面,创建一个新的”Windows窗体”,名为登录,作为本系统的登录界面.在登录窗体上添加两个Label控件,两个Button控件和两个TextBox控件,添加控件后的窗体如图4.1.1所示。
欢迎界面是整个系统首页，用户可通过该界面登录系统。
使用者根据自己的身份选择登录方式。
在此，分别有管理员（用户名：
admin,密码：
admin）,和用户（用户名：
guest，密码：
guest）均可登入。
PrivateSubCommand1_Click（）
DimsqlAsString
Dimrs_loginAsNewADODB.Recordset
IfTrim（txtuser.Text）=""Then'判断输入的用户名是否为空
MsgBox"没有这个用户",vbOKOnly+vbExclamation,""
txtuser.SetFocus
Else
sql="select*from系统管理where用户名='"&txtuser.Text&"'"
rs_login.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_login.EOF=TrueThen
MsgBox"没有这个用户",vbOKOnly+vbExclamation,""
txtuser.SetFocus
Else'检验密码是否正确
IfTrim（rs_login.Fields
（1））=Trim（txtpwd.Text）Then
userID=txtuser.Text
userpow=rs_login.Fields
（2）
rs_login.Close
UnloadMe
Main.Show
Else
MsgBox"密码不正确",vbOKOnly+vbExclamation,""
txtpwd.SetFocus
EndIf
EndIf
EndIf
cnt=cnt+1
Ifcnt=3Then
UnloadMe
EndIf
ExitSub
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
4.2主菜单界面：
思想：
管理员和用户均可登入此页面，并且在工具栏设置一个个功能图标，用户可点击相应图标的功能进行操作，即会弹出相应的界面。
图4.1.2系统主菜单界面
当不同身份登录进行特定操作，验证仅当身份选择，用户名，及其对应密码都正确方可成功登录到相应界面。
4.3借书页面
思想：
进入借书页面后，用户可输入所要借阅图书的相关信息，点击“借这本书”的按钮，即可完成借阅。
PrivateSubCommand1_Click（）
Dimrs_borrowbookAsNewADODB.Recordset
DimsqlAsString
sql="select*from读者信息where读者编号='"&Combo1.Text&"'"
rs_borrowbook.Opensql,conn,adOpenKeyset,adLockPessimistic
leibie=rs_borrowbook.Fields（3）
shumu=rs_borrowbook.Fields（8）
rs_borrowbook.Close
sql="select*from读者类别where种类名称='"&leibie&"'"
rs_borrowbook.Opensql,conn,adOpenKeyset,adLockPessimistic
qixian=rs_borrowbook.Fields
（2）
maxnum=rs_borrowbook.Fields
（1）
rs_borrowbook.Close
Ifshumu>=maxnumThen
MsgBox"该读者借书数额已满！
",vbOKOnly+vbExclamation
ExitSub
EndIf
sql="select*from借阅信息"
rs_borrowbook.Opensql,conn,adOpenKeyset,adLockPessimistic
rs_borrowbook.AddNew
rs_borrowbook.Fields
（1）=Combo1.Text
rs_borrowbook.Fields
（2）=Combo2.Text
rs_borrowbook.Fields（3）=Label8.Caption
rs_borrowbook.Fields（4）=Label9.Caption
rs_borrowbook.Fields（5）=Date
rs_borrowbook.Fields（6）=DateAdd（"Ww",qixian,Date）
rs_borrowbook.Update
rs_borrowbook.Close
sql="select*from书籍信息where书籍编号='"&book_num&"'"
rs_borrowbook.Opensql,conn,adOpenKeyset,adLockPessimistic
rs_borrowbook.Fields（7）="是"
rs_borrowbook.Update
rs_borrowbook.Close
sql="select*from读者信息where读者编号='"&Combo1.Text&"'"
rs_borrowbook.Opensql,conn,adOpenKeyset,adLockPessimistic
rs_borrowbook.Fields（8）=rs_borrowbook.Fields（8）+1
rs_borrowbook.Update
rs_borrowbook.Close
MsgBox"本书借阅成功！
",vbOKOnly+vbExclamation
UnloadMe
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
4.4借阅查询界面
思想：
可按照已借出图书，为借出图书和读者姓名三种信息进行查阅，点击任以选框即可连接借阅信息表进行查阅。
4.5还书界面
思想：
分别按照读者信息和书籍信息进行查阅要还的书籍，可连接到借阅信息表来显示。
点击“还书”按钮弹出“确定要还这本书吗？
”的文本框，点击“是”就可完成还书，而后弹出“成功删除信息”的文本框。
PrivateSubCommand3_Click（）
Dimbook_numAsString
Dimreader_numAsString
DimanswerAsString
Dimrs_backAsNewADODB.Recordset
DimsqlAsString
OnErrorGoTodelerror
book_num=DataGrid1.Columns（3）.CellValue（DataGrid1.Bookmark）
reader_num=DataGrid1.Columns
（1）.CellValue（DataGrid1.Bookmark）
answer=MsgBox（"确定要还这本书吗？
",vbYesNo,""）
Ifanswer=vbYesThen
sql="select*from借阅信息where书籍编号='"&book_num&"'"
rs_back.CursorLocation=adUseClient
rs_back.Opensql,conn,adOpenKeyset,adLockPessimistic
rs_back.Delete
rs_back.Update
rs_back.Close
sql="select*from书籍信息where书籍编号='"&book_num&"'"
rs_back.CursorLocation=adUseClient
rs_back.Opensql,conn,adOpenKeyset,adLockPessimistic
rs_back.Fields（7）="否"
rs_back.Update
rs_back.Close
sql="select*from读者信息where读者编号='"&reader_num&"'"
rs_back.CursorLocation=adUseClient
rs_back.Opensql,conn,adOpenKeyset,adLockPessimistic
rs_back.Fields（8）=rs_back.Fields（8）-1
rs_back.Update
rs_back.Close
Iffindform=TrueThen
Command1_Click
Else
Command2_Click
EndIf
MsgBox"成功删除！
",vbOKOnly+vbExclamation,""
DataGrid1.AllowDelete=False
Else
ExitSub
EndIf
delerror:
IfErr.Number<>0Then
MsgBoxErr.Description
EndIf
EndSub
PrivateSubCommand4_Click（）
UnloadMe
EndSub
4.6读者信息查询界面
思想：
可根据读者编号，读者姓名或读者种类中的一个信息，就可以连接到读者信息表，方便地查阅到相关的读者的具体信息。
PrivateSubCommand1_Click（）
Dimrs_findreaderAsNewADODB.Recordset
DimsqlAsString
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
IfCheck3.Value=vbCheckedThen
IfTrim（sql）=""Then
sql="读者类别='"&Trim（Combo1.Text&""）&"'"
Else
sql=sql&"and读者类别='"&Trim（Combo1.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
SetDataGrid1.DataSource=rs_findreader
'rs_findreader.Close
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
PrivateSubForm_Load（）
Dimrs_findAsNewADODB.Recordset
DimsqlAsString
sql="select*from读者类别"
rs_find.Opensql,conn,adOpenKeyset,adLockPessimistic
IfNotrs_find.E
升级会员 