图书借阅的管理系统

【摘要】本课题针对当前我国图书借阅管理多数采用人工管理的现状以及即使采用了计算机图书管理系统却不能完全满足本单位图书管理的需要的实际情况出发，对图书管理业务经过详细的系统调查，开发出的操作简单而且方便实用的一个图书借阅管理系统，以适应新时代开展的需要。本系统使用VisualBasic6.0开发工具，主要使用SQL语句，结合Access数据库、VB的DAO数据访问对象，DATA控件和ADO控件来实现数据库的操作。图书借阅管理系统主要对图书管理日常工作中遇到的实际问题，例如书籍信息、读者信息、借阅信息、能够实现以下任务：用户分级权限操作、借还图书操作、书库维护操作等。本系统经过测试，运行稳定，可投入使用。【关键词】图书；Visualbasic6.0；ACCESS；读者；借阅前言随着计算机技术的不断开展，计算机作为知识经济时代的产物，已被广泛应用于社会各个行业和领域。目前，我国的科技水平高速开展，计算机作为今天使用最广的现代化工具已深入到各个领域，并且正在成为未来社会——信息社会的重要支柱。在这样的大背景下，现代图书馆的管理方式，资源建设等方面都发生了重大变化，这种变化表现在图书馆工作，管理和效劳平台发生的变化，图书馆不再是传统的手工操作，人工管理，而是全面实行计算机管理。图书馆的正常运营中总是面对大量的读者信息，图书信息以及两者相互作用产生的借书信息，因此要对读者资源，图书资源，借书信息进行管理。本系统的开发就是在于提高图书管理的工作效率，加强图书馆的管理，全面实行计算机管理。第一章图书借阅管理系统概述1.1图书借阅管理系统简介1、图书借阅管理系统的开展历史图书借阅管理系统的开展历史可以追溯到20世纪60年代末期。由于当时计算机技术已经进入实用阶段，同时大型图书馆用手工来查找图书信息或统计借阅信息既费时费力又非常容易出过失，为了解决这个矛盾，第一代的图书借阅管理系统应运而生。当时由于技术条件和需求的限制，用户非常少，它的出现为图书借阅的管理展示了美好的前景，即用计算机的高速度和自动化来代替手工的巨大工作量，用计算机的高准确性来防止手工的错误和误差。第二代的图书借阅管理系统出现于20世纪70年代末。由于计算机技术的飞速开展，无论是计算机的普及性，还是计算机系统工具和数据库技术的开展，都为图书借阅管理系统的阶段开展提供了可能。但未能系统地考虑图书借阅的需求和理念。图书借阅管理系统的革命性变革出现在20世纪90年代末。随着信息爆炸、知识经济时代的到来，使个人、单位、社会对图书借阅管理系统有了更高的需求；同时由于个人电脑的普及，数据库技术、客户/效劳器技术，特别是Internet/Intranet技术的开展，使得第三代图书借阅管理系统的出现成为必然。第三代图书借阅管理系统的特点是从图书借阅管理的角度出发，用集中的数据库处理几乎所有与图书借阅相关的数据。友好的用户界面，强有力的报表生成工具、分析工具和信息的共享使得图书借阅管理人员得以摆脱繁重的日常工作，集中精力从战略的角度来考虑图书借阅规划和政策。1.2图书借阅管理相关软件简介随着计算机的开展及网络技术的应用，当今社会正快速向信息化社会前进，信息自动化的作用也越来越大。而在日常生活中信息技术的不断融入，在技术越来越先进的同时，应该从以前繁琐的事务中解放出来，来提高我们的工作效率。目前在大的图书馆已经有一整套比拟完整的信息管理系统，而在一般小型的图书馆中大局部工作还是进行着手工管理，工作效率很低，并且不能及时了解图书馆各类图书的存库，读者比拟需求的图书难以在短时间找到、图书的入库和更新比拟麻烦等等，不便于动态及时调整图书结构。同时由于不可防止的人为因素，造成数据的遗漏、误报等。为了更好的适应当前读者的借阅需求，缓解手工管理存在的各种弊端，我们开发了图书馆查询管理系统，图书查询管理系统向用户提供的效劳将传统的“采——编——借——查〞根底上，进一步提供全方位的信息效劳。具有以下几个特点：可以存储所有馆中图书的资料以及借阅人员的情况，具有安全，高效的特性。只需一至二名档案录入人员即可操作系统，节省大量人力。可以迅速查到所需信息。用户的需求可分为如下4个方面：第一是图书馆人员通过计算机来管理各种图书、编号、增加图书库存、适应读者的需求；第二是读者能通过计算机来查询浏览图书馆中的图书，来确定自己需要的书籍，为借阅做好准备；第三是管理员可以对管理者和操作员及读者进行增删改；第四是工作人员对读者的借书情况能做好全面掌握，对图书的借阅进行管理。在软硬件方面对系统的需求，软件要求易学，容易掌握，可以很方便地管理各种图书信息。硬件的配置要求不能太高，这样可以很好的适应当前的学校图书馆。在开发过程中，采用了SQLServer2000网络数据库，使得本系统可以方便的和其他子系统进行数据交换。同时，注意从软件的图形应用界面上优化软件质量，使得本系统具有较强的可操作性。总之，图书管理系统旨在提供一个可以操作的，查询的，易于修改的辅助管理系统。同时提供了系统智能辅助与用户自主选择的两种方式，提高查询效率。第二章图书借阅管理系统分析2.1系统初步调查我所在的学校，在三年的时间里，我经常光临我校图书馆借阅图书，发现我校图书馆的借阅操作仍使用手工管理。在本系统被批准立项之后，我实地去我校图书馆进行了参观和学习，现对该单位图书馆的整体情况进行调研，调研分两步进行，一是初步调研，二是详细调研。由于该图书馆职工人数较少，因此在调研时采用了会议讨论法和个人访谈法两种方法，通过会议讨论法了解图书馆的整体情况，对开发新系统的态度等。通过个人访谈法了解各个部门的主要职能及具体运作方式、过程等。对该图书馆进行初步调研的具体内容为：〔1〕图书馆的规模：现藏书册数、种类；〔2〕图书馆的主要业务；〔3〕图书馆中的几个部门；〔4〕图书馆职工情况；〔5〕职工受教育程度；〔6〕主要购书单位；〔7〕图书编码方式；〔8〕现在多少读者在此借书；〔9〕读者借书凭证；〔10〕读者分类；〔11〕图书馆的上级领导；〔12〕对开发新系统的态度；〔13〕开发新系统所需的时间〔规定多长时间开发完成〕。2.2现行业务描述我校图书馆现在藏书七十余万册，分为社会、人文、哲学、数理、工具、期刊等六大类，图书馆的主要业务是对图书进行入库、出库管理、借阅管理、读者管理等，图书馆分为采购处、办公室、借阅室、阅览室、工具书期刊室，职工相应地分为图书采购小组、书籍维护小组、借阅室工作人员、阅览室工作人员。图书编码采用国家标准进行编码，如类别＋小类＋序号的方式。现有7000多人借阅，读者分为教职员工和学生，图书馆的上级领导是总务处，对开发新系统持支持态度，开发本系统约需2个月时间。2.3系统详细调查及平安性绝大多数管理人员已经认识到采用图书借阅管理系统的必要性，纷纷开发或选购适合本企业特点的图书借阅管理系统。图书借阅管理系统具体以下优点：1、采用图书借阅管理系统，可以用集中的数据库将与图书借阅管理相关的信息全面、有机地联系起来，有效地减少了信息更新和查找中的重复劳动，保证了信息的相容性，从而大大地提高了工作效率。2、图书借阅管理系统有着易访问、易查询的信息库。在没有采用和实施图书借阅管理系统之前，当管理人员要统计数字时，往往依赖于某个人或某些人来获取。这种依赖于人的过程往往会因为花费的时间较长或某个人不在办公室而不能及时完成。在采用和实施图书借阅管理系统之后，就会将依赖于人的过程改为依赖于计算机系统的过程。管理人员只要获取了相应的权限，就可以随时进入系统，直接查阅相应的信息。实施了图书借阅管理系统之后，不仅可以得到较为全面的、详细的、未经过过滤的第一手图书借阅信息，还可以从这些信息中得到某些有用的决策信息及灵感和启发，从而改良图书馆的管理及经营效率，防止或减少经营风险。第三章新系统逻辑方案3.1数据流图登陆系统登陆系统新书入库 借书还书修改用户信息删除图书删除用户信息添加用户信息查询修改图书管理员用户用户信息修改操作员信息添加操作员信息删除操作员信息查询操作员信息操作员信息图书信息借出信息查询用户信息图3.1系统的数据流图3.2数据字典图书管理系统数据流图中，数据信息和处理过程需要通过数据字典才能描述清楚。在定义的图书管理系统数据字典中，主要对数据流图中的数据项、数据流、数据存储和处理过程进行说明。数据项描述1〕数据项名称：借书证号含义说明：惟一标识一个借书证类型：字符型长度：50逻辑关系：不允许为空2〕数据项名称：用户名含义说明：读者的名称类型：字符型长度：20逻辑关系：不允许为空3〕数据项名称：密码含义说明：对用户名和操作员管理员进行加密类型；字符型长度：10逻辑关系：允许为空4〕数据项名称：性别类型：字符型长度：10逻辑关系：允许为空5〕数据项名称：所在系别类型；字符型长度：10逻辑关系：允许为空6〕数据项名称：所在班级类型：字符型长度：10逻辑关系：允许为空7〕数据项名称：操作员名称类型：字符型长度：30逻辑关系：不允许为空8〕数据项名称：操作员简称含义说明：惟一标识一个操作员类型：字符型长度：10逻辑关系：不允许为空9〕数据项名称：操作员级别含义说明：对操作员和管理员进行区分类型：字符型长度：10逻辑关系：不允许为空10〕数据项名称：图书编号含义说明：惟一标识一个图书类型：字符型长度：10逻辑关系：不允许为空11〕数据项名称：图书名称类型：字符型长度：50逻辑关系：不允许为空12〕数据项名称：作者类型：字符型长度：50逻辑关系：不允许为空13〕数据项名称：作者类型：字符型长度：50逻辑关系：不允许为空14〕数据项名称：作者类型：字符型长度：50逻辑关系：不允许为空15〕数据项名称：出版社类型：字符型长度：50逻辑关系：不允许为空16〕数据项名称：出版时间类型：日期时间型长度：8逻辑关系：不允许为空17〕数据项名称：价格类型：整型长度：4逻辑关系：不允许为空18〕数据项名称：备注类型：字符型长度：200逻辑关系：允许为空19〕数据项名称：借书日期类型：日期时间长度：8逻辑关系：不允许为空20〕数据项名称：还书日期类型：日期时间长度：8逻辑关系：不允许为空〔2〕数据结构描述1〕数据流名称：用户情况含义说明：定义了一个读者的有关信息组成结构：用户情况=用户名+借书证号+密码+性别+所在系别+所在班级2〕数据流名称：操作员情况含义说明：定义了一个操作员的有关信息组成结构:操作员情况=操作员名称+操作员简称+操作员级别+操作员密码数据流名称：图书情况含义说明：定义了一个图书的有关信息组成结构：图书情况=图书编号+图书名称+作者+出版社+出版时间+价格+备注数据流〔非数据项〕说明1〕数据流名称：借书单含义：读者借书时要填写的单据来源：读者去向：审核借书数据流量：250份/天组成：借书单=借书证号+图书编号+借书日期2〕数据流名称：还书单含义：读者还书时要填写的单据来源：读者去向：审核还书数据流量：250份/天组成：还书单=图书编号+还书日期数据存储说明数据存储名称：图书数据表含义说明：存放图书的有关信息组成结构：图书编号+图书名称+作者+出版社+出版时间+价格+备注说明；书号具有惟一性和非空性2〕数据存储名称：用户信息表含义说明：存放读者的注册信息组成结构：用户名+借书证号+密码+性别+所在系别+所在班级说明：证号具有惟一性和非空性，性别只能是男和女3〕数据存储名称：借书记录含义说明：存放读者的借书，还书信息组成结构：借书证号+图书编号+借书日期+还书日期说明：要求能够立即查询处理过程说明1〕处理过程名称：图书管理输入：图书情况，输出：图书记录处理说明：对馆内所有图书按图书编号进行管理，将图书数据数据化，存储图书数据表中。2〕处理过程名称：读者管理输入：读者情况，输出：读者记录处理说明：建立读者信息表，对读者进行统一编号，实现读者记录表的增删改维护功能。3〕处理过程名称：查看数目输入：借书请求，读者，，输出：借书记录，图书信息处理说明：实现根据图书编号等查询图书。4〕处理过程名称：借书处理输入：图书情况，读者，借书记录输出：借书记录处理说明：确认读者符合借书条件，办理借书手续。5〕处理过程名称：还书处理输入：图书情况，输出：借书记录处理说明：对照相应的图书编号可办理还书手续。6〕处理过程名称：平安管理输入：操作员情况，用户情况输出：操作员级别，操作员记录，用户记录处理说明：通过用户名和口令，确认用户身份，保证系统的平安型。第四章系统详细设计4.1图书借阅管理系统模块设计举例在进行系统的详细设计时，我们先进行了系统的总体设计流程图，如图4-1所示，然后是子系统的流程图，如图4-2及4-3所示4-1图书借阅总体设计流程图用户登陆用户登陆借书证号正确？图书编号正确？借书日期借阅成功查看所借图书4-2子系统借书流程图用户登陆用户登陆还书日期图书编号正确？超期提示还书查看所借图书4-3子系统还书流程图4.2数据库设计4.2.1数据表的设计用户表的设计如表4-1所示表4-1用户表字段名是否主键字段类型字段大小是否为空用户名username否char20否借书证号cid是number11否regTime否datetime100否密码password否varchar220否性别sex否char2是所在系别department否varchar210是所在班级class否varchar210是操作员信息表的设计如表4-2所示表4-2操作员信息表字段名是否主键字段类型字段大小是否为空操作员名称否Char30否操作员简称是Char10否操作员级别否Char10否操作员密码否char30否图书数据表的设计如表4-3所示表4-3图书数据表字段名是否主键字段类型字段大小是否为空图书编号是char10否图书名称否Char50否作者否Char50否出版社否Char50否出版时间否Datetime8否分类否Varchar220否备注否char200是借阅图书信息的设计如表4-4所示表4-4借阅图书信息字段名是否主键字段类型字段大小是否为空借书证号是number20否图书编号是number20否借书日期否Datetime8是还书日期否Datetime8是4.2.2本系统中所涉及到的主要实体图系统E-R图设计E-R模型的“联系〞用于刻画实体之间的关联。一种完整的方式是对局部结构中任意两个实体类型，依据需求分析的结果，考察局部结构中任意两个实体类型之间是否存在联系。假设有联系，进一步确定是1:N，M:N，还是1:1等。还要考察一个实体类型内部是否存在联系，两个实体类型之间是否存在联系，多个实体类型之间是否存在联系，等等。根据上面的设计可以规划出的实体有：读者实体、操作员实体、图书实体和借书信息实体。系统分E-R图设计系统分E-R图设计如下各图所示读者读者班级姓名系别借书证号

