图书管理系统论文(VB+Access).doc

图书管理系统论文(VB+Access)

———————————————————————————————— 作者：
———————————————————————————————— 日期：

2

个人收集整理 勿做商业用途
目   录

内容摘要…………………………………………………………………… 2
引言………………………………………………………………………… 3
第一章   课题简介………………………………………………………… 4
第二章   需求分析………………………………………………………… 5
2。1图书管理现状……………………………………………………………5
2。2系统的数据字典…………………………………………………………6
2。3系统数据流程图……………………………………………………… 10
第三章   系统概念…………………………………………………………11
3.1系统功能模块解析…………………………………………………… 12
3.2系统功能结构图……………………………………………………… 13
3。3系统ER图的设计…………………………………………………… 14
第四章   系统逻辑和物理设计………………………………………… 19
4.1数据库的设计………………………………………………………… 19
4.2数据库的维护………………………………………………………… 22
4。3功能模块的实现……………………………………………………… 24
第五章   调试与分析………………………………………………………44
5。1存在问题及解决方案………………………………………………… 45
5.2进一步改进设想……………………………………………………… 45
第六章   用户操作说明………………………………………………… 46
6.1软硬件环境…………………………………………………………… 46
6。2应用系统安装………………………………………………………… 46
6.3操作手册……………………………………………………………… 46
小结…………………………………………………………………………46
参考文献……………………………………………………………………47
致谢…………………………………………………………………………47

图书管理系统论文（vb+access）

引 言

当今时代是飞速发展的的信息时代.在各行各业中离不开信息处理,这正是计算机被广泛应用于信息管理系统的原因。计算机的最大好处在于利用它能够进行信息管理.使用计算机进行信息控制,不仅提高了工作效率，而且大大的提高了其安全性.尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。本系统就是为了管理好图书馆信息而设计的。
图书馆作为一种信息资源的集散地，图书和用户借阅资料繁多，包含很多的信息数据的管理，现今,有很多的图书馆都是初步开始使用，甚至尚未使用计算机进行信息管理.根据调查得知，他们以前对信息管理的主要方式是基于文本，表格等纸介质的手工处理，对于图书借阅情况（如借书天数,超过限定借书时间的天数）的统计和核实等往往采用对借书卡的人工检查进行,对借阅者的借阅权限，以及借阅天数等用人工计算，手抄进行.数据处理工作量大，容易出错。由于数据繁多,容易丢失，且不易查找。总的来说,缺乏系统规范的信息管理手段.尽管有的图书馆有计算机,但是尚未用于信息管理，没有发挥它的效力，资源闲置比较突出，这就是管理信息系统的开发的基于环境。
基于这个问题，我认为有必要建立一个图书管理系统,使图书管理工作规范化，系统化，程序化，避免图书管理的随意性,提高信息处理的速度和准确性，能够及时,准确，有效的查询和修改图书情况。

第一章      课题简介

课题：图书管理系统。
任务：针对各大中专院校的图书管理现状，设计出适合一般学校的计算机辅助图书管理系统.实现对图书基本信息、读者基本信息进行计算机辅助管理，完成借书和还书有关信息的记录、修改、查询、删除等一系列任务的计算机管理与实现。。
开发环境：本图书管理开发系统是在Pentyum 166mmx 以上机型的计算机上进行开发并获得通过的，同时方便系统开发，减少开发过程的难度，我们是基于以下的软件环境。
·以Windows xp为操作系统
·以Visual Basic6.0为开发工具
·以Access 2000作为后台数据库
功能概述:该系统界面友好，操作简便，能完成添加图书信息,修改图书信息，查询图书信息,添加读者类别，修改读者类别,查询读者信息，修改读者信息等一系列图书管理功能,开发本系统的总体任务是实现图书管理的系统化和自动化，帮助管理人员更好更高效地完成图书管理工作。本着实用性和介绍性的原则，整个系统由五大模块组成,每个大的模块又包括三至四个小的模块。
一、图书管理部分：包括图书信息管理和类别管理，其功能是实现对各部分数据内容进行添加、修改、查询等操作.
二、借阅管理部分：包括借书管理和还书管理，其功能是实现对各部分数据内容的添加和查询等操作。
三、读者管理部分：包括读者信息管理和读者类别管理，其功能是实现对各部分数据内容的添加和修改等操作。
四、系统管理部分:包括修改系统用户密码和增加新用户两项功能。
五、帮助部分：包括系统设计前台和后台简概，退出系统等功能。
系统具有高效、易操作、易维护等特点,并且系统结构清晰、界面友好，功能较为齐全,能有效地协助管理人员进行图书管工作。

