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

《数据库原理》 集中实训报告

系统名称： 专 业： 班 级:

学 号: 姓 名： 指导教师：

2014

年 6 月 17 日

目录

1、前言 ................................................... 1 1。1 课题简介 ........................................... 1 1、开发系统的名称： .................................. 1 2、实训目的： ........................................ 1 3、实训意义： ........................................ 1 4、实训内容: ......................................... 1 5、实训预期实现效果: ................................. 1 1.2 方案及其论证 ........................................ 1 2、需求分析 ............................................... 2 2。1可行性分析 ......................................... 2 2。2系统功能分析 ....................................... 2 1、系统功能结构图 .................................... 2 2、系统功能分析 ...................................... 2 3、概念模型设计 ........................................... 2 E-R图 .................................................. 2 4、逻辑模型设计 ........................................... 3

信息与工程学院计算机科学系

关系模型................................................ 3 5、详细设计 ............................................... 3 5。1建立数据库代码 ..................................... 3 5。2建立前台界面以及其代码 ............................. 5 6、总结 .................................................. 11 7、参考文献 .............................................. 11

1、前言

1。1 课题简介

1、开发系统的名称：

图书管理系统 2、实训目的：

通过本次实训，应熟悉并掌握数据库系统开发的基本方法，对理论教学中所讲的知识和基本概念有更进一步的理解，培养和提高实践操作能力，为今后从事计算机数据库系统的研究、开发、应用提供必要的准备。 3、实训意义：

利用这次的实训，提高学生对理论知识的理解能力和实践技能.熟练掌握SQL语句的使用，掌握分析和设计数据库的方法,会结合高级程序设计语言完成数据库系统的实现过程，培养学生的自学能力和创新能力。 4、实训内容:

①需求分析:可行性分析、系统功能设计 ②概念模型设计

③逻辑结构设计:关系模式、规范处理、视图设计 ④详细设计：建立前台界面 ⑤调试并运行

5、实训预期实现效果：

通过此次实训，学生能够熟练的建立数据库，并在VS开发环境下编写管理系统。编写成功的图书管理系统，能进行图书的查询、借阅、归还等简单的基本操作。

1.2 方案及其论证

语言： SQL+VB

1

信息与工程学院计算机科学系

运行环境：Microsoft Visual Stdio 2010

2、需求分析

2。1可行性分析

目前，我们已经大概学习了SQL server，对网络技术也有一定的了解，而且图书管理系统已经得到了大量的运用，有许多可供参考的成功系统.而且,网上有许多关于Visual Studio C#编程的资料和SQL Server方面的资料。 从技术角度考虑,此系统开发可行。

2。2系统功能分析

1、系统功能结构图

图书管理系统 图图图图图书书2、系统功能分析书书书查 管借借归询 理 图书管理系统的流程是用户先选择自己的身份，阅阅 还 是管理员或者是学生。如果是学生,则进入学生登录界面，登陆成功后，学生所能做的操作就是查询图书的信息.如果是管

图理员，则进入管理员登陆界面，登录成功后，能进行查询，图书借阅、归还等操作，通图学全书书生部借过此操作删改学生借还图书的信息管信图. 阅理息书查3、概念模型设计查查 查询 询 询 询 E-R图

学号 性别 联系电话 姓名 班级 密码

学生 2 编号 联系电话 姓名 管理员 借阅 信息与工程学院计算机科学系

m

n n

借阅量 m

n

4、逻辑模型设计

关系模型

学生（学号，姓名，性别，班级，联系电话）

图书(书号，书名,作者，定价，数量，分类号,出版社名称) 管理员（编号，密码，姓名,联系电话)

借阅（学号，书号，借阅时间,借阅量） 管理（编号，书号,备注,管理日期）

5、详细设计

5。1建立数据库代码

create database books_management //建立数据库 on (

name=’books_management’，

filename=’E：\\图书管理数据库\\books_management.mdf’, size=10, maxsize=10，

3

信息与工程学院计算机科学系

filegrowth=10 ） log on

(name='books_management_log',

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（100) not null default’男’， 班级 varchar（200）not null, 联系电话 varchar（400） not null ）

create table books//建立图书表 （

