数据库图书管理系统实训报告

《数据库原理》
集中实训报告系统名称：
目录
1、前言 ...................................................................
1.1 课题简介...........................................................
1、开发系统的名称：................................................
2、系统功能分析 ....................................................
3、概念模型设计 ...........................................................
E-R图 .................................................................
4、逻辑模型设计 ...........................................................
关系模型...............................................................
5、详细设计 ...............................................................
5.1建立数据库代码.....................................................
5.2建立前台界面以及其代码.............................................
1、前言
1.1 课题简介
1、开发系统的名称：
图书管理系统
语句
③逻辑结构设计：关系模式、规范处理、视图设计
④详细设计：建立前台界面
⑤调试并运行
5、实训预期实现效果:
通过此次实训，学生能够熟练的建立数据库，并在VS 开发环境下编写管理系统。

编写成功的图书管理系统，能进行图书的查询、借阅、归还等简单的基本操作。

1.2 方案及其论证
2
如果是学生，如果是管
理员，则进入管理员登陆界面，登录成功后，能进行查询，图书借阅、归还等操作，通过此操作删改学生借还图书的信息。

3、概念模型设计
E-R图
图书（书号，书名，作者，定价，数量，分类号，出版社名称）
管理员（编号，密码，姓名，联系电话）
借阅（学号，书号，借阅时间，借阅量）
管理（编号，书号，备注，管理日期）
5、详细设计
5.1建立数据库代码
create database books_management //建立数据库
on
filename='E:\图书管理数据库\books_management_log.ldf', size=10,
maxsize=10,
filegrowth=10
)
Go
create table student//建立学生表(学号 varchar(200) primary key,
作者 varchar(200) not null,
定价 varchar(200) not null,
数量 varchar(200) not null,
分类号 varchar(200) not null,
)
create table administrator //建立管理员表(编号 varchar(200) primary key,
primary key(学号,书号)
)
create table management //建立管理表
(编号 varchar(200) not null,
管理日期 varchar(100) not null ,
备注 varchar(400) not null,
primary key(编号,书号)
Form2.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form3.Show()
End Sub
End Class
2、当点击学生按钮后，进入了学生登陆系统
Else
checkLoginName()
EndIf
EndSub
Sub checkLoginName()
Dim strcon AsString = "data source=XP23;initial catalog=books_management;user id=XP23\Administrator;pwd=;integrated security=true;"
Else
MsgBox("登陆失败，请检查你的用户名，密码，登陆权限是否正确") EndIf
EndSub
3、当学生登陆成功后，进入查询界面，输入图书编号，点击“搜索”按钮可查询改图书信息。

如果点击“查询全部”按钮，即可查询所有的图书信息。

图5.3
按图书编号查询图书信息的代码如下：
"'"
4、如果在图5.1中单击的是“管理员”按钮，则进入管理员登陆界面，如图5.4
图5.4
5、当成功登陆管理员系统后，进入图书管理界面，如图5.5
图5.5
6、当点击图5.5的“图书查询”按钮时，进入图书查询界面。

当单击“图书借阅信息查询”按钮时，学生的借阅信息将在下面显示，如图5.6。

当点击其他三个按钮时也会出现相应的信息。

图5.6
代码如下：
Dim selectStudent AsString = "select * from borrow"
Dim ds As DataSet = New DataSet()
Dim da As SqlDataAdapter = New SqlDataAdapter(selectStudent, con)
da.Fill(ds, "borrow")
Me.DataGridView1.DataSource = ds.Tables("borrow")
con.Close()
EndSub
7、当点击图5.5中的“图书管理”按钮时，进入图书管理界面，如图5.7
图5.7
8、当点击图5.5中的“图书借阅”按钮时，进入图书借阅界面，如图5.8。

图5.8
代码如下：
Dim name AsString = Me.TextBox3.Text
Dim num AsString = Me.TextBox4.Text
Dim time AsString = Me.TextBox5.Text
Dim num2 AsString = Me.TextBox6.Text
Dim addclass AsString = String.Format("insert into borrow values('{0}','{1}','{2}','{3}')", name, num, time, num2)
MessageBox.Show("添加成功!", "操作提示",MessageBoxButtons.OK, rmation)
Me.Close()
EndIf
9、当点击图5.5中的“图书归还”按钮时，进入图书归还界面，如图5.9。

当点击下图中要删除的行时，根据学号和书号删除该列。

图5.9
代码如下：
da.Fill(ds, "borrow")
Me.DataGridView1.DataSource = ds.Tables("borrow")
con.Close()
PrivateSub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal
e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
Dim stuid AsString =
Me.DataGridView1.Rows(e.RowIndex).Cells(0).Value.ToString().Trim()
.YesNo,
='"
con.Close()
If (result < 1) Then
MessageBox.Show("删除失败!", "操作结果"MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
MessageBox.Show("删除成功!", "操作结果"MessageBoxButtons.OK, rmation)
Me.frmSearchStudent_Load(sender, e)
7、参考文献
[1] 周屹，李艳娟.数据库原理及开发应用（第二版）. 北京：清华大学出版社.2007.
[2]肖慎勇.SQL server数据库管理与开发. 北京:清华大学出版社.2007。