第二章  需求分析

需求分析阶段确定的系统逻辑模型是以后设计和实现目标系统的基础，因此必须准确完整地体现用户的要求.在这一章里,我将给出系统的数据流图,功能结构图，数据字典,为系统的设计奠定基础.
2。1图书管理现状
随着计算机技术的飞速发展，其应用方面已渗透到社会生活的各个领域。它已经成为我们学习和工作的得力助手。在学校，尤其是在一些高校，图书是学校的一项重要资源，图书的管理也是学校的一项常规性的重要工作。而长期以来,学生图书管理都是依赖人工进行的.现今,有很多的学校都已经开始使用计算机进行图书信息管理，并且起得良好的效果。近年来我校招生情况越来越好，所以图书管理工作越来越繁重,但由于种种原因，管理人员并没有增加，因此原有的人工管理工作已不能适应现行的工作需要。同时，陈旧的人工管理也不利于推广计算机应用。为使图书管理工作科学化、规范化，就必须采用计算机辅助管理。
2。2．系统的数据字典
数据字典的作用是在软件分析和设计的过程中给人提供关于数据的描述信息。数据流图和数据字典共同构成系统的逻辑模型，没有数据字典数据流图就不严格,然而没有数据流图数据字典也难于发挥作用.只有数据流图和对数据流图的精确定义放在一起,才能共同构成系统的规格说明。
系统开发时，常用卡片的形式书写保存描述一个数据元素。
下面给出本系统的主要数据元素的数据字典卡片：

名字：读者信息查询报表
别名:读者信息表
描述:读者基本情况查询结果的信息表
定义：读者信息查询报表＝读者编号＋读者姓名＋性别＋类别＋单位＋住址＋电话＋登记日期＋已借书数量
位置：输出到打印机

名字:图书信息查询报表
别名：图书信息表
描述:各种书籍查询基本信息表
定义：图书信息查询报表＝图书编号＋书名＋类别＋作者＋出版社＋出版日期＋登记日期＋是否被借出
位置:输出到打印机
2.3.  数据流程图
数据流程图（Data Flow DFD）是描述实际业务管理系统工作流程的一种图形表示法。它描绘系统的逻辑模型图，其中没有任何具体的物理元素,只是描绘信息在系统中流动和处理的情况.因为数据流图是逻辑系统的图形表示，即使不是专业的计算机技术人员也容易理解，所以是极好的通信工具。此外，设计数据流图只需考虑系统必须完成的基本逻辑功能,完全不需要考虑如何具体地实现这些功能，所以它也是软件设计的很好的出发点。《图书管理系统》主要是为了对图书、读者基本信息等进行计算机管理。下面就是对各个功能模块的流程分析：
1、图书类别管理基本信息流程： 
分析：图书类别基本信息的流动首先是以图书类别的编号为依据，来达到添加、修改、查询图书类别记录.同时,也对数据库中的图书类别表的编号进行检查.
2、图书信息管理基本信息流程:
分析：图书基本信息的流动首先是以图书编号为流动方向的依据，来达到添加、修改、记录、删除图书记录.为了数据的一致性,进行这些操作的同时，也对数据库中的记录进行检查,检查是否有重复的记录。如有则不能进行添加。
3、读者类别管理基本信息流程
   分析：读者类别基本信息的流动首先是以读者类别编号为流动方向的依据，来达到添加、修改、记录读者类别记录。为了数据的一致性，进行这些操作的同时，也对数据库中的记录进行检查，检查是否有重复的记录.如没有则可进行添加.
