毕业论文（设计）图书管理系统的设计与实现VB.doc

《毕业论文（设计）图书管理系统的设计与实现VB.doc》由会员分享，可在线阅读，更多相关《毕业论文（设计）图书管理系统的设计与实现VB.doc（38页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、目 录摘 要3Abstract3第一章 绪 论41.1 数据库应用系统开发简介4 数据库41.1.2 数据库管理系统41.1.3 创立数据库41.2 图书管理系统5第二章 图书馆管理系统的总体设计52.1 功能分析52.1.1 系统结构52.1.2 模块设计62.1.3 书籍管理局部62.1.4 读者管理局部72.1.5 借阅管理局部82.1.6 系统管理局部8第三章 数据库及开发平台83.1 数据库设计83.2 Microsoft Access介绍83.3 Visual Basic 6.0介绍9第四章图书馆管理系统的具体实现94.1 建立主窗体94.1.1 添加菜单94.1.2 添加代码94

2、.2 建立添加图书类别窗体94.2.1 建立窗体94.2.2 添加控件94.2.3 添加代码104.3 建立图书类别管理窗体114.3.1 建立窗体114.3.2 添加控件124.3.3 添加代码124.4 建立添加图书信息窗体164.4.1 建立窗体164.4.2 添加控件164.4.3 添加代码164.5 建立图书信息管理窗体194.5.1 建立窗体194.5.2 添加窗体194.5.3添加代码194.6 建立查询图书信息窗体234.6.1 建立窗体234.6.2 添加代码234.7 建立添加借书信息窗体254.7.1 建立窗体254.7.2 添加控件254.7.3 添加代码264.8建立

3、查询借书信息窗体304.8.1 建立窗体304.8.2 添加控件314.8.3 添加代码314.9 建立添加还书信息窗体324.9.1 建立窗体324.9.2 添加控件334.9.3 添加代码33第五章 系统的发布37第六章 结论和总结38参考文献39附录39摘 要图书管理系统是典型的信息管理系统MIS，其开发主要包括后台数据库的建立与维护以及前端应用程序的开发两发面。对于前者要求建立起数据一致性和完整性强、数据平安性好的库。而对于后者那么要求应用程序功能完备，易使用等特点。因此本人结合开入式图书馆的要求，对Access数据库管理系统、Visual Basic进行了较深入的学习和应用，主要完成

4、对图书管理系统的需求分析、功能模块划分、数据库模式分析，并由此设计了数据库结构和应用程序。系统运行结果证明，本文所设计的图书管理系统可以满足借阅者、图书馆工作人员和高级管理员三方面的需求。【关键词】：数据库，Access，Visual Basic，图书管理ABSTRACTBooks management the system is a typical information management system(MIS),its development primarily include the backstage the database of establish with the devel

5、opment that maintenance and the head apply the procedure two aspect . Request to establish to rise the data the consistency with the lib that the complete is strong, data the safety like for the former. But then request the applied procedure the function for the latter complete, easy usage etc. char

6、acteristics.Therefore oneself combination open into the request that type library, need towards Access database management system, Visual Basic proceed in-depthly study with apply, primarily complete to books manage system analysis, function mold the piece divide the line, database mode analysis, co

7、mbined to from here designed the database the construction with applied procedure. The system circulates to pan out the proof, this text books that design management the system can satisfy to borrow the book, library the worker manage the with high class three aspect of demand.【 key phrase 】：Databas

8、e, Access, Visual Basic , book management第一章 绪 论1.1 数据库应用系统开发简介在数据库应用系统开发之前，对开发数据库的根本概念应当了解，对数据库的结构、开发数据库应用程序的步骤、开发体系及方法都应当有相当清晰的了解和认识。数据库应用系统开发的目标是建立一个满足用户长期需求的产品。开发的主要过程为：理解用户的需求，然后，把它们转变为有效的数据库设计。把设计转变为实际的数据库，并且这些数据库带有功能完备、高效能的应用。数据库技术在计算机软件邻域研究中一直是非常重要的主题，产生于60年代，30多年来数据库技术得到了迅速开展，并已形成较为完整的理论体系和

