数据库应用系统开发课程设计报告图书管理系统

《数据库应用系统开发课程设计报告图书管理系统》由会员分享，可在线阅读，更多相关《数据库应用系统开发课程设计报告图书管理系统（28页珍藏版）》请在装配图网上搜索。

1、经济与管理学院数据库应用系统开发课程设计 设 计 题 目 图书管理系统（后台） 专 业 信息管理与信息系统 学 号 11096101 姓 名 安毅昭 指 导 教 师 刘雅莉 成 员 魏斌强李 强 陕西 商洛图书管理系统（后台）【摘要】随着信息技术在生活中越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位或个人要存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。实践证明，任何管理信息系统都离不开相应的数据库系统辅助，这就要求系统设计者对数据库应用系统开发有一定的技术。本图书管理系统（后台）在管理信

2、息系统的理论和方法指导下、数据库应用系统开发技术的支持下完成的。本文在结构上首先论述了课程设计选题的背景、目的和意义，然后叙述了开发环境、开发平台以及数据库技术，接着介绍系统的整体规划，接下来是系统在具体实现过程中的详细内容，最终本图书管理系统（后台）能够完成信息的输入、输出，数据的修改、查询以及更新等功能，本系统界面友好，操作简洁方便，实用性良好。【关键字】VB.NET；窗体；控件；关系数据库管理；图书管理系统。Books management system management system (background)【Abstract】As information technology i

3、n the life more and more in-depth and extensive application, the implementation of the management information system has gradually mature in technology. Management information system is a continuous development of new disciplines, any unit or individual to save to development, to efficiently organiz

4、e the internal activity organically, we must set up corresponding to their own characteristics of management information system. Practice has proved that any management information system cannot leave the corresponding database system, which requires the system designer to the database application s

5、ystem development has a certain technology.【Key words】VB.NET;Form;Contro;Relational database management; Books management system management system.目录第一章课程设计概述41.1课程设计的目的与任务41.2课程设计的要求41.3课程设计的内容4第二章设计方案论证52.1开发工具 Visul Studio 2008 介绍52.2面向对象编程的概念62.3Visul Basic 语言介绍72.4SQL语言7第三章设计过程详细论述83.1系统总体设计83.

6、2数据库设计93.2.1系统ER图93.2.2关系模型设计93.2.3表结构设计93.3系统界面设计103.3.1系统登录界面设计分析103.3.2系统主界面设计分析113.3.3管理员管理界面设计分析123.3.4书籍管理界面设计分析133.3.5读者管理界面设计分析143.3.6借阅管理界面设计分析15第四章设计总结164.1课程小结164.2个人小结16参考文献17附录 一18附录 二19第一章课程设计概述1.1课程设计的目的与任务1.掌握计管理信息系统设计的一般方法，主要包括系统分析、系统设计的组织和实施。 2.掌握关系型数据库管理的设计，独立完成一般小系统的程序设计、调试运行等工作。

7、 3.培养学生学以致用，根据具体问题设计方案并解决该问题的能力。1.2课程设计的要求1.完成系统的需求分析、总体设计与详细设计。2.建立后台数据库程序，采用SQL SERVER软件。3.完成技术方案选型研究，确定开发工具及其主要理由，完成相关功能的编制、调试与验收。4.书写课程设计报告1.3课程设计的内容1.引言图书借阅是学生在大学学习中经常实际经历的活动，而在此过程中所涉及信息与行为可以较好地作为一个数据库系统的典型实例。在该实例中，系统后台需要管理的信息包括图书信息、管理员信息、读者信息、借阅信息、等能表现出关系数据库中一对一、一对多、多对多等实体关系与规范化设计属性依赖关系，基本满足学习

8、关系数据库的示例需要。系统中的行为所涉及的活动包括适合采用C/S模式处理的一系列图书管理活动，基本满足学习实例系统开发的需要。下面分别说明其中系统功能需求与数据关系需求。2.系统功能需求描述在该系统中，主要包括管理员管理、书籍管理、读者管理、查询管理等功能，下面分别就其系统主要功能与业务规则描述如下。1） 管理员管理管理员信息的新增、更新、删除等。2） 书籍管理书籍信息的增加、更新、删除等。3） 读者管理读者信息的增加、更新、删除等。4） 查询管理书籍信息、读者信息、借阅历史信息的查询。3.系统数据需求描述对上述系统功能需求，可以分析归纳出其相应的数据及其属性需求分析如下：1） 管理员信息包括