4、读者信息管理基本信息流程：
分析:读者基本信息的流动首先是以读者的编号为依据，来达到添加、修改、查询、删除读者信息的记录。同时，也对数据库中的读者信息表的编号进行检查。
5、借书管理基本信息流程:
分析：借书管理基本信息的流动首先是以借阅编号为流动方向的依据，来达到添加、查询借书记录.为了数据的一致性，进行这些操作的同时,也对数据库中的记录进行检查,检查是否有重复的记录。如没有则可进行添加。
6、还书管理基本信息流程：
分析：借阅管理部分是实现对各部分数据内容的添加和查询操作,在借阅信息中包括借阅编号、读者编号、读者姓名、书籍名称、出借日期和还书日期。并通过添加功能来达到借阅信息表的数据的更新，通过查询可使管理员很快地了解借阅信息，从而避免书籍的丢失现象产生。
通过上面对各个模块流程的分析，那么我们就不难对整个系统的大致流程有一个全面的认识。设计时采用了常用的自顶向下的瀑布式结构化设计方法.各子系统具有独立的数据库结构,同时又具有相关的关键字，这样系统做起来后就便于用户操作。综合上面各个模块的流程分析，其总体流程图如下：

第三章．系统的概念

概念设计阶段主要任务和目标是根据需求分析的结果，包括一般联系实体，画出对应的ER图。对于复杂的系统，通常首先要对它的各功能模进行分析，然后再把它的功能结构图画出来，便是设计和优
化。功能分析之后，再根据各个岗位、各个用户对数据和使用权限的不同要求作出局部ER图,然后再把各个局部ER图综合起来形成统一的整体ER图。
3.1系统模块功能解析
图书管理部分：包括图书信息管理和类别管理，其功能是实现对各部分数据内容进行添加、修改、查询等操作.各管理部分的明细如下:
（1)图书信息管理：包括图书信息的添加、图书信息的修改、图书信息的查询和图书的信息删除4部分。其中，图书信息包括图书编号、书名、图书类别、作者、出版社、出版日期、登记日期以及是否已被借出。
(2）图书类别管理：包括图书类别的添加、图书类别的修改、图书类别的删除3部分功能。其中，图书类别包括类别名称和类别编号两部分。
借阅管理部分：包括借书管理和还书管理，其功能是实现对各部分数据内容的添加和查询等操作。各管理部分的明细如下：
（1)借书管理：包括添加借书信息和查询借书信息2部分功能.其中，借阅信息包括借阅编号、读者编号、读者姓名、图书编号、图书名称、出借日期和还书日期。
(2）还书管理：实现添加还书信息功能。其中,还书信息与借阅信息部分明细相同.
读者管理部分：包括读者信息管理和读者类别管理，其功能是实现对各部分数据内容的添加和修改、删除等操作.各管理部分的明细如下:
（1)读者信息管理：包括读者信的添加、读者信息的修改、读者信息的查询和读者信息的删除4部分功能.其中,读者信息包括读者姓名、读者编号、性别、读者类别、工作单位、家庭住址、电话号码、登记日期和已借书数量.
(2)读者类别管理：包括读者类别的添加、读者类别的修改、读者类别的删除3部分功能.其中,读者类别包括各种类名称、借书期限和有效期限4部分.
系统管理部分：包括修改系统用户密码、增加新用户和退出系统三项功能。系统初始设置一个超级用户名和密码，操作人员可以利用这个超级用户名和密码登录，之后，可以设置其他的超级用户名称，也可以设置权限用户，同时也设置了这个用户可以使用的权限。
帮助部分:包括系统设计前台和后台简概述等功能。
运行本系统程序，首先出现登录界面，输入正确的用户名和密码后才能进入主窗体.对主窗体上各个菜单的设置采用快捷键，便于用户更方便的应用该系统。

