vb+sql程序设计论文_vb程序设计论文

vb+sql程序设计论文由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“vb程序设计论文”。

石家庄职业技术学院

图书信息管理系统

学 生 姓 名： 指 导 教 师： 系 别： 专 业： 年 级：

论文提交时间： ___________________

评 阅 人：___________________

年 月 日： ___________________

摘要

随着人类社会的发展，人类对知识的需求也不断地增长。在这种形势下，书籍就渐渐地成为人们获取并增长知识的主要途径，而图书馆就自然而然地在人们的生活中占据了一定的位置，如何科学地管理图书馆不但关系到读者求知的方便程度，也关系到图书馆的发展，因此，开发一套完善的图书馆管理系统就必不可少了。

管理信息系统(简称MIS)是介于信息论，经济管理理论，统计学与运筹学及计算机科学之间的一门边缘性，综合性，系统性的交叉科学，它是随着管理科学，信息技术，计算机技术等的发展而产生和发展起来的。

图书馆管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立和维护以及前端的应用程序的开发两个方面。对于前者要求建立数据的一致性和完整性，对于后者则要求应用程序功能的完备，易用等的特点。基于上述考虑本系统主要利用VB.NET作前端的应用开发工具，利用SQL server 2005 作为后台的数据库，利用WINDOWS作为系统平台开发的图书管理系统。另外本图书馆管理系统利用软件工程化思想和方法，总体上是采用结构化生命法进行系统分析和设计的，而系统实现等步骤则采用了原型法和面对对象的方法。

关键字 管理信息系统 图书管理 VB.NET的应用。

目录

第一章 系统需求分析......................................................3

1现行系统存在问题的分析..............................................................................3 2解决方案...................................................................................................3

第二章 总体设计............................................................4系统目标设计.............................................................................................4 2 系统功能分析.............................................................................................4

第三章 数据库说明.........................................................5

1数据库的的表格介绍....................................................................................5 2各表关系与触发器的解释..............................................................................7

第四章 功能模块设计.....................................................11

1模块详解..................................................................................................11

第五章 重点研究问题及核心问题.......................................23

1数据库的核心问题......................................................................................23 2VB.NET的核心问题....................................................................................23

第六章 心得体会...........................................................23 附录..........................................................................24 参考文献：..................................................................29第一章 系统需求分析

1．现行系统存在问题的分析

现图书馆工作大部分还是进行着手工管理，工作起来效率很低，工作量大，更加由于不可避免的人为因素，经常造成数据的遗漏、误报，给图书馆管理带来了很大的麻烦。近几年来，随着我国科技的飞速发展，人们越来越注重社会的科技化发展。为了满足客观的需要，完成信息的数字化，智能化，自动化，综合化管理，要求在现代化工作引进计算机信心管理技术。计算机信息化管理系统有着储存信息量大、速度快，操作简单等许多优点，提供给我们的处理信息及时快捷，同时也提高了图书管理人员的工作效率。

2．解决方案

基于以上的对问题的分析，利用计算机给我们提供信息，及时地调整学校图书馆图书结构，并且对学生们的借阅过程形成一整套动态的管理就十分必要了。

图书馆信息管理系统的建立，需要进行用户的需求调查与分析，以确定系统目标，提出解决问题的详细方案，这是本系统建设的重要环节。

学校图书馆规模相对于商业图书馆小，但要有着完善的图书信息，对每一册书要有详细的记录信息，功能上对系统的需求是全面的。因此对用户的需求可分为四个方面：一方面是图书馆工作人员通过计算机来管理各类图书，分类编号，调整图书结构，增加图书库存，适应学生的需求；另一方面是学生们能通过计算机来查询浏览图书馆中的图书，来确定自己需要的书籍，为借阅做好准备；再有一方面是工作人员对学生们的借阅证发放；还有就是图书馆的核心工作，对图书的借阅管理。

这四个方面形成了学校图书馆一个工作整体，采用计算机自动化信息处理，可方便快捷地共享信息、交流信息，高效地协同工作。

在软、硬件方面对系统的需求，软件要求易学，界面简单，容易掌握，可以很简单明了方便的管理各种图书信息。硬件的配置要求不是太高，这样也很好的适应当前的学校图书馆得情况。