9、：用户名，密码。2） 书籍信息包括：书籍编号，书籍名称，作者。3） 读者信息包括：读者编号，读者姓名，密码。4） 借阅信息包括：书籍编号，书籍名称，作者，读者编号，读者姓名，借阅时间归还时间。第二章设计方案论证2.1开发工具 Visul Studio 2008 介绍Visual Studio 即 Microsoft Visual Studio 。Microsoft Visual Studio（简称VS）是美国微软公司的开发工具包系列产品。VS是一个基本完整的开发工具集，它包括了整个软件生命周期中所需要的大部分工具，如UML工具、代码管控工具、集成开发环境(IDE)等等。所写的目标代码适用于微软

10、支持的所有平台，包括Microsoft Windows、Windows Mobile、Windows CE、.NET Framework、.NET Compact Framework和Microsoft Silverlight 及Windows Phone。本系统设计主要选用Visul Studio 2008/.NET Framework 4.0作为开发工具。Visual Studio 2008 提供了高级开发工具、调试功能、数据库功能和创新功能，帮助在各种平台上快速创建当前最先进的应用程序。 Visual Studio 2008 包括各种增强功能，例如可视化设计器（使用 .NET Frame

11、work 3.5 加速开发）、对 Web 开发工具的大量改进，以及能够加速开发和处理所有类型数据的语言增强功能。Visual Studio 2008 为开发人员提供了所有相关的工具和框架支持，帮助创建应用程序。开发人员能够利用这些丰富的客户端和服务器端框架轻松构建以客户为中心的应用程序，这些应用程序可以集成任何后端数据提供程序。 Visual Studio 2008 还使开发人员能够从同一开发环境内创建面向多个 .NET Framework 版本的应用程序。开发人员能够构建面向 .NET Framework 2.0、3.0 或 3.5 的应用程序，意味他们可以在同一环境中支持各种各样的项目。2

12、.2面向对象编程的概念面向对象编程即面向对象程序设计。面向对象编程（Object Oriented Programming，OOP，面向对象程序设计）是一种计算机编程架构。OOP的一条基本原则是计算机程序是由单个能够起到子程序作用的单元或对象组合而成。OOP达到了软件工程的三个主要目标：重用性、灵活性和扩展性。为了实现整体运算，每个对象都能够接收信息、处理数据和向其它对象发送信息。面向对象程序设计中的概念主要包括：对象、类、数据抽象、继承、动态绑定、数据封装、多态性、消息传递。通过这些概念面向对象的思想得到了具体的体现。1）对象（Object) 可以对其做事情的一些东西。对象有状态、行为和标识

13、三种属性。2）类（class) 一个共享相同结构和行为的对象的集合。3）封装（encapsulation)：将数据和操作捆绑在一起，创造出一个新的类型的过程。4）继承：类之间的关系，一个类共享了一个或多个其他类定义的结构和行为。继承描述了类之间的“是一种”关系。子类可以对基类的行为进行扩展、覆盖、重定义。5）组合：既是类之间的关系也是对象之间的关系。6）多态：类型理论中的一个概念，一个名称可以表示很多不同类的对象，这些类和一个共同超类有关。7）动态绑定：也称动态类型，指的是一个对象或者表达式的类型直到运行时才确定。通常由编译器插入特殊代码来实现。与之对立的是静态类型。8）静态绑定：也称静态类型

14、，指的是一个对象或者表达式的类型在编译时确定。9）消息传递：指的是一个对象调用了另一个对象的方法（或者称为成员函数）。10）方法：也称为成员函数，是指对象上的操作，作为类声明的一部分来定义。方法定义了可以对一个对象执行那些操作。2.3Visul Basic 语言介绍Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建

15、ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。2002年开始，微软将.NET Framework与 Visual Basic 结合而成为 Visual Basic .NET (vb .net)，重新打造 VB，新增许多特性及语法，又将 VB 推向一个新的高度。最新版本 Visual Basic 2012 也将带来许多令人期待的新功能。通过几年的发展，它已成为一种专业化的开发语言和环境。用户可用Visual Basic 快速创建Windows程序，并可编写企业水平的客户端/服务器程序及强大的数据库应用程序。Visual Basic .NET 现在是一门现代的、强壮的