3.2 系统功能结构图

图书管理系统
系统结构图

数据存盘

数据读取

期刊打印
图书打印
用户查询
模糊查询
多条件查询
期刊统计
图书统计
统计
打印
检索
家庭图书主库
用户建库
编目
数据
存取

3.3系统ER图的设计
软件系统本质上是信息处理系统，因此,在软件系统的整个开发过程中都必须考虑两方面的问题——“数据”及对数据的“处理"。为了把用户的数据要求清晰明确地表达出来，系统分析员通常建立一个概念性的数据模型。概念性数据模型是一种面向问题的数据模型，是按照用户的观点来对数据和信息建模，它描述了从用户角度看到的数据，它反映了用户的现实环境，且与在软件系统中的实现方法无关。这里我们运用最常用的表示概念性数据模型的方法，是实体——联系方法即E-R模型.通常,软件系统中有许多数据是需要长期保存的。为减少数据冗余，简化修改数据的过程，实现对数据进化规范化.
正题名
期刊号
期刊信息表
录入时间
作者
ISBN号
位置
图书信息表
文件类型
出版社
附录
价格
副题名
正题名
书籍号
登陆用户信息
图书信息
期刊信息
数据库
数据库表的关系

出版社
年份
价格
卷

副题名
统一刊号
ISSN号

登陆用户信息表

用户口令
用户名

密码 码
用户名
用户名胜古名名胜古迹 户
管理
管理
出版社
副题名
录入时间
ISBN号
存放位置
作者 者
书籍号
正题名
期刊 刊

●E-R 图

卷
年份 份
期
副题名

ISSN号

价格
图书

统一刊号

期刊号

正题名

程序流程图： 删除数据程序流图:
删除数据
确定删除？
从数据库中删除

录入数据

数据要求

不符合要求 no
符合要求 yes
保存到数据库

录入数据程序流图：

输入查询关键字

寻找数据

没有记录
找到记录
从数据库中删除

查询信息程序流图

第四章 系统逻辑和物理设计

4.1数据库的设计
根据上面的数据库ER图,现在需要将上面的数据库概念结构转化为SQL Server2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。在上面的实体以及实体之间关系的基础上，形成数据库中的表格以及各个表格之间的关系。图书管理信息系统数据库中各个表格的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表。
1.图书类别表
字段名
数据类型
说明
类别名称
文本
必添字段“是”，允许空字符为“否”
类别编号
文本
必添字段“是”，允许空字符为“否”

2.图书信息表
字段名
数据类型
说明
图书编号
文本
必添字段“是”，允许空字符为“否”
书名
文本
必添字段“是”，允许空字符为“否”
类别
文本
字段大小50
作者
文本
字段大小50
出版社
文本
字段大小50
出版日期
日期/时间
无
登记日期
日期/时间
无
是否借出
文本
字段大小2

3.借阅信息表
字段名
数据类型
说明
借阅编号
自动编号
无
读者编号
文本
字段大小50
读者姓名
文本
字段大小50
图书编号
文本
字段大小50
图书名称
文本
字段大小50
出借日期
日期/时间
无

4.读者信息表
字段名
数据类型
说明
读者姓名
文本
必添字段“是”，允许空字符为“否"
读者编号
文本
必添字段“是”，允许空字符为“否"
性别
文本
字段大小2
读者类别
文本
字段大小50
工作单位
文本
字段大小50
家庭住址
文本
字段大小50
电话号码
文本
字段大小50
登记日期
日期/时间
无
已借数量
数字
无

字段名
数据类型
说明
种类名称
文本
必添字段“是”,允许空字符为“否”
借书数量
数字
无
借书期限
数字
无
有限期限
数字
无
5.读者类别表

