- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 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
您可能关注的文档
最近下载
- 小学教育学-第十一章--学校咨询与辅导-适用于黄济主编《小学教育学》.pptx VIP
- 小学教育学-第十三章-教育法-适用于黄济主编《小学教育学》.pptx VIP
- 小学教育学-第十二章-教育测验与评价-适用于黄济主编《小学教育学》.pptx VIP
- 小企业财务会计制度及核算办法小微企业会计制度.pdf VIP
- 小企业财务会计制度及核算办法.docx VIP
- 小学教育学-第八章-教学-适用于黄济主编《小学教育学》.pptx VIP
- 小学教育学-第九章-课外活动-适用于黄济主编《小学教育学》.ppt VIP
- 沪教版四年级上正推和逆推教及练习.doc VIP
- TGDACM-中医技术规范 温通拨筋罐疗法治疗颈椎病编制说明.docx VIP
- 阿特拉斯•科普柯 冷冻式干燥机.pdf VIP
原创力文档


文档评论(0)