16、、面向对象的、简单的可视化开发语言。Visual Basic .NET 有对 CLR 最完善的支持，同时尽量保留着 BASIC 易懂的语法风格和易用性。2.4SQL语言SQL语言作为关系数据库管理系统中的一种通用的结构查询语言，已经被众多的数据库管理系统所采用，如ORACLE、Sybase、Informix等数据库管理系统，它们都支持SQL 语言。Delphi与使用SQL语言的数据库管理系统兼容，在使用Delphi开发数据库应用程序时，我们可以使用SQL语言编程，支持SQL编程是Delphi的一个重要特征，这也是体现Delphi作为一个强大的数据库应用开发工具的一个重要标志。SQL广泛地被采用

17、正说明了它的优点。它使全部用户，包括应用程序员、DBA管理员和终端用户受益非浅。SQL是一个非过程化的语言，因为它一次处理一个记录，对数据提供自动导航。SQL允许用户在高层的数据结构上工作，而不对单个记录进行操作，可操作记录集。所有SQL 语句接受集合作为输入，返回集合作为输出。SQL的集合特性允许一条SQL语句的结果作为另一条SQL语句的输入。SQL不要求用户指定对数据的存放方法。这种特性使用户更易集中精力于要得到的结果。所有SQL语句使用查询优化器，它是RDBMS的一部分，由它决定对指定数据存取的最快速度的手段。查询优化器知道存在什么索引，哪儿使用合适，而用户从不需要知道表是否有索引，表有

18、什么类型的索引。SQL可用于所有用户的DB活动模型，包括系统管理员、数据库管理员、应用程序员、决策支持系统人员及许多其它类型的终端用户。基本的SQL 命令只需很少时间就能学会，最高级的命令在几天内便可掌握。、SQL为许多任务提供了命令，包括： 查询数据，在表中插入、修改和删除记录，建立、修改和删除数据对象，控制对数据和数据对象的存取，保证数据库一致性和完整性。以前的数据库管理系统为上述各类操作提供单独的语言，而SQL 将全部任务统一在一种语言中。用SQL编写的程序都是可以移植的。第三章设计过程详细论述3.1系统总体设计系统登陆界面系统主界面管理员管理书籍管理读者管理管理员信息更新管理员用户增加

19、书籍信息管理新增书籍管理读者信息管理新增读者管理查询管理读者信息查询书籍信息查询借阅历史查询图3-1-1 系统功能结构图3.2数据库设计3.2.1系统ER图n书籍借阅m读者编号姓名性别别编号书名作者管理员管理用户名密码还书日期借书日期图3-2-1 系统ER图3.2.2关系模型设计读 者 （读者编号，读者姓名，性别）书 籍 （书籍编号，书籍名称，作者）管 理 员 （用户名，密码 ）借阅管理 （读者编号，书籍编号，书籍名称，读者姓名，作者，借阅时间，还书时间）3.2.3表结构设计借阅表： 书籍表： 管理员表： 读者表： 3.3系统界面设计 以下为系统各界面设计效果图，各界面事件代码详见附录二。3.

20、3.1系统登录界面设计分析图3-3-1.1 系统登陆界面管理员账户输入账号和密码确认无误后，系统显示“登录成功”可进入主页面，否则显示“登录失败”，清空数据，用户可选择继续登录或取消登陆。3.3.2系统主界面设计分析图3-3-2.1 系统主页界面成功登录后，跳转至主页界面，管理员用户可根据需要自主选择“管理员管理”、“书籍管理”、“读者管理”、“查询管理”和“帮助”等菜单选项，各主菜单下都有其子菜单，以实现具体的工作，点击就可以弹出相应的菜单执行相应的操作。其中“帮助”菜单没有子菜单，点击“帮助”菜单后就会弹出帮助文档（为.html文档）。“管理员管理”菜单下的子菜单为：“管理员信息维护”，“

21、管理员用户更新”。“书籍管理”菜单下的子菜单为：“新增书籍管理”，“书籍信息维护”。在“读者管理”菜单下的子菜单为： “新增读者管理”，“读者信息维护”。“查询管理”菜单的子菜单为：“书籍信息查询”，“读者信息查询”，“借阅历史查询”。3.3.3管理员管理界面设计分析图3-3-3.1 管理员信息维护界面进入主界面以后就可以通过（管理员管理-管理员信息维护）进入管理员信息维护界面，在管理员信息维护界面可以修改密码，并且在修改密码的时候要求输入原密码进行身份认证，以免被恶意篡改。更改完成后就点击上面所示窗口的“更新”按钮就可以就新信息写如数据库。图3-3-3.2 管理员用户增加界面在此窗口中通过输

