数据库图书管理系统实训报告.docx
《数据库图书管理系统实训报告.docx》由会员分享,可在线阅读,更多相关《数据库图书管理系统实训报告.docx(20页珍藏版)》请在冰豆网上搜索。
![数据库图书管理系统实训报告.docx](https://file1.bdocx.com/fileroot1/2022-10/7/738efc62-59c6-48ba-afa9-b645eb7f1e32/738efc62-59c6-48ba-afa9-b645eb7f1e321.gif)
信息与工程学院计算机科学系
《数据库原理》
集中实训报告
系统名称:
专业:
班级:
学号:
姓名:
指导教师:
2014
年
6
月
17
日
目录
1、前言 1
1.1课题简介 1
1、开发系统的名称:
1
2、实训目的:
1
3、实训意义:
1
4、实训内容:
1
5、实训预期实现效果:
1
1.2方案及其论证 1
2、需求分析 1
2.1可行性分析 1
2.2系统功能分析 2
1、系统功能结构图 2
2、系统功能分析 2
3、概念模型设计 3
E-R图 3
4、逻辑模型设计 3
关系模型 3
5、详细设计 4
5.1建立数据库代码 4
5.2建立前台界面以及其代码 5
6、总结 12
7、参考文献 12
1、前言
1.1课题简介
1、开发系统的名称:
图书管理系统
2、实训目的:
通过本次实训,应熟悉并掌握数据库系统开发的基本方法,对理论教学中所讲的知识和基本概念有更进一步的理解,培养和提高实践操作能力,为今后从事计算机数据库系统的研究、开发、应用提供必要的准备。
3、实训意义:
利用这次的实训,提高学生对理论知识的理解能力和实践技能。
熟练掌握SQL语句的使用,掌握分析和设计数据库的方法,会结合高级程序设计语言完成数据库系统的实现过程,培养学生的自学能力和创新能力。
4、实训内容:
①需求分析:
可行性分析、系统功能设计
②概念模型设计
③逻辑结构设计:
关系模式、规范处理、视图设计
④详细设计:
建立前台界面
⑤调试并运行
5、实训预期实现效果:
通过此次实训,学生能够熟练的建立数据库,并在VS开发环境下编写管理系统。
编写成功的图书管理系统,能进行图书的查询、借阅、归还等简单的基本操作。
1.2方案及其论证
语言:
SQL+VB
运行环境:
MicrosoftVisualStdio2010
2、需求分析
2.1可行性分析
目前,我们已经大概学习了SQLserver,对网络技术也有一定的了解,而且图书管理系统已经得到了大量的运用,有许多可供参考的成功系统。
而且,网上有许多关于Visual Studio C#编程的资料和SQL Server方面的资料。
从技术角度考虑,此系统开发可行。
2.2系统功能分析
1、系统功能结构图
全部图书查询
图书借阅查询
图书管理查询
学生信息查询
图书归还
图书借阅
图书管理
图书管理系统
图书查询
图书管理
图书管理系统
图书查询
图书借阅
2、系统功能分析
图书管理系统的流程是用户先选择自己的身份,是管理员或者是学生。
如果是学生,则进入学生登录界面,登陆成功后,学生所能做的操作就是查询图书的信息。
如果是管理员,则进入管理员登陆界面,登录成功后,能进行查询,图书借阅、归还等操作,通过此操作删改学生借还图书的信息。
3、概念模型设计
E-R图
学生
姓名
学号
联系电话
班级
性别
出版社
定价
分类号
作者
书名
管理
图书
书号
数量
编号
密码
联系电话
管理员
姓名
备注
管理日期
借阅
借阅时间
m m
借阅量
n
n n
4、逻辑模型设计
关系模型
学生(学号,姓名,性别,班级,联系电话)
图书(书号,书名,作者,定价,数量,分类号,出版社名称)
管理员(编号,密码,姓名,联系电话)
借阅(学号,书号,借阅时间,借阅量)
管理(编号,书号,备注,管理日期)
5、详细设计
5.1建立数据库代码
createdatabasebooks_management//建立数据库
on
(
name='books_management',
filename='E:
\图书管理数据库\books_management.mdf',
size=10,
maxsize=10,
filegrowth=10
)
logon
(name='books_management_log',
filename='E:
\图书管理数据库\books_management_log.ldf',
size=10,
maxsize=10,
filegrowth=10
)
Go
createtablestudent//建立学生表
(学号varchar(200)primarykey,
姓名varchar(200)notnull,
性别varchar(100)notnulldefault'男',
班级varchar(200)notnull,
联系电话varchar(400)notnull
)
createtablebooks//建立图书表
(
书号varchar(200)primarykey,
书名varchar(200)notnull,
作者varchar(200)notnull,
定价varchar(200)notnull,
数量varchar(200)notnull,
分类号varchar(200)notnull,
出版社varchar(200)notnull,
)
createtableadministrator//建立管理员表
(编号varchar(200)primarykey,
密码varchar(200)notnull,
姓名varchar(100)notnull,
联系电话varchar(400)notnull,
)
createtableborrow//建立借阅表
(学号varchar(200)notnull,
书号varchar(200)notnull,
借阅时间varchar(100)notnull,
借阅量varchar(400)notnull,
primarykey(学号,书号)
)
createtablemanagement//建立管理表
(编号varchar(200)notnull,
书号varchar(200)notnull,
管理日期varchar(100)notnull,
备注varchar(400)notnull,
primarykey(编号,书号)
)
5.2建立前台界面以及其代码
1、当图书管理系统打开时的界面如图5.1所示
图5.1
PublicClassForm1
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Form2.Show()
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Form3.Show()
EndSub
EndClass
2、当点击学生按钮后,进入了学生登陆系统
图5.2
代码如下:
PublicClassForm2
PrivateSubForm2_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
IfTextBox1.Text=""OrTextBox2.Text=""Then
MsgBox("用户名和密码不能为空?
")
Else
checkLoginName()
EndIf
EndSub
SubcheckLoginName()
DimstrconAsString="datasource=XP23;initialcatalog=books_management;userid=XP23\Administrator;pwd=;integratedsecurity=true;"
DimconAsSqlConnection=NewSqlConnection(strcon)
con.Open()
DimsqlAsString="select*from[student]where学号='"&TextBox1.Text.ToString().Trim()&"'and密码='"&TextBox2.Text.ToString().Trim()&"'"
DimcmdAsNewSqlCommand(sql,con)
DimreaderAsSqlDataReader
reader=cmd.ExecuteReader
Ifreader.Read()=TrueThen
Me.Hide()
Form4.Show()
Else
MsgBox("登陆失败,请检查你的用户名,密码,登陆权限是否正确")
EndIf
EndSub
3、当学生登陆成功后,进入查询界面,输入图书编号,点击“搜索”按钮可查询改图书信息。
如果点击“查询全部”按钮,即可查询所有的图书信息。
图5.3
按图书编号查询图书信息的代码如下:
DimconAsSqlConnection=NewSqlConnection(strcon)
con.Open()
DimstuNumAsString=Me.TextBox1.Text
DimselectStudentAsString="select*frombookswhere书号='"+stuNum+"'"
DimdsAsDataSet=NewDataSet()
DimdaAsSqlDataAdapter=NewSqlDataAdapter(selectStudent,con)
da.Fill(ds,"books")
Me.DataGridVi