图书管理系统实验报告

上海电力学院

信息网络技术课程设计报告

题目: 图书馆借阅系统

姓名：白志强

学号：20111946

院系：电子与信息工程学院

专业年级：电子信息工程2011级

2014 年12月 5 日

●摘要

在大学生活中，图书馆是我们常去的一个地方，因而图书馆的管理无疑是我们需要关注的一个问题。

现在很多学校图书馆的借阅工作部分还是手工管理，工作效率很低并且不能及时了解图书的种类和学生们比较需求的图书等，不能更好的适应当前学生的借阅要求。计算机信息化管理有着存储量大，速度快等许多优点，提供给我们的处理信息及时快捷，因此利用计算机提供给我们的信息使学生们的借阅过程形成一整套动态的管理，能够极大提高图书馆理的效率，这也是学校的科学化，正规化管理。

图书借阅管理系统是一种信息管理系统,本系统采用数据库系统和VB平台，以https://www.360docs.net/doc/2b16236081.html, 为编程语言开发一个适合学校图书管理所需要的数据库管理软件。其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立数据一致性和完整性强、数据安全性好的数据库。而对于后者则要求应用程序功能完备，易使用等特点。

●实验目的

本课程设计的目的是综合应用https://www.360docs.net/doc/2b16236081.html,软件以及SQL数据库设计实现图书借阅系统。

●设计环境

软件：VS2008，SQL Server2008

●设计内容

基本要求：通过编程软件使系统可以进行管理员模块和用户使用模块。

管理员模块：添加图书，查询图书，查询用户，添加用户。

使用者模块：借阅图书，归还图书。

●设计流程图

图书管理系统

用户界面管理者界面

设计步骤

建立数据库，新建表如图所示

打开表如图

启动VS2008，新建项目BOOK，添加13个Windows窗体,如图:

初始界面

主要代码:

Public Class初始

Private Sub初始_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'初始化准备页面窗体中的各个控件

Timer2.Interval = 1000

ProgressBar1.Maximum = 10

ProgressBar1.Visible = True

Timer2.Enabled = True

Timer1.Interval = 5000

Timer1.Enabled = True

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Timer1.Enabled = False

Dim frm2 As New总登录界面

Me.Hide()

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

Dim i As Integer

i = ProgressBar1.Value

If i < ProgressBar1.Maximum Then

i = i + 2

ProgressBar1.Value = i

End If

End Sub

添加label，Button控件，引导进入总登录界面

双击管理员登陆按钮编写如下代码跳转到管理员功能选项界面：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim frm1 As New管理员功能选项

frm1.Show()

进入管理员管理选项界面

点击管理用户信息按钮跳转到管理用户界面

进入添加用户信息界面

管理员输入用户学号姓名等信息确认按钮代码：

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

If TextBox1.Text = ""Or TextBox2.Text = ""Or TextBox3.Text = ""Then MessageBox.Show("请完整填写用户信息！")

Else

SqlConnection1.Open()

SqlCommand1.Connection = SqlConnection1

https://www.360docs.net/doc/2b16236081.html,mandText = "insert into yonghu1(姓名,学号,卡号) values('" & TextBox1.Text & "', '" & TextBox2.Text & "','" & TextBox3.Text & "')"

SqlCommand1.ExecuteNonQuery()

SqlConnection1.Close()

TsqDataSet1.Clear()

SqlDataAdapter1.Fill(TsqDataSet1)

SqlConnection1.Close()

MsgBox("添加成功")

End If

End Sub

进入查看用户信息界面

查找按钮代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

SqlConnection1.Open()

https://www.360docs.net/doc/2b16236081.html,mandText = "select * from yonghu1 where 学号= '" & TextBox1.Text & " '"

SqlConnection1.Close()

TsqDataSet2.Clear()

SqlDataAdapter1.Fill(TsqDataSet2)

DataGridView1.Update()

DataGridView1.Refresh()

End Sub

点击管理图书信息按钮跳转到管理图书界面

点击查看图书信息按钮跳转到查看图书界面

查询按钮代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

https://www.360docs.net/doc/2b16236081.html,mandText = "select * from tushu where 编号= '" & TextBox1.Text & "'"