22、入用户名来确定一个用户，并且输入一个密码来进行身份验证。同样，完成后点击窗口中的“增加”按钮就可以完成管理员增加，管理员增加窗口设计比较简单，仅需输入新用户名，密码，以及一次密码确认就可以增加一个管理员。密码确认的目的是为了防止在新增加管理员的时候误输入密码避免以后的麻烦。3.3.4书籍管理界面设计分析 图3-3-4.1 新增书籍管理界面此窗口的功能就是录入新的图书信息，在录入图书信息时需要录入的信息有：书籍名称，书籍编号，作者。图3-3-4.2 书籍信息维护界面在此窗口中可以修改图书自身信息，如果在录入过程中输入错误书籍信息。就可以通过这里进行补救。对图书信息的作者，图书名称，进行修改，完成

23、后还是通过“更新”按钮来确认修改信息。3.3.5读者管理界面设计分析图3-3-5.1 新增读者管理界面在此窗口中管理员可以受动输入读者信息来增加读者，新增读者中包含的项目如下：读者编号 读者姓名 性别图3-3-5.2 读者信息维护界面通过此窗口进行读者信息维护 ，如果你不能确定是否需要修改读者信息，可以通过窗口上部的查询来确认是否需要进行修改读者信息。读者所有的信息都可以在这里进行修改（姓名，性别，最大借阅册数，最大借阅天数）点击更新就可以将新数据写入数据库，点击删除可以删除读者信息。点击退出可以退出本窗口。3.3.6借阅管理界面设计分析图3-3-6.1 书籍信息查询界面通过此窗口可以进行书籍

24、信息的查询，包括：书籍名称，书籍编号，作者等。图3-3-6.2 读者信息查询界面通过此窗口可以进行读者信息的查询，包括：读者姓名，读者编号，性别等。图3-3-6.3 借阅历史查询界面通过此窗口可以进行借阅历史查询，包括：书籍信息，读者信息，借还日期等。第四章设计总结4.1课程小结从开始的毫无头绪到后来的逐步完善，这次开发过程使我收获颇丰，其间蕴含了大量的知识，包括VS2008开发工具的使用，SQL语言编程，面向对象的语言，SQLSever 2005数据库管理工具，以及数据库访问技术。 在具体设计实施的时候，我首先做了登陆界面，以熟悉的使用和开发，然后进行数据库的后台设计，对整个图书馆数据库管理

25、系统进行分析，画出E-R 图，之后根据E-R图用SQLSever 2005编写了四个表：lbr，book，b，reader。 在表编写完成之后，就画出系统的总体逻辑框图，根据系统总体逻辑框图进行详细分析和设计，逐步完成，系统主界面，图书管理的各个界面，读者管理的各个界面，以及借阅管理的各个界面。4.2个人小结做了两周的课程设计，有很多的心得体会，有关于建模与编程的，更多的是关于人与人之间关系方面的。我在自己的努力下，在老师同学们的帮助下，终于把整个系统完成了，实现了预定的功能，以前的SQL语言没学好，一开始的程序这块儿就要令我抓狂了。后来在几天的努力，终于有了头绪，然后又在同学的帮助下，找到了

26、一些参考书，又在这写书的帮助下了解了系统设计的各种方法，在编译过程中常常出现的问题，和解决的方法。接下来就是编程件方面的焊接工作了。没想到这项看起来不需要多少技术的工作却是非常的劳心劳力。很多次是早上起来买瓶水放些吃的在宿舍里，一泡就是一天。当我想放弃的时候，我也这么对自己说，即使你做出来的是次品甚至不合格品，但是你一定要拿出来一件成品。一个多星期后我的程序终于完成了。虽然在机房调试出现了一些问题，但终究都解决了。在做这个项目的时候，我自己暴露了很多问题。第一：准备工作没做好，开发预期太高，导致后面做的过程中，系统来不及开发。第二：SQL数据访问不熟悉，这主要是写得少。需要多做多看这是个长久的

27、工程。第三：对于系统我觉得在功能、界面、操作等方面需要很多再改进的地方。参考文献1 数据库开发技术 电子科技大学出版社 作者：唐宝强、李伟东2 Visual Basic函数参考大全 人民邮电出版社 作者：赛奎春、李俊民3 Visual Basic控件参考大全 人民邮电出版社 作者：高春艳、刘彬彬4 VB.NET程序设计 清华大学出版社 北京交通大学出版社 作者：江 红、余青松5 VB.NET程序设计教程.2版 高等教育出版社 作者：龚沛曾6 Microsoft Corporation Visual Basic Language Specification 10.0.7 MACKEY A. In

