最新版数据库课程设计报告8736345Word文件下载.docx
《最新版数据库课程设计报告8736345Word文件下载.docx》由会员分享，可在线阅读，更多相关《最新版数据库课程设计报告8736345Word文件下载.docx（24页珍藏版）》请在冰豆网上搜索。
功能名称
功能说明
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
主键
姓名
char
10
性别
班级
20
年龄
[图书表]
字段
图书编号
varchar
25
书名
作者
出版社
出版时间
50
类别
24
[用户管理]
用户名
密码
所在部门
datetime
备注
[借出表]
8
借书证编号
读者姓名
所借图书
借出时间
第四章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
PrivateSubCommand3_Click（）
图书管理.Show1
PrivateSubCommand4_Click（）
借阅管理.Show1
PrivateSubCommand5_Click（）
还书管理.Show1
PrivateSubCommand6_Click（）
系统管理.Show1
PrivateSubForm_Load（）
Command3.Enabled=False
Command4.Enabled=False
Command5.Enabled=False
Command6.Enabled=False
Skin1.LoadSkinApp.Path&
"
\green.skn"
Skin1.ApplySkinMe.hWnd
4.4.2登陆窗口代码
DimpasswordAsString,nameAsString
Adodc1.RecordSource="
select*from用户管理where用户名="
&
Text1.Text
Adodc1.Refresh
password=Adodc1.Recordset.Fields（"
密码"
）
name=Adodc1.Recordset.Fields（"
用户名"
IfCombo1.Text="
管理员"
Then
IfText1.Text=nameAndText2.Text=passwordThen
r=MsgBox（"
欢迎进入湖南工学院图书借阅管理系统!
"
,"
恭喜，登陆成功！
Printr
主页.Command3.Enabled=True
主页.Command4.Enabled=True
主页.Command5.Enabled=True
主页.Command6.Enabled=True
主页.Command1.Caption="
已登陆"
主页.Command1.Enabled=False
Else
MsgBox"
帐号或密码错误，请重新登陆！
登陆失败"
EndIf
普通用户"
IfText1.Text=nameAndText2.Text=passwordAndAdodc1.Recordset.Fields（"
权限"
）=普通用户Then
主页.Command6.Enabled=False
4.4.3借阅管理代码
Adodc1.RecordSource="
select*from图书表"
Adodc1.Refresh
IfNotText1.Text="
select*from图书表where书名='
Text1.Text&
'
请输入所借图书的书名"
"
提示"
EndIf
Adodc2.RecordSource="
select*from读者表"
Adodc2.Refresh
Adodc3.RecordSource="
select*from借出表"
Adodc3.Refresh
If
升级会员 