- 1、本文档共13页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
图书馆管理课设报告
河北工业大学
数据库课程设计报告
指导老师:王小芳
学院:土木工程学院
专业:交通运输
班级:C101
姓名:沙叶林
学号:106877
2012年6月18日
图书管理系统
一、背景资料:
图书馆有各种图书若干册。
每种图书都有书名、图书编号、作者(译者)、出版时间、图书类型。
读者信息记录有借阅者的姓名、学号、性别、年龄、所在院系、专业、入学年份。
每次借书有一定期限,超过期限会提醒。
5) 还可以检索图书。
二、系统功能需求:
1)图书馆借阅书籍用于归还书籍的登记。也就是为读者建立一个台账,应用该台账,工作人员能方便地掌握某位读者借了哪些书,借了多长时间。
2)催还图书通知单。图书馆对所借书籍的最长借阅时间有限制,对逾期未还的读者适时提醒,促其尽快还书,以加快图书的流通。
3)提供快速的图书查询功能,方便读者尽快查找所需要的书。
4)系统提供的全部功能简单、直观、实用。
三、系统数据库关系的E—R图:
系统所涉及到的实体及关联关系比较简单,主要的实体只有读者和图书两个,他们通过读者的借阅活动而发生联系,其E—R图如下:
四、系统设计思路:
1、功能设计:
1) 图书借阅。为读者办理借阅登记,登记的内容包括学生编号、图书编号、借阅日期等。
2)图书归还。在适当位置登记,这个适当位置应该由图书编号和图书名称决定。
3)编制催还图书通知单。对借阅图书超过一定天数的读者打印催还图书通知单,其内容包括图书编号、读者姓名、、图书名称、作者、借阅日期等信息。
4)编制检索图书。读者可以通过图书编号、名称等信息对图书进行检索。
2、数据库设计:
根据E—R图,将其转化为如下数据实体,数据库:图书馆管理系统数据库,包括如下的表:
读者登记表。
学号
姓名
性别
年龄
所在院系
专业
入学年份
图书信息管理表
图书编号
图书名称
作者
出版时间
图书类型
图书借阅管理表
学号
图书编号
借书日期
规定归还日期
实际归还时间
3、总体模块设计:
该系统的全部功能由一个主控界面(两个表单)、一个报表以及相关的四个表单组成,其总体模块框图如下:
五、功能模块介绍:
1、欢迎界面和主控界面表单的设计:
图书馆信息管理系统的主界面由“欢迎表单”和“主控表单”组成,主控表单上安排六个命令按钮,分别实现总体框图中的五部分功能。每个命令按钮触发的结果均执行一条命令,运行一个表单,或启动一个报表文件的运行,或者退回到visual foxpro系统状态。
欢迎表单标签的caption属性为“欢迎使用图书馆管理系统!”主控表单的设计代码如下:
“图书登记”按钮的click事件代码:do form 图书信息管理表
“读者管理”按钮的click事件代码:do form学生信息表
“借书管理”按钮的click事件代码:do form图书借阅管理表
“超时提醒”按钮的click事件代码:do form图书借阅管理表
“检索图书”按钮的click事件代码:report form图书信息管理表
2、其他表单的设计:
学生信息表单设计:
此表单的数据源是学生信息表,在其支持下完成用户要进行的学生信息管理。用户从“学生编号”文本框中输入一个编号,如果该借书证在学生信息表中已存在,系统会在下面的表格对象中显示与之对应的读者情况,否则显示为空。当单击“添加”按钮后,系统会在表格中添加一行空记录,等待用户输入新读者的资料,并自动把办证日期赋值为系统当前日期,用户退出表单时系统将新数据存入与表单对应的学生信息表中;当用户单击“退还图书”按钮后,系统把当前日期赋值给还书日期字段,表述该读者已归还图书。
各表单对应的各种对象的属性值和事件代码如下:
Private Sub Command2_Click()
Dim temp1
temp1 = 100
If Adodc1.Recordset.RecordCount 0 Then
Adodc1.Recordset.MoveLast
temp1 = Val(Adodc1.Recordset.Fields(图书编号)) + 1
Else
temp1 = temp1 + 001
End If
Text1.Text = temp1
End Sub
Private Sub Command3_Click()
On Error GoTo ErrorHandle
If Text1 = Then
MsgBox 请输入图书编号!, vbInformation
Else
Dim sql As String
sq
文档评论(0)