9、一大批实用系统。并且，近年来，随着World Wide Web(WWW)的猛增及Internet技术的迅速开展，使得数据库技术之时成为最热门技术之一。1.1.1 数据库数据库由DBMS数据库管理系统处理，DBMS那么由开发人员和用户通过应用程序直接或间接地使用。它主要包括四个要素：用户数据、元数据、索引和应用元数据。 数据库管理系统数据库管理系统DBMS是指数据库系统中管理数据的软件系统。DBMS是数据库系统的核心组成局部。对数据库的一切操作，包括定义、更新及各种控制,都是通过DBMS进行的。DBMS总是基于某种数据模型，可以把DBMS看成是某种数据模型在计算机系统上的具体实现。根据数据模型的

10、不同，DBMS可以分成层次型、网状型、关系型、面向对象型等。1.1.3 创立数据库数据库模式定义了数据库的结构、表、关系、域和业务规那么。数据库模式是一种设计，数据库和应用正是建立在此根底上的。域是一列可能拥有的值的集合。必须为每一个表的每一列确定域。除了数据的物理格式外，还需要确定是否有些域对表来说是唯一的。数据库模式的最后一个要素是业务规那么，它是对需要反映在数据库和数据库应用程序中的业务活动的约束。业务规那么是模式的一个重要局部，因为他们指定了无论什么数据变化到达DBMS引擎，允许的数据值必须满足的约束。不管无效的数据变化请求是来自窗体的用户、查询/修改请求还是应用程序，DBMS都应该拒

11、绝。1.2 图书管理系统当今时代是飞速开展的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其平安性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。本系统就是为了管理好图书馆信息而设计的。图书馆作为一种信息资源的集散地，图书和用户借阅资料繁多，包含很多的信息数据的管理，现今，有很多的图书馆都是初步开始使用，甚至尚未使用计算机进行信息管理。总的来说，缺乏系统，标准的信息管理手段

12、。尽管有的图书馆有计算机，但是尚未用于信息管理，没有发挥它的效力，资源闲置比拟突出，这就是管理信息系统的开发的根本环境。数据处理手工操作，工作量大，出错率高，出错后不易更改。图书馆采取手工方式对图书借阅情况进行人工管理，由于信息比拟多，图书借阅信息的管理工作混乱而又复杂；一般借阅情况是记录在借书证上，图书的数目和内容记录在文件中，图书馆的工作人员和管理员也只是当时对它比拟清楚，时间一长，如再要进行查询，就得在众多的资料中翻阅、查找了，造成查询费时、费力。如要对很长时间以前的图书进行更改就更加困难了。基于这此问题，我认为有必要建立一个图书管理系统，使图书管理工作标准化，系统化，程序化，防止图书管

13、理的随意性，提高信息处理的速度和准确性，能够及时、准确、有效的查询和修改图书情况。第二章 图书馆管理系统的总体设计2.1 功能分析2.1.1 系统结构开发本系统的总体任务是实现图书管理的系统化和自动化,帮助图书管理人员更好更高 效地完成图书管理工作。本系统要完成的功能有: 书籍管理局部:这一局部包括书籍类别管理和书籍信息管理两局部。其中,书籍类别管理包括添加书籍类别、修改书籍类别等:书籍信息管理包括书籍信息的添加，书籍信息的修 改、书籍信息的查询、书籍信息的删除等。读者管理局部:这一局部包括读者类别管理和读者信息管理两局部。其中,读者类别管理包括添加读者类别、修改读者类别等:读者信息管理包括添

14、加读者信息、修改读者信息、删除读者信息、查询读者信息等。借阅管理局部:这一局部包括借书信息管理和还书信息管理两局部。其中,借书信息管 理包括借书信息的添加、借书信息的修改、借书信息的查询等:还书信息管理局部包括还书 信息的添加、还书信息的修改、还书信息的查询等: 系统管理:包括修改系统用户密码、增加新用户以及退出系统等。2.1.2 模块设计根据上面所介绍的主要功能,对这个系统进行分析,得到如图1所示的系统功能模块图。2.1.3 书籍管理局部书籍管理局部包括书籍信息管理和书籍类别管理,其功能是实现对各局部数据内容的添 加、修改、删除等操作。各管理局部的明细如下:图书管理系统读者管理局部系统管理读