证号性别密码

证号图4-1-1读者实体操作员简称操作员简称操作员密码操作员名称操作员级别操作员图4-1-2操作员实体图书名称作者图书编号出版社备注

证号图书名称作者图书编号出版社备注

证号出版时间价格

证号图书图4-1-3图书实体结束信息实体结束信息实体还书日期借出日期借书证号图书编号还书日期借出日期借书证号图书编号图4-1-4借书实体本系统的实体－联系〔E-R〕图操作员操作员操作员简称操作员密码操作员级别操作员名称图书图书名称图书编号出版时间作者出版社价格备注用户借书证号用户名用户密码性别所在系别所在班级管理借阅归还mNN1N1图4-2系统总E-R图设计4.2.4系统的模块设计a.图书管理员管理模块设计〔1〕当管理员登录后出现如图4-4所示的界面，用户单击系统菜单里的“根本信息管理〞出现的界面如图4-5所示在“根本信息管理〞窗口主要实现的如下功能添加图书分类管理。A：界面上出现图书分类。分为：金融类，社会学类，文学类等B：当你想要添加，修改，删除时，可点下面的按钮。C：在A，B都完成时，可点返回按钮退出程序。修改图书分类信息。当要修改某个内容时，只需直接在上面修改即可实现数据库的修改。删除图书信息。当在操作员名称中输入所要删除的图书名称时，点击删除按钮时，出现“确实要删除当期图书信息吗？〞的对话框。点击‘OK“时，即出现〞该记录已删除“的对话框。调出所有图书信息时。即可把所有的图书的信息调出来。查询图书信息：在所有的查询条件都填写完后，点击查询按钮时即可查到所要的信息，否那么出现“请输入查询信息，不能为空“的对话框。登入界面：图4.4系统的主界面图书借阅模块设计〔1〕。当用户当击系统菜单的“图书借阅管理〞时出现的界面如图4-5所示。“图书借阅管理〞窗口主要实现如下功能：图书编号图书名称姓名借阅数量借阅编号借阅证编号借阅日期4-5图书借阅管理的界面〔2〕在本窗体中设置的主要属性如表所示对象属性属性名对象属性属性名Button1Caption借阅Label2Caption图书编号Button2Caption归还Label3Caption图书名称Button3Caption图书催还Label4Caption借阅数量Button4Caption返回Label5Caption借阅证编号Label1Caption图书借阅Label6Caption借阅编号Label7Caption姓名Label8Caption借阅日期.系统用户管理模块设计〔1〕用户管理的界面如图4-8所示，修改密码的界面如图4-9所示。系统用户管理主要完成如下功能：添加用户删除用户修改用户返回用户名密码确认密码确定取消图4-8用户管理的界面图4-9编辑用户信息界面在本窗体中设置的主要属性如表所示对象属性属性值对象属性属性值Button1caption添加用户Edit4TextButton2caption修改用户Label1caption用户列表Button3caption删除用户Label2caption用户信息Button4caption返回Label3caption用户名Button5caption确定Label4caption用户类型Button6caption取消Label5caption用户名Edit1TextLabel6caption密码Edit2TextLabel7caption确认密码Edit3Text4.3计算机系统的配置方案A.系统的总体框架图书管理系统图书管理系统登陆模块图书馆管理员模块图书借阅/归还模块图书管理模块图书查询模块用户登陆管理员登陆超期提示新书入库操作员登陆添加操作员删除操作员修改操作员查询操作员读者借阅信息读者归还信息管理员登陆管理员登陆查询图书信息删除图书信息修改图书信息系统功能模块框图B.系统功能分析本系统主要由几个模块构成分别为登陆模块，图书查询模块，图书馆管理员模块，图书管理模块和工作人员-图书借阅/归还模块等。其中本人所做的功能包括：1〕图书馆管理员模块：浏览操作员信息，添加操作员信息，修改操作员信息，删除和查询操作员信息等。浏览用户信息，添加用户信息，修改用户信息，删除和查询用户信息等。2〕图书管理模块：新图书信息入库，整理图书库〔包括添加，修改和删除图书信息〕。3〕工作人员-图书借阅/归还模块：操作员操作借阅，归还及超期提示等功能。第五章系统的测试5.1软件功能测试软件测试是一个长期的过程，只要软件还在使用中，测试工作就一直存在。软件的测试从编码就开始了，并贯穿着软件的始终。一．模块测试 在设计好的软件系统中，每个模块都应当完成一个清晰定义的子功能而且这个功能和同级其他模块的功能之间没有相互依赖的关系。因此，有可能把每个模块作为一个单独的实体来测试而且通常比拟容易设计检验模块正确性的测试方案。模块测试的目的是保证每个模块作为一个单元能正确运行，所以模块测试通常又称为单元测试。在这个测试步骤中所发现的往往是编码和详细实际的错误和异常。二．子系统测试了系统测试是把经过单元测试的模块放在一起形成一个子系统来测试。模块相互间的协调和通信是这个测试过程的主要问题，因此这个步骤着重测试模块的接口。三．系统测试系统测试是把经过测试的子系统装配成一个系统来调试。在这个过程中不仅应该发现实际和编码的错误，还应该验证系统能否提供需求说明中指定的功能，而且系统的动态特性也应该符合预定的要求。在这个测试步骤中发现的往往是软件设计中的错误，也有可能发现的是需求说明中的错误。测试工作可以说是整个编程过程中最复杂、最费事的一个过程，但这一过程不是独立的，合理的系统设计以及好的文档的设计都是提高测试效率的重要方面，将使我们的测试工作事半功倍。这样的教训在日后的软件开发工作中都大有益处。此次设计好的程序在本机上可以正常运行，但拿到其他机器上编码调试后就无法运行，运行失败的原因主要是由于没能机器上安装配置数据库而引起的。只要将数据库添加到数据源管理器〔ODBC〕中，经测试，本系统的各项功能模块运行良好，根本到达了设计要求。第六章结论6.1系统开发遇到的问题在系统的开发时，遇到了很多问题，比方在建数据库时，不但要符合实验的要求还要与同组人的相联系起来，因此在编写数据库时进行了屡次的修改。在更换电脑进行数据库连接时也常犯些小错误，如忘记填写效劳器名称或那么是个错误的效劳器名称导致在连接测试时老是报错。还有在进行界面设计时，只是按照参考书上的进行设计，最后导致编程的时候很难和数据库表的记录符合上，于是抛开了所有的参考书，自己根据数据库的内容设计了界面，独立的编程。虽然有点过于简单。6.2总结本系统是一个校园图书管理系统，具有一定实用性的数据库信息管理系统。它只要完成了对图书的分类，图书进步信息管理，图书入库管理，图书盘点管理，节约证件类型管理，借阅证件管理，图书借阅，用户管理。本系统采用当前流行的VB来完成整个系统的设计，在数据库的设计上利用了SQLServer的便利性和实用性。本系统具有一定的实用功能。在查询方面，系统实现了多条件任意字段的模糊查询，系统可以自动识别用户不同的输入。在图书入库、借出和归还三者之间建立了良好的链接关系，某一局部地修改均会自动引发系统对与其相关的局部进行连锁修改。在用户管理方面，系统较好地实现了办理借书卡，以及用户密码修改等各项功能。