4。2数据库的维护
  由于应用环境不断变化，数据库运行过和中物理存储也会不断变化，对数据库设计进行调整，修改等维护工作是设计工作的继续和提高。对数据库经常性的维护工作主要包括:
1。数据库的转储和恢复
针对不同的应用要求制定不同的转储计划，保证一旦发生故障能尽快将数据库恢复到某种一致的状态，尽可能减少对数据库的破坏。
2.数据库的安全性、完整性控制
在数据库运行过程中由于应用环境的变化，对安全性的要求也会发生变化,如原来机密的数据现在可以公开查询了，新加入的数据又可能是机密的了。系统中用户的密级改变.这都需要根据实际情况修改原有的安全性控制，可以设置数据库密码及用户权限。同样,数据库的完整性的约束条件也会变化，需要DBA不断修正.
3.数据库性能的监督、分析和改造
利用Microsoft SQL Server2000提供的检测系统性能参数的工具，在数据库运行过程中，监督数据进行分析，找出改进系统性能的方法,并做适当调整。
4。数据库的重组及重构造
数据库运行一段时间后，由于记录不断增、删、改，增添、修改的数据不能为空，否则不能保存到数据库中。使数据库的物理存储情况变坏，降低了数据的存取效率,数据库性能下降,这时DBA要对数据库进行重组织,或部分重组织（只对频繁增、删的表进行重组织），可以利用Microsoft SQL Server2000专门提供的数据重组织实用程序操作，按原设计要求重新安排存储位置、回收垃圾、减少指针链等，提高系统性能。
有些情况,如由于数据库应用环境发生变化，增加了新的应用或新的实体，取消了某些应用,有的实体与实体间的联系发生变化，则需要调整数据库的模式及内模式。
4.3功能模块的实现
按结构化的程序设计思想,在完成了系统分析、系统设计后,就可以进行系统实现阶段了，系统实现是每指把系统的物理模型转换成实际运行系统的全过程。在打开数据表之前应该先打开数据库，使用公共模块中定义的conn对象。打开数据库应该安排在Form_Load事件中，因为确定用户名和密码是否正确就已经使用数据库中的内容了.双击窗体部分，加入如下的代码：
Private Sub From_Load()
Dim connectionstring As String
Connectionstring=”Provider=Microsoft。Jet.oledb.4。0；”＆_
                “data source=archivel.mdb"
conn。Open connectionstring
……
End Sub
注意：当程序不再使用数据库时,应该调用Connection对象的Close方法将其关闭,但此时它还会占用一定的系统资源,完全将资源释放给系统的方法是使用下面的语句：
Set conn=Nothing.不过，这两个步骤往往会被省略,因为当程序关闭时,程序所打开的数据也会随之关闭，Connection对象所占用的系统资源也会自动释放给系统。
登录窗体的实现
图书录入窗口

期刊录入窗口

其代码如下：
Option Explicit
Dim CNt As Integer               '记录确定次数
程序装载的过程中将此变量初始化为0                   
Dim sql As String
Dim rs_login As New ADODB.Recordset
If Trim（txtuser.Text） = ”" Then  '判断输入的用户名是否为空
   MsgBox "没有这个用户", vbOKOnly + vbExclamation， ""
   txtuser.SetFocus
Else
   sql = "select * from 系统管理 where 用户名='” ＆ txtuser。Text & ”'”
   rs_login.Open sql, conn， adOpenKeyset, adLockPessimistic
   If rs_login。EOF = True Then
      MsgBox ”没有这个用户”， vbOKOnly + vbExclamation, ""
      txtuser。SetFocus
   Else                         ”检验密码是否正确"
      If Trim（rs_login。Fields（1）) = Trim（txtpwd.Text） Then
          userID = txtuser.Text
          userpow = rs_login。Fields（2)
          rs_login。Close
          Unload Me
          Form1。Show
      Else
         MsgBox ”密码不正确"， vbOKOnly + vbExclamation， ”"
         txtpwd.SetFocus
      End If
   End If
