《毕业设计VB.NET实现图书馆图书与用户数据管理.doc》由会员分享，可在线阅读，更多相关《毕业设计VB.NET实现图书馆图书与用户数据管理.doc（53页珍藏版）》请在三一办公上搜索。
1、苏州市职业大学毕 业 设 计（论 文）设计（论文）题目： VB.NET实现图书馆图书与 用户数据管理 学 院 名 称： 苏州市职业大学 专 业： 计算机工程 班 级： 09网络技术(1)班 姓 名： 陈恩点 学 号 096302124 指 导 教 师： 秦云涛 职 称 定稿日期： 2012年 04月 12 日摘 要图书馆有大量的数据需要处理，这些数据已经超越了人力所及，信息科技高度发达的今天，我们可以通过计算机完成这些繁重的工作。在VB.NET下实现图书馆图书与用户数据管理，利用VB.NET与SQL链接用数据库存储相关数据，用VB.NET操作数据。实现了数据的集中管理，使数据易于操作，便于管理
2、。设计最终完成了数据库连接，提供数据库，添加，修改，删除，实现数据简明处理方便使用。用数据库约束完成数据的规则约束，用存储过程实现数据读取和对接操作，同时还设计相应触发为数据操作带来便利。设计过程中先对用户需求进行相应分析，进而总结出设计流程关系，各个功能模块给出了相应的界面截图。关键词：图书管数据管理，VB.NET，数据库，SQLVB.NET LIBRARY DATA MANAGEMENTABSTRACT:The library contains a large number of data need to be processed, these data have been beyond
3、the reach of human power, information technology is highly developed today, we may through the computer to finish the hard work. In VB.NET to achieve library and user data management, the use of VB.NET and SQL link with the database stored data, using VB.NET operation data. Realize the centralized m
4、anagement of data, so that the data is easy to operate, easy to manage. The design eventually completed the database connection, database, add, modify, delete, data processing and convenient use concise. Use database constraint data rules, using stored procedures to achieve the data reading and dock
5、ing operation, but also design corresponding trigger for data operation convenience. The design process of user demand were analyzed, and then summarized the relationship of each function module design process, presents the corresponding user interface.Key Words: Library, VB.NET, database, SQL目 录第1章
6、 绪论11.11开发背景及必要性11.21系统需求1第2章用户需求分析22.11概论22.21系统功能需求22.31管理功能需求82.41系统性能需求8第3章系统总体设计93.11系统初始化9第4章程序实现114.11判断结果界面114.21初始化窗体界面124.31管理者主界面154.41帮助窗口界面174.51触发演示184.61数据库对接模块20第5章总结22第6章参考文献23第7章附录247.11初始化模块程序代码：247.21管理主窗体代码：397.31帮助窗体代码：42第8章致 谢44第1章 绪论1.11 开发背景及必要性图书管理是高校内每一个系部或院部都必须切实面对的工作，但一直
7、以来人们使用传统的人工方式管理图书资料。这种方式存在着许多缺点，如效率低、保密性差且较为繁琐。另外，随着图书资料数量的增加，其工作量也将大大增加，这必将增加图书资料管理者的工作量和劳动强度，这将给图书资料信息的查找、更新和维护都带来了很多困难。经过详细的调查，目前我国各类高等学校中有相当一部分单位图书资料管理还停留在人工管理的基础上。这样的管理机制已经不能适应时代的发展，其管理方法将浪费许多人力和物力。随着科学技术的不断提高，这种传统的手工管理方法必然被以计算机为基础的信息管理方法所取代。图书管理作为计算机应用的一个分支，有着手工管理无法比拟的优点，如检索迅速、查找方便、可靠性高、存储量大、保
8、密性好、寿命长、成本低等。这些优点能够极大地提高图书管理的效率。1.21 系统需求开发环境：Windows XP开发工具：Microsoft Visual Studio 2010数据库系统： MSDE2005第2章 用户需求分析2.11 概论图书数量庞大所需记录信息更是种类繁多错综复杂，如果仅仅只靠人力的话将会是一项极其繁重的工作。同时，人工操作中存在失误及不足，远不及计算机的计算机存储能力。对于这样繁重乏味的工作我们尽可能利用先进的科技，计算机来完成，以减轻工作人员的工作压力。所需要做的工作包括图书购入时的入库登记，图书分类，图书保养等。同时包括工作人员的记录，管理。2.21 系统功能需求系
9、统功能完成数据的录入，修改，删除。管理者只需在前台界面完成数据操作，其他数据连接数据库创建等由程序自行完成。程序开始阶段第一次运行程序，没有数据库为基础，无法连接数据库在服务器上创建数据库：BookDataBase在BookDataBase上创建两张表分别用于存放图书信息和用户信息根据不同的需要对两张表进行相应约束通过存储过程VB.NET可以获取到数据库里的记录并加以应用创建一个触发方便管理者录入信息的操作创建示例记录即添加数据到表中这一步是可选的，如果管理者熟悉约束规则就无需添加示例记录。数据库至此创建完成，下面就可以进入管理界面面进行数据管理。数据管理2.31 管理功能需求保证数据交互，在
10、界面修改的数据同时也要在数据库中进行修改，修改后的数据也可以继续被程序所读取。添加、删除的数据以行为单位，每条记录并非是字符而是数据库中相应的属性。保证数据的准确性，稳定性，对于非法数据禁止添加。对于删除的信息保存后再次读取的数据不应继续含有该信息，保证删除数据不留痕迹，保证数据清爽整洁易于管理。2.41 系统性能需求(1) 稳定性保证数据不被误操作所损毁，对于恶意操作进行截留不允许输入到数据库中，保证数据库中数据稳定，真实。(2) 可扩展性提供足够的扩展空间保证系统可以应对尽可能多的问题，对于可能发生的故障有一定预见性，并提前做好防范。(3) 系统的标准性系统在设计开发使用过程中都要涉及到很
11、多计算机硬件、软件。所有这些都要符合主流国际、国家和行业标准。(4) 系统的易用性和易维护性图书管理系统是直接面对使用人员的，而使用人员往往对计算机并不时非常熟悉。这就要求系统能够提供良好的用户接口，易用的人机交互界面。要实现这一点，就要求系统应该尽量使用用户熟悉的术语和中文信息的界面；针对用户可能出现的使用问题，要提供足够的在线帮助，缩短用户对系统熟悉的过程。(5) 系统的先进性目前计算系统的技术发展相当快，做为图书管理系统工程，在系统的生命周期尽量做到系统的先进，充分完成企业信息处理的要求而不至于落后。这一方面通过系统的开放性和可扩充性，不断改善系统的功能完成。另一方面，在系统设计和开发的
12、过程中，应在考虑成本的基础上尽量采用当前主流并先进且有良好发展前途的产品。第3章 系统总体设计3.11 系统初始化通过这册表标记键值获取服务器状态。初始化操作，数据库创建。第4章 程序实现4.11 判断结果界面判断结果界面：代码实现： 主窗体：Dim ReadValue = My.Computer.Registry.GetValue(HKEY_CURRENT_USER DataBaseCreated , Created, Nothing) If ReadValue True Then SetFirst_Form.Show() Me.Hide() End If初始化提示窗体：MessageBox
13、.Show(第一次运行本程序请先进行初始化, 提示, MessageBoxButtons.OK, MessageBoxIcon.Information)4.21 初始化窗体界面代码实现： Dim sqlStatement As String = _ IF EXISTS (SELECT * & _ FROM master.sysdatabases & _ WHERE Name = BookDataBase) & vbCrLf & _ DROP DATABASE BookDataBase & vbCrLf & _ CREATE DATABASE BookDataBase & vbCrLf & _
14、ON PRIMARY & vbCrLf & _ ( NAME = 图书馆数据库, & vbCrLf & _ FILENAME = D:LibraryBookDataBase.mdf, & vbCrLf & _ SIZE = 10MB, & vbCrLf & _ MAXSIZE = 500MB, & vbCrLf & _ FILEGROWTH = 5MB ) & vbCrLf & _ LOG ON & vbCrLf & _ ( NAME = 图书日志, & vbCrLf & _ FILENAME = D:LibraryBookDataBase.ldf, & vbCrLf & _ SIZE = 5
15、MB, & vbCrLf & _ MAXSIZE = 25MB, & vbCrLf & _ FILEGROWTH = 5MB )对于示例记录的创建是可选的，可以使用也可不用 4.31 管理者主界面 通过菜单进行操作和管理，数据修改直接在表格中进行，修改完成后经过保存即可。加载图书信息界面：加载图书表信息代码： BookConnection.Open() SQLCMD = BookConnection.CreateCommand SQLCMD.CommandText = Select * from Book_Table SQLDA = New SqlDataAdapter(SQLCMD) Boo
16、k_DataSet.Clear() SQLDA.Fill(Book_DataSet) Book_DataGridView.DataSource = Book_DataSet.Tables(0) NowData = Book BookConnection.Close()加载用户信息界面：加载图书表信息代码： BookConnection.Open() SQLCMD = BookConnection.CreateCommand SQLCMD.CommandText = Select * from User_Table SQLDA = New SqlDataAdapter(SQLCMD) User_
17、DataSet.Clear() SQLDA.Fill(User_DataSet) Book_DataGridView.DataSource = User_DataSet.Tables(0) NowData = User BookConnection.Close()4.41 帮助窗口界面帮助窗口给予了一些必要的提示：4.51 触发演示当输入相同书籍时只需要输入其书刊号和ISBN即可：添加抽象艺术，仅添加书刊：号00000011 及 ISBN：7898978255 然后保存信息。 再次查看图书信息以刷新当前表格,可以查看更改后的数据。数据其他属性会自动更改，包括库存量，库存剩余。4.61 数据库对
18、接模块用户部分： BookConnection.Open() SQLCMD = BookConnection.CreateCommand SQLCMD.CommandText = Select * from User_Table SQLDA = New SqlDataAdapter(SQLCMD) SQLCMDB = New SqlCommandBuilder(SQLDA) SQLDA.Update(User_DataSet) Book_DataGridView.Update() BookConnection.Close()图书部分： BookConnection.Open() SQLCMD
19、= BookConnection.CreateCommand SQLCMD.CommandText = Select * from Book_Table SQLDA = New SqlDataAdapter(SQLCMD) SQLCMDB = New SqlCommandBuilder(SQLDA) SQLDA.Update(Book_DataSet) Book_DataGridView.Update() BookConnection.Close()第5章 总结这次软件工程课程设计，我主要采用Microsoft Visual Studio 2010作为前台开发工具，MSDE2005作为后台数据
20、库，结合软件工程设计和数据库编程的有关知识，开发了这个图书管理系统。通过这次软件工程课程设计，我对于软件工程设计的相关步骤和流程有了更深刻的理解，熟悉并掌握了MSDE2005和Microsoft Visual Studio 2010的数据库使用，另一方面，也对SQL语言作为嵌入式语言的功能有了更深刻的体会。同时，我也发现自己对于软件工程设计和数据库设计的知识掌握的还不够，设计和编程能力还有待于进一步提高。这次设计给了我一个锻炼自己，强化专业知识的机会，通过这次设计，我也得以一窥软件工程设计的广袤天地，我相信，只要认真学习，多借鉴别人的经验，多思考，多实践，就一定能够成为一个合格的软件设计人员，
21、能够翱翔在软件开发的天地。第6章 参考文献1 马威，吕文哲，曹瑞. SQLServer数据库管理和编程M. 北京：清华大学出版社，2004.2 肖慎勇等. SQL Server数据库管理与开发M.北京：清华大学出版社，2006.3 党跃武，谭祥金. 信息管理导论M. 第二版. 北京：高等教育出版社，2006.4 杜兆将.SQLServer数据库管理与开发教程与实训M. 北京大学出版社，2009.5 田原.VB.NET程序设计M. 第一版.北京清华大学出版社，2006.第7章 附录7.11 初始化模块程序代码： Imports System.Data.SqlClientImports Syste
22、m.DataPublic Class SetFirst_Form Private Sub CreateDatabase() Dim sqlStatement As String = _ IF EXISTS ( & _ SELECT * & _ FROM master.sysdatabases & _ WHERE Name = BookDataBase) & vbCrLf & _ DROP DATABASE BookDataBase & vbCrLf & _ CREATE DATABASE BookDataBase & vbCrLf & _ ON PRIMARY & vbCrLf & _ ( N
23、AME = 图书馆数据库, & vbCrLf & _ FILENAME = D:LibraryBookDataBase.mdf, & vbCrLf & _ SIZE = 10MB, & vbCrLf & _ MAXSIZE = 500MB, & vbCrLf & _ FILEGROWTH = 5MB ) & vbCrLf & _ LOG ON & vbCrLf & _ ( NAME = 图书馆数据日志, & vbCrLf & _ FILENAME = D:LibraryBookDataBase.ldf, & vbCrLf & _ SIZE = 5MB, & vbCrLf & _ MAXSIZE
24、 = 25MB, & vbCrLf & _ FILEGROWTH = 5MB ) 显示文本：我们正在尝试建立SQL数据库连接 这只需要在第一次尝试时提示，在之后就不需要提示此信息了。 Statu_Label.Text = 正在连接数据库 尝试建立SQL数据库连接 Try SqlConnection 类允许我们访问SQL服务器，服务器需要完整的安全认证，所以 你必须登陆SQL服务器或者是Administrators用户组成员。 Dim connection As New SqlConnection(My.Settings.SQLConnection) 用一个SqlCommand 来执行SQL命令
25、 Dim cmd As New SqlCommand(sqlStatement, connection) 打开连接执行语句命令，然后关闭连接。当没有返回值的时候ExecuteNonQuery()会显得十分有效 connection.Open() cmd.ExecuteNonQuery() connection.Close() 数据已经被成功提交 Statu_Label.Text = 数据库创建成功，请继续 CreatTable_Button.Enabled = True Catch sqlExc As SqlException MsgBox(sqlExc.Message, MsgBoxStyl
26、e.OkOnly, SQL异常) Statu_Label.Text = sqlExc.Message Catch exc As Exception Statu_Label.Text = 连接失败，请检查计算机配置 End Try End Sub Private Sub CreatDataBase_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreatDataBase_Button.Click Dim UserAnswer As DialogResult = MessageBox
27、.Show(重新创建数据库将会覆盖你原有数据库是否继续？, 创建数据库警告, MessageBoxButtons.YesNo, MessageBoxIcon.Warning) If UserAnswer = Windows.Forms.DialogResult.Yes Then CreateDatabase() Else Me.Close() End If End Sub Private Sub CreatTable_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreatTab
28、le_Button.Click Dim strSQL As String = _ USE BookDataBase & vbCrLf & _ IF EXISTS ( & _ SELECT * & _ FROM BookDataBase.dbo.sysobjects & _ WHERE Name = User_Table & _ AND TYPE = u) & vbCrLf & _ BEGIN & vbCrLf & _ DROP TABLE BookDataBase.dbo.User_Table & vbCrLf & _ END & vbCrLf & _ CREATE TABLE User_Ta
29、ble ( & _ 证件号 char(9) NULL UNIQUE, & _ 用户名 char(10) NULL, & _ 所在组 char(10) NULL, & _ 班级 char(60) NULL, & _ 联系方式 char(11) NULL) & vbCrLf & _ IF EXISTS ( & _ SELECT * & _ FROM BookDataBase.dbo.sysobjects & _ WHERE Name = Book_Table & _ AND TYPE = u) & vbCrLf & _ DROP TABLE BookDataBase.dbo.Book_Table
30、& vbCrLf & _ CREATE TABLE Book_Table ( & _ 书刊号 char(8) NOT NULL UNIQUE, & _ 书籍名 char(30) NULL, & _ 分类 char(20) NULL, & _ 书库 char(20) NULL, & _ ISBN char(13) NULL, & _ 库存剩余 int NULL, & _ 库存总量 int NULL, & _ 作者 char(20) NULL, & _ 定价 money NULL, & _ 借阅者 char(20) NULL, & _ 备注 Char(256) NULL) Try SqlConne
31、ction 类允许我们访问SQL服务器，服务器需要完整的安全认证，所以 你必须登陆SQL服务器或者是Administrators用户组成员。 Dim dbConnection As New SqlConnection(My.Settings.SQLConnection) 用一个SqlCommand 来执行SQL命令 Dim cmd As New SqlCommand(strSQL, dbConnection) dbConnection.Open() cmd.ExecuteNonQuery() dbConnection.Close() 创建成功 Statu_Label.Text = 表创建成功，
32、请继续 CreatCheck_Button.Enabled = True Catch sqlExc As SqlException MessageBox.Show(sqlExc.ToString, SQL异常, _ MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub Private Sub SetFirst_Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CreatCheck_Button.Ena
33、bled = False CreatSimple_Button.Enabled = False CreatTable_Button.Enabled = False CreatProcedure_Button.Enabled = False CreatTrigger_Button.Enabled = False Finish_Button.Enabled = False MessageBox.Show(第一次运行本程序请先进行初始化！, 提示, MessageBoxButtons.OK, MessageBoxIcon.Information) Me.Focus() End Sub Private
34、 Sub Finish_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Finish_Button.Click My.Computer.Registry.SetValue(HKEY_CURRENT_USERDataBaseCreated, Created, True) AdministrateForm.Show() Me.Hide() End Sub Private Sub CreatProcedure_Button_Click(ByVal sender As System.Obj
35、ect, ByVal e As System.EventArgs) Handles CreatProcedure_Button.Click Dim dbConnection As New SqlConnection(My.Settings.SQLConnection) Dim strSQL As String = _ USE BookDataBase & vbCrLf & _ IF EXISTS ( & _ SELECT * & _ FROM BookDataBase.dbo.sysobjects & _ WHERE Name = BookUse & _ AND TYPE = p) & vbC
36、rLf & _ BEGIN & vbCrLf & _ DROP PROCEDURE BookUse & vbCrLf & _ END 用一个SqlCommand 来执行SQL命令 Dim cmd As New SqlCommand(strSQL, dbConnection) Try 打开连接执行语句命令，然后关闭连接。当没有返回值的时候ExecuteNonQuery()会显得十分有效 dbConnection.Open() cmd.ExecuteNonQuery() 使下一步的按钮生效 Catch sqlExc As SqlException MessageBox.Show(sqlExc.To
37、String, SQL异常, _ MessageBoxButtons.OK, MessageBoxIcon.Error) End Try Try cmd.CommandText = _ CREATE PROCEDURE BookUse & vbCrLf & _ BookID Char(16), & vbCrLf & _ BookUserID INT, & vbCrLf & _ BookAllNum INT OUTPUT, & vbCrLf & _ BookLeftNum INT OUTPUT, & vbCrLf & _ BookUserName Char(10) OUTPUT, & vbCrLf & _ BookName Char(10) OUTPUT, & vbCrLf & _ BookBank Char(10) OUTPUT, & vbCrLf & _ BookAuthor Char(10) OUTPUT, & vbCrLf & _ ISBN Char(16) OUTPUT, & vbCrLf & _ BookPrice money OUTPUT, & vbCrLf & _ BookGroup Char(10) OUTPUT & vbCrLf & _ AS & vbCrLf & _ SELECT ISBN = ISBN,BookG