28、troducing .NET4.0 With Visual Basic 2010.Apress附录 一组员及其分工明细考虑到组员各自能力的优缺，本组分工如下：系统需求分析及前期材料收集，由魏斌强负责，一方面从图书馆借阅相关技术方面的书籍材料，比如SQL链接，vb,net系统案例等书籍，以供编程参考。另一方面，利用网络资源，收集相关成品系统作为参考。系统整体架构和设计构思，主要由李强提出设计模型，我和魏斌强在此基础上加以补充，讨论并调整。最终在大量对比和考量之下， 选择较为简单也是比较普遍的“图书管理系统（后台）”，一经确定就不再更改。系统模块架构和代码编程由我本人负责，同时负责数据库的编制，系

29、统的调试，运行以及后期设计报告和总结材料的编写。工作量比较大，难免会有很多疏忽，所幸感谢组员期间不时的关注和帮助，特别感谢老师不辞其烦地帮我解决编程过程出现的各种问题。此系统的最终成型，依赖于小组成员的合作和老师的帮助，虽然仍有很多不足之处有待加强，经过此次设计，我想这对于即将到来的毕业设计会有很大帮助，再次感谢！安毅昭二一四年六月附录 二登陆界面代码：Imports System.Data.SqlClientPublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System

30、.EventArgs) Handles Button1.Click Dim myconnection As SqlConnection = New SqlConnection(server=localhost;attachdbfilename=H:作业设计WindowsApplication1数据lb.mdf;integrated security=true;) Dim mm As String Dim yhm As String Dim myselectquery As String = select * from lbr where name= & TextBox1.Text & And

31、password = & TextBox2.Text & Dim mycommand As New SqlCommand(myselectquery, myconnection) myconnection.Open() Dim mReader As SqlDataReader mReader = mycommand.ExecuteReader() If mReader.HasRows = False Then MsgBox(错误的帐号或密码信息！) TextBox1.Text = TextBox2.Text = TextBox1.Focus() Else mReader.Read() yhm

32、= Me.TextBox1.Text.ToString mm = Me.TextBox2.Text.ToString Form2.Show() Me.Hide() End If mReader.Close() myconnection.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub Private Sub Form1_Load(ByVal sender As System.

33、Object, ByVal e As System.EventArgs) Handles MyBase.Load End SubEnd Class主页界面代码：Public Class Form2 Private Sub 管理员信息维护ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 管理员信息维护ToolStripMenuItem.Click Form3.Show() End Sub Private Sub 管理员注册ToolStripMenuItem_Cli

34、ck(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 管理员注册ToolStripMenuItem.Click Form4.Show() End Sub Private Sub 书籍信息维护ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 书籍信息维护ToolStripMenuItem.Click Form5.Show() End Sub Private Sub 书籍信息维护

35、ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 书籍信息维护ToolStripMenuItem1.Click Form6.Show() End Sub Private Sub 新增读者管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新增读者管理ToolStripMenuItem.Click Form7.Show() En

36、d Sub Private Sub 读者信息维护ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 读者信息维护ToolStripMenuItem.Click Form8.Show() End Sub Private Sub 书籍信息查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 书籍信息查询ToolStripMenuItem

37、.Click Form9.Show() End Sub Private Sub 读者信息查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 读者信息查询ToolStripMenuItem.Click Form10.Show() End Sub Private Sub 借阅历史查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

38、借阅历史查询ToolStripMenuItem.Click Form11.Show() End Sub Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End SubEnd Class管理员信息维护界面代码：Imports System.Data.SqlClientPublic Class Form3 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As S

39、ystem.EventArgs) Handles Button1.Click Dim connectionstring As String = server=localhost;attachdbfilename=H:作业设计WindowsApplication1数据lb.mdf;integrated security=true; Dim commandtextupdate As String = update lbr set password=id where name= name Using connection As New SqlConnection(connectionstring)

40、connection.Open() Dim cmdupdate As SqlCommand = New SqlCommand(commandtextupdate, connection) cmdupdate.Parameters.AddWithValue(id, TextBox3.Text) cmdupdate.Parameters.AddWithValue(name, TextBoxName.Text) Try Dim myresult As Integer = cmdupdate.ExecuteNonQuery() If myresult 0 Then MsgBox(更新成功！) Else

41、 MsgBox(更新失败！) End If Catch ex As Exception MsgBox(ex.ToString) End Try connection.Close() End Using End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Hide() End Sub Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As