End If
CNt = cnt + 1
If CNt = 3 Then
   Unload Me
End If
Exit Sub
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load(）
Dim connectionstring As String
connectionstring = ”provider=Microsoft.Jet.oledb.4.0；” & _
                   ”data source=book.mdb”
conn。Open connectionstring
CNt = 0
End Sub
注意:工程属性对话框中的”启动选项”用来选取择运行VB时显示的第一个窗体,或者Sub Main.
主窗体中的代码不多,基本上都是实现单击某个菜单选项即弹出相应窗体的语句，这些语句将分别在各个窗体中介绍。单击“系统管理”     “退出系统”菜单，关闭系统代码如下：
Private Sub exit_sys_Click()
End
End sub
系统主窗体的实现

登陆窗口

用户录入窗口

其代码如下：
Private Sub add_admin_Click()
frmadduser.Show
End Sub

Private Sub add_back_book_Click()
frmbackbookinfo。Show
End Sub

Private Sub add_book_info_Click()
frmaddbookinfo。Show
End Sub

Private Sub add_book_style_Click（）
frmaddbookstyle。Show
End Sub

Private Sub add_lend_book_Click（）
frmfindbook。Show
End Sub

Private Sub add_reader_info_Click()
frmaddreaderinfo.Show
End Sub

Private Sub add_reader_style_Click()
frmaddreaderstyle。Show
End Sub

Private Sub change_pwd_Click(）
frmchangepwd。Show
End Sub

Private Sub del_book_info_Click（)
frmmodifybookinfo.Show
End Sub

Private Sub del_book_style_Click（）
frmmodifybookstyle.Show
End Sub

Private Sub del_reader_info_Click（)
frmreaderinfo。Show
End Sub

Private Sub del_reader_style_Click（）
frmmodifyreaderstyle.Show
End Sub

Private Sub exit_sys_Click(）
End
End Sub

Private Sub find_book_info_Click（）
frmfindbook。Show
End Sub

Private Sub find_lend_book_Click()
frmfindborrowinfo.Show
End Sub

Private Sub find_reader_info_Click（)
frmfindreader.Show
End Sub

Private Sub gu_Click（）
frmSplash。Show
End Sub
Private Sub H_Click(）
End Sub

Private Sub Image1_Click（)
End Sub
Private Sub modify_book_info_Click（）
frmmodifybookinfo.Show
End Sub
Private Sub modify_book_style_Click（)
frmmodifybookstyle。Show
End Sub
Private Sub modify_reader_info_Click()
frmreaderinfo。Show
End Sub 
Private Sub modify_reader_style_Click（)
frmmodifyreaderstyle.Show
End Sub
图书类别管理窗体的实现
图书类别管理窗体由2个Text控件、2个label控件、2个commandbutton控件组成。其中，2个label控件作为标识,2个text控件被接收用户输入,2个commandbutton控件作为“确定”和“取消”按钮。
运行时的窗体如下：
图书统计窗口

期刊统计窗口图书存取窗口

期刊存取窗口

图书浏览窗口

其实现代码如下：
当单击添加图书类别菜单时，代码如下：
Private Sub add_book_style_Click（）
frmaddbookstyle。Show
End Sub
当单击“确定”按钮时,首先检查输入的图书类型和种类编号是否为空,代码如下:
Private Sub Command1_Click()
Dim rs_bookstyle As New ADODB.Recordset
Dim sql As String
If Trim(Text1.Text) = "" Then
   MsgBox "图书种类不能为空"， vbOKOnly + vbExclamation， "”
   Text1.SetFocus
   Exit Sub
End If
If Trim（Text2。Text) = ”” Then
   MsgBox ”种类编号不能为空”， vbOKOnly + vbExclamation， "”
   Text2。SetFocus
   Exit Sub
