vb.net图书管理系统设计毕业设计论文

图书管理系统设计摘要：随20世纪末，随着计算机科学的发展，计算机技术在管理上越来越深化而广泛的应用，信息管理系统的实施在技术上已逐步成熟。信息管理系统是一个不断发展的新型学科，企事业单位要生存要发展，要高效率地把部门活动有机地组织起来，就必需加强管理，即加强对各个部门内部的各种资源（人、财、物等）的有效管理，建立与自身特点相适应的管理信息系统。本文探讨了一种基于数据库图书管理系统，与传统的管理方式相比，具有用户运用更简洁、界面更直观等优点。图书管理的信息化在我国刚起步，但发展很快。随着我国互联网的更加普及和电子商务的更趋成熟，会有越来越大的消费群体，市场潜力会得到充分发挥。本文中所做的主要工作如下：(1)介绍了运用VB.NET的常用应用于系统的一般原理；(2)阐述整个窗体生成系统的系统结构及工作原理；分析了系统实现中的特殊性、难点和重点。(3)设计实现用户登陆以及管理图书、图书借阅、用户管理、查询书籍、归还书籍等功能。(4)分析并解决实现中的若干技术问题。(5)建立完整的图书管理系统，进行测试并分析结果。关键词：图书管理连接数据库目录TOC\o"2-3"\f\h\z\t"标题1,1"1、 概述 11.1开发的意义及背景 11.2国内外发展概况 11.3数据库的选择 21.4开发语言 32信息管理系统论述 32.1信息管理系统开发方法 42.2信息管理开发过程 43系统分析 53.1系统调研 53.2可行性分析概述 63.3技术可行性分析 73.4系统需求分析 83.5数据流程图 94系统总体设计 94.1图书管理系统 94.2图书管理系统结构设计图 95图书管理系统数据库结构分析设计 105.1图书信息表 105.2图书借阅信息表 105.3用户信息表 116界面设计及技术实现 116.1系统管理 116.1.1用户注册管理具体界面图 116.1.2用户注册技术实现 126.2基础数据管理 136.2.1基础数据管理具体界面图 136.2.2基础数据管理技术实现 146.3管理 146.3.1用户阅读管理具体界面图 156.3.2用户阅读技术实现 156.3.3其他技术实现 157结束语 208致谢 21参考文献 21概述1.1开发的意义及背景目前计算机已经成为我们学习和工作的得力助手：今日，计算机的价格已经特别低廉，性能却有了长足的进步。它已经被应用于很多领域，计算机之所以如此流行的缘由主要有以下几个方面：首先，计算机可以代替人工进行很多繁杂而有重复性的劳动；其次，计算机可以节约很多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏感文档更加平安；第五，便于管理人员的管理等等。要实现这样的功能，离不开后台数据库的支持。用户验证信息，收集到的用户点击信息，主题层次信息，分析得出的关联规则表等大量的数据都由数据库管理系统管理。本文中数据库服务器端采纳了MicrosoftAccess数据库作为数据源，并进行数据库存取等操作，使与数据库紧密联系起来。图书管理系统是一个图书馆单位不行缺少的部分，它的功能对于图书管理的快速和高效的管理图书信息及借阅信息致关重要，所以图书管理系统应当能够为用户供应足够的信息和快捷的查询手段。但始终以来人们运用传统人工的方式进行图书管理，这种管理方式存在着很多缺点，如:效率低、时间长、易冲突、不完备。作为计算机应用的一部分，运用计算机对图书信息进行借阅管理，具有手工管理所无法比拟的优点。例如：管理速度快、查找便利、牢靠性高、成本低等。这些优点能够极大地提高图书管理中的效率，也是图书馆的科学化、正规化、信息化管理，与世界接轨的重要条件。本文作者主要完成图书管理的管理图书、图书借阅、用户管理、查询书籍、实现与完善以及整个系统的设计和测试工作。1.2国内外发展概况图书借阅管理系统的发展历史可以追溯到20世纪60年头末期。由于当时计算机技术已经进入好用阶段，同时大型图书馆用手工来查找图书信息或统计借阅信息既费时费劲又特别简洁出差错，为了解决这个冲突，第一代的图书借阅管理系统应运而生。当时由于技术条件和需求的限制，用户特别少，它的出现为图书借阅的管理展示了美妙的前景，即用计算机的高速度和自动化来代替手工的巨大工作量，用计算机的高精确性来避开手工的错误和误差。其次代的图书借阅管理系统出现于20世纪70年头末。由于计算机技术的飞速发展，无论是计算机的普及性，还是计算机系统工具和数据库技术的发展，都为图书借阅管理系统的阶段发展供应了可能。但未能系统地考虑图书借阅的需求和理念。图书借阅管理系统的革命性变革出现在20世纪90年头末。随着信息爆炸、学问经济时代的到来，使个人、单位、社会对图书借阅管理系统有了更高的需求；同时由于个人电脑的普及，数据库技术、客户/服务器技术，特殊是Internet/Intranet技术的发展，使得第三代图书借阅管理系统的出现成为必定。第三代图书借阅管理系统的特点是从图书借阅管理的角度动身，用集中的数据库处理几乎全部与图书借阅相关的数据。友好的用户界面，强有力的报表生成工具、分析工具和信息的共享使得图书借阅管理人员得以摆脱繁重的日常工作，集中精力从战略的角度来考虑图书借阅规划和政策。管理信息系统的开发方法有生命周期法、原型法和面对对象的开发等。生命周期法（LifeCycleMethod）是20世纪60年头发展起来的一种应用广泛且比较成熟的管理系统开发方法，它的基本思想是将系统的开发工作从起先到结束划分为若干个阶段，每个阶段都有明确的任务，而系统开发出来后，并不意味着生命周期的结束，而意味着依据组织的须要对系统的修改和重建的起先；原型法(PrototypingMethod)是20世纪80年头发展起来的，旨在变更生命周期法的缺点的一种系统开发方法，该法的开发思路是首先依据用户的要求，由用户和开发者共同确定系统的基本要求和主要功能，利用系统快速生成工具，建立一个系统模型，再在此基础上与用户沟通，将模型不断补充、修改、完善，如此反复，最终直至用户和开发者都比较满足为止，从而形成一个相对稳定、较为志向的管理信息系统；面对对象（ObjectOriented）的开发方法于20世纪80年头起先兴起的，是一种基于问题对象的自底向上的一种系统开发方法，这种方法的特点是以对象为基础，对象是分析问题和解决问题的核心。基于以上三种方法的特点和各自的优缺点，本图书馆管理系统利用软件工程化思想和方法，总体上是采纳结构化生命法进行系统分析和设计的，而系统实现等步骤则采纳了原型法和面对对象的方法。1.3数据库的选择当今时代是飞速发展的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。运用计算机进行信息限制，不仅提高了工作效率，而且大大的提高了其平安性。