15、者书籍管理局部借阅管理局部还书管理读者类别管理书籍信息管理书籍类别管理读者信息管理增加用户修改密码借书管理 删除读者信息添加读者信息修改读者信息添加读者信息添加读者类别书籍类别修改书籍类别添加书籍信息删除书籍信息查询书籍信息修改书籍信息添加还书信息修改还书信息添加还书信息查询借书信息查询查询读者信息查询读者信息借书信息修改借书信息添加图1 系统功能模块图书籍信息管理:包括书籍信息的添加、书籍信息的修改、书籍信息的查询和书籍信息的删除4局部功能。其中,书籍信息包括图书编号、书名、图书类别、作者、出版社、出 版日期、登记日期以及是否已被借出。(2)书籍类别管理:包括书籍类别的添加、书籍类别的修改、

16、书籍类别的删除3局部功能。其中,书籍类别包括类别名称和类别编号两局部。2.1.4 读者管理局部读者管理局部包括读者信息管理和读者类别管理,其功能是实现对各局部数据内容的添 加、修改、删除等操作。各管理局部的明细如下: (1读者信息管理:包括读者信息的添加、读者信息的修改、读者信息的查询和读者信 息的删除4局部功能。其中,读者信息包括读者姓名、读者编号、性别、读者类别、工作单位、家庭住址、 号码、登记日期和己借书数量。读者类别管理:包括读者类别的添加、读者类别的修改、读者类别的删除3局部功 能。其中,读者类别包括种类名称、借书数量、借书期限和有效期限4局部。 2.1.5 借阅管理局部借阅管理局部

17、包括借书管理和还书管理,其功能是实现对各局部数据内容的添加和查询 操作。各管理局部的明细如下: 1借书管理:包括添加借书信息和查询借书信息2局部功能。其中,借阅信息包括借阅编号、读者编号、读者姓名、书籍编号、书籍名称、出借日期和还书日期。 (2)还书管理:实现添加还书信息功能。其中,还书信息与借阅信息各局部明细相同。 2.1.6 系统管理局部设置操作人员。系统初始设置一个超级用户名和密码,操作人员可以利用这个超级用户 名和密码登录,之后,可以设置其他的超级用户名称,也可以设置权限用户,同时也设置了 这个用户可以使用的权限。此外,在系统登录界面中输入密码与用户名不符3次将自动退出登录。第三章 数

18、据库及开发平台3.1 数据库设计根据上面分析的系统的各种功能要求,可以很容易想到系统所需的数据库应该按照如下 思路设计:书籍类别、书籍信息、读者类别、读者信息和图书借阅局部等应该各自作为一个表存在,此外,系统管理员的信息单独使用一个表来记录。本系统效劳器端采用Windows 2000作为操作系统，同时配置Access数据库效劳器，用于数据的存储和处理，客户端采用Windows2000操作系统。 前台开发工具采用Visual Basic，后台数据库连接是采用Access数据库效劳器。1Microsoft Access建立一个数据库我们有多种选择，在本系统中，作为图书馆管理系统的一个比拟小的应用系

19、统，它所产生和处理的数据量也比拟小。因此，没有必要使用像SQL Server和Oracle这样的大型数据库。Microsoft Office中的Access数据库在计算机上的应用比拟普及，是开发小型数据库系统的比拟理想的选择，所以，在本系统中我选择了Access数据库。与其他数据库系统相比，Access更加简单易学，普通的计算机用户可以很快的掌握它。Access2000的功能十分强大，利用它可以方便地实现对信息保存、维护、查询、统计、打印、交流、发布，而且它可以方便地与Office其他组件交流数据，这些功能对一般用户而言已经足够2Visual BasicMicrosoft Visual bas

20、ic 是可视化的,面向对象的,由事件驱动的结构化高级程序设计语言.它提供了最迅速,最简洁的开发应用程序的方法.Visual 的中文意思是可视的,直观的,看得见的,形象化的.这里的Visual指直观的开发应用程序界面的方法,只需将系统提供的标准控件手臂放到屏幕窗体上, Visual basic就会自动地生成相应控件的程序代码和其属性数据,而不需要用户去编写大量的界面程序代码. Basic指的是BASIC语言,为Beginner All-purpose Symbolic Instruction Code 一词的缩写,意思是初学者通用符号指令代码.该语言在开展史上是使用最为广泛的程序合计语言,它易学

21、,易懂,深受广阔初学者的欢送. Visual basic 在原有BASIC语言的根底上开展成为易学,易掌握的,功能强大的最新程序设计语言.第四章 图书馆管理系统的具体实现4.1 建立主窗体4.1.1 添加菜单使用菜单编辑器编辑系统主菜单。4.1.2 添加代码 主窗体中的代码不多,根本上都是实现单击某个菜单项选择项即弹出相应窗体的语句,这些 语句将分别在各个窗体中介绍。单击系统管理一)退出系统菜单,关闭系统代码如下。Private sub exit_sys_click( )EndEnd Sub4.2 建立添加图书类别窗体4.2.1 建立窗体添加一个窗体,并按照表所示设置窗体的属性。4.2.2 添