书号 varchar(200) primary key, 书名 varchar（200） not null， 作者 varchar(200) not null， 定价 varchar(200） not null, 数量 varchar(200) not null， 分类号 varchar(200） not null，

4

信息与工程学院计算机科学系

出版社 varchar(200） not null, )

create table administrator //建立管理员表 (编号 varchar(200） primary key， 密码 varchar(200） not null， 姓名 varchar(100） not null ， 联系电话 varchar(400） not null， ）

create table borrow //建立借阅表 （学号 varchar（200) not null, 书号 varchar（200) not null， 借阅时间 varchar（100) not null , 借阅量 varchar（400) not null， primary key(学号,书号） )

create table management //建立管理表 （编号 varchar(200） not null, 书号 varchar(200) not null,

管理日期 varchar（100） not null , 备注 varchar（400） not null， primary key(编号，书号） )

5。2建立前台界面以及其代码

1、当图书管理系统打开时的界面如图5。1所示

5

信息与工程学院计算机科学系

图5.1

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object， ByVal e As System。EventArgs) Handles MyBase.Load End Sub

Private Sub Button1_Click（ByVal sender As System.Object, ByVal e As System。EventArgs） Handles Button1.Click 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、当点击学生按钮后，进入了学生登陆系统

图5。2 代码如下：

PublicClassForm2

PrivateSub Form2_Load（ByVal sender As System.Object， ByVal e As System。EventArgs) HandlesMyBase.Load EndSub

PrivateSub Button1_Click(ByVal sender As System.Object， ByVal e As System。EventArgs） Handles Button1。Click

If TextBox1.Text = ”\"Or TextBox2.Text = ””Then MsgBox(”用户名和密码不能为空？\") Else

checkLoginName（)

6

信息与工程学院计算机科学系

EndIf EndSub

Sub checkLoginName()

Dim strcon AsString = ”data source=XP23；initial catalog=books_management；user id=XP23\\Administrator;pwd=;integrated security=true；\" Dim con AsSqlConnection = NewSqlConnection(strcon） con。Open()

