数据库课程设计报告8736345.docx
《数据库课程设计报告8736345.docx》由会员分享，可在线阅读，更多相关《数据库课程设计报告8736345.docx（21页珍藏版）》请在冰豆网上搜索。
数据库课程设计报告8736345
（此文档为word格式，下载后您可任意编辑修改！
）
第一章绪言
图书馆信息管理系统，是图书馆进行现代化的信息管理和提供信息服务的基础，是引导人们快速、准确地获取馆藏资源，并对馆藏资源进行有效管理的保证。
湖南工学院图书馆藏纸质文献总量为70.2万册；中文电子图书66.7万册；每年订购的中外文期刊1700多种。
图书馆馆紧紧围绕学校教学和科研的需要，建立了较为系统和完整并具有鲜明学科特点的藏书体系。
同时拥有CNKI系列全文数据库、重庆维普信息资源系统等多个与学院专业相关的期刊全文数据库，同时还是湖南省高校数字化图书馆的成员馆,共享网上资源有:
国家法规数据库、中外专科信息服务平台、万方中国标准全文数据库等9个资源库。
然而随着新馆的建成，现有的图书借阅系统不能很好的满足对读者借阅的管理，于是提出在原有的基础上，开发一套更为有效的图书借阅管理系统，以体现以人为本的服务宗旨，提高对读者的服务质量。
新的图书借阅系统的目标是希望通过新系统的应用，能促进图书管理工作的规范化、标准化和自动化，提高管理水平和管理效率，为读者提供更完善的信息服务，使馆藏资源得到有效的利用，最大范围的满足读者的借阅需求。
第二章系统分析
2.1系统介绍
本系统定位于小型图书馆，暂时考虑单机环境下的实现；操作系统选择目前常用的Windows982000。
系统性质为MIS管理信息系统。
本系统采用会员制管理，系统功能应包含图书管理、读者管理、图书借阅管理、系统管理等。
系统界面力求简洁、易用，在标准化的基础上考虑界面的美观和新颖。
2.2系统面向的用户群体
系统面向小型图书馆，用户群体为这些图书馆的学生、老师或者工作人员等。
2.3系统的功能性需求
功能序号
功能名称
功能说明
1
图书管理
包含图书类别、信息管理、查询图书信息等
2
读者管理管理
包含读者类别、读者信息、查询读者信息等
3
图书借阅管理
包含借书管理、还书管理
4
系统管理
系统退出
2.4系统的非功能性需求
2.4.1用户界面需求
简洁、易用、易懂，美观、大方、标准，具备一定的兼容性。
2.4.2系统开发平台
前台：
MicrosoftVisualBasic6.0
后台：
MicrosoftSQL2000Server
2.4.3软件质量需求
易用、健壮、兼容性好、运行稳定、有一定安全保障。
2.5技术可行性
系统的性质为MIS或财务软件，因而数据库的设计与操纵是系统设计的核心。
我们经过一个学期对数据库原理、VB6.0以及专业知识的学习，具备一定的系统分析与设计能力，熟悉数据库的设计与操纵；因而该系统的实现在技术上是可行的。
2.6项目规划
项目开发可分为两个阶段：
第一阶段用时约2周，进行系统初步调查、系统分析、需求分析、详细设计，画出系统流程图，数据流程图，数据字典，程序流程图。
第二阶段用时约1周，进行程序的编写。
利用VB进行程序的实际编写、测试及程序打包。
第三章总体结构设计
数据库主要着重于数据对象的属性和数据对象之间的关系的分析。
一般采用E-R图，即实体-关系模型来分析数据对象的属性和数据对象之间的关系。
3.1E-R模型设计
3.1.1实体列表
实体
描述
读者
所有借阅者，由读者号标识
图书
图书馆所有图书，由图书编号标识
借阅
姓名、书名、借书日期等属性,由图书编号和读者号标识
管理员
系统管理人员
3.1.2系统的E-R模型
有关实体及其属性图如下：
实体集实体属性实体之间的联系
该图书管理系统的E-R模型，如下图所示
3.2设计数据库
3.2.1创建数据库
（1）在企业管理器中的数据库上右击。
（2）执行“新建数据库”命令,并在打开的“创建数据库”对话框中输入数据库名“图书馆数据库”。
（3）单击“确定”按钮，则新建的数据库就会出现在企业管理器上。
3.2.2创建数据表
创建数据库后，为“图书馆数据库”添加数据表，步骤如下。
（1）在企业管理器中右击“图书馆数据库”下的“表”文件夹。
在弹出的快捷菜单中执行“新建表”命令，出现表设计器。
（2）添加表的字段和其他详细资料。
3.2.3各表设计详解
[说明]：
空缺位置表示无要求，主键在约束栏注明。
视图表名
类型
说明
读者表
基本表
读者信息
图书表
基本表
图书信息
借阅表
基本表
借阅读者、书籍信息
用户管理
基本表
登陆账号、密码
基本表：
[读者表]
字段
类型
长度
约束
借书证号
int
4
主键
姓名
char
10
性别
char
10
班级
char
20
年龄
int
4
基本表：
[图书表]
字段
类型
长度
约束
图书编号
varchar
25
主键
书名
varchar
10
作者
varchar
20
出版社
varchar
25
出版时间
varchar
50
类别
char
24
基本表：
[用户管理]
字段
类型
长度
约束
用户名
varchar
10
主键
密码
varchar
25
姓名
varchar
10
性别
varchar
25
所在部门
datetime
备注
varchar
基本表：
[借出表]
字段
类型
长度
约束
图书编号
varchar
8
主键
借书证编号
varchar
8
读者姓名
varchar
10
所借图书
varchar
25
作者
varchar
10
出版社
varchar
50
出版时间
datetime
类别
借出时间
第四章DB的详细设计
4.1数据库环境说明
考虑该系统的定位与现有技术力量,决定采用MicrosoftSQL2000Server
作为系统的后台数据库开发环境。
4.2DB逻辑设计
图4.1数据库逻辑结构图
4．3程序流程图的设计
程序流程图的代号如下：
本系统的流程分析图如图4.2所示
图4.2系统流程分析图
4．4原代码设计
4.4.1系统主界面代码
PrivateSubCommand1_Click（）
登陆界面.Show1
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
PrivateSubCommand3_Click（）
图书管理.Show1
EndSub
PrivateSubCommand4_Click（）
借阅管理.Show1
EndSub
PrivateSubCommand5_Click（）
还书管理.Show1
EndSub
PrivateSubCommand6_Click（）
系统管理.Show1
EndSub
PrivateSubForm_Load（）
Command3.Enabled=False
Command4.Enabled=False
Command5.Enabled=False
Command6.Enabled=False
Skin1.LoadSkinApp.Path&"\green.skn"
Skin1.ApplySkinMe.
IfText1.Text=nameAndText2.Text=passwordThen
r=MsgBox（"欢迎进入湖南工学院图书借阅管理系统!
",,"恭喜，登陆成功！
"）
Printr
主页mand3.Enabled=True
主页mand4.Enabled=True
主页mand5.Enabled=True
主页mand6.Enabled=True
主页mand1.Caption="已登陆"
主页mand1.Enabled=False
UnloadMe
Else
MsgBox"帐号或密码错误，请重新登陆！
",,"登陆失败"
EndIf
EndIf
IfCombo1.Text="普通用户"Then
IfText1.Text=nameAndText2.Text=passwordAndAdodc1.Recordset.Fields（"权限"）=普通用户Then
r=MsgBox（"欢迎进入湖南工学院图书借阅管理系统!
",,"恭喜，登陆成功！
"）
Printr
主页mand3.Enabled=True
主页mand4.Enabled=True
主页mand5.Enabled=True
主页mand6.Enabled=False
主页mand1.Caption="已登陆"
主页mand1.Enabled=False
UnloadMe
Else
MsgBox"帐号或密码错误，请重新登陆！
",,"登陆失败"
EndIf
EndIf
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
PrivateSubForm_Load（）
Skin1.LoadSkinApp.Path&"\green.skn"
Skin1.ApplySkinMe.
Adodc1.RecordSource="select*from图书表where书名='"&Text1.Text&"'"
Adodc1.Refresh
Else
MsgBox"请输入所借图书的书名","提示"
EndIf
EndSub
PrivateSubCommand2_Click（）
Adodc1.RecordSource="select*from图书表"
Adodc1.Refresh
Adodc2.RecordSource="select*from读者表"
Adodc2.Refresh
Adodc3.RecordSource="select*from借出表"
Adodc3.Refresh
IfNotText1.Text=""AndNotText2.Text=""Then
Adodc1.RecordSource="select*from图书表where书名='"&Text1.Text&"'"
Adodc1.Refresh
Adodc2.RecordSource="select*from读者表where借书证编号="&Text2.Text
Adodc2.Refresh
Adodc3.Recordset.AddNew
Adodc3.Recordset.Fields（"图书编号"）=Adodc1.Recordset.Fields（"图书编号"）
Adodc3.Recordset.Fields（"所借图书"）=Adodc1.Recordset.Fields（"书名"）
Adodc3.Recordset.Fields（"读者姓名"）=Adodc2.Recordset.Fields（"姓名"）
Adodc3.Recordset.Fields（"借书证编号"）=Adodc2.Recordset.Fields（"借书证编号"）
Adodc3.Recordset.Fields（"作者"）=Adodc1.Recordset.Fields（"作者"）
Adodc3.Recordset.Fields（"出版社"）=Adodc1.Recordset.Fields（"出版社"）
Adodc3.Recordset.Fields（"出版时间"）=Adodc1.Recordset.Fields（"出版时间"）
Adodc3.Recordset.Fields（"类别"）=Adodc1.Recordset.Fields（"类别"）
Adodc3.Recordset.Fields（"借书时间"）=Left（Now,10）
Adodc3.Recordset.Update
Adodc1.RecordSource="select*from图书表where书名='"&Text1.Text&"'"
Adodc1.Refresh
Adodc1.Recordset.Delete
图书管理.Adodc1.Refresh
图书管理.Adodc2.Refresh
MsgBox"借阅成功",,"成功提示"
EndIf
EndSub
PrivateSubCommand3_Click（）
UnloadMe
EndSub
PrivateSubCommand4_Click（）
Adodc2.RecordSource="select*from读者表"
Adodc2.Refresh
IfNotText2.Text=""Then
Adodc2.RecordSource="select*from读者表where借书证编号="&Text2.Text
Adodc2.Refresh
Else
MsgBox"请输入你的借书证编号","提示"
EndIf
EndSub
PrivateSubCommand6_Click（）
Adodc1.RecordSource="select*from图书表"
Adodc1.Refresh
IfNotText3.Text=""Then
Adodc1.RecordSource="select*from图书表where书名like'%"&Text3.Text&"%'"
Adodc1.Refresh
Else
MsgBox"请输入你要查询图书的关键字","提示"
EndIf
EndSub
PrivateSubForm_Load（）
Skin1.LoadSkinApp.Path&"\green.skn"
Skin1.ApplySkinMe.
Adodc1.RecordSource="select*from图书表where书名='"&Text1.Text&"'"
Adodc1.Refresh
Else
MsgBox"请输入所借图书的书名","提示"
EndIf
EndSub
PrivateSubCommand2_Click（）
Adodc1.RecordSource="select*from图书表"
Adodc1.Refresh
Adodc2.RecordSource="select*from读者表"
Adodc2.Refresh
Adodc3.RecordSource="select*from借出表"
Adodc3.Refresh
IfNotText1.Text=""AndNotText2.Text=""Then
Adodc1.RecordSource="select*from图书表where书名='"&Text1.Text&"'"
Adodc1.Refresh
Adodc2.RecordSource="select*from读者表where借书证编号="&Text2.Text
Adodc2.Refresh
Adodc3.Recordset.AddNew
Adodc3.Recordset.Fields（"图书编号"）=Adodc1.Recordset.Fields（"图书编号"）
Adodc3.Recordset.Fields（"所借图书"）=Adodc1.Recordset.Fields（"书名"）
Adodc3.Recordset.Fields（"读者姓名"）=Adodc2.Recordset.Fields（"姓名"）
Adodc3.Recordset.Fields（"借书证编号"）=Adodc2.Recordset.Fields（"借书证编号"）
Adodc3.Recordset.Fields（"作者"）=Adodc1.Recordset.Fields（"作者"）
Adodc3.Recordset.Fields（"出版社"）=Adodc1.Recordset.Fields（"出版社"）
Adodc3.Recordset.Fields（"出版时间"）=Adodc1.Recordset.Fields（"出版时间"）
Adodc3.Recordset.Fields（"类别"）=Adodc1.Recordset.Fields（"类别"）
Adodc3.Recordset.Fields（"借书时间"）=Left（Now,10）
Adodc3.Recordset.Update
Adodc1.RecordSource="select*from图书表where书名='"&Text1.Text&"'"
Adodc1.Refresh
Adodc1.Recordset.Delete
图书管理.Adodc1.Refresh
图书管理.Adodc2.Refresh
MsgBox"借阅成功",,"成功提示"
EndIf
EndSub
PrivateSubCommand3_Click（）
UnloadMe
EndSub
PrivateSubCommand4_Click（）
Adodc2.RecordSource="select*from读者表"
Adodc2.Refresh
IfNotText2.Text=""Then
Adodc2.RecordSource="select*from读者表where借书证编号="&Text2.Text
Adodc2.Refresh
Else
MsgBox"请输入你的借书证编号","提示"
EndIf
EndSub
PrivateSubCommand6_Click（）
Adodc1.RecordSource="select*from图书表"
Adodc1.Refresh
IfNotText3.Text=""Then
Adodc1.RecordSource="select*from图书表where书名like'%"&Text3.Text&"%'"
Adodc1.Refresh
Else
MsgBox"请输入你要查询图书的关键字","提示"
EndIf
EndSub
PrivateSubForm_Load（）
Skin1.LoadSkinApp.Path&"\green.skn"
Skin1.ApplySkinMe.
Adodc2.RecordSource="select*from图书表where类别='"&Combo1.Text&"'"
Adodc2.Refresh
EndIf
EndSub
PrivateSubCommand5_Click（）
Adodc2.RecordSource="select*from图书表"
Adodc2.Refresh
IfNotText1.Text=""Then
Adodc2.RecordSource="select*from图书表where书名like'%"&Text1.Text&"%'"
Adodc2.Refresh
EndIf
EndSub
PrivateSubForm_Load（）
Skin1.LoadSkinApp.Path&"\green.skn"
Skin1.ApplySkinMe.
MsgBox"请输入要修改图书的书名",,"提示"
Text5.SetFocus
Else
Adodc1.RecordSource="select*from图书表where书名='"&Text5.Text&"'"
Adodc1.Refresh
Text1.Text=Adodc1.Recordset.Fields（"作者"）
Text2.Text=Adodc1.Recordset.Fields（"出版社"）
Text3.Text=Adodc1.Recordset.Fields（"出版时间"）
Text4.Text=Adodc1.Recordset.Fields（"类别"）
Text6.Text=Adodc1.Recordset.Fields（"图书编号"）
Text7.Text=Adodc1.Recordset.Fields（"书名"）
EndIf
EndSub
PrivateSubForm_Load（）
Skin1.LoadSkinApp.Path&"\green.skn"
Skin1.ApplySkinMe.App.Path&"\green.skn"
Skin1.ApplySkinMe.hWnd
EndSub
PrivateSubLabel8_Click（）
EndSub
4.5人机界面设计
以下是系统的用户登录界面，选择好用户名后，在输入对应的用户名和密码后，则正确登录。
以下是系统的还书管理界面
以下是添加用户界面
以下是图书管理界面
以下是修改图书信息界面
以下是删除读者信息界面
以下是添加新书界面
第五章系统功能的实现
5.1系统编程软件的特点
本系统的编程软件采用VisualBasic6.0（以下简称VB）。
VB是Microsoft公司迄今为止最成功的开发工具。
它之所以受到人们的青睐。
原因是多方面的，但主要有几点：
一是功能强大，VB具有工具丰富而且完整、质量高、界面友好等特点，是目前比较流行的数据库系统之一。
二是容易掌握，在数据库操作、数据库管理、可视化和面向对象程序设计方面等方面有许多优点。
5.2系统编程过程
刚接到老师布置下来的数据库课程设计时，一开始我们还不知道做个什么类型的题目，从图书管借了几本书参考，最后我们三个经我班班级成绩表的启发，决定做一个简单的学生成绩管理系统。
经过对系统的各种分析，还是无从着手，一起摸索，请教同学，最后才慢慢的开始进入角色。
5.3系统实施和测试方法
系统实施是在系统的详细设计以后才开始的，它是以系统分析和设计工作为基础的上，将技术的设计转化为可以实际运行的物理系统的阶段。
5.3.1系统实施的方法
本系统在实施阶段采用了快速原形法、结构化程序设计的方法以及在具体编程中采用的面向对象的软件设计三者相结合的系统实施
升级会员 