1、1图书管理系统江宁校区 10 级计算机 计算机网络技术 薛晶晶指导教师：王平【摘要】图书管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。因此本人结合开入式图书馆的要求，对 Microsoft Access 2003 数据库管理系统、SQL语言原理、VB 6.0 应用程序设计，VB 6.0 数据库技术进行了较深入的学习和应用，主要完成对图书管理系统的需求分析、功能模块划分、数据库模式分析，并由此设计了数据库结构和应用程序。系统运行结
2、果证明，本文所设计的图书管理系统可以满足借阅者、图书馆工作人员和高级管理员三方面的需要。设计充分利用 VB 6、Microsoft Access 2003 数据库技术的强大力量，提高了编程效率和可靠性。【关键词】：数据库 SQL 语言 Microsoft Access 2003 窗体2目 录摘要 11. 需求分析 31.1 引言31.2 项目开发环境41.3 项目概述52. 系统设计 52.1 设计原则52.2 模块划分原则62.3 系统结构框图63. 系统功能说明 83.1 登录 83.2 用户管理 93.3 基础信息管理 93.4 图书管理 123.5 借书/还书133.6 数据报表 15
3、4. 系统运行操作概况 154.1 硬件环境 154.2 软件环境 154.3 操作流程 165. 具体设计 175.1 基本数据流程 175.2 数据库设计 185.3 数据表之间的关系 196. 系统维护 207. 结论 20致谢 20参考文献 21附录 2131. 需求分析1.1 引言1.1.1 背景随着科学技术的发展，特别是计算机在人们生活中的普及，使人们的各项工作变得越来越便利，工作效率大大的提高。也为管理现代化的发展带来了新的契机。学校的图书管理工作是学校管理工作中一个重要的组成部分，其内容复杂，工作繁多。如果使用计算机处理各项图书管理业务，不仅节约了大量人力，而且还大大提高了工作
4、效率，经济效益十分明显。本系统就是基于这一现实条件而开发的。虽然就本系统还不能说让图书管理的管理现代化，但这与本系统开发的目的并不相悖，整个社会的信息化建设，并不是一朝一夕的事，也不是一个人所能解决的，所以本系统的开发只是起到尝试的作用。1.1.2.编写目的图书馆作为一种信息资源的集散地，图书和用户借阅资料繁多，包含很多的信息数据的管理，现今，有很多的图书馆都是初步开始使用，甚至尚未使用计算机进行信息管理。根据调查得知，他们以前对信息管理的主要方式是基于文本、表格等纸介质的手工处理，对于图书借阅情况（如借书天数、超过限定借书时间的天数）的统计和核实等往往采用对借书卡的人工检查进行，对借阅者的借
5、阅权限、以及借阅天数等用人工计算、手抄进行。数据处理手工操作，工作量大，出错率高，出错后不易更改。图书馆采取手工方式对图书借阅情况进行人工管理，由于信息比较多，图书借阅信息的管理工作混乱而又复杂；一般借阅情况是记录在借书证上，图书的数目和内容记录在文件中，图书馆的工作人员和管理员也只是当时对它比较清楚，时间一长，如再要进行查询，就得在众多的资料中翻阅、查找了，造成查询费时、费力。如要对很长时间以前的图书进行更改就更加困难了。基于这此问题，我认为有必要建立一个图书管理系统，使图书管理工作规范化，系统化，程序化，避免图书管理的随意性，提高信息处理的速度和准确性，能够及时、准确、有效的查询和修改图书
6、情况。1.1.3 定义术语需求：用户解决问题或达到目标所需的条件或功能；系统或系统部件要满足合同、标准，规范或其它正式规定文档所需具有的条件或权能。需求分析：包括提炼，分析和仔细审查已收集到的需求，以确保所有的风险承担者都明其含义并找出其中的错误，遗憾或其它不足的地方。模块的独立性：是指软件系统中每个模块只涉及软件要求的具体的子功能，而和软件系统中其他的模块的接口是简单的。1.2 项目开发环境41.2.1.硬件环境：586 或以上的微机一台（包括 CD-ROM,软驱），打印机一台。1.2.2.软件环境：1.操作系统：Windows 9X,NT,2000,xp2.开发工具 Visual Basi
7、c 6.0vb6.0 是微软公司出品的一个快速可视化程序开发工具软件，具有强大的可视化计和面向对象程序设计的功能，近年来得到了广泛的应用，它主要有以下特点：1.简单易学2.简化了复杂的界面设计工作3.强大的多媒体功能4.网络功能支持了 Internet 编程5.具有所见即所得的功能6.支持用户开发的 ActiveX 控件1.2.3.数据库：ACCESS 2000Microsoft Access2003 是 Microsoft 公司推出的同时面向数据库最终用户和数据库开发人员的关系数据库管理系统，它实现了计算机“易于使用”的特点，即用户只需按照“向导”进行简单操作，就可以设计出一个数据库系统。作
8、为一种数据库软件，Access 可以完成以下功能：可以为每一种类型的信息创建一个表，利用表存储相应的信息；可以定义各个表之间的关系；可以利用宏或 Visual Basic 将各数据库对象连接在一起，形成一个数据库应用系统，而且用户也不需要编写复杂的程序。充分利用 Access 数据库是关系数据库的特性，仔细分析各类数据之间的关系，创建表并建立表间的关联，使每个表限制到一个主题，避免了重复信息和冗余数据。并且利用 Access 与 VB 窗体建立联系，显示表或查询每一个记录的完整信息，一次只录入一组相关的数据。简单明了，提高了基础数据正确性。为使“计划规模”数据库更为实用，又作了进一步的编写工作
9、，利用 Access 的窗体具有的可与其它应用程序进行链接的功能，创建同步窗体或嵌套窗体，可非常直观地点击不同的按钮，就能进入相应的录入、查询模块，查看所需的信息。1.2.4 VB 与 ACCESS 的结合微软的 JET 数据库引擎提供了与数据库打交道的途径,我是通过它以及 VB 来访问数据并对其各种操作。再使用 DATA 控件和 ADOC 控件在数据库中的信息与将信息显示给用户看的VB 程序之间架起一座桥梁。设置这两个控件的各个属性，告诉它要调用哪个数据库的哪个部分。通过设计跳转按钮来动态地改变数据库表中的记录。51.3 项目概述1.3.1 目标通过对学校图书馆内部的各种机构的划分和管理，以
10、及各种业务的处理过程的分析，设计出一个行之有效的能够在实际中帮助图书馆实施管理现代化、业务信息化，从而大大提高工作效率运行于已有的硬件平台上的图书馆管理系统。1.3.2. 产品描述根据用户的实际管理要求和图书馆职能的划分，我们将本系统划分为系统管理模块、基础信息管理模块、图书管理模块、借书/还书模块、系统维护模块和帮助模块等六个子系统。1.3.3. 产品功能用户管理模块实现用户管理、重新登录系统、退出系统；读者管理模块实现对查询读者、读者管理、五项功能；图书管理模块实现了多种方式查询图书、管理图书的功能；借书/还书模块实现了借书操作和还书操作、查看借书情况；数据报表模块实现了对图书信息、读者信
11、息、借书信息、罚款信息以报表形式打印出来；帮助模块介绍了本系统的一些使用方法。普通用户只能使用登录系统、退出系统、查询读者、卡号挂失、卡号注销、查询图书、借书操作、还书操作、查看借书情况以及图书信息、读者信息、借书信息、罚款信息的报表打印；管理员每一项功能都可以使用。2. 系统设计我们将本系统划分为系统管理模块、基础信息管理模块、图书管理模块、借书/还书模块、系统维护模块和帮助模块等六个子系统。2.1 设计原则安全可靠是一个应用系统的灵魂，一个极小的差错，可能会造成整个系统的瘫痪，甚至可能造成企业的巨大损失。因此系统设计必需把安全性、可靠性、容错性放在首位。从发展的眼光看，一个综合的计算机管理
12、系统要实现市场、决策、管理、设计、制造等各环节的信息共享，完成不同制造厂商的设备和计算机软硬件资源的数据交换。建立一个由开放式，标准化的系统，开放式标准化的异构式数据库组成的平台来满足当前的需求，同时又能适应今后新技术的引进、开发和推广。 系统设计尽量简单，灵活易于管理，有利于将来需要时进行功能改进和新技术引入。6我们所处的时代是信息时代，通信和计算机技术的发展日新月异。因而，应用系统的建设不仅应适应新技术发展方向，保证其先进性，同时兼顾成熟的计算机技术、保证系统的可靠。系统的建设要考虑长远，不能今年投入使用，两三年内就不能满足要求，以至不得不做很大的设计修改；但也不能考虑太远，否则会导致初期
13、投资规模过大，同时可能降低系统的可靠省和安全性能。2.2 模块划分原则本图书管理系统包含六大模块：系统管理：用户管理（普通、管理员）、重新登录、退出系统。读者管理：查询读者、读者管理、卡号激活、卡号挂失、注销卡号。图书管理：查询图书、图书管理。借书/还书：借书、还书、查看借书情况。数据报表：读者报表、读书报表、借书报表。帮助：主题、关于2.3 系统结构框图图 2-1图 2-2系统管理退出系统重新登录用户管理图书管理系统系统管理基础信息管理管理图书管理借书还书系统帮助系统维护7图 2-3图 2-4图 2-5借书/还书借书总表还书借读者管理读者挂失激活卡号读管理查询读者注销图书管理图书管理查询图书
14、8图 2-6图 2-7 系统结构图3. 系统功能说明3.1 登录用户可以分普通用户和管理员，在通过用户输出入用户名和密码无误后，才可登录。如果以普通用户登录（即用户），只能查询读者、卡号挂失、查询图书、借书、还书，数据报表；如果以管理员身份登录，任何功能项都能使用。帮助关于主题系 统 维 护系统出示户数据还原数据备份93.2 用户管理管理员可以增加用户、删除用户，通过点击“保存”按钮更新数据库。3.3 基础信息管理按照系统模块划分图可知其分为五个具体的功能模块，分别为图书类别管理、图书信息管理、图书存放位置管理、读者类别管理、读者信息管理。图书类别管理：将在本窗体中添加显示该图书类别的相关信息
15、。10读者信息管理管理：添加：在“增加读者”窗体中输入读者基本信息，点击“确定”即可增加读者。删除：方法一：将记录指针定位到要删除的记录上，点击“删除”按钮即可删除信息。方法二：在工具条上，点击“注销卡号”，待输入卡号和密码无误后，将删除该卡号的记录，并更新数据库。11图书信息管理：增、删、改图书的相关详细信息。图书存放位置管理：编辑图书馆图书的放置位置以及显示；读者类别管理：123.4 图书管理入库查询：用户可以按照书号、书名、书籍类别、作者几种方式查询图书，查询结果直接在本窗体中显示出来。图书入库管理:增加：在增加书籍窗体中填入图书信息后，点击“确定”后即可增加图书。删除：删除书籍信息，将
16、记录指针定位到要删除的记录上，即可删除该记录。133.5 借书/还书按照系统模块划分图可知其分为三个具体的功能模块，分别为借书、还书、查询借书情况。借书借书主要功能：1.根据用户输入借书的卡号及其密码后，点击“确定”按钮。2.显示读者信息后，再输入书号，并显示该书的信息。3.在输入卡号密码无误情况下，以下几种情况不能借书：第一：读者如果已经借书数超过了规定的数目，不能再借。第二：读者的卡号如果挂失，不能借。第三：读者没交罚款。第四：书库没有读者需要的书。14在读者借书时，可以通过点击借书窗体上的“查借”按钮，查看用户借书的情况：还书一般情况：输入书号，点“确定”按钮显示该书的信息后，再输入卡号
17、即可还书，数据库中的信息更新:15特殊情况：在用户输入书号后，如果提示“你的书已经超期,请交罚款金后,还书!如果现在交罚款金请按确定,否则按取消”，则用户需填写罚款单，交纳罚款后，才能还书，并将罚款记录写入数据库。23.6 数据报表采用设计器 DataEnvironment1 与数据表中的中的字段绑定，将读者表(student)、图书表(book)、借书情况表(lend)、罚款表(fakuan)的数据通过报表显示出来。4. 系统运行操作概况4.1 硬件环境586 或以上的微机一台（包括 CD-ROM,软驱），打印机一台4.2 软件环境windows 9X,NT,2000,xp 164.3 操作
18、流程：查询普通用户 管理员登录通过验证系统登录MDI 主窗口（系统主窗口）以普通用户身份登录读者通过读者验证通过验证借书卡借通过书号卡号还以管理员身份登录图书查询管理借书情况用户注销借书卡生成各数据报表挂失借书卡175. 具体设计详细设计阶段的根本目标是确定应该怎样具体地实现所要求的系统，也就是说，经过这个阶段的设计工作，应该得出对目标系统的精确描述，从而在编码阶段可以把这个描绘直接翻译成用某种程序设计语言书写的程序。换句话说，详细设计的目标不仅仅是逻辑上正确地实现每个模块的功能，更重要的是设计出的处理过程应该尽可能简明易懂。而结构程序设计技术是实现上述目标的关键技术，是详细设计的逻辑基础。它
19、采用的自顶向下逐步求精的设计方法和单入口单出口的控制结构，在后面的设计中，大家可以看到这一点。在详细设计中，有描述程序处理过程中的工具称为详细设计的工具，它们可以分为图形、表格和语言三类，不论是哪类工具，对它们的基本要求都是能提供对设计的无歧义的描述，也就是应该能指明控制流程、处理功能、数据组织以及其他方面的实现细节。5.1 基本数据流程1. 用户信息录入：添加、删除、更新2.读者信息录入：查询、添加、删除、更新3.图书信息录入：查询、添加、删除、更新4.借书信息录入：查询、添加、删除、更新5.罚款信息录入：添加、打印通过 DATA 和 ADOC1 控件连接数据库中的表，对表中记录进行相关操作
20、。借书情况录入 罚款情况录入删除用户用户表录入增加图书读者综合信息 图书综合信息用户综合信息增加用户借书综合信息 罚款信息查询图书 增加图书 删除图书 图书报表 查询图书 删除图书 图书报表 查询记录 增加记录 删除记录 借书报表 增加记录 罚款清单图书管理系统读者情况录入况录入读者表录入 图书表录入 借书情况表录入图书情况录入用户情况录入罚款表录入185.2 数据库设计针对此图书馆管理系统，通过对图书馆管理工作过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：读者信息，包括的数据项有：卡号，密码，姓名，班级，专业，性别，已借书数、挂失否。图书信息，包括的数据项有：书号、书名、书籍类
21、别、作者、出版社、在库数目、总数、单价、购买日期借书信息，包括的数据项有：卡号、书号、借书日期、还书日期用户信息，包括的数据项有：classname(用户名)、password（用户密码、class(班级)罚款信息，包括的数据项有：卡号、书号、日期、罚金、罚款原因5.2.1 基本数据模型读者情况表结构(reads)图书情况表结构（book）序号 字段名称 数据类型 宽度 小数位数 索引 可否为空1 书证号 文本 15 无 有（无重复） 否2 性别 文本 50 无 无 否3 姓名 文本 14 无 无 否4 班级 文本 12 无 无 否5 专业 文本 14 无 无 是6 性别 文本 4 无 无 是
22、7 已借书数 数字 整型 无 无 否8 挂失否 是/否 2 无 无 否19序号 字段名称 类型 宽度 小数位数 索引 可否为空1 书号 文本 10 无 有（无重复） 否2 书名 文本 30 无 无 否3 书籍类别 文本 12 无 无 是4 作者 文本 14 无 无 是5 出版社 文本 50 无 无 是6 总数 数字 整型 自动 无 否7 在库数目 数字 整型 自动 无 否8 单价 货币 货币 2 无 是借书情况表结构（lend）序号 字段名称 类型 宽 度 索 引 可否为空1 条形码 文本 15 有（有重复） 否2 书证号 文本 10 有（无重复） 否3 借书日期 日期型 8 无 否4 还书日
23、期 日期型 8 无 否.用户表结构（manager）序号 字段名称 类型 宽 度 索 引 可否为空1 username 文本 50 无 否2 password 文本 50 无 否3 class 文本 50 无 是5.3 数据表之间的关系：206. 系统维护软件维护是软件生命周期的最后一个阶段，它处于系统投入生产性运行以后的时期中。所谓软件维护就是在软件已经交付使用之后，为了改正错误或满足新的需要而修改软件的过程。本系统自从做好以后，给不同的人试用过，在这试用期间还是看出来了系统确实存在不少的缺点和毛病，如重定向的问题或某些操作不当系统报错的问题。但是由于水平有限，肯定还存在其他的问题，也是在所
24、难免的。希望大家原谅！结论经过王平老师的测试，本系统采用登录程序，很好的控制了系统的安全性，而且系统能够很好的记载读者的借书情况。读者在每次借书时只需输入自已的卡号和密码以及书号，就可找到自已所需要书，用户通过查看图书信息来查找读者所需要的书。管理员在维护数据库的数据时不需要对数据库进行操作，可以在界面上进行数据的添加、删除和修改。在本系统设计中，利用 VB 中数据添加、删除、更新等命令来对系统中的数据库进行相应的操作。利用其中的 DATA 控件 ADOC 控件连接动态数据库中记录。而且还用到了相应的SQL 语句。通过此毕业设计，我深刻的体会到 VB 工具的强大功能，并将 SQL 语言的理论用
25、到了实践中去。系统可操作性还是很好的,比较方便灵活,唯一缺点是，数据库的安全性不高,不能备份数据库,数据报表的打印也不能按条进行打印输出。致 谢经过设计和开发，基于学校的图书管理系统基本开发完毕。完成了系统管理、基础信息管理、图书管理、借书还书、数据维护六大模块，结合目前有些学校图书馆的管理方法，完全能实现图书管理功能。在整个毕业设计过程中，从需求分析到设计思想的主体方案的形成，系统设计原理的确定到系统的实现，花费了很大的功夫。我们查阅了大量与之相关的书籍。同时，在王平老师认真的工作态度和精心的指导下，我从实践中走出来了，与此同时也得到了同学的大力支持。在此，对所有帮助我过的老师，同学表示忠心
26、的感谢!21参考文献:1 王福成、周铁柱、黄淼云等： ， 北京：清华大学出版社 2002 年 6 月2郭振波编著： ， 北京： 人民邮电出版社 2003 年 3 月3林永等编著： ， 北京：人民邮电出版社 2002 年11 月4刘炳文等编著： ，北京：清华大学出版社 2000年 7 月5 王华杰：VB.NET 编程实例详解(含盘)， 北京：中国铁道出版社 2002 年 4 月6 康博译：VB.NET 高级编程，北京：清华大学出版社 2002 年 3 月7 张龙卿：Instant VB.NET 实例解析 VB.NET 应用编程， 北京：北京希望电子出版社 2002 年 1 月8 林立军，程斌，翁
27、迪恩：Visual Basic 6.0 数据库开发指南，陕西：西安电子科技大学出版社，2000 年 2 月附 录源代码程序（一）登录窗体功能的实现:以用户或管理员身份登录。Dim itmX As ListItem 声明一个 ListItem 对象Dim MyIcon As Integer 声明一个整型变量Dim text, MyMsg As String 声明字符串变量Private Sub Form_Activate()Text1.SetFocus text1 获得焦点End SubPrivate Sub Form_Load()添加操作员Adodc1.RecordSource = “sele
28、ct * from qxb“Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0 ThenWith Adodc1.Recordset.MoveFirst22czy.Caption = .Fields(“操作员“)bh.Caption = .Fields(“编号“)jb.Caption = .Fields(“操作员级别“)Do While .EOF = Falsetext = .Fields(“操作员“)MyIcon = Val(Right(.Fields(“头像“), Val(Len(.Fields(“头像“) - 2)Set itmX = ListV
29、iew1.ListItems.Add(, , text, MyIcon).MoveNextLoopEnd WithEnd IfEnd SubPrivate Sub ListView1_Click()If ListView1.ListItems.Count 0 Then查询操作员信息Adodc1.RecordSource = “select * from qxb where 操作员=“ + ListView1.SelectedItem + “Adodc1.RefreshWith Adodc1.RecordsetIf .RecordCount 0 Then赋值给 czy.caption 等czy.
30、Caption = .Fields(“操作员“)bh.Caption = .Fields(“编号“)If .Fields(“操作员级别“) 0 ThenWith Adodc1.Recordsetfrm_main.jcxxgl.Enabled = .Fields(“基础信息管理“)frm_main.Toolbar1.Buttons(1).Enabled = .Fields(“基础信息管理“)frm_main.tsgl.Enabled = .Fields(“图书管理“)frm_main.Toolbar1.Buttons(5).Enabled = .Fields(“图书管理“)frm_main.To
31、olbar1.Buttons(11).Enabled = .Fields(“图书管理“)23frm_main.jygl.Enabled = .Fields(“借阅管理“)frm_main.Toolbar1.Buttons(7).Enabled = .Fields(“借阅管理“)frm_main.Toolbar1.Buttons(9).Enabled = .Fields(“借阅管理“)frm_main.jcfx.Enabled = .Fields(“决策分析“)frm_main.xtwh.Enabled = .Fields(“系统维护“)frm_main.xtgl.Enabled = .Fiel
32、ds(“系统管理“)frm_main.Toolbar1.Buttons(13).Enabled = .Fields(“系统管理“)End With验证操作员及密码If Text1.text = Adodc1.Recordset.Fields(“密码“) ThenLoad frm_mainfrm_main.Showfrm_main.St1.Panels(3).text = czy.CaptionUnload MeElseIf czy.Caption = “ ThenMsgBox (“请选择操作员！“)ListView1.SetFocusElseIf Text1.text 0 ThenWith r
33、s1.MoveFirstDo While .EOF = FalseIf Len(.Fields(“类别编号“) = 2 Thenkey = Trim(.Fields(“类别名称“)text = “(“ & Trim(.Fields(“类别编号“) & “)“ & Trim(.Fields(“类别名称“)Set Node1 = TreeView1.Nodes.Add(, , key, text, Val(.Fields(“级别“)End IfIf Len(.Fields(“类别编号“) = 5 Thenkey = Trim(.Fields(“类别名称“)text = “(“ & Trim(.Fi
34、elds(“类别编号“) & “)“ & Trim(.Fields(“类别名称“)Set Node2 = TreeView1.Nodes.Add(Node1.Index, tvwChild, key, text, Val(.Fields(“级别“)End IfIf Len(.Fields(“类别编号“) = 9 Thenkey = Trim(.Fields(“类别名称“)text = “(“ & Trim(.Fields(“类别编号“) & “)“ & Trim(.Fields(“类别名称“)Set Node3 = TreeView1.Nodes.Add(Node2.Index, tvwChi
35、ld, key, text, Val(.Fields(“级别“)End IfIf Len(.Fields(“类别编号“) = 14 Thenkey = Trim(.Fields(“类别名称“)text = “(“ & Trim(.Fields(“类别编号“) & “)“ & Trim(.Fields(“类别名称“)Set Node4 = TreeView1.Nodes.Add(Node3.Index, tvwChild, key, text, Val(.Fields(“级别“)End IfIf Len(.Fields(“类别编号“) = 20 Thenkey = Trim(.Fields(“类
36、别名称“)text = “(“ & Trim(.Fields(“类别编号“) & “)“ & Trim(.Fields(“类别名称“)Set Node5 = TreeView1.Nodes.Add(Node4.Index, tvwChild, key, text, Val(.Fields(“级别“)End If.MoveNextLoopEnd WithEnd Ifrs1.CloseEnd Sub29Private Sub Form_Activate()添加级别列表For i = 1 To 5Combo1.AddItem (i) & “级“Next iCombo1.ListIndex = 0打开
37、表rs1.Open “select * from tslbb order by 类别编号“, Cnn, adOpenKeyset, adLockOptimisticIf rs1.RecordCount 0 ThenFor i = 1 To 3If rs1.Fields(i) 0 ThenFor i = 1 To 3Text1(i).text = rs1.Fields(i) 将字段值赋给 Text1 控件数组Next iCombo1.text = rs1.Fields(“级别“) 赋值给 combo1.textEnd Ifrs1.CloseEnd Sub30Private Sub CmdAdd_
38、Click() 添加操作Dim bh As Integer 定义一个整型变量Dim lsbh As String 定义一个字符串变量设置本级编号和类别编号rs1.Open “select * from tslbb where 级别=“ + Combo1.text + “and 类别编号=“ + Text1(2).text + “order by 类别编号“, Cnn, adOpenKeyset, adLockOptimisticIf rs1.RecordCount 0 ThenIf Not rs1.EOF Then rs1.MoveLastlsbh = rs1.Fields(“类别编号“)bh
39、 = Right(lsbh, Val(Combo1.text) + 1) + 1Text1(1).text = Format(bh, String(Val(Combo1.text) + 1, “0“)Text1(2).text = Left(lsbh, Len(lsbh) - Len(Text1(1).text) & Text1(1).textElseText1(1).text = Format(1, String(Val(Combo1.text) + 1, “0“)Text1(2).text = Text1(2).text & Format(1, String(Val(Combo1.text
40、) + 1, “0“)End Ifrs1.Close设置控件有效或无效CmdSave.Enabled = TrueCmdEsc.Enabled = TrueCmdAdd.Enabled = FalseCmdDelete.Enabled = FalseText1(3).Enabled = TrueText1(3).text = “ 清空 Text1(3)Text1(3).SetFocus Text1(3)获得焦点End SubPrivate Sub CmdDelete_Click() 删除图书类别信息rs1.Open “select * from tslbb where 类别名称=“ + Tex
41、t1(3).text + “order by 类别编号“, Cnn, adOpenKeyset, adLockOptimisticWith rs1If .RecordCount 0 Thena = MsgBox(“您确实要删除这条数据吗?“, vbYesNo)If a = vbYes Then.Delete 删除记录.Update 更新记录For i = 1 To 3Text1(i).text = Adodc1.Recordset.Fields(i) 将字段值赋给 Text1 控件数组Next iCombo1.text = Adodc1.Recordset.Fields(“级别“)设置按钮有效或无效CmdSave.Enabled = FalseCmdEsc.Enabled = FalseCmdAdd.Enabled = TrueCmdDelete.Enabled = True
