vb+sql程序设计论文

石家庄职业技术学院图书信息管理系统学生姓名：指导教师：系另0：专业：年级：论文提交时间： 评 阅 人：年 月 日 ： 摘要随着人类社会的发展，人类对知识的需求也不断地增长。在这种形势下， 书籍就渐渐地成为人们获取并增长知识的主要途径，而图书馆就自然而然地在人 们的生活中占据了一定的位置，如何科学地管理图书馆不但关系到读者求知的方 便程度，也关系到图书馆的发展，因此，开发一套完善的图书馆管理系统就必不 可少了。管理信息系统（简称MIS）是介于信息论，经济管理理论，统计学与运筹学及 计算机科学之间的一门边缘性，综合性，系统性的交叉科学，它是随着管理科学， 信息技术，计算机技术等的发展而产生和发展起来的。图书馆管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立 和维护以及前端的应用程序的开发两个方面。对于前者要求建立数据的一致性和 完整性，对于后者则要求应用程序功能的完备，易用等的特点。基于上述考虑本 系统主要利用VB.NET作前端的应用开发工具，利用SQL server 2005作为后 台的数据库，利用WINDOWS作为系统平台开发的图书管理系统。另外本图书馆管 理系统利用软件工程化思想和方法，总体上是采用结构化生命法进行系统分析和 设计的，而系统实现等步骤则采用了原型法和面对对象的方法。关键字管理信息系统图书管理VB.NET的应用。目录第一章 系统需求分析 31 现行系统存在问题的分析 32 解决方案 3第二章 总体设计 41 系统目标设计 42 系统功能分析 4第三章 数据库说明 51 数据库的的表格介绍 52 各表关系与触发器的解释 7第四章 功能模块设计 111 模块详解 11第五章 重点研究问题及核心问题 231 数据库的核心问题 232VB.NET 的核心问题 23第六章 心得体会 23附录 24参考文献： 29第一章 系统需求分析1现行系统存在问题的分析现图书馆工作大部分还是进行着手工管理，工作起来效率很低，工作量大， 更加由于不可避免的人为因素，经常造成数据的遗漏、误报，给图书馆管理带来 了很大的麻烦。近几年来，随着我国科技的飞速发展，人们越来越注重社会的科 技化发展。为了满足客观的需要，完成信息的数字化，智能化，自动化，综合化 管理，要求在现代化工作引进计算机信心管理技术。计算机信息化管理系统有着 储存信息量大、速度快，操作简单等许多优点，提供给我们的处理信息及时快捷， 同时也提高了图书管理人员的工作效率。2解决方案基于以上的对问题的分析，利用计算机给我们提供信息，及时地调整学校图 书馆图书结构，并且对学生们的借阅过程形成一整套动态的管理就十分必要了。图书馆信息管理系统的建立，需要进行用户的需求调查与分析，以确定系统 目标，提出解决问题的详细方案，这是本系统建设的重要环节。学校图书馆规模相对于商业图书馆小，但要有着完善的图书信息，对每一册 书要有详细的记录信息，功能上对系统的需求是全面的。因此对用户的需求可分 为四个方面：一方面是图书馆工作人员通过计算机来管理各类图书，分类编号， 调整图书结构，增加图书库存，适应学生的需求；另一方面是学生们能通过计算 机来查询浏览图书馆中的图书，来确定自己需要的书籍，为借阅做好准备；再有 一方面是工作人员对学生们的借阅证发放；还有就是图书馆的核心工作，对图书 的借阅管理。这四个方面形成了学校图书馆一个工作整体，采用计算机自动化信息处理， 可方便快捷地共享信息、交流信息，高效地协同工作。在软、硬件方面对系统的需求，软件要求易学，界面简单，容易掌握，可以 很简单明了方便的管理各种图书信息。硬件的配置要求不是太高，这样也很好的 适应当前的学校图书馆得情况。在开发方式上对系统的需求，由于学校图书馆是一种无商业利益的，所以系 统设计开发的周期要短，在短时间内完成，减少开发成本，提高开发效率，方便、 简单、实用作为系统开发的指导思想。第二章 总体设计1系统目标设计系统开发的总目标是实现内部图书借阅管理的系统化、规范化和自动化。能够对图书进行注册登记，也就是添加图书基本信息（如：书名、作者、价格等）预先存入数据库中，供以后检索，以及查找、更新、删除图书信息。能够对借阅人进行注册登记，包括记录借阅人的姓名、地址、电话等信息，以及查找、更新、删除读者信息。能够对图书的借阅、归还。可以按图书借阅号等信息对图书进行查询，并能反映出图书的借阅情况。能够对使用该管理系统的用户进行管理，按照不同的工作职能提供不同的功能授权。提供较为完善的差错控制与友好的用户界面，尽量避免误操作。2系统功能分析根据以上功能，将图书管理系统的数据分为：数据输入部分：主要包括图书基本信息的录入、借阅人基本信息的录入、用户基本信息的录入。数据输出部分：主要是各种统计查询，包括：根据图书信息（如书名、图书借阅号）查阅图书及其借阅者信息、统计输出图书类型等。数据处理部分：主要涉及借阅和归还的处理，如一本书借出后，必须在数据库中将该书标记为已借出，以防出现数据库中有书但图书馆无书的情况；一本书 归还后，同样必须在数据库中将其删除，以便再次借出。以及对图书基本信息， 借阅人基本信息，用户基本信息的更新、删除。第三章数据库说明1数据库的的表格介绍数据库在包括读者信息表，图书信息表，图书类别表，图书借阅表，用户信息表，库存表。图4.1部分表的图如下: 图书信息表：图书借阅表:图4.3用户信息表:图4.4图书类别表:图4.5库存信息表:图4.6读者信息表:一个联合了图书信息表、库存信息表、图书借阅表建立一个借阅图书时的图 书查询Viewl，其各表之间的关系如下：视图中的示例信息如图:I 團书信息表*【所有列）icbiL七yp e1d lio&kTL：=jTie irri terI E阵打信息表JisbiL ：dJTn：iUTLtI所有列） loakiElHk readeri eLtl i sbackTiorr o/iilat e團书借阑表图4.8读者信息表2各表关系与触发器的解释库存信息表iEbn anount亠TrL=rn es esa gei dent iicai d m：=LzrnirTik eepmorLeyz Jz? 岡 诃八图5.8该设计的功能主要是完成学校图书信息的入库编目管理，它包括图书信息的 添加，图书的查询、更新、删除等功能。（以下代码与上面代码类似，在此不做 详解）图书信息添加：在此窗体中图书管理员可以添加图书的相关信息图5.9图书信息查询：在此窗体中图书管理员可以查询、删除图书的相关信息图 5.10图书信息更新：在此窗体中图书管理员可以更新图书的相关信息图 5.11图书信息浏览：在此窗体中图书管理员可以浏览图书的相关信息图 5.12图书类别管理：在此窗体中图书管理员可以添加图书类别的相关信息图 5.13图书类别查询：在此窗体中图书管理员可以查询、删除图书类别的相关信息图 5.14图书类别更新：在此窗体中图书管理员可以更新图书类别的相关信息图 5.15图书类别浏览：在此窗体中图书管理员可以浏览图书类别的相关信息图 5.16图书查询：读者可以在此行窗体中查找想要借阅的图书ISBN、库存、书名 等信息。图 5.17借阅：读者在此窗体中添加自己的信息，来借阅图书。 关键代码（附录G）.年存杳询图书i Ebn惜闻证号1目前库存量1读者姓名1Bo oki sbnr ea-ler i =trLi ab-ialilof r owlat eb aakia.t t米國因书借阖退出 I借阅 I图 5.18归还：读者在此窗体中删除自己的借阅信息，并归还图书。 关键代码：(附录H)图 5.19(1) 口令识别口令识别是一种低成本，易实现的用户识别技术。在计算机系统内广泛的使 用，在口令识别机制中，计算机系统给每个用户分配一个用户名和一个口令。用 户名唯一确定一个用户是公开的；口令用于证实用户，是保密的，显示为*号。(2) 口令存取系统要识别每个用户的口令，就必须把每个用户的口令存放起来，形成口 令表，通常以文件或数据库形式存放。如果以明文的形式存放，则很容易被熟悉 系统的人偷取，为了提高基于口令的身份识别方案的坚强度，应该在口令方案中 引入加密机制。用户添加：在此窗体中图书管理员可以添加用户相关信息2SJ粛加I重制I退出I图 5.20用户管理：用户可以在此窗体中更新、删除用户信息。图 5.21关于窗体：主要介绍该系统的一些基本信息图 5.22第五章 重点研究问题及核心问题1数据库的核心问题在实际的图书馆的系统中，当读者借阅一本书时，那么图书馆中该书是少一 本，还一本书，书库中则多一本，当书库中的数量为0 时，则无法借阅该书，每 名学生只能借2 本，为模拟这种现象，也在表图书借阅中建立了触发器。2VB.NET 的核心问题ADO.NET 技术，数据访问控件的使用，手动创建数据库访问的编程方法。第六章 心得体会在对图书管理信息系统的开发过程有了基本了解后，本人使用VB.NET开发 了这个“图书管理系统”。系统基本实现了内部图书借阅管理的系统化、规范化 和自动化。例如添加读者信息以及查找、更新、删除读者信息, 添加图书信息以 及查找、更新、删除图书信息，添加图书类别信息以及查找、更新、删除图书类 别信息,图书的借阅、归还。可以按图书借阅号等信息对图书进行查询，并能反 映出图书的借阅情况。实现了简单的统计分析功能，可以展示出库存图书馆藏图 书的情况。还能够对使用该管理系统的用户进行管理，按照不同的工作职能提供 不同的功能授权。通过对该系统的设计、开发和调试，一方面使我更加熟练了 SQL2005 的使 用方法，熟悉了建库、建表、建视图的方法，以及如何建约束、触发器让数据更 完整。另一方面，让我对 VB.NET 开发工具的有了更深一步的认识，熟悉了窗口、 菜单以及一些可视化控件的使用方法。通过使用还了解到了各类控件的属性与方 法。同时，在制作过程中遇到了不少问题和困难，通过查阅书籍及互连网以及和 同学们的探讨让我得到了不小的帮助。由于外部设备条件以及自身能力的限制，该管理系统还存在不少的缺点和漏 洞，只能尽量改正与完善。不足之处，还望多多指教。附录附录ADim cmd AsNew SqlCommand(select * from user1 where user1= & u_name & and pwd= & u_pwd &, cn)cn.Open()Dim drAs SqlDataReader = cmd.ExecuteReaderIfNot dr.Read ThenMsgBox(你的 userl 或pwd 不对)ElseIf dr.Item(userTYPE) = 0ThenFrmMain.ToolS tripMen ult em3.Enabled = False/普通用户 ElseFrmMain.ToolS tripMen ult em3.Enabled = True/管理员 End IfFrmMain.Show() Me.Close()End If附录BPrivate Sub Buttonl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonl.ClickIf TextBoxl.Text =Or TextBox4.Text =Or TextBox5.Text = Or TextBox8.Text = Or TextBox9.Text = ThenMsgBox(均不能为空！)ExitSubEnd IfDim cnAs New SqlConnection(My.Settings.TSconnectionStr)Dim cmd As New SqlCommand(insert into 读者信息表 values( & TextBoxl.Text &, & TextBox2.Text &, & TextBox3.Text &, & TextBox4.Text &, & TextBox5.Text &, & TextBox6.Text &, & ComboBoxl.Text &, & TextBox7.Text &, & TextBox8.Text &, & TextBox9.Text & , & TextBoxl0.Text &), cn)cn.Open()cmd.ExecuteNonQuery()cn.Close()End Sub附录CPrivate Sub Buttonl_Click(ByVal senderAs System.Object,ByVal e As System.EventArgs) Handles Buttonl.ClickIf ComboBox1.Text =姓名ThenTryDim cnAs NewSqlConnection(My.Settings.TSconnectionStr)Dim da As New SqlDataAdapter(select * from 读者信息表 where name= & TextBox1.Text & , cn)Dim tb1 AsNew DataTablecn.Open()da.Fill(tb1) cn.Close() DataGridView1.DataSource = tb1Catch exAs ExceptionMsgBox(ex.ToString)End TryElseIf ComboBoxl.Text 二借阅证号Then TryDim cnAs NewSqlConnection(My.Settings.TSconnectionStr)Dim da As New SqlDataAdapter(select * from 读者信息表 where isbn= & TextBox1.Text & , cn)Dim tb1 AsNew DataTablecn.Open()da.Fill(tb1) cn.Close() DataGridView1.DataSource = tb1 Catch exAs ExceptionMsgBox(ex.ToString)End TryEnd IfEndSub附录 DPrivate Sub Button4_Click(ByVal senderAs System.Object,ByVal e As System.EventArgs) Handles Button4.ClickIf ComboBoxl.Text =姓名ThenTryDim cnAs NewSqlConnection(My.Settings.TSconnectionStr)Dim cmd AsNew SqlCommand(delete from 读者信息表 where name= & TextBox1.Text & , cn)cn.Open() cmd.ExecuteNonQuery() cn.Close()Catch exAs ExceptionMsgBox(ex.ToString)End TryElseIf ComboBox1.Text = 借阅证号 Then TryDim cn As NewSqlConnection(My.Settings.TSconnectionStr)Dim cmd As New SqlCommand(delete from 读者信息表 where isbn= & TextBox1.Text & , cn)cn.Open() cmd.ExecuteNonQuery() cn.Close()Catch ex As ExceptionMsgBox(ex.ToString)End TryEnd IfEnd Sub附录EPrivate Sub readerupdate_MouseClick(ByVal sender As Object, ByVal eAsSystem.Windows.Forms.MouseEventArgs) Handles Me.MouseClickTryDim cn As New SqlConnection(My.Settings.TSconnectionStr)Dim da As New SqlCommand(select * from 读者信息表 where 1 ， isbn=& TextBox8.Text & , cn)Dim myread As SqlDataReadercn.Open()myread = da.ExecuteReaderWhile myread.ReadTextBox1.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 Whilecn.Close()Catch ex As ExceptionMsgBox(ex.ToString)End TryEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal eAsSystem.EventArgs) Handles Button2.ClickMe.Close()End SubPrivate Sub TextBox1_MouseClick(ByVal sender As Object, ByVal eAsSystem.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseClickDim cn As NewDim da As NewTry，name=SqlConnection(My.Settings.TSconnectionStr) SqlCommand(select * from 读者信息表 where& TextBox1.Text & , cn)Dim myread As SqlDataReader cn.Open()myread = da.ExecuteReaderWhile myread.ReadTextBox1.Text =TextBox2.Text =TextBox3.Text =TextBox4.Text =TextBox5.Text =TextBox6.Text =ComboBox1.TextTextBox7.Text =TextBox8.Text =TextBox9.Text =TextBox10.Textmyread(Name)myread(sex) myread(age) myread(identitycard) myread(maxnum) myread(keepmoney)myread(zj) myread(zy) myread(isbn) myread(bztime)myread(tel)End While cn.Close()Catch ex As ExceptionMsgBox(ex.ToString)End TryEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal eAsSystem.EventArgs) Handles Button1.ClickTryDim 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 exAs ExceptionMsgBox(ex.ToString)End TryEnd Sub附录FPrivate Sub 读者信息表BindingNavigatorSaveltem_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles 读者信息表 BindingNavigatorSaveItem.ClickMe.Validate()Me.读者信息表BindingSource.EndEdit()Me.读者信息表TableAdapter.Update(Me.TsglDataSet.读者信息表)End SubPrivateSub readerupdate_Load(ByVal senderAs System. Object, ByVal e As System.EventArgs) Handles MyBase.LoadTODO:这行代码将数据加载到表“TsglDataSet.读者信息表”中。您 可以根据需要移动或移除它。Me.读者信息表TableAdapter.Fill(Me.TsglDataSet.读者信息表)End Sub附录GDim cnAs 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()附录HDim cnAs New SqlConnection(My.Settings.TSconnectionStr)Dim cmd AsNew SqlCommand(delete from 图书借阅表 where bookisbn= & TextBox1.Text & , cn)cn.Open() cmd.ExecuteNonQuery()cn.Close()参考文献：1 软件工程导论 张海藩 著2 数据库原理与设计 张龙祥、陶影 等编清华大学出版社 西安交大出版社 清华大学出版社 清华大学出版社 冶金工业出版社3 管理信息系统原理与应用罗超理、李万红 4SQL Server 2005 实用教程李岩、张瑞雪 5Visual Basic.NET 刘怀亮致谢本论文是在石家庄职业技术学院智立甫老师的悉心指导和帮助下完成的。在 论文的选题、问题分析以及论文写作的整个过程中，处处渗透着老师的心血。非 常感谢智老师的悉心指导。在跟随智立甫老师进行毕业设计的过程中，他渊博的 学识，严谨的治学态度时刻激励和影响着我，使我在短期内不仅学识水平有了较 大提高，而且更重要的是从老师那里学到了从事研究工作的方法和态度，这必将 使我受益终生，同时我也会将智老师这种精益求精的精神渗透到我今后的学习工 作中。在论文完成之际，特向智立甫老师表示衷心的感谢和崇高的敬意。我将永 远铭记老师的谆谆教诲。感谢赵恩同学在代码修改发面的方面的帮助！ 感谢郝鹏同学提供的图片素材！ 你们的激励和厚望一直是我奋斗的动力源泉，但愿我的点滴进步能给你们带 来欣慰。