Dim sql AsString = ”select ＊ from ［student］ where 学号=’”& TextBox1.Text.ToString(）.Trim(） ＆\"'and 密码='\"＆ TextBox2。Text.ToString（)。Trim() &\"’\" Dim cmd AsNewSqlCommand(sql， con） Dim reader AsSqlDataReader

reader = cmd.ExecuteReader If reader。Read（） = TrueThen Me。Hide（） Form4.Show（） Else

MsgBox(\"登陆失败，请检查你的用户名，密码，登陆权限是否正确”） EndIf EndSub

3、当学生登陆成功后，进入查询界面，输入图书编号，点击“搜索”按钮可查询改图书信息。如果点击“查询全部\"按钮，即可查询所有的图书信息。

图5.3

按图书编号查询图书信息的代码如下:

Dim con AsSqlConnection = NewSqlConnection（strcon） con.Open()

Dim stuNum AsString = Me。TextBox1.Text

7

信息与工程学院计算机科学系

Dim selectStudent AsString = \"select ＊ from books where 书号='\" + stuNum + ”'\" Dim ds AsDataSet = NewDataSet（)

Dim da AsSqlDataAdapter = NewSqlDataAdapter(selectStudent， con) da.Fill(ds， \"books\"）

Me。DataGridView1。DataSource = ds.Tables（\"books\") con.Close(）

4、如果在图5.1中单击的是“管理员”按钮，则进入管理员登陆界面，如图5。4 图5。4

5、当成功登陆管理员系统后，进入图书管理界面,如图5。5 图5。5

6、当点击图5.5的“图书查询”按钮时，进入图书查询界面。当单击“图书借阅信息查询”按钮时，学生的借阅信息将在下面显示，如图5。6。当点击其他三个按钮时也会出现相应的信息.

图5。6

代码如下：

Imports System.Data

Imports System。Data。SqlClient PublicClassForm6

Dim strcon AsString = \"data source=XP23；initial catalog=books_management;user id=XP23\\Administrator;pwd=;integrated security=true;\"

PrivateSub Button1_Click（ByVal sender As System。Object, ByVal e As System。EventArgs) Handles Button1.Click

Dim con AsSqlConnection = NewSqlConnection（strcon) con。Open()

Dim selectStudent AsString = \"select ＊ from borrow\" Dim ds AsDataSet = NewDataSet()

8

信息与工程学院计算机科学系

Dim da AsSqlDataAdapter = NewSqlDataAdapter(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)

Dim strcon AsString = ”data source=XP23;initial catalog=books_management;user id=XP23\\Administrator；pwd=;integrated security=true;\" Dim con AsSqlConnection = NewSqlConnection(strcon) con。Open(）

Dim cmd AsSqlCommand = NewSqlCommand（addclass， con） Dim result AsInteger = cmd。ExecuteNonQuery(） If (result 〈 1） Then

MessageBox。Show（”添加失败！”， ”操作提示\， MessageBoxButtons.OK， MessageBoxIcon.Warning） Else

MessageBox。Show（”添加成功！\"， \"操作提示\"，MessageBoxButtons.OK, MessageBoxIcon.Information）

9

信息与工程学院计算机科学系

Me。Close() EndIf

9、当点击图5.5中的“图书归还”按钮时，进入图书归还界面,如图5.9。 当点击下图中要删除的行时,根据学号和书号删除该列.

图5。9

代码如下：

PrivateSub Button1_Click（ByVal sender As System。Object， ByVal e As System。EventArgs） Handles Button1。Click

Dim con AsSqlConnection = NewSqlConnection（strcon) con.Open（)

Dim stuNum1 AsString = Me。TextBox1。Text Dim stuNum2 AsString = Me.TextBox2。Text

Dim selectStudent AsString = ”select * from borrow where 学号='\" + stuNum1 + ”'and 书号=’” + stuNum2 + \"’”

Dim ds AsDataSet = NewDataSet(）

Dim da AsSqlDataAdapter = NewSqlDataAdapter（selectStudent， con） da.Fill（ds, \"borrow”)

Me.DataGridView1.DataSource = ds。Tables（”borrow\"） con.Close（) EndSub

PrivateSub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System。Windows.Forms。DataGridViewCellEventArgs） Handles DataGridView1。CellContentClick

Dim stuid AsString = Me。DataGridView1。Rows（e.RowIndex).Cells(0).Value。ToString(）。Trim（) Dim stuid1 AsString = Me。DataGridView1。Rows（e.RowIndex）.Cells（1）.Value.ToString（）.Trim(） IfMessageBox。Show(\"确定要删除该用户吗？\"， \"操作警告”，MessageBoxButtons.YesNo, MessageBoxIcon.Warning） = Windows。Forms。DialogResult.Yes Then

10

信息与工程学院计算机科学系

Dim deleteStudent AsString = String.Format（”DELETE FROM borrow WHERE 学号=’” + stuid + \"’and 书号='\" + stuid1 + \"'\"）

Dim con AsSqlConnection = NewSqlConnection（strcon) con。Open（)

Dim cmd AsSqlCommand = NewSqlCommand（deleteStudent, con) Dim result AsInteger = Convert.ToInt32(cmd.ExecuteNonQuery（）） con.Close(） If (result 〈 1) Then

MessageBox。Show（”删除失败！\"， \"操作结果\"MessageBoxButtons.OK， MessageBoxIcon。Exclamation) Else

MessageBox。Show（”删除成功!”， \"操作结果\"MessageBoxButtons。OK, MessageBoxIcon。Information) Me。frmSearchStudent_Load(sender, e) EndIf EndIf

6、总结

通过此次实训,我受益匪浅。这是第一次将数据库所学的理论知识用于实践，的设计一个系统程序。对于我来说，在做这个系统的过程中，有好多不懂的地方如：界面的设计、编码问题、用户需求问题等。这个系统的功能还不够完善，很多地方因为所学的知识有限而没有做出来，这些都是不够好的地方，也是我一直需要努力的地方。 此次实训不仅让我了解到自身学习的不足之处，也让我扩展了知识面，是对书本所学的知识点的延伸.在设计这个系统的过程中，我熟悉并掌握了Microsoft SQL

Severe2010和VB数据库的使用。这是对自身知识丰富的一个过程，同时也感受到其中的快乐,激发了的兴趣，对于以后的学习有了更加坚定地信念。

7、参考文献

［1] 周屹，李艳娟。数据库原理及开发应用（第二版）. 北京：清华大学出版社.2007。 [2]肖慎勇.SQL server数据库管理与开发. 北京：清华大学出版社.2007

11