SqlConnection1.Close()

TsqDataSet.Clear()

SqlDataAdapter1.Fill(TsqDataSet)

DataGridView1.Update()

DataGridView1.Refresh()

End Sub

进入添加图书界面

确认按钮代码如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = ""Or TextBox3.Text = ""Or TextBox4.Text = ""Or TextBox5.Text = ""Or TextBox6.Text = ""Then

MessageBox.Show("请完整填写注册信息！")

Else

SqlConnection1.Open()

SqlCommand1.Connection = SqlConnection1

https://www.360docs.net/doc/2b16236081.html,mandText = "insert into tushu(书名,编号,出版日期,

出版社,库存量) values('" & TextBox1.Text & "', '" & TextBox3.Text & "','" & TextBox5.Text & "','" & TextBox4.Text & "','" & TextBox6.Text & "')"

SqlCommand1.ExecuteNonQuery()

SqlConnection1.Close()

TsqDataSet1.Clear()

SqlDataAdapter1.Fill(TsqDataSet1)

SqlConnection1.Close()

MsgBox("添加成功")

End If

End Sub

进入用户登录界面，输入姓名，学号

确认按钮代码：

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

If TextBox1.Text.Length <> 0 Or TextBox2.Text.Length <> 0 Then

SqlConnection1.Open()

SqlCommand1.Connection = SqlConnection1

TsqDataSet1.Clear()

https://www.360docs.net/doc/2b16236081.html,mandText = "select*from yonghu1 where 姓名='" & TextBox1.Text & "'and 学号='" & TextBox2.Text & "'"

SqlDataAdapter1.Fill(TsqDataSet1)

If TsqDataSet1.yonghu1.Rows.Count = 1 Then

Dim frm19 As New用户选择

Me.Hide()

frm19.Show()

Else

MsgBox("姓名或学号错误", MsgBoxStyle.Critical)

End If

TsqDataSet1.Clear()

SqlConnection1.Close()

Else

MessageBox.Show("姓名和学号不能为空")

End If

进入用户选择界面

用户借阅界面

确认借阅按钮代码：

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

SqlConnection1.Open()

SqlCommand1.Connection = SqlConnection1

https://www.360docs.net/doc/2b16236081.html,mandText = "update tushu set 库存量=库存量-1 where 书名='" & TextBox1.Text & "' "

SqlCommand1.ExecuteNonQuery()

TsqDataSet1.Clear()

SqlDataAdapter1.Fill(TsqDataSet1)

SqlConnection1.Close()

MsgBox("借阅成功")

End Sub

用户归还界面

确认归还按钮代码：

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

SqlConnection1.Open()

SqlCommand1.Connection = SqlConnection1

https://www.360docs.net/doc/2b16236081.html,mandText = "update tushu set 库存量=库存量+1 where 书名='" & TextBox1.Text & "' "

SqlCommand1.ExecuteNonQuery()

tsqDataSet1.Clear()

SqlDataAdapter1.Fill(tsqDataSet1)

SqlConnection1.Close()

MsgBox("归还成功")

End Sub

●在软件调试过程中遇到的问题

1、如何查询图书和用户的信息的程序。

2、如何添加图书和用户的信息的程序。

3、如何判断输入的图书所对应的数据库中的位置，并对其相应的数据进行跟新与修改。

●实验心得

在做实验设计之前我没有接触过https://www.360docs.net/doc/2b16236081.html,的知识，通过老师和同学们的帮助，我终于完成了这个系统。我无法表达由自己一个人独立开发软件的成就感觉，尽管它还有很多不完善的地方。https://www.360docs.net/doc/2b16236081.html,是一门很好上手的语言，至少我是这么认为，为了很好的与时俱进，我在这次制作过程中还学习了很多新的技术，也使用了一些比较成熟的技术。在这次设计过程中，我也学得到了很多和开发相关的技术领域的知识，同时也通过亲身实践，了解了多种软件的特性和使用方法，也增强了动手能力和独立解决问题的能力，从而更进一步地理解了所学的理论知识。开发一个好的系统需要熟练的技巧和丰富的知识，由于自己能力有限和时间的限制，本系统还有许多不尽人意之处，功能也很简单，需要今后不断的改进。