22、加控件添加图书类别窗体由2个Text控件、2个Label控件、2个CommandButton控件组成。 其中,2个Label控件作为标识,2个Text控件接收用户输入,2个CommandButton控件作 为确定和取消按钮。添加这些控件,并按照表所示设置这些控件的属性。4.2.3添加代码当单击图书管理/图书类别管理/添加图书类别菜单时,弹出如下图窗体。代码如下。 Private Sub add_book_style_click()Frmaddbookstyle.showEnd sub当单击确定按钮时,首先检查输入的图书类型和种类编号是否为空,代码如下。Private subcommand1_c

23、lick()Dim sql As stringIf trim(text1.text)= then Msgbox图书种类不能为空,vbOKOnly+vbExclamation,Text1.setfocusExit subEnd if If trim(text2.text)= then Msgbox种类不能为空,vbOKOnly+vbExclamation,Text1.setfocusExit subEnd if如果不为空,那么检查类别名称是否有重复,需要翻开图书类别表,先定义一个字符串类 型的变量和一个Recordset对象变量。Private sub comm.and1_click()Dim

24、rs_booksytle as new adodb.recordsetDim sql as stringIf trim(text1.text)= then使用Recordset对象的open方法翻开数据表。Private sub comm.and1_click()end if sql=select * from 图书类别 where 类别名称“&text1.text&rs_bookstyle.open sql,conn,adOpenKeyset,adLockPessimistic如果没有重复,此时Recordset对象的EOF属性应改为Fasle,此时将新的数据添加到数据库,并给出提示代码如下

25、。Private sub command1_click()if rs_bookstyle.eof then rs_bookstyle.addnewrs_bookstyle.fields(0)=trim(text1.text)rs_bookstyle.fields(1)=trim(text2.text)rs_bookstyle.updateMsgbox添加图书类别成功！，vbOKOnly, rs_bookstyel.closeelse如果有重复,那么给出提示,然后将焦点设置给Text1,并将所有的文本框清空,代码如下。Private sub command1_click()elsemsgbox读

26、者类别重复！,vbokonly+vbExclamation.Text1.setfocusText1.text=Rs_bookstyle.close;Exit subEnd ifEnd sub当单击取消时,那么退出此窗体,代码如下。Private sub command2_click()Unload meEnd sub以上就是添加图书类别窗体的实现过程。4.3 建立图书类别管理窗体(修改、删除类别)4.3.1 建立窗体添加一个窗体,并按照表1所示设置窗体的属性。表 1 图书类别管理窗体的属性设置 窗体属性取值Name Frmmodifybookstylecaption图书类别管理StartUpP

27、osition2-cneterScreenmaxButtonfalse4.3.2 添加控件图书类别管理窗体由1个Datagrid控件、2个Frame控件、4个CommandButton控件组成。其中,2个Frame控件作为容器,分别用来放置Datagrid控件和CommandButton控件, 4个CommandButton控件作为修改类别、删除类别、更新和取消按钮。 这一局部需要用到Datagdd控件。用户自行将其添加到控件栏内。方法是 单击工程一?部件菜单,在窗体中找到Microsoft Datagrid Control 6.0。选项并在其前面的方框内打勾。添加完后,在控件栏内应该显示Da