End If
如果不为空，则检查类别名称是否有重复，需要打开图书类别表，先定义一个字符串类型的变量和一个RECORDSET对象变量。
Private Sub Command1_Click（)
Dim rs_bookstyle As New ADODB.Recordset
Dim sql As String
If Trim(Text1。Text） = ”” Then
使用RECORDSET对象的OPEN方法打开数据表。
End If
sql = "select ＊ from 图书类别 where 类别名称=’” ＆ Text1.Text ＆ "'”
rs_bookstyle。Open sql， conn, adOpenKeyset, adLockPessimistic
   如果没有重复，此时TECORDSET对象的EOF属性应改为FASLE,此时将新的数据添加到数据库，并给出提示代码如下。
   If rs_bookstyle.EOF Then
   rs_bookstyle。AddNew
   rs_bookstyle。Fields（0） = Trim（Text1.Text)
   rs_bookstyle。Fields（1） = Trim（Text2.Text)
   rs_bookstyle.Update
   MsgBox ”添加图书类别成功！", vbOKOnly， "”
   rs_bookstyle。Close
Else
如果有重复，则给出提示，然后将焦点设置给TEXT1，并将所有的文本框清空，代码如下。
   Else
   MsgBox "读者类别重复!"， vbOKOnly + vbExclamation， "”
   Text1。SetFocus
   Text1.Text = ""
   rs_bookstyle.Close
   Exit Sub
End If
End Sub
添加图书信息窗体的实现
添加图书信息窗体由1个Frame控件、1个Combox控件、2个CommandButton控件、6个Text控件和7个Label控件作为标识，6个Text控件和1个ComboBox控件用于接收用户输入，2个CommandButton控件作为“确定”和“取消”按钮。
运行时的窗体如下:
 图书查询窗口

期刊查询窗口

用户查询窗口

期刊打印窗口

当单击“图书管理/图书信息管理/添加图书信息”菜单时，弹出如下代码：
Private Sub Command1_Click(）
Dim rs_addbook As New ADODB。Recordset
Dim sql As String
If Trim(Combo1。Text） = ”” Then
   MsgBox "请选择图书种类”, vbOKOnly + vbExclamation, ""
   Combo1.SetFocus
   Exit Sub
End If
If Trim(Text1.Text) = ”" Then
   MsgBox "图书编号不能为空”， vbOKOnly + vbExclamation， ”"
   Text1.SetFocus
   Exit Sub
End If
If Trim(Text2.Text） = "” Then
   MsgBox "书名不能为空”， vbOKOnly + vbExclamation, ””
   Text2.SetFocus
   Exit Sub
End If
   If Not IsDate(Text5.Text) Then
      MsgBox "请按照yyyy—mm-dd格式输入日期”, vbOKOnly + vbExclamation， ”"
      Text5.SetFocus
      Exit Sub
   End If
   If Not IsDate（Text6.Text） Then
      MsgBox ”请按照yyyy—mm-dd格式输入日期"， vbOKOnly + vbExclamation, "”
      Text6.SetFocus
      Exit Sub
   End If
sql = ”select * from 书籍信息 where 书籍编号='" ＆ Text1。Text & "'”
rs_addbook.Open sql， conn， adOpenKeyset， adLockPessimistic
If rs_addbook.EOF Then
   rs_addbook.AddNew
   rs_addbook.Fields（0） = Trim（Text1。Text）
   rs_addbook.Fields(1) = Trim（Text2。Text）
   rs_addbook.Fields（2） = Trim（Combo1.Text)
   rs_addbook。Fields（3) = Trim(Text3。Text）
   rs_addbook。Fields(4) = Trim(Text4。Text）
   rs_addbook。Fields(5) = Trim(Text5。Text)
   rs_addbook.Fields（6) = Trim(Text6.Text）
   rs_addbook。Fields(7) = ”否”
   rs_addbook.Update
   MsgBox ”添加书籍信息成功!", vbOKOnly， "”
   rs_addbook