总之，关于本次设计的命题，我的设计只能提供其根本的功能。还有许多的设想由于时间和自身和因素无法得以实现，这不能不说是本次设计的遗憾之处。不过，至少它已经启发了自己的思维，提高了我的动手能力，这是我在课本中学不到的。它为我们在以后的学习上发挥自己的才能奠定了坚实的根底。参考文献:[1]黄明，梁旭，石兴民等编著.《VisualBasic课程设计》电子工业出版社，2006[2]李春葆，张植民等编著.《VisualBasic6.0数据库系统设计与开发》清华大学出版社，2003[3]黄明，梁旭等编著.《VisualBasic6.0信息系统设计与开发实例》机械工业出版社，2005[4]唐邦民，郭瑞军等编著.《VisualBasic数据库开发实例精粹》电子工业出版社，2005[5]蔡敏，汪杰等编著.《VisualBasic6.0数据库开发工程案例》人民邮电出版社，2007致谢感谢我们的老师张老师，他的严谨细致、一丝不苟的作风一直是我在学习和生活种的典范。你的循循善诱的教导和不拘一格的思路给予我无尽的启迪。感谢我们的陶老师，这篇论文的每个实验细节和每个数据，都离不开您的悉心教导。而您开朗的性格和宽容的态度，帮助我很快的融入到了这个新的实验中。还要感谢和我一起做这个实验的三个朋友们，谢谢你们一直陪在身边，我们一起努力完成这个实验，当结果演示出来的时候，我们都很快乐。在论文即将完成的时候，我的心情无法平静。从开始进入课题到论文的顺利完成，有多少可敬的师长、同学、朋友给了我无言的帮助，在这里请接收我诚挚的谢意。最后，还要感谢培养我长大含辛茹苦的父母，谢谢你们！

