数据库课程设计报告图书管理系统文档格式.docx
- 文档编号:17681487
- 上传时间:2022-12-08
- 格式:DOCX
- 页数:30
- 大小:147.54KB
数据库课程设计报告图书管理系统文档格式.docx
《数据库课程设计报告图书管理系统文档格式.docx》由会员分享,可在线阅读,更多相关《数据库课程设计报告图书管理系统文档格式.docx(30页珍藏版)》请在冰豆网上搜索。
七、结束语………………………………………………………………24
7.1制作数据库课程设计报告中遇到的问题及解决方法……………24
7.2体会及心得…………………………………………………………24
1、课程设计题目
题目:
图书管理系统
系统功能基本要求
图书信息,包括图书编号、图书名称、所属类别等;
读者信息,包括读者编码、姓名、性别、专业等;
借还书信息,包括图书当前状态、被借还次数、借阅时间等。
2、需求分析
2.1信息要求
根据图书管理系统的需求,首先将要记录的信息分类,要记录的信息如下。
1用户信息:
包括姓名、借书证号、身份。
2学生信息表:
学生学号、班级编号、借书证号、学生姓名、性别、系别。
3图书管理员信息表:
管理员编号、姓名、性别、值班时间。
4图书借阅信息表:
图书名称、学生学号、借书证号、管理员编号、借出数量、剩余数量。
5图书信息表:
图书编号、类别编号、类别名称、图书名称、作者姓名、出版社名称、图书简介、能否借出、封面。
6图书赔偿信息表:
图书编号、管理员编号、借书日期、应还日期、赔偿原因、赔偿金额、解决方案。
7投诉管理信息表:
借书证号、投诉日期、投诉内容、管理员编号
2.2处理要求
图书管理系统主要应该具有以下功能模块:
(1)读者登录界面部分,要求有如下功能:
①可以显示读者信息
②图书查询功能;
③借书操作;
④续借操作;
(2)管理员登录界面部分,要求有如下功能:
①添加用户信息;
②修改用户信息;
③删除用户信息;
④添加书籍信息;
⑤修改书籍信息;
⑥删除书籍信息;
⑦借阅信息管理;
借阅信息修改;
还书信息;
系统功能模块图如下:
3、概念结构设计
3.1各实体E-R图
学生:
管理员:
图书:
图书
类别名称
图书名称
作者姓名
出版社名称
图书简介
能否借出
类别编号
图书编号
封面
3.2图书管理总E-R图
管理员
管理
借阅
读者
管理员编号
姓名
值班时间
性别
图书价格
政治面貌
院系
专业
读者类型
读者姓名
四、数据库的应用
4.1数据库系统的简介
通过图书馆图书管理系统管理员可以简捷、方便的对图书记录查阅、增加、删除等功能,而用户也可以通过这个系统对进行图书查询、借阅、归还等功能。
该数据库应用程序按照用户权限和实现功能的不同分为两部分:
外部学生对数据库的查询访问和内部管理人员对数据记录的管理维护。
每一部分中包含各自实现的各项功能,对每一项功能的实现,将按照窗体设计以及运行情况的顺序逐一进行设计。
4.2利用数据库建立表如下:
系统表单:
学生信息表
图书信息表
图书管理员信息表
图书借阅信息表
图书赔偿信息表
投诉管理信息表
在数据库中建立表,并输入详细信息:
部分学生详细信息表
管理员详细信息表
五、VisualBasic6.0的应用
5.1开发工具简介(VisualBasic6.0)
微软公司的VisualBasic6.0是Windows应用程序开发工具,是目前最为广泛的、易学易用的面向对象的开发工具。
VisualBasic提供了大量的控件,这些控件可用于设计界面和实现各种功能,减少了编程人员的工作量,也简化了界面设计过程,从而有效的提高了应用程序的运行效率和可靠性。
利用VISUALBASIC程序设计语言,可以很方便地设计出在WINDOWS环境下运行的应用程序。
故而,实现本系统VB是一个相对较好的选择。
VB是微软公司出品的一个快速可视化程序开发工具软件,借助微软在操作系统和办公软件的垄断地位,VB在短短的几年内风靡全球。
VB是极有和功能强大的软件,主要表现在:
所见即所得的界面设计,基于对象的设计方法,极短的软件开发周期,较易维护的生成代码。
VB程序语言具有许多优秀的特性,用其设计应用程序时有两个基本特点:
可视化设计和事件驱动编程。
5.2利用VB6.0进行系统功能设计
该系统具有借阅图书,归还图书,查阅图书馆的藏书情况和自己的借阅情况,编辑帐号等功能。
高级管理员可以对图书进行录入登记,删除陈旧的书籍;
对帐号信息进行增加,删除,修改等操作。
还可以来直接查阅自己的借阅情况及图书馆的藏书情况。
具体功能如下:
●管理者登陆功能
管理员通过自己的用户名和密码登陆该系统,同时在管理员离开本机的时候,退出该系统,达到其他人不可以进行操作的目的。
●借阅者的登陆功能
这个功能的实现与管理人员登录功能实现的方法大致一样,并且还要简单。
是从读者表中查到到账号与密码,看与用户输入的是否一致。
如果一致,那么用户就可查看自已的借阅情况并维护自己的部分信息。
●图书的借阅功能
在这个功能中,借阅者输入借阅者的读者编号和所要借阅的图书的图书编号,然后点击借阅按钮就可进行图书借阅。
●图书的归还功能
在此功能中,借阅者根据借阅者的读者编号和归还的图书编号进行还书工作。
●图书的查询功能
在这个功能中可以在文本框中输入图书编号,点查找按钮后就会在各个相应的组件中显示出信息。
●高级管理员的帐号管理功能
在此功能中高级管理员可以增加,或是修改借阅者的密码、权限。
在此功能中如果选中中的记录,则在右边相应的组件中显示出信息,并且管理员还可对这些记录进行修改或删除已有的记录。
并且也可以点增加按钮增加一条或多条新的记录。
●退出系统功能
在系统主窗口中单击“退出”按纽,就退出图书馆管理系统。
5.3图书管理系统的详细设计
(1)图书管理登陆界面设计
●登陆界面截图
●主要实现源代码
PrivateSubCommand1_Click()
DimsqlAsString
DimconnAsNewADODB.Connection
Dimrs_loginAsNewADODB.Recordset
IfTrim(Text1.Text)="
"
Then'
检测用户名正确与否
MsgBox"
用户名不能为空,请重新输入!
vbOKOnly+vbExclamation,"
错误"
Text1.SetFocus
Else
sql="
select*fromTestwheretest_info='
&
Text1.Text&
"
'
rs_login.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_login.EOF=TrueThen
用户名不存在,请重新输入!
Text1="
Else'
检测密码正确与否
IfTrim(rs_login.Fields
(1))=Trim(Text2)Then
rs_login.Close
UnloadMe
Form2.Show
Else
密码错误,请重新输入!
Text2.SetFocus
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
您已成功退出!
提示"
PrivateSubForm_Load()
App.HelpFile=App.Path+"
\WHELP.HLP"
OpenDatabase(DatabaseName,False,False,"
;
Pwd=密码"
)
SetDB=OpenDatabase(App.Path+"
\Access.mdb"
False,False,"
pwd=ma"
Setrd1=DB.OpenRecordset("
kkey"
dbOpenSnapshot)
Ifrd1.RecordCount=0ThenExitSub
pname=rd1("
username"
pkey=rd1("
userkey"
PrivateSubtxtUserNameGetFocus()
txtUserName.SetFocus
txtUserName.SelStart=0
txtUserName.SelLength=Len(txtUserName.Text)
PrivateSubtxtPasswordGetFocus()
txtPassword.SetFocus
txtPassword.SelStart=0
txtPassword.SelLength=Len(txtPassword.Text)
PrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
(2)登陆成功后进入界面
●界面截图
#图书借阅管理
PrivateSubBookBorrowManage_Click()
Combo2.ListIndex=Combo1.ListIndex
PrivateSubCombo2_Click()
Combo1.ListIndex=Combo2.ListIndex
Dimrs_borrowbookAsNewADODB.Recordset
DimsqlAsString
DimconnAsNewADODB.Connection
conn.Open"
provider=Microsoft.Jet.OLEDB.4.0;
datasource="
App.Path&
\database.mdb"
select*from读者信息where读者编号='
Combo1.Text&
rs_borrowbook.Opensql,conn,adOpenKeyset,adLockPessimistic
leibie=rs_borrowbook.Fields(3)
shumu=rs_borrowbook.Fields(8)
rs_borrowbook.Close
select*from读者类别where种类名称='
leibie&
qixian=rs_borrowbook.Fields
(2)
maxnum=rs_borrowbook.Fields
(1)
Ifshumu>
=maxnumThen
该读者借书数额已满!
vbOKOnly+vbExclamation
ExitSub
select*from借阅信息"
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)=Date+qixian
rs_borrowbook.Update
select*from书籍信息where图书编号='
book_num&
rs_borrowbook.Fields(7)="
是"
rs_borrowbook.Close
rs_borrowbook.Fields(8)=rs_borrowbook.Fields(8)+1
本书借阅成功!
Dimrs_borrowAsNewADODB.Recordset
Dimrs_readerAsNewADODB.Recordset
DimsqlreaderAsString
rs_borrow.Opensql,conn,adOpenKeyset,adLockPessimistic
Label8.Caption=rs_borrow.Fields(0)
Label9.Caption=rs_borrow.Fields
(1)
Label10.Caption=rs_borrow.Fields(3)
Label11.Caption=rs_borrow.Fields(5)
Label12.Caption=rs_borrow.Fields
(2)
Label13.Caption=rs_borrow.Fields(4)
Label14.Caption=rs_borrow.Fields(6)
sqlreader="
select*from读者信息"
rs_reader.Opensqlreader,conn,adOpenKeyset,adLockPessimistic
IfNotrs_reader.EOFThen
DoWhileNotrs_reader.EOF
Combo1.AddItemrs_reader.Fields
(1)
Combo2.AddItemrs_reader.Fields(0)
rs_reader.MoveNext
Loop
请先登记读者!
rs_borrow.Close
rs_reader.Close
#图书管理
PrivateSubBookManage_Click()
Dimrs_findbookAsNewADODB.Recordset
IfCheck1.Value=vbCheckedThen
书名='
Trim(Text1.Text&
)&
IfCheck2.Value=vbCheckedThen
IfTrim(sql)="
Then
类别='
Trim(Combo1.Text&
sql=sql&
and类别='
IfCheck3.Value=vbCheckedThen
作者='
Trim(Text2.Text&
and作者='
IfCheck4.Value=vbCheckedThen
图书编号='
Trim(Text3.Text&
IfCheck5.Value=vbCheckedThen
出版社='
Trim(Text4.Text&
and出版社='
conn.Open"
IfTrim(sql)="
请选择查询方式!
sql="
select*from书籍信息where"
sql
rs_findbook.CursorLocation=adUseClient
rs_findbook.Opensql,conn,adOpenKeyset,adLockPessimistic
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
DataGrid1.AllowUpdate=False
Ifrs_findbook.RecordCount=0Then
查询不到该图书信息!
SetDataGrid1.DataSource=rs_findbook
UnloadMe
PrivateSubCommand3_Click()
IfTrim(book_num)="
请选择要借阅的图书!
Ifpanduan="
此书已被借出!
frmborrowbook.Show
PrivateSubDataGrid1_RowColChange(LastRowAsVariant,ByValLastColAsInteger)
book_num=DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)
panduan=DataGrid1.Columns(7).CellValue(DataGrid1.Bookmark)
Dim
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库 课程设计 报告 图书 管理 系统