数据库课程设计之书管理系统.docVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
数据库课程设计之书管理系统

需求分析描述需求分析 随着学校规模的不断扩大,图书数量的急剧增加,有关图书的信息量也在不断成倍增长。面对庞大的信息量,就需要有图书管理系统来提高图书管理工作的效率。通过这样的系统,我们可以做到信息的规范管理和快速查询,从而减少了管理方面的工作量。 传统手工的图书管理,管理过程繁琐而复杂,执行效率低,并且易于出错。通过这样的系统,我们可以做到信息的规范管理和快速查询,实现了图书管理的系统化、规范化和自动化,这样不仅减少了管理工作量,还提高了管理效率,降低了管理成本。 功能划分 图书管理系统主要实现以下5方面的功能: a.编目统计 b.图书检索 c.借阅图书 d.图书预约通告 e.预约图书查看 f.退出 系统结构设计逻辑结构设计 由E-R图转换为关系模式 设计数据完整性 关系模式 图书(图书名称,图书编号,ISBN,出版社,出版时间,定价,第一作者,第二作者,类别编号,是否借出,工作人员编号) 图书类别(类别编号,类别名称) 学生(编号,姓名,学号,性别,出生日期,借书证号,系别,班号,政治面貌,家庭住址) 借还书信息(ID,图书编号,借书证号,借书时间,是否归还,还书时间) 工作人员(姓名,编号,性别,联系电话,EMAIL,QQ) (E-R图见附件) 系统实现过程按出版社查询: SELECT 图书.* FROM 图书 WHERE 图书.出版社 Like trim(*+forms!读者图书检索!文本8+*); 按类名查询: SELECT 图书.* FROM 图书 WHERE 图书.类名 Like trim(*+forms!读者图书检索!文本10+*); 按书名查询: SELECT 图书.* FROM 图书 WHERE 图书.书名 Like trim(*+forms!读者图书检索!文本4+*); 补办: UPDATE 借阅证办理 SET 状态 = 正常 WHERE 借阅证办理.证件号码=forms!挂失!证件号码; 查超期天数: SELECT [超期天数] INTO 超期天数 FROM 借阅管理表 WHERE 借阅管理表.条形码=forms!还书!文本2; 预约到馆情况: SELECT [借阅时间], [应还时间] FROM 借阅管理表 WHERE 借阅管理表.条形码=forms!还书!文本2; 注销: DELETE 借阅证办理.* FROM 借阅证办理 WHERE Forms!借阅证注销!文本9=借阅证办理.证件号码; 读者图书检索代码: Option Compare Database Private Sub 命令22_Click() 文本4.SetFocus If 文本4.Text = Then Exit Sub Else On Error GoTo Err_命令22_Click Dim stDocName As String stDocName = 按书名查询 DoCmd.OpenQuery stDocName, acNormal, acEdit Exit_命令22_Click: Exit Sub Err_命令22_Click: MsgBox Err.Description Resume Exit_命令22_Click End If End Sub Private Sub 命令23_Click() 文本8.SetFocus If 文本8.Text = Then Exit Sub Else On Error GoTo Err_命令23_Click Dim stDocName As String stDocName = 按出版社查询 DoCmd.OpenQuery stDocName, acNormal, acEdit Exit_命令23_Click: Exit Sub Err_命令23_Click: MsgBox Err.Description Resume Exit_命令23_Click End If End Sub Private Sub 命令26_Click() 文本10.SetFocus If 文本10.Text = Then Exit Sub Else On Error GoTo Err_命令26_Click Dim stDocName As String stDocName = 按类名查询 DoCmd.OpenQuery stDocName, acNormal, acEdit Exit_命令26_Click: Exit Sub Err_命令26_Click: MsgBox

文档评论(0)

elouwn + 关注
实名认证
文档贡献者

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

1亿VIP精品文档

相关文档