在开发方式上对系统的需求，由于学校图书馆是一种无商业利益的，所以系统设计开发的周期要短，在短时间内完成，减少开发成本，提高开发效率，方便、简单、实用作为系统开发的指导思想。

第二章

总体设计

1．系统目标设计

系统开发的总目标是实现内部图书借阅管理的系统化、规范化和自动化。能够对图书进行注册登记，也就是添加图书基本信息（如：书名、作者、价格等）预先存入数据库中，供以后检索，以及查找、更新、删除图书信息。

能够对借阅人进行注册登记，包括记录借阅人的姓名、地址、电话等信息，以及查找、更新、删除读者信息。

能够对图书的借阅、归还。可以按图书借阅号等信息对图书进行查询，并能反映出图书的借阅情况。

能够对使用该管理系统的用户进行管理，按照不同的工作职能提供不同的功能授权。

提供较为完善的差错控制与友好的用户界面，尽量避免误操作。

2．系统功能分析

根据以上功能，将图书管理系统的数据分为：

数据输入部分：主要包括图书基本信息的录入、借阅人基本信息的录入、用户基本信息的录入。

数据输出部分：主要是各种统计查询，包括：根据图书信息（如书名、图书借阅号）查阅图书及其借阅者信息、统计输出图书类型等。

数据处理部分：主要涉及借阅和归还的处理，如一本书借出后，必须在数据库中将该书标记为已借出，以防出现数据库中有书但图书馆无书的情况；一本书归还后，同样必须在数据库中将其删除，以便再次借出。以及对图书基本信息，借阅人基本信息，用户基本信息的更新、删除。

第三章 数据库说明

1．数据库的的表格介绍

数据库在包括读者信息表，图书信息表，图书类别表，图书借阅表，用户信息表，库存表。

图4.1

部分表的图如下： 图书信息表：

图4.2

图书借阅表：

图4.3

用户信息表：

图书类别表：库存信息表：读者信息表：

图4.4

图4.5

图4.6

图4.7

一个联合了图书信息表、库存信息表、图书借阅表建立一个借阅图书时的图书查询---View1，其各表之间的关系如下： 视图中的示例信息如图：

图4.8

2各表关系与触发器的解释

图4.9

图4.10

为了更好的完善该系统，因此在数据库的建立一些主键、约束、触发器。关系有：图书信息表与图书类别表存在着外键约束；

读者信息表与图书借阅表存在着外键约束； 库存信息表与图书借阅表存在着外键约束；

图书信息表与图书借阅表存在着外键约束；

部分表中存在着主键，因为表中数据很少，主键只起到唯一性的作用，对于表的检索速度效果是不显著的。

在实际的图书馆的系统中，当读者借阅一本书时，那么图书馆中该书是少一本，还一本书，书库中则多一本，当书库中的数量为0时，则无法借阅该书，每名学生只能借2本，为模拟这种现象，也在表图书借阅中建立了触发器。Ck_读者信息表 功能：每名学生只能借6本

图4.11Upda_库存量1功能:当借一本时，库存表中与之相应的图书库存量则少一本

图4.12

Upda_库存量2功能：当还一本书，库存表中与之相应的图书库量则多一本

图4.13

Upda_库存信息表功能：当库存信息为0时，则无法向借阅表中插入信息。

图4.14第四章功能模块设计

1．模块详解

该图书管理系统包括如下界面：登录、主窗体、读者信息、图书信息、图书类别、借阅与归还、系统用户管理。其关系如下图。

图5.1

该窗体为初始窗体

图5.2

当登录时，先进入登录界面，然后进入主窗体中。关键代码：（见附录A）

图5.3

主窗体中包括基础数据：读者信息、图书信息、类别信息；图书借阅管理中包括：图书信息查询、借书管理、还书管理；系统维护中包括：用户添加，用户修改；另外，有一个关于窗体，最后一个模块就是退出系统。

图5.4

各模块的功能： 读者信息管理

该设计的功能主要是完成学校图书信息的入库编目管理，它包括读者信息的添加，图书的查询、更新、删除等功能。

读者信息添加：在此窗体中用户可以添加自己的个人有关信息。关键代码：（见附录B）

图5.5

读者作息查询

