数据库课程设计报告8736345Word格式.docx
《数据库课程设计报告8736345Word格式.docx》由会员分享,可在线阅读,更多相关《数据库课程设计报告8736345Word格式.docx(23页珍藏版)》请在冰豆网上搜索。
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
主键
姓名
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.
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
Else
MsgBox"
帐号或密码错误,请重新登陆!
登陆失败"
EndIf
IfCombo1.Text="
普通用户"
Then
IfText1.Text=nameAndText2.Text=passwordAndAdodc1.Recordset.Fields("
权限"
)=普通用户Then
主页mand6.Enabled=False
Adodc1.RecordSource="
select*from图书表where书名='
&
Text1.Text&
'
Adodc1.Refresh
请输入所借图书的书名"
"
提示"
EndIf
Adodc1.RecordSource="
select*from图书表"
Adodc1.Refresh
Adodc2.RecordSource="
select*from读者表"
Adodc2.Refresh
Adodc3.RecordSource="
select*from借出表"
Adodc3.Refresh
IfNotText1.Text="
AndNotText2.Text="
select*from读者表where借书证编号="
Text2.Text
Adodc3.Recordset.AddNew
Adodc3.Recordset.Fields("
图书编号"
)=Adodc1.Recordset.Fields("
所借图书"
书名"
读者姓名"
)=Adodc2.Recordset.Fields("
姓名"
Adodc3.Recordset.Fie