28、tagrid 的图标。添加这些控件,并按照表2所示设置这些控件的属性。表2控件的属性设置控件属性属性取值Frame1Caption空Frame2Caption空Command1(名称)cmdmodifyCaption修改类别Command2(名称)CmddelCaption删除类别Command3(名称)CmdupdateCaption更新Command2(名称)CmdcancelCaption取消Datagdd控件的属性不需要做任何修改,取默认值即可。 4.3.3 添加代码当单击图书管理/图书类别管理/修改图书类别菜单时,弹出如下图的窗体。 代码如下：Private sub modify_b

29、ook_style_click()Frmmodifybookstyle.showEnd sub当单击图书管理/图书类别管理/删除图书类别菜单时,弹出窗体。 代码如下。Private sub del_book_style_click()Frmmdifybookstyle.showEnd sub在窗体力加载时,首先翻开数据表。在通用变量声明局部定义一个Recordset数据对象, 代码如下。Option explicitDim rs_reader as new adodb.recordset在Form _Load事件中首先翻开图书类别数据表,使用Recordset对象的Open方法,代码 如下。P

30、rivate sub form_lock()Dim sql as stringOn error goto loaderrorSql=select * from 图书类别Rs_reader.cursolocation=adUseClientRs_reader.open sql,conn,adopenKeyset,adLockPessimistic 翻开数据库窗体刚刚加载时，“更新按钮应设置为不可用，即将其Enabled书行为falseprivate sub form_load()cmdupdate.Enabled=false设置Datagrid控件不可更改,即将其AllowAddNew、Allo

31、wDelete、AllowUpdate属性 设置为Fdse。Private sub form_load()设定datagrid控件属性datagrid1.allowaddnew=false 不可增加datagrid1.allowdelete=false 不可删除datagrid1.allowupdate=false使用datagrid控件显示图书类别数据表中的数据信息，只需将该控件的datasource属性设置为recordset对象即可private sub form_load()set datagrid1.datasource= rs_readerend sub添加错误处理局部的语句如下。

32、private sub form_load()set datagrid1.datasource= rs_readerexit subloaderror: msgbox err.descriptionend sub双击修改类别按钮,添加代码以实现这局部的功能。当窗体处于修改类别状态时,该按钮和删除按钮是不可用的,将其Enabled属性设置为 False,更新和取消按钮是可用的,将其Enabled属性设置位True。Private Sub cmdmodify_Click()Dim answer As StringOn Error GoTo cmdmodifycmddel.Enabled = Fal

33、secmdmodify.Enabled = Falsecmdupdate.Enabled = Truecmdcancel.Enabled = True当窗体处于修改类别状态时,Datagrid控件的AllowUpdate属性应该是可用的,将其设 置位True。Private Sub cmdmodify_Click()Cmdcancel.enabled=trueDatagrid1.allowupdate=trueCmdmodify:添加错误处理语句。Private Sub cmdmodify_Click()Dim answer As StringOn Error GoTo cmdmodifyCm

34、dmodify:If Err.Number 0 Then MsgBox Err.DescriptionEnd IfEnd Sub修改数据后,单击更新按钮,那么系统将会更新当前的数据。使用Update方法,代码 如下。Private Sub cmdupdate_Click()If Not IsNull(DataGrid1.Bookmark) Then rs_reader.UpdateEnd If然后将各个按钮的状态恢复到修改前。Private Sub cmdupdate_Click()cmdmodify.Enabled = True cmddel.Enabled = True cmdcancel

35、.Enabled = False cmdupdate.Enabled = False DataGrid1.AllowUpdate = False MsgBox 修改成功！, vbOKOnly + vbExclamation, End Sub修改数据后,如果想放弃修改,那么单击取消按钮即可。双击取消按钮,添加代码以实现这局部功能。将按钮复原,使用CancelUpdate方法取消更新,重新显示数据,并将表格控件的 A11owAddNew和AllowUpdate属性设置为False。Private Sub cmdcancel_Click() rs_reader.CancelUpdate DataGr