在窗体中用户可查询、删除自己的信息 关键代码： 查询代码：(见附录C)

删除代码：（附录

D）

图5.6

读者信息更新

该窗体可以更新读者信息 关键代码（附录E）

图5.7读者信息浏览

该窗体可以实现所有读者信息 代码如下：（附录F）

图5.8

该设计的功能主要是完成学校图书信息的入库编目管理，它包括图书信息的添加，图书的查询、更新、删除等功能。（以下代码与上面代码类似，在此不做详解）

图书信息添加：在此窗体中图书管理员可以添加图书的相关信息

图5.9

图书信息查询：在此窗体中图书管理员可以查询、删除图书的相关信息

图5.10

图书信息更新：在此窗体中图书管理员可以更新图书的相关信息

图5.11

图书信息浏览：在此窗体中图书管理员可以浏览图书的相关信息

图5.12

图书类别管理：在此窗体中图书管理员可以添加图书类别的相关信息

图5.13

图书类别查询：在此窗体中图书管理员可以查询、删除图书类别的相关信息

图5.14

图书类别更新：在此窗体中图书管理员可以更新图书类别的相关信息

图5.15

图书类别浏览：在此窗体中图书管理员可以浏览图书类别的相关信息

图5.16

图书查询：读者可以在此行窗体中查找想要借阅的图书ISBN、库存、书名等信息。

图5.17

借阅：读者在此窗体中添加自己的信息，来借阅图书。关键代码（附录G）

图5.18

归还：读者在此窗体中删除自己的借阅信息，并归还图书。关键代码：（附录H）

图5.19

（1）口令识别

口令识别是一种低成本，易实现的用户识别技术。在计算机系统内广泛的使用，在口令识别机制中，计算机系统给每个用户分配一个用户名和一个口令。用户名唯一确定一个用户是公开的；口令用于证实用户，是保密的，显示为*号。

（2）口令存取

系统要识别每个用户的口令，就必须把每个用户的口令存放起来，形成口令表，通常以文件或数据库形式存放。如果以明文的形式存放，则很容易被熟悉系统的人偷取，为了提高基于口令的身份识别方案的坚强度，应该在口令方案中引入加密机制。

用户添加：在此窗体中图书管理员可以添加用户相关信息

图5.20

用户管理：用户可以在此窗体中更新、删除用户信息。

图5.21

关于窗体：主要介绍该系统的一些基本信息

图5.22第五章 重点研究问题及核心问题

1．数据库的核心问题

在实际的图书馆的系统中，当读者借阅一本书时，那么图书馆中该书是少一本，还一本书，书库中则多一本，当书库中的数量为0时，则无法借阅该书，每名学生只能借2本，为模拟这种现象，也在表图书借阅中建立了触发器。

2．VB.NET的核心问题

ADO.NET技术，数据访问控件的使用，手动创建数据库访问的编程方法。

第六章 心得体会

在对图书管理信息系统的开发过程有了基本了解后，本人使用VB.NET开发了这个“图书管理系统”。系统基本实现了内部图书借阅管理的系统化、规范化和自动化。例如添加读者信息以及查找、更新、删除读者信息, 添加图书信息以及查找、更新、删除图书信息，添加图书类别信息以及查找、更新、删除图书类别信息,图书的借阅、归还。可以按图书借阅号等信息对图书进行查询，并能反映出图书的借阅情况。实现了简单的统计分析功能，可以展示出库存图书馆藏图书的情况。还能够对使用该管理系统的用户进行管理，按照不同的工作职能提供不同的功能授权。

通过对该系统的设计、开发和调试，一方面使我更加熟练了SQL2005 的使用方法，熟悉了建库、建表、建视图的方法，以及如何建约束、触发器让数据更完整。另一方面，让我对VB.NET开发工具的有了更深一步的认识，熟悉了窗口、菜单以及一些可视化控件的使用方法。通过使用还了解到了各类控件的属性与方法。同时，在制作过程中遇到了不少问题和困难，通过查阅书籍及互连网以及和同学们的探讨让我得到了不小的帮助。

由于外部设备条件以及自身能力的限制，该管理系统还存在不少的缺点和漏洞，只能尽量改正与完善。不足之处，还望多多指教。

附录

