图书标准管理专业系统设计文

图书管理系统设计专业计算机应用学生姓名陈诚班级07五年制计算机班学号指导老师汪广舟完成日期-06-25图书管理系统设计摘要：随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作为实现语言，以数据库Access作为系统后台操作，其功效在系统内部有源代码直接完成。我们只需按系统要求输入即可操作。微软企业VB.NET是Windows应用程序开发工具，使现在最为广泛、易学易用面向对象开发工具。VB.NET提供了大量控件，这些控件可用于设计界面和实现多种功效，降低了编程人员工作量，也简化了界面设计过程，从而有效提升了应用程序运行效率和可靠性。故而，实现本系统VB.NET是一个相对很好选择。2信息管理系统叙述管理信息系统(简称MIS)是介于信息论，经济管理理论，统计学和运筹学及计算机科学之间一门边缘性，综合性，系统性交叉科学，它是伴随管理科学，信息技术，计算机技术等发展而产生和发展起来。图书管理系统是经典信息管理系统，其开发关键包含后台数据库建立和维护和前端应用程序开发两个方面。对于前者要求建立数据一致性和完整性，对于后者则要求应用程序功效完备，易用等特点。基于上述考虑本系统关键利用VB.NET作前端应用开发工具，利用Access作为后台数据库，利用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）性能需求。给出所开发新系统技术性能指标，包含存放容量限制、运行时间限制、安全保密性等。 在系统性能中采取Access高容量数据存放数据库，运行速度较快，工作效率高。（3）环境需求。这是对系统运行和所处环境要求。比如，在硬件方面采取什么机型、有什么硬件设备等；在软件方面，采取什么支持系统运行系统软件（指操作系统、数据库管理系统）。硬件需求基础配置：PIII1.0G以上机型，内存256M以上，硬盘空间30G。提议机型：P42.0G，内存256M，硬盘空间80G。软件需求操作系统：Win98/Me//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图书分类管理界面6.1.2用户注册技术实现用户注册技术关键代码以下：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添加图书界面6.2.2基础数据管理技术实现添加图书信息关键代码以下：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickIfMe.TextBox1.Text=""ThenMsgBox("图书名不能为空！")ExitSubEndIfIfMe.TextBox2.Text=""ThenMsgBox("图书别名不能为空！")ExitSubEndIfIfMe.TextBox3.Text=""ThenMsgBox("出版商不能为空！")ExitSubEndIfDimtext1AsString=Me.TextBox1.TextDimtext2AsString=Me.TextBox2.TextDimtext3AsString=Me.TextBox3.TextIfprocessDate.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用户浏览界面6.3.2用户浏览技术实现用户浏览实现技术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")EndSub6.3.3其它技术实现在本系统中为便于快速开发自己编写了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()CatchexAsExceptionDimstrErrorAsString=ex.Message.ToStringDimsAsString=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")lstUser.DisplayMember="username"lstUser.ValueMember="userid"EndSubPublicSubgetBookLend(ByVallstBookAsListBox)Di