图书馆管理课设报告.doc

  1. 1、本文档共13页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 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)

xcs88858 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

版权声明书
用户编号:8130065136000003

1亿VIP精品文档

相关文档