附录A Dim cmd As New SqlCommand(“select * from user1 where user1='” & u_name & “' and pwd='” & u_pwd & “'”, cn)cn.Open()Dim dr As SqlDataReader = cmd.ExecuteReader If Not dr.Read Then MsgBox(“你的user1或pwd不对”)Else If dr.Item(“userTYPE”)= 0 Then FrmMain.ToolStripMenuItem3.Enabled = False//普通用户

Else FrmMain.ToolStripMenuItem3.Enabled = True//管理员

End If FrmMain.Show()Me.Close()End If 附录B

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)Handles Button1.Click If TextBox1.Text = “” Or TextBox4.Text = “” Or TextBox5.Text = “” Or TextBox8.Text = “” Or TextBox9.Text = “” Then MsgBox(“均不能为空！”)Exit Sub End If Dim cn As New SqlConnection(My.Settings.TSconnectionStr)Dim cmd As New SqlCommand(“insert into 读者信息表 values('” & TextBox1.Text & “','” & TextBox2.Text & “','” & TextBox3.Text & “','” & TextBox4.Text & “','” & TextBox5.Text & “','” & TextBox6.Text & “','” & ComboBox1.Text & “','” & TextBox7.Text & “','” & TextBox8.Text & “','” & TextBox9.Text & “','” & TextBox10.Text & “')”, cn)cn.Open()cmd.ExecuteNonQuery()cn.Close()End Sub 附录C

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click If ComboBox1.Text = “姓名” Then Try Dim cn As New

SqlConnection(My.Settings.TSconnectionStr)Dim da As New SqlDataAdapter(“select * from 读者信息表 where name='” & TextBox1.Text & “' ”, cn)Dim tb1 As New DataTable cn.Open()da.Fill(tb1)cn.Close()DataGridView1.DataSource = tb1 Catch ex As Exception MsgBox(ex.ToString)End Try ElseIf ComboBox1.Text = “借阅证号” Then Try Dim cn As New

SqlConnection(My.Settings.TSconnectionStr)Dim da As New SqlDataAdapter(“select * from 读者信息表 where isbn='” & TextBox1.Text & “' ”, cn)Dim tb1 As New DataTable cn.Open()da.Fill(tb1)cn.Close()DataGridView1.DataSource = tb1 Catch ex As Exception MsgBox(ex.ToString)End Try End If End Sub 附录D Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button4.Click If ComboBox1.Text = “姓名” Then Try Dim cn As New

SqlConnection(My.Settings.TSconnectionStr)Dim cmd As New SqlCommand(“delete from 读者信息表 where name='” & TextBox1.Text & “' ”, cn)cn.Open()cmd.ExecuteNonQuery()cn.Close()Catch ex As Exception MsgBox(ex.ToString)End Try

ElseIf ComboBox1.Text = “借阅证号” Then Try Dim cn As New

SqlConnection(My.Settings.TSconnectionStr)Dim cmd As New SqlCommand(“delete from 读者信息表 where isbn='” & TextBox1.Text & “' ”, cn)cn.Open()cmd.ExecuteNonQuery()cn.Close()Catch ex As Exception MsgBox(ex.ToString)End Try End If End Sub 附录E Private Sub readerupdate_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)Handles Me.MouseClick

Try Dim cn As New SqlConnection(My.Settings.TSconnectionStr)Dim da As New SqlCommand(“select * from 读者信息表 where isbn='” & TextBox8.Text & “' ”, cn)Dim myread As SqlDataReader cn.Open()myread = da.ExecuteReader While myread.Read TextBox1.Text = myread(“Name”)TextBox2.Text = myread(“sex”)TextBox3.Text = myread(“age”)TextBox4.Text = myread(“identitycard”)TextBox5.Text = myread(“maxnum”)TextBox6.Text = myread(“keepmoney”)ComboBox1.Text = myread(“zj”)TextBox7.Text = myread(“zy”)TextBox8.Text = myread(“isbn”)TextBox9.Text = myread(“bztime”)TextBox10.Text = myread(“tel”)End While cn.Close()