36、id1.Refresh DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False cmdmodify.Enabled = True cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = FalseEnd Sub双击删除类别按钮,添加代码以实现这局部的功能。 首先提示用户是否确定删除,定义一个字符串变量接受用户的答复。Private Sub cmddel_Click()Dim answer As StringOn Error GoTo delerrora

37、nswer = MsgBox(确定要删除吗？, vbYesNo, )如果答复“是，将当前表格的Allowdelete属性设置为True.使用Recordset对象的方法将当前的记录删除，使用update方法将数据表更新Private Sub cmddel_Click()Dim answer As StringOn Error GoTo delerroranswer = MsgBox(确定要删除吗？, vbYesNo, )If answer = vbYes Then DataGrid1.AllowDelete = True rs_reader.Delete rs_reader.Update这时数

38、据表发生了变化,应该将Datagrid刷新以显示这一变化,同时提示用户删除成功, 并将AllowDelete属性设置为False。Private Sub cmddel_Click()rs_reader.UpdateDataGrid1.Refresh如果用户答复否,那么退出此过程。Private Sub cmddel_Click()Else Exit SubEnd If当窗体卸载的时候,将Datagid控件的DataSource属性设置为Nothing,同时关闭数据 对象。Private Sub Form_Unload(Cancel As Integer)Set DataGrid1.DataSo

39、urce = Nothingrs_reader.CloseEnd Sub以上就是图书类别管理窗体的实现过程。4.4 建立添加图书信息窗体4.4.1 建立窗体添加一个窗体。4.4.2 添加控件添加图书信息窗体由1个Frame控件、1个ComboBox控件、2个CommandButton控件、 6个Text控件和7个Label控件组成。其中,7个Label控件作为标识,6个Text控件和1个 ComboBox控件用于接收用户输入,2个CommandButton控件作为确定和取消按钮。 添加这些控件,并设置这些控件的属性。添加好控件的窗体效果如下图。4.4.3 添加代码当单击图书管理/图书信息管理/

40、添加图书信息菜单时,弹出如上图所示窗体。设计代码如下。Private Sub add_book_info_Click()frmaddbookinfo.ShowEnd Sub窗体加载时,首先将所有可选的图书类别添加到列表框中。定义一个Recordset对象用 来翻开数据表。Private Sub Form_Load()Dim rs_leibie As New ADODB.RecordsetDim sql As Stringsql = select * from 图书类别rs_leibie.Open sql, conn, adOpenKeyset, adLockPessimistic使用Recor

41、dset对象的MoveFirst方法将数据记录移动到第一条,并使用循环语句将所有 的图书类别添加到列表框中。Private Sub Form_Load()rs_leibie.MoveFirstDo While Not rs_leibie.EOF Combo1.AddItem rs_leibie.Fields(0) rs_leibie.MoveNextLooprs_leibie.CloseEnd Sub当单击确定按钮时,首先检查输入的图书类型、图书编号和书名是否为空,代码如下。Private Sub Command1_Click()Dim sql As StringIf Trim(Combo1.

42、Text) = Then MsgBox 请选择图书种类, vbOKOnly + vbExclamation, Combo1.SetFocus Exit SubEnd IfIf Trim(Text1.Text) = Then MsgBox 图书编号不能为空, vbOKOnly + vbExclamation, Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = Then MsgBox 书名不能为空, vbOKOnly + vbExclamation, Text2.SetFocus Exit SubEnd If然后检查输入的日期的格式是否正确,如果

43、不正确那么给出提示,代码如下。Private Sub Command1_Click()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检查图书编号是否有重复,需要翻开书籍信息表,先定义一

44、个字符串类型的变量和一个 Recordset对象变量。Private Sub Command1_Click()Dim rs_addbook As New ADODB.RecordsetDim sql As String使用Recordset对象的open方法翻开数据表。Private Sub Command1_Click()End Ifsql = select * from 书籍信息 where 书籍编号= & Text1.Text & rs_addbook.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_addbook.EOF Then如果没有重复,此时Recordset对象的EOF属性应改为true,此时将新的数据添加到数 据库,并给出提示代码如下。If rs_addbook.EOF Then rs_addbook.AddNew rs_addbook.Fields(0) = Trim(Text1.Text) rs_addbook.Fields(1) = Trim(Text2.Text) rs_addbook.Field