尤其对于困难的信息管理，计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开发亲密相关，系统的开发是系统管理的前提。本系统就是为了管理好图书馆信息而设计的。

图书馆作为一种信息资源的集散地，图书和用户借阅资料繁多，包含很多的信息数据的管理，现今，有很多的图书馆都是初步起先运用，甚至尚未运用计算机进行信息管理。依据调查得知，他们以前对信息管理的主要方式是基于文本、表格等纸介质的手工处理，对于图书借阅状况（如借书天数、超过限定借书时间的天数）的统计和核实等往往采纳对借书卡的人工检查进行，对借阅者的借阅权限、以及借阅天数等用人工计算、手抄进行。数据信息处理工作量大，简洁出错；由于数据繁多，简洁丢失，且不易查找。总的来说，缺乏系统，规范的信息管理手段。尽管有的图书馆有计算机，但是尚未用于信息管理，没有发挥它的效力，资源闲置比较突出，这就是管理信息系统的开发的基本环境。

数据处理手工操作，工作量大，出错率高，出错后不易更改。图书馆实行手工方式对图书借阅状况进行人工管理，由于信息比较多，图书借阅信息的管理工作混乱而又困难；一般借阅状况是记录在借书证上，图书的数目和内容记录在文件中，图书馆的工作人员和管理员也只是当时对它比较清晰，时间一长，如再要进行查询，就得在众多的资料中翻阅、查找了，造成查询费时、费劲。如要对很长时间以前的图书进行更改就更加困难了。