附录程序代码：图书借阅管理：PublicSchCndAsStringPrivateSubCmd_Add_Click()'初始化FrmBorrowEdit信息'设置借阅编号为当前编号最大值+1DimJYNoAsString'取表中的最大借阅编号JYNo="00"+Trim(Str(Val(MyBorrow.GetMaxNo())+1))FrmBorrowEdit.txtBorrowNo="JY"+JYNoFrmBorrowEdit.txtBorrowDate=DateFrmBorrowEdit.txtReturnDate=""FrmBorrowEdit.txtBCount=0FrmBorrowEdit.txtCardNo=""FrmBorrowEdit.txtName=""FrmBorrowEdit.txtCardType=""FrmBorrowEdit.txtMaxCount=0FrmBorrowEdit.txtMaxDays=0FrmBorrowEdit.txtBookNo=""FrmBorrowEdit.txtBookName=""FrmBorrowEdit.txtBookType=""FrmBorrowEdit.txtLCount=0FrmBorrowEdit.txtTotal=0'设置添加图书按钮不能用FrmBorrowEdit.Cmd_Add.Enabled=FalseFrmBorrowEdit.Cmd_Del=FalseFrmBorrowEdit.Cmd_Ok.Enabled=False'设置图书信息不能用FrmBorrowEdit.Frame2.Enabled=False'启动编辑窗体FrmBorrowEdit.Show1'刷新DataGrid表格的内容GridRefreshEndSub'单击“返回〞按钮PrivateSubCmd_Back_Click()UnloadMeEndSubPrivateSubCmd_Push_Click()'列出离应归还日期小于等于5天的图书FrmPush.Show1EndSubPrivateSubCmd_Return_Click()'归还调用FrmReturnEdit窗体，需要输入借阅证号，提取该证借阅信息FrmReturnEdit.Show1GridRefreshEndSubPrivateSubComboFlag_click()GridRefreshEndSub'启动窗体PrivateSubForm_Load()'设置借阅状态为"借阅"ComboFlag.ListIndex=0'刷新DataGrid表格的内容GridRefreshEndSubPrivateSubGridRefresh()IfComboFlag.ListIndex>0ThenSchCnd="ANDl.Status='"+Trim(ComboFlag.Text)+"'"ElseSchCnd=""EndIf'设置ADO控件的连接字符串Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="_+App.Path+"\Books.mdb;PersistSecurityInfo=False"'刷新DataGrid记录'设置数据源Adodc1.RecordSource="SELECTl.BookNoAS图书编号,i.BookNameAS图书名称,"_+"l.BCountAS借阅数量,b.BorrowNoAS借阅编号,b.CardNoAS借阅证编号,c.NameAS姓名,"_+"BorrowDateAS借阅日期"_+"FROMBorrowb,BorrowListl,Cardsc,BookInfoi"_+"WHEREl.BNo=b.BorrowNoANDb.CardNo=c.CardNoANDl.BookNo=i.BookNo"+SchCnd_+"ORDERBYl.BookNo,b.BorrowDateDESC"'MsgBox(Adodc1.RecordSource)Adodc1.RefreshDataGrid1.Columns(0).Width=1200DataGrid1.Columns(1).Width=1600DataGrid1.Columns(2).Width=1200DataGrid1.Columns(3).Width=1400DataGrid1.Columns(4).Width=1400DataGrid1.Columns(5).Width=1200DataGrid1.Columns(6).Width=1400EndSub编辑用户信息：PublicModifyAsBooleanPublicOriUserAsStringPrivateSubCmd_Cancel_Click()UnloadMeEndSubPrivateSubCmd_OK_Click()IfTrim(txtUserName)=""ThenMsgBox"请输入用户名"txtUserName.SetFocusExitSubEndIfIfLen(txtPass)<6ThenMsgBox"密码长度不能小于6"txtPass.SetFocustxtPass.SelStart=0txtPass.SelLength=Len(txtPass2)ExitSubEndIfIftxtPass<>txtPass2ThenMsgBox"密码和确认密码不相同，请重新确认"txtPass2.SetFocustxtPass2.SelStart=0txtPass2.SelLength=Len(txtPass2)ExitSubEndIfWithMyUserIfModify=FalseOrOriUser<>Trim(txtUserName)ThenIf.In_DB(MakeStr(txtUserName))=TrueThenMsgBox"用户名已经存在，请重新输入"txtUserName.SetFocustxtUserName.SelStart=0txtUserName.SelLength=Len(txtUserName)ExitSubEndIfEndIf.UserName=MakeStr(txtUserName).Pwd=MakeStr(txtPass)IfModify=FalseThen.InsertMsgBox"添加完成"Else.Update(OriUser)MsgBox"修改完成"'如果修改自身用户名，那么更新CurUser对象IfOriUser=CurUser.UserNameAndTrim(txtUserName)<>OriUserThenCurUser.UserName=Trim(txtUserName)CurUser.GetInfo(CurUser.UserName)EndIfEndIfEndWithUnloadMeEndSubPrivateSubForm_Load()EndSubPrivateSubtxtPass