Catch ex As Exception MsgBox(ex.ToString)End Try End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button2.Click Me.Close()End Sub Private Sub TextBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)Handles TextBox1.MouseClick Try Dim cn As New SqlConnection(My.Settings.TSconnectionStr)Dim da As New SqlCommand(“select * from 读者信息表 where name='” & TextBox1.Text & “' ”, cn)Dim myread As SqlDataReader cn.Open()myread = da.ExecuteReader While myread.Read TextBox1.Text = myread(“Name”)TextBox2.Text = myread(“sex”)TextBox3.Text = myread(“age”)TextBox4.Text = myread(“identitycard”)TextBox5.Text = myread(“maxnum”)TextBox6.Text = myread(“keepmoney”)ComboBox1.Text = myread(“zj”)TextBox7.Text = myread(“zy”)TextBox8.Text = myread(“isbn”)TextBox9.Text = myread(“bztime”)TextBox10.Text = myread(“tel”)End While cn.Close()Catch ex As Exception MsgBox(ex.ToString)End Try End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Try Dim cn As New SqlConnection(My.Settings.TSconnectionStr)Dim cmd As New SqlCommand(“update 读者信息表 set name= '” & TextBox1.Text & “',sex='” & TextBox2.Text & “',age='” & TextBox3.Text & “',identitycard='” & TextBox4.Text & “',maxnum='” & TextBox5.Text & “',keepmoney='” & TextBox6.Text & “',zj='” & ComboBox1.Text & “',zy='”& TextBox7.Text & “',isbn='” & TextBox8.Text & “',bztime='” & TextBox9.Text & “',tel='” & TextBox10.Text & “' where isbn='” & TextBox8.Text & “' or name='” & TextBox1.Text & “' ”, cn)cn.Open()cmd.ExecuteNonQuery()cn.Close()Catch ex As Exception MsgBox(ex.ToString)End Try End Sub 附录F Private Sub 读者信息表BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 读者信息表BindingNavigatorSaveItem.Click Me.Validate()Me.读者信息表BindingSource.EndEdit()Me.读者信息表TableAdapter.Update(Me.TsglDataSet.读者信息表)

End Sub Private Sub readerupdate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load 'TODO: 这行代码将数据加载到表“TsglDataSet.读者信息表”中。您可以根据需要移动或移除它。

Me.读者信息表TableAdapter.Fill(Me.TsglDataSet.读者信息表)End Sub 附录G

Dim cn As New SqlConnection(My.Settings.TSconnectionStr)Dim cmd As New SqlCommand(“insert into 图书借阅表 values('” & TextBox1.Text & “','” & TextBox3.Text & “',' no','” & TextBox5.Text & “','no')”, cn)cn.Open()cmd.ExecuteNonQuery()cn.Close()附录H

Dim cn As New SqlConnection(My.Settings.TSconnectionStr)Dim cmd As New SqlCommand(“delete from 图书借阅表 where bookisbn='” & TextBox1.Text & “'”, cn)cn.Open()cmd.ExecuteNonQuery()cn.Close()

参考文献：

[1]《软件工程导论》 张海藩 著 清华大学出版社 [2]《数据库原理与设计》 张龙祥、陶影 等编 西安交大出版社 [3]《管理信息系统原理与应用》罗超理、李万红

清华大学出版社 [4]《SQL Server 2005 实用教程》李岩、张瑞雪

清华大学出版社 [5]《Visual Basic.NET》

刘怀亮

冶金工业出版社

致 谢

本论文是在石家庄职业技术学院智立甫老师的悉心指导和帮助下完成的。在论文的选题、问题分析以及论文写作的整个过程中，处处渗透着老师的心血。非常感谢智老师的悉心指导。在跟随智立甫老师进行毕业设计的过程中，他渊博的学识，严谨的治学态度时刻激励和影响着我，使我在短期内不仅学识水平有了较大提高，而且更重要的是从老师那里学到了从事研究工作的方法和态度，这必将使我受益终生，同时我也会将智老师这种精益求精的精神渗透到我今后的学习工作中。在论文完成之际，特向智立甫老师表示衷心的感谢和崇高的敬意。我将永远铭记老师的谆谆教诲。

感谢赵恩同学在代码修改发面的方面的帮助！感谢郝鹏同学提供的图片素材！

你们的激励和厚望一直是我奋斗的动力源泉，但愿我的点滴进步能给你们带来欣慰。