基于这此问题，我认为有必要建立一个图书管理系统，使图书管理工作规范化，系统化，程序化，避开图书管理的随意性，提高信息处理的速度和精确性，能够刚好、精确、有效的查询和修改图书状况。依据上述的分析，我们选择了可移值性强的ACCESS数据库做为后台数据库。1.4开发语言本系统所采纳的是当前较为流行的编程软件VB.NET作为实现语言，以数据库Access2000作为系统的后台操作，其功能在系统内部有源代码干脆完成。我们只需按系统要求输入即可操作。微软公司的VB.NET是Windows应用程序开发工具，使目前最为广泛的、易学易用的面对对象的开发工具。VB.NET供应了大量的控件，这些控件可用于设计界面和实现各种功能，削减了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和牢靠性。故而，实现本系统VB.NET是一个相对较好的选择。2信息管理系统论述管理信息系统(简称MIS)是介于信息论，经济管理理论，统计学与运筹学及计算机科学之间的一门边缘性，综合性，系统性的交叉科学，它是随着管理科学，信息技术，计算机技术等的发展而产生和发展起来的。图书管理系统是典型的信息管理系统，其开发主要包括后台数据库的建立和维护以及前端的应用程序的开发两个方面。对于前者要求建立数据的一样性和完整性，对于后者则要求应用程序功能的完备，易用等的特点。基于上述考虑本系统主要利用VB.NET作前端的应用开发工具，利用Access2000作为后台的数据库，利用WINDOWS作为系统平台开发的图书管理系统的运行平台。另外本图书管理系统利用软件工程化思想和方法，总体上是采纳结构化生命法进行系统分析和设计的，而系统实现等步骤则采纳了原型法和面对对象的方法。2.1信息管理系统开发方法管理信息系统的开发方法有生命周期法、原型法和面对对象的开发方法等：生命周期法（LifeCycleMethod）是20世纪60年头发展起来的一种应用广泛且比较成熟的管理系统开发方法，它的基本思想是将系统的开发工作从起先到结束划分为若干个阶段，每个阶段都有明确的任务，而系统开发出来后，并不意味着生命周期的结束，而意味着依据组织的须要对系统的修改和重建的起先。原型法(vb)是20世纪80年头发展起来的，旨在变更生命周期法的缺点的一种系统开发方法，该法的开发思路是首先依据用户的要求，由用户和开发者共同确定系统的基本要求和主要功能，利用系统快速生成工具，建立一个系统模型，再在此基础上与用户沟通，将模型不断补充、修改、完善，如此反复，最终直至用户和开发者都比较满足为止，从而形成一个相对稳定、较为志向的管理信息系统。面对对象（ObjectOriented）的开发方法于20世纪80年头起先兴起的，是一种基于问题对象的自底向上的一种系统开发方法，这种方法的特点是以对象为基础，对象是分析问题和解决问题的核心。2.2信息管理开发过程一个信息管理系统的开发过程一般包括如下几个步骤：（1）需求分析：需求分析主要是了解用户的需求。需求了解得越具体，程序的后期开发与维护费用就会越少。一般的开发团队中，需求分析都是由资格较深的系统分析员或项目经理担当，可见它的重要性。需求分析制订好后，须要反复修改。将最终的结果交给用户审定，确认无误后，由系统分析员完成需求分析文档，再起先下一步工作。（2）概要设计：概要设计紧跟在需求分析之后。用户需求明确后，将得到的数据分析后，起先构建数据库的逻辑结构。此时，数据库中的表格还未成形，通过各种分析工具画出数据流图，最终就可抽象出数据库的具体表结构。这时由系统分析人员反复审核。确认全部的需求都考虑在内，没有遗漏后，就可以起先制订概要设计文档。概要设计文档形成后，整个程序的逻辑框架也就形成了。（3）具体设计：概要设计完成后，依据设计中制订的业务模块。就可以进行具体分析设计了。具体设计就是将各个业务模块的窗口全部建好，各个窗口控件的处理代码全部用语言表达出。所以具体设计是整个系统中最繁琐的环节。具体设计完成后，整个程序就确定了，再由编程人员依据具体设计文档将代码完成。整个开发工作就宣告结束。（4）程序编码：程序编码相对于其他环节来说比较简洁，程序员只须要依据具体分析文档写程序编码，保证代码没有错误即可。程序编码须要留意的是整个程序书写中命名的规范化与编程风格的规范化，这须要较长时间的培育来形成。须要在不断的实践中形成自己独特的风格。总的来说，不要过分地追求困难的算法，因为那可能会导致后期维护人员无法读懂你的代码而造成维护的困难。（5）测试：程序编码完成后，就须要测试。测试有几种类型，主要是测试代码有无逻辑错误以及在加载数据环境下程序的稳定性问题。测试工作中发觉的错误应刚好改正，然后将它记录到测试文档中。（6）打包：测试完成，确认无误后。程序就可以打包发行了。打包一般运用工具等。以上是一个完整的MIS系统开发过程，其实不仅MIS系统，其他类型的程序开发也基本相同。3系统分析3.1系统调研正式开发管理信息系统之前进行调研是特别必要的，其必要性主要表现在以下几个方面。（1）明确用户的要求，以依据调查结果进行可行性分析，确认系统的开发是否可行。（2）提出新系统的人员并不都是系统探讨人员，有些人对于其功能和处理数据的方法没有明确的相识。它们只是依据自己业务工作的须要提出了要求，系统开发人员要对此进行具体的调查和分析，确认用户的要求可以通过现有的计算机技术实现，保证开发的管理信息系统的功能与用户提出的要求相吻合。（3）现行操作可能是手工操作，也可能是运用和计算机的系统，无论是何种状况，都要具体地调查现行系统中信息处理的具体状况，系统内部功能结构，以便设计出一个合理的、好的新系统逻辑模型，为新系统的设计工作打好基础，保证整个系统开发的质量。总之，必要对现行系统进行具体的调查，明确用户需求，保证开发的新系统的功能与用户的要求相吻合，避开耗费大量的人力、物力、财力，新系统的开发却失败的悲剧发生。3.2可行性分析概述可行性分析是在用户的要求和系统调研的基础上进行的，对新系统的开发从社会、技术、经济、管理等方面进行分析，并得出新系统的开发工作可行、不行行、须要修改、追加投资、暂缓开发、分步实施等方案和结论，最终完成可行性分析。可行性分析一般可定义为：可行性分析是在建设的前期对工程项目的一种考察和鉴定，对拟议中的项目进行全面与综合的技术、经济实力的调查，推断它是否可行。(1)可行性分析阶段的主要工作包括以下几个方面：①新系统目标可行性分析：分析新系统的目标是否符合企业的现状和发展的须要。②社会可行性分析：社会可行性分析主要是指管理信息系统的开发是否符合国家法律、下策，是否能够与社会大系统实现良好的对接。③技术可行性分析：技术可行性分析是依据新系统的目标来衡量是否具备所须要的技术，包括系统开发人员数量和水平，硬件方面，软件方面及其它应用技术。④经济可行性分析经济可行性分析主要是对开发新系统所投入的资金与系统投入运用后所带来的经济效益进行比较，确认新系统是否会给企业带来肯定的经济效益。⑤管理可行性分析：管理可行性分析主要是分析目前现行的管理体制是否具有现代化的管理意识和管理水平。3.3技术可行性分析技术可行性分析主要包括四个方面：目前有关的技术能否支持所开发的新系统；新系统开发人员的数量和水平，即人力资源；硬件和软件资源。（1）技术支持：首先依据新系统的目标，考虑目前有关的技术能否支持所开发的新系统。这里探讨的技术必需是已经普遍运用的，而不是待探讨的或正在探讨的。（2）硬件资源：开发管理信息系统所需的硬件资源包含以下两个方面：系统开发人员在管理信息系统的开发过程中所须要的计算机设备及其有关的外部设备；管理信息系统开发胜利投入运用后，运用单位所应具备的计算机设备及其有关的外围设备。对硬件资源进行可行性分析时主要考虑计算机的主机内存、类型、功能、联网实力、平安爱护措施以及输入/输出设备，外存储器和联网数据通信设备的配置、功能、效率等指标是否符合系统方案设计要求，同时还要考虑计算机的性能、价格比。（3）软件资源软件资源的可行性分析主要考虑以下几点是否满足用户的要求：①操作系统的选择；②编译系统的选择；③数据库管理系统的选择；④高级编程语言的选择；⑤汉字处理系统的选择；⑥应用软件包的选择。本系统在开发前，与中心的领导和有关的操作人员亲密沟通，仔细听取他们的看法，并汲取他们的主动观点，使本系统的开发在相当大的程度上具有肯定的先进性和合理性。3.4系统需求分析系统分析是开发管理信息系统的关键性阶段，是一个从不断相识和逐步细化的过程，是下一阶段的工作基础，是为下一阶段进行物理方案设计、解决“怎么做”供应依据，基关键性主要体现在“理解需求”和“表达需求”两方面。通过对现行系统的具体调研，主要是从系统的角度理解用户的须要，确定新系统的综合要求，并提出这些需求的实现条件以及需求应达到的标准，也就是确定新系统要做什么，做到什么程度。这些需求包括：（1）功能需求。确定新系统应做什么，这是最主要的需求。图书管理系统在功能是要求：1．完成对用户信息、图书信息的基础数据的录入、修改和删除功能。2．实现查询用户信息和图书借出状况、可以借阅状况。3．实现借书功能功能。4．实现返还功能。（2）性能需求。给出所开发的新系统的技术性能指标，包括存储容量限制、运行时间限制、平安保密性等。 在系统的性能中采纳Access2000高容量数据存储的数据库，运行速度较快，工作效率高。（3）环境需求。这是对系统运行以及所处环境的要求。例如，在硬件方面采纳什么机型、有什么硬件设备等；在软件方面，采纳什么支持系统运行的系统软件（指操作系统、数据库管理系统）。硬件需求基本配置：PIII1.0G以上机型，内存256M以上，硬盘空间30G。建议机型：P42.0G，内存256M，硬盘空间80G。软件需求操作系统：Win98/Me/2000/XPMicrosoftWindows系列操作系统在运用和维护上比较便利，开发工具也较多，它也在企业及单位应用较多。为便利本系统普及运用它支持Windows系列各种版本的操作系统。（4）将来需求。这类要求是指目前不属于系统开发的范围，但将来随着外界环境的变更以及系统的发展可能会提出的要求。了解这类要求的目的是在开发过程中，可对系统将来可能的扩展与修改做打算。一旦须要时，就比较简洁进行补充和修改了。3.5数据流程图数据流程图是描述系统逻辑模型的主要工具，通过几个特定的符号，可以综合地反映出信息在系统中的运用、加工处理、传递、存储的整体状况。数据流程图是系统结构化分析行之有效的工具，它抽象地描述了系统数据处理的状况，但却无法表达各个处理的具体内容，因此还要对数据流程图中出现的数据流和处理等做进一步的补充说明，这就是数据字典和变换逻辑说明。4系统总体设计 4．1图书管理系统 图书管理系统是针对图书馆开发的一套图书管理的系统，依据目前图书馆的现状，实际开发。管理可以运用图书管理系统，查询本图书管借阅的图书，以后目前图书状况，以及可以管理图书、添加图书、图书的借阅、用户管理、等等全部信息。4．2图书管理系统结构设计图一个典型的图书管理系统的系统总体构成如图2-1所示图书管理系统图书管理系统系统基础数据管理新注册用户添加图书用户阅读退出图书管理借书返还我的图书可以借阅已经借出图4-1系统总体构成目前，因为时间关系，我们的毕业设计主要着重于开发了图书后台管理系统。5图书管理系统数据库结构分析设计图书管理系统数据库结构主要分用户信息表、图书信息表、借阅信息表等几部分组成。表5-1图书管理系统数据表序号名称含义主要字段主要作用及关系备注（表头字）1User_info用户信息表User_id,user_name存储着全部的用户信息公用表2Book_info图书信息表Book_id,book_name保存着图书的信息公用表3Book_lend图书借阅表Book_id,user_id保存着借阅信息公用表5．1图书信息表为实现图书项目数据进行明细存储，以便以后查询，设计该表为各个图书的明细信息表。该数据是从各个基本信息添加、编辑得来。表5-2图书信息表序号字段字段名类型长度索引备注（表头字）1Bookid图书编号自动编号8主键2Bookname图书名文本型20辅键3Authorname作者文本型204Publishername出版社文本型1005available是否借阅数字型15．2图书借阅信息表图书借阅信息表主要是对用户借阅信息的存储，通过该表可以对图书信息管理系统中的用户借阅信息进行管理，基本数据表结构如下：表5-3图书借阅信息表序号字段字段名类型长度索引备注（表头字）1Bookid图书编号数字8主键2Userid用户编号数字8辅键3Dateoflend借阅日期日期84dateofreturn归还时间日期85．3用户信息表用户信息表主要是对用户信息进行存储，通过该表对用户信息进行编辑操作，基本信息表结构如下表5-4图书用户信息表序号字段字段名类型长度索引备注（表头字）1userid自动编号自动编号8主键2Username用户姓名文本20辅键3Password密码文本204EmailedEmail文本205lend借阅标记文本206界面设计及技术实现图书管理系统通过简洁、一目了然的方法进行界面设计，主界面上可以一眼看出目前的各项目的基本状况，便利的查看各项目的具体明细等信息。主要包括分系统管理（用户注册信息等）、基础数据管理（添加图书管理）、管理（用户、图书管理、借书、还书等。6.1系统管理系统管理主要是对用户注册信息进行添加管理。当须要添加用户注册信息的时候，可以到系统管理中选择用户注册进行添加管理。6．1．1用户注册管理具体界面图用户注册管理界面图6-1图书分类管理界面用户注册技术实现用户注册技术主要代码如下：PrivateSubbtnSubmit_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesbtnSubmit.ClickIfMe.txtName.Text=""ThenMessageBox.Show("用户名不能为空！","Error",MessageBoxButtons.OK,MessageBoxIcon.Error)ElseIfMe.txtPassword.Text=""OrMe.txtPassword.Text<>Me.txtPassword2.TextThenMessageBox.Show("两次数据密码错误！","Error",MessageBoxButtons.OK,MessageBoxIcon.Error)ElseIfMe.txtEmail.Text=""ThenMessageBox.Show("邮箱不能为空！","Error",MessageBoxButtons.OK,MessageBoxIcon.Error)ElseDimstrNameAsString=Me.txtName.Text.ToString()DimstrPasswordAsString=Me.txtPassword.Text.ToString()DimstrEmailAsString=Me.txtEmail.Text.ToString()IfprocessDate.user_Reg(strName,strPassword,strEmail)=TrueThenMessageBox.Show("注册胜利！","Congratulations",MessageBoxButtons.OK,MessageBoxIcon.Information)ElseMessageBox.Show("注册失败！","Unfortunately",MessageBoxButtons.OK,MessageBoxIcon.Information)EndIfMe.Dispose()Me.displayFormMain()EndIfEndSub6.2基础数据管理基础数据管理主要对图书信息进行添加管理，图书信息可以干脆输入书的编号、书名进行图书注册。6．2．1基础数据管理具体界面图基础数据管理具体界面主要有添加图书信息组成，具体如下。添加图书信息界面添加图书界面图6-2添加图书界面基础数据管理技术实现添加图书信息主要代码如下：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickIfMe.TextBox1.Text=""ThenMsgBox("图书名不能为空！")ExitSubEndIfIfMe.TextBox2.Text=""ThenMsgBox("图书别名不能为空！")ExitSubEndIfIfMe.TextBox3.Text=""ThenMsgBox("出版商不能为空！")ExitSubEndIfIfprocessDate.user_Reg(text1,text2,text3)=TrueThenMessageBox.Show("注册胜利！","Congratulations",MessageBoxButtons.OK,MessageBoxIcon.Information)ElseMessageBox.Show("注册失败！","Unfortunately",MessageBoxButtons.OK,MessageBoxIcon.Information)EndIfEndSub6.3管理管理主要对图书信息、用户信息阅读、借书、还书信息进行操作。6．3．1用户阅读管理具体界面图用户阅读界面用户阅读界面图6-7用户阅读界面用户阅读技术实现用户阅读实现技术Me.pictureBox.Visible=FalseMe.label.Visible=Falseds.Clear()McData.getUser(ds,Me.dataGrid)PublicSubgetUser(ByValdsAsDataSet,ByValdataGridAsDataGrid)DimstrSQLAsString="SELECTuseridas用户编号,usernameas用户名,emailidasEmailFROMuser_info"excuteSQL.getUerData(strSQL,ds)dataGrid.DataSource=ds.Tables("user")EndSub其他技术实现在本系统中为便于快速开发自己编写了2个好用性很强的类，主要实现技术：操作数据库连接数据库类PublicClassExcuteDateDimconnAsOleDbConnectionDimcomdAsOleDbCommandDimstrConnAsString="provider=microsoft.jet.oledb.4.0;datasource="&CurDir()&"\database\library.mdb"PublicSubNew()conn=NewOleDbConnection(strConn)EndSubPublicFunctionExcuteSQL(ByValstrSQLAsString)conn.Open()comd=NewOleDbCommand(strSQL,conn)DimnAsIntegerTryn=comd.ExecuteNonQuery()CatchexAsExceptionDimstrErrorAsStringDimsAsString=strErrorFinallyconn.Close()EndTryIfn=1ThenReturnTrueElseReturnFalseEndIfEndFunctionPublicFunctiongetUerData(ByValstrSQLAsString,ByValdsAsDataSet)conn.Open()comd=NewOleDbCommand(strSQL,conn)DimdaAsNewOleDbDataAdapter(comd)da.Fill(ds,"user")conn.Close()EndFunctionPublicFunctiongetBookData(ByValstrSQLAsString,ByValdsAsDataSet)conn.Open()comd=NewOleDbCommand(strSQL,conn)DimdaAsNewOleDbDataAdapter(comd)da.Fill(ds,"book")conn.Close()EndFunctionPublicFunctiongetBookId(ByValstrSQLAsString)conn.Open()comd=NewOleDbCommand(strSQL,conn)DimbookIdAsInteger=comd.ExecuteScalar()conn.Close()ReturnbookIdEndFunctionPublicFunctioncheckUser(ByValstrSQLAsString,ByValstrPasswordAsString)conn.Open()comd=NewOleDbCommand(strSQL,conn)Dimstr=comd.ExecuteScalar()conn.Close()Ifstr=strPasswordThenReturnTrueElseReturnFalseEndIfEndFunctionEndClass阅读数据库、更新数据库类PrivateexcuteSQLAsNewExcuteDatePublicFunctionuser_Reg(ByValstrNameAsString,ByValstrPasswordAsString,ByValstrEmailAsString)DimstrSQLAsString="INSERTINTOuser_info(username,[password],emailid,lend)VALUES('"+strName+"','"+strPassword+"','"+strEmail+"',0)"ReturnexcuteSQL.ExcuteSQL(strSQL)EndFunctionPublicFunctionadd_Book(ByValtext1AsString,ByValtext2AsString,ByValtext3AsString)DimstrSQLAsString="INSERTINTObook_info(bookname,authorname,publishername)VALUES('"+text1+"','"+text2+"','"+text3+"')"ReturnexcuteSQL.ExcuteSQL(strSQL)EndFunctionPublicSubgetUser(ByValdsAsDataSet,ByValdataGridAsDataGrid)DimstrSQLAsString="SELECTuseridas用户编号,usernameas用户名,emailidasEmailFROMuser_info"excuteSQL.getUerData(strSQL,ds)dataGrid.DataSource=ds.Tables("user")EndSubPublicSubgetBook_CanBorrow(ByValdsAsDataSet,ByValdataGridAsDataGrid)DimstrSQLAsString="SELECTbookidas图书编号,booknameas图书名称,authornameas图书别名,publishernameas出版商FROMbook_infoWHEREavailable=1"excuteSQL.getBookData(strSQL,ds)dataGrid.DataSource=ds.Tables("book")EndSubPublicSubgetBook_hasLend(ByValdsAsDataSet,ByValdataGridAsDataGrid)DimstrSQLAsString="SELECTbookidas图书编号,booknameas图书名称,authornameas图书别名,publishernameas出版商FROMbook_infoWHEREavailable=0"excuteSQL.getBookData(strSQL,ds)dataGrid.DataSource=ds.Tables("book")EndSubPublicFunctionlendBook(ByValuserIdAsInteger,ByValbookIdAsInteger,ByValstrPasswordAsString)DimstrSQLAsString="SELECTpasswordFROMuser_infoWHEREuserid="&userIdDimstrSQL1AsString="UPDATEuser_infoSETlend=1WHEREuserid="&userIdDimstrSQL2AsString="UPDATEbook_infoSETavailable=0WHEREbookid="&bookIdDimstrSQL3AsString="INSERTINTObook_lend(bookid,userid,dateoflend,dateofreturn)VALUES("&bookId&","&userId&",'"&Date.Today&"','"&Date.Today.AddDays(30)&"')"DimbAsBoolean=excuteSQL.checkUser(strSQL,strPassword)Ifb=TrueThenMe.excuteSQL.ExcuteSQL(strSQL1)Me.excuteSQL.ExcuteSQL(strSQL2)Me.excuteSQL.ExcuteSQL(strSQL3)ReturnTrueElseReturnFalseEndIfEndFunctionPublicFunctionreturnBook(ByValuserIdAsInteger,ByValbookIdAsInteger,ByValstrPasswordAsString)DimstrSQLAsString="SELECTpasswordFROMuser_infoWHEREuserid="&userIdDimstrSQL1AsString="UPDATEuser_infoSETlend=0WHEREuserid="&userIdDimstrSQL2AsString="UPDATEbook_infoSETavailable=1WHEREbookid="&bookIdDimstrSQL3AsString="INSERTINTObook_lend(bookid,userid,dateoflend,dateofreturn)VALUES("&bookId&","&userId&",'"&Date.Today&"','"&Date.Today.AddDays(30)&"')"DimbAsBoolean=excuteSQL.checkUser(strSQL,strPassword)Ifb=TrueThenMe.excuteSQL.ExcuteSQL(strSQL1)Me.excuteSQL.ExcuteSQL(strSQL2)Me.excuteSQL.ExcuteSQL(strSQL3)ReturnTrueElseReturnFalseEndIfEndFunctionPublicSubgetUserLend(ByVallstUserAsListBox)DimdsAsNewDataSetDimstrSQLAsString="SELECTuserid,usernameFROMuser_infowherelend=0"Me.excuteSQL.getUerData(strSQL,ds)lstUser.DataSource=ds.Tables("user")