VBSQL图书管理系统课程实习报告.doc

VBSQL图书管理系统课程实习报告

17
2020年4月19日
文档仅供参考

*****学院

课程设计报告

课程名称: 数据库原理课程设计
专 业: 计算机科学与技术
姓 名: **
班 级: ***********
学 号: ************
指导教师: ******

6 月17日

图书管理系统
一、需求分析
当今时代是飞速发展的的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的原因。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不但提高了工作效率，而且大大的提高了其安全性。特别对于复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。本系统就是为了管理好图书馆信息而设计的。
针对各大中专院校的图书管理现状，设计出适合一般学校的计算机辅助图书管理系统。实现对图书基本信息、读者基本信息进行计算机辅助管理，完成借书和还书有关信息的记录、修改、查询、删除等一系列任务的计算机管理与实现。
图书管理系统能方便、快捷地管理图书，将传统的图书管理方式彻底的解脱出来，提高效率，减轻工人人员以往繁忙的工作，减小出错的概率，使读者能够花更多的时间在选择书和看书上。从而使人们有更多时间来获取信息、了解信息、掌握信息。

各功能模块描述如下：
1.系统管理
系统管理中，能实现新的管理员的添加和现存管理员的密码修改功能。
2.图书管理
在图书管理模块中，主要实现对图书类别的添加和管理，而且能够添加新的图书。
3.读者管理
实现对读者类别的添加和管理，读者类别可包含老师学生等等，而且各读者类别所借阅的图书书目和借阅时间都存在差别。对已借阅图书的读者的信息进行添加和管理，而且日后可根据登记的读者编号进行查阅。
4.借阅管理
借阅管理包含对应读者所借图书的相关信息，可根据借阅编号查询相关借阅情况，并查看时候超期借阅，并进行一定金额处罚。

图书管理系统

借阅管理
读者管理
图书管理
系统管理

添加图书类别
查询图书信息
修改图书信息
添加图书信息
修改图书类别
修改密码
添加新管理员

查询借书信息

管理借书信息
查询读者信息
管理读者信息
添加读者信息
管理读者类别
添加读者类别

图 1-1 图书管理系统功能模块

二、概念结构设计
图书
借阅
读者
编号
名称
作者
出版日期
登记日期
n
m
编号
性别
单位
地址
姓名
电话
管理员
借阅编号
是否超期
借出日期
归还日期
管理
q
1
用户名
登陆密码
类别
属于
类别号
类别名
已借阅数量
登记日期
p
1
惩罚
超期
属于
读者类别
惩罚金额
惩罚编号
类别名称
最大借阅数
最长借阅时间
k
h
1
1
惩罚类别

图 2-1 概念结构E-R图

三、逻辑结构设计
管理员 （用户名，密码）
读者类别（类别名称，最大借阅数，最长借阅时间）
读者信息（读者编号，姓名，性别，单位，地址，电话，类别名称，登记日期，已借阅数量）
图书类别（类别号，类别名）
图书信息（图书编号，图书名称，类别名，作者，出版日期，登记日期）
借阅信息（借阅编号，读者编号，读者姓名，图书编号，图书名称，借出日期，归还日期，是否超期）

四、数据库物理设计
1．管理员表Admin

图 4-1 Admin表

2.读者类别表RT

图 4-2 RT表

3.读者类别表RI

图 4-3 RI表

4.图书类别表BC

图 4-4 BC表

5.图书信息表BI

图 4-5 BI表

6.借阅信息表LI

图 4-6 LI表

五、数据库的实施
1、读者管理模块实施：
首先使用conn.ConnectionString字符串方法进行与SQL数据库的连接，
在窗体中用commmand控件，label控件和textbox控件画出程序模型，然后建立记录集查询，然后用rs_addreader.Fields绑定各个textbox输入框到数据库。使用rs_addreader.AddNew进行数据添加，使用rs_addreader.update进行数据修改更新，使用rs_addreader.delete进行数据删除。
2、借阅管理模块实施：
使用adodc控件实现程序与SQL数据库的连接，在窗体中用commmand控件，label控件和textbox控件画出程序模型，然后在窗体中添加datagrid控件，将其datasource设置成adodc1，在将其中的textbox的datasource属性也设置成adodc1，datafield设置成对应的数据项。然后用ado控件建立第二个数据连接adodc2,用来连接数据库中的读者信息表，实现对外表的查询，在需要添加读者借阅信息时，只需要添加读者号，读者姓名会自动出现在文本框中，具体实现方法，将读者姓名的text2绑定到数据源adodc2，并为读者号的text1添加一个textchange事件：
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from ri where ri_no= '" & Text1.Text & "'"
Adodc2.Refresh
借阅罚款功能的实现，当单击判断按钮时，自动用当前时间减去借阅时间，如果结果小于等于30，则弹出不超期提示，若结果大于30则将结果减去30再乘以0.1元，得出应缴罚款。具体判断是否超期的按钮代码为：
Dim a As Date
Dim w As Date
a = Format(Now, "YYYY-Mm-DD")
w = Trim(Text5.Text)
b = a - w
If b > 30 Then
MsgBox "借阅已超期，请缴罚款" & (b-30) * 0.1 & "元", vbOKOnly + vbExclamation, "警告"
Else
MsgBox "借阅还未超期。", vbOKOnly + vbExclamation, "提示"
End If
End Sub
六、系统运行结果
1、读者管理：

图6-1 读者管理菜单

图6-2 添加读者类别

图6-3 管理读者类别

图6-4 添加读者信息

图6-5 管理读者信息

图6-6 查询读者信息

2、借阅管理

图6-7 借阅管理

图6-8 管理借阅信息

图6-9 查询借阅信息

图6-10 查询学号为3的学生借阅信息结果
七、实习总结
时间过得真快，转眼间，两周的课程设计生活已悄然过去了，课程设计期间，让我学到了很多东西，不但使我在理论上对 VB 程序和SQL 设计有了全新的认识，在实践能力上也得到了提高，真正地做到了学以致用，更学到了很多做人的道理，对我来说受益非浅。亲身感受到理论与实际的相结合，让我大开眼界。这次课程设计对于我以后学习、找工作也真是受益菲浅，在短短的两周中，相信这些宝贵的经验会成为我今后成功的重要的基石，对程序设计有了理性的认识和理解。在之前，程序设计对我来说是比较抽象的，不知道一个完整的程序要怎么完成。 这次我做的项目是图书管理系统，其中包含了登陆、读者信息管理，图书信息管理，借阅信息管理等几个部分。在刚开始的时候，做的 只是几个简单的界面，觉得其实还算比较简单的，到第三天，基本部分的代码都编写出来了，可是调试的时候出现了很多问题。而且，有时候由于考虑不周以及粗心的缘故，代码方面也存在很大的误差。老师教会了我们很多简单实用的技巧。 也让我们意识到了要想全面完整的完成一个模块，首先要经行程序设计，全面分析会用到的东西及考虑可能会出现的情况。因此出现的问题也在老师的指导下，顺利解决了。 本程序的编写，有很多不足的地方，可能有些功能不太全面也不太完善，但我觉得自己是认认真真的做了，而且从中学到了很多，以 后，我要把自己欠缺的知识点补习好，而且要学会举一反三，融会贯 通，最重要的是改掉粗心马虎、考虑不周的习惯。我想我以后会将此 程序完善好，争取能够运用到生活中去。 再次感谢老师的耐心指导！