42、System.EventArgs) Handles MyBase.LoadEnd SubEnd Class管理员用户增加界面代码：Imports System.Data.SqlClientPublic Class Form4 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Hide() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVa

43、l e As System.EventArgs) Handles Button1.Click Dim connectionstring As String = server=localhost;attachdbfilename=H:作业设计WindowsApplication1数据lb.mdf;integrated security=true; Dim commandtextupdate As String = insert into lbr(name,password)values(id,name) Using connection As New SqlConnection(connecti

44、onstring) connection.Open() Dim cmdupdate As SqlCommand = New SqlCommand(commandtextupdate, connection) cmdupdate.Parameters.AddWithValue(id, TextBoxPassword.Text) cmdupdate.Parameters.AddWithValue(name, TextBoxName.Text) Try Dim myresult As Integer = cmdupdate.ExecuteNonQuery() If myresult 0 Then M

45、sgBox(更新成功！) Else MsgBox(更新失败！) End If Catch ex As Exception MsgBox(ex.ToString) End Try connection.Close() End Using End Sub Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End SubEnd Class新增书籍管理界面代码：Imports System.Data.SqlClientPublic Class Fo

46、rm5 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim connectionstring As String = server=localhost;attachdbfilename=H:作业设计WindowsApplication1数据lb.mdf;integrated security=true; Dim commandtextinsert As String = insert into book(bno,bname)

47、values(id,name) Using connection As New SqlConnection(connectionstring) connection.Open() Dim cmdinsert As SqlCommand = New SqlCommand(commandtextinsert, connection) cmdinsert.Parameters.AddWithValue(id, TextBoxID.Text) cmdinsert.Parameters.AddWithValue(name, TextBoxName.Text) Try Dim result As Inte

48、ger = cmdinsert.ExecuteNonQuery() If result 0 Then MsgBox(新增记录成功！) End If Catch ex As Exception MsgBox(ex.ToString) End Try connection.Close() End Using End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Hide()End SubEnd Class书籍信息维护

49、界面代码：Imports System.Data.SqlClientPublic Class Form6 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim connectionstring As String = server=localhost;attachdbfilename=H:作业设计WindowsApplication1数据lb.mdf;integrated security=true; Dim commandt

50、extupdate As String = update book set bname= name where bno=id Using connection As New SqlConnection(connectionstring) connection.Open() Dim cmdupdate As SqlCommand = New SqlCommand(commandtextupdate, connection) cmdupdate.Parameters.AddWithValue(id, TextBoxID.Text) cmdupdate.Parameters.AddWithValue

51、(name, TextBoxName.Text) Try Dim myresult As Integer = cmdupdate.ExecuteNonQuery() If myresult 0 Then MsgBox(更新成功！) Else MsgBox(更新失败！) End If Catch ex As Exception MsgBox(ex.ToString) End Try connection.Close() End Using End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As Sys

52、tem.EventArgs) Handles Button2.Click Me.Hide() End SubEnd Class新增读者管理界面代码：Imports System.Data.SqlClientPublic Class Form7 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim connectionstring As String = server=localhost;attachdbfilename=H:作

53、业设计WindowsApplication1数据lb.mdf;integrated security=true; Dim commandtextinsert As String = insert into reader(sno,sname)values(id,name) Using connection As New SqlConnection(connectionstring) connection.Open() Dim cmdinsert As SqlCommand = New SqlCommand(commandtextinsert, connection) cmdinsert.Para

54、meters.AddWithValue(id, TextBoxID.Text) cmdinsert.Parameters.AddWithValue(name, TextBoxName.Text) Try Dim result As Integer = cmdinsert.ExecuteNonQuery() If result 0 Then MsgBox(新增记录成功！) End If Catch ex As Exception MsgBox(ex.ToString) End Try connection.Close() End Using End Sub Private Sub Button2

55、_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Hide() End SubEnd Class读者信息维护界面代码：Imports System.Data.SqlClientPublic Class Form8 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim connectionstri

56、ng As String = server=localhost;attachdbfilename=H:作业设计WindowsApplication1数据lb.mdf;integrated security=true; Dim commandtextupdate As String = update reader set sname= name where sno=id Using connection As New SqlConnection(connectionstring) connection.Open() Dim cmdupdate As SqlCommand = New SqlCommand(commandtextupdate, connection) cmdupdate.Parameters.AddWithValue(id, TextBoxID.Text) cmdupdate.Parame