图书信息管理系统

1、摘 要现今是信息的社会，信息作为社会最主要的战略资源，也越来越引起人们的重视。计算机作为信息处理的重要工具之一，其应用已经深入到社会的方方面面。面它对信息的管理方式，将大大提高人们的工作效率。使用计算机来对各种信息进行管理，不仅可以弥补人工管理所存在的诸多缺点，同时，也具有人工管理所无法比拟的优点。童心书店图书销售管理系统，便是针对图书管理和读者管理，而开发的一个典型的信息管理系统。其主要包括后台数据库的建立和维护以及前台应用程序的开发两方面。对于前者要求建立起一致性、完整性强和安性好的数据库。而对于后都，则要求应用程序具有的功能完备，易使用等特点。关键字  Visual FoxPr

2、o6.0  图书信息管理系统目 录第一章 系统概述- 2 -§1.1开发背景和开发目的- 2 -§1.2可行性研究- 2 -1.2.1技术可行性- 2 -1.2.2经济可行性- 2 -1.2.3操作可行性- 2 -第二章 系统分析- 2 -§2.1系统目标- 2 -§2.2系统的功能需求和性能需求- 3 -2.2.1系统功能需求- 3 -2.2.2性能需求- 3 -第三章 系统总体设计- 4 -§3.1系统结构设计- 4 -3.1.1系统功能模块总图- 4 -3.1.2处理流程- 5 -§3.2数据库结构设计- 7 -3.2

3、.1数据库的概念- 7 -3.2.2数据库结构- 7 -第四章 系统详细设计与实现- 11 -§4.1界面设计- 11 -第五章 测试与维护- 38 -§5.1测 试- 38 -§5.2维 护- 40 -第六章 结 论- 41 -致谢- 42 -参考文献- 43 -第一章 系统概述随着社会经济发展，作为图书销售商来说，能否对图书信息进行高效的管理，并向顾客一定的咨询服务，已经成为衡量其是否信息化的重要标志。本图书信息管理主要对图书和读者的基本信息进行管理，并且它能够提供完备的功能和便捷的操作方式。§1.1开发背景和开发目的目前，童心书店单纯的依靠手工对书

4、店进行管理，已经无法便好的适应顾客的需求。因此，需要及时开发一个管理系统对书店进行管理。由于图书的数量很多，而且还要面对大量的读者。除了对图书的信息进行添加修改外，还要对图书的销售进行记录和查询。还要对会员的信息进行增加，删除，修改等，并且对图书的借阅情况进行记录查询。如果以人工的方式来对图书行管理，将会存在着一定的缺陷，从而会导致读者在购买和借阅过程中产生一些不便。管理效率的下降。当图书和读者的数量过多时，管理效率和正确率就必然会受到限制。因此可以使用Visual FoxPro提供的数据管理功能来实现对图书信息管理。童心书店信息管理系统，主要是对图书信息进行管理，用户通过本系统可以了解图书的

5、相关信息。§1.2可行性研究1.2.1技术可行性我们运用当前最先进的技术的发展支持本系统的研发，用于建立系统的硬件设备、软件、开发环境等资源也具备。在给定的时间、功能的限制范围内，能设计并实现系统的功能和性能，不管理在人力或物力上我们都有相当丰富的系统开发资源。1.2.2经济可行性经济可行性问题包含两个方面：一方面是经济实力；另一方面是经济效益。我们对童心书店进行了成本的估计和项目成功取得效益的评估，确定要开发的项目是值得投资开发的。1.2.3操作可行性要开发的项目的运行方式在用户组织内部行的通的，操作非常方便，不会用电脑的用户也可以很快学会 第二章 系统分析§2.1系统目

6、标开发一个能够有效的管理，运行快捷、操作方便的系统，使非计算机专业人员也能灵活的操作和管理的图书信息管理系统。§2.2系统的功能需求和性能需求2.2.1系统功能需求本系统必须能解决对图书信息的管理,如：添加新的图书信息、删除无用的图书信息、修改图书信息、查询现有图书的相关信息，查看更改后的图书信息数据库等；能解决对读者信息的管理，如：添加新读者信息、修改会员信息。能够对所销售的图书进添加，对销售结果进行查询和统计；能够对图书的借阅情况进行记录和更改。如：对图书的借阅情况进行查询，对需要借阅的图书，或者是需要预约的图书做记录。对已经归还的图书进行更改。2.2.2性能需求除了满足用户的功

7、能要求外，系统的性能要求也很重要。系统的性能要求通常包括：运行时间、存储容量、界面的友好性、系统的安全性、可靠性以及容错能力等。系统的性能要求应按以下几个方面确定：(1) 容量要求：确定系统的容量，如处理的记录数和处理数据的最大容量等。(2) 精度要求：确定系统的精度。如数据或数值计算的精度和数据传输的精度等。(3) 时间特性要求：确定系统的时间特性，如处理时间、响应时间及其峰值负载期间允许偏离范围，系统各项功能的J帧序关系。(4) 适应性要求：必须指明反映系统环境变化和系统适应能力的各种参数。如当需求发生变化时，系统的适应能力，并指出为适应这些变化而需要设计的软件和过程。(5) 界面友好性：

8、要有适应用户特点的智能化人机交互界面，以便用户经过简单的培训就可操作使用。(6) 系统可靠性：为提高系统可靠性必须采用模块化和结构化设计，提高系统的容错能力，并保障系统不会因人为的操作错误而死机或崩溃。如果系统对时效要求非常高，还必须考虑双机系统和磁盘阵列等措施。此外，还应采用可靠的供电设备。对信息系统的性能而言，其要求是：信息查询的平均响应时间、连接的终端数、数据存储容量、可扩充存储容量(可存储几年、几个月的数据)等。第三章 系统总体设计§3.1系统结构设计基于结构化理论的软件结构设计是以模块为基础的。在需求分析阶段，通过分析办法已经把系统分解成层次结构。在总体设计阶段，以需求分析

9、的结果为依据，从实现的角度将需求分析的结果映射为模块，并组成模块的层次结构。3.1.1系统功能模块总图童心书店图书信息管理系统功能模块图 2.4系统数据流图童心书店图书信息管理系统数据流图3.1.2处理流程本系统的处理流程图如下所示：3.1.2模块划分及格模块功能本系统按功能可划分为六个模块：登陆模块、图书管理模块、图书销售模块、图书信息管理模块、图书信息查询模块、销售信息查询模块。1）登陆模块功能：负责分辨进入系统的是管理人员还是否具有相应的权力，来对这些信息进行管理，同时也从出一方面起到了对数据的保护作用。2）图书管理模块功能：本模块主要分两部分，一部是对图书信息的管理，负责对新的图书信息

10、进行添加，另一部则能够对当前已存在的图书信息进行删除、修改、查询等功能。 3）图书销售模块功能：同图书管理一样，这也分为两部分，一部主要是对销售的图书记录进行录入添加,另一部分则是对已经销售的记录进行查询和统计。4）买者管理模块功能：主要是对买者的信息进行管理，一部分对买者的信息进行了添加，另一部分则是对读者信息进行修改、查找等操作。5）图书服务模块功能：主要是针对买者对图书的查询、预约、等操作。6）系统管理模块功能：主要是图书信息管理系统用户信息进行操作，如：添加、修改用户信息。§3.2数据库结构设计3.2.1数据库的概念所谓数据库是指长期储存在计算机内的、有组织的、可共享的数据集

11、合。数据库中的数据按一定的数据模型组织、描述和储存，具有较小的介余度、较高的数据独立性和易扩展性，并可为各种用户共享。使用数据库可以带来许多好处：如减少了数据的冗余度，从而大大地节省了数据的存储空间；实现数据资源的充分共享等等。此外，数据库技术还为用户提供了非常简便的使用手段使用户易于编写有关数据库应用程序。数据库在我国正得到愈来愈广泛的应用，必将成为经济管理的有力工具。数据是信息系统处理的对象，数据库设计是系统设计的重要组成部分，它的好坏将直接影响到应用系统数据处理的效率。数据库按照数据的组织方式可分为层次型数据库、网状型数据库和和关系型数据库。3.2.2数据库结构本系统数据库包含4个表，即

12、图书信息表、买者信息表、图书销表和用户表。下面分别是这些表的结构。数据库文件名：library图书信息表（表名:booksinfo）用于记录图书的基本信息，包括编号、书名、书号、作者、出版社等，其逻辑结构如下:字段名字段类型宽度索引是说明编号字符型10有图书编号书号字符型28有图书书号书名字符型40有图书书名作者字符型20有图书作者出版社字符型20有图书出版社定价双精度型6(小数2位)有图书定价册数数值型3有图书册数入库日期日期型8有图书入库日期备注备注型4有备注买者信息表(表名：readerinfo) 用于记录买者的基本信息，包括读者编号、姓名、性别、详细住址及注册日期等，其逻辑结构如下:字

13、段名字段类型宽度可否为空说明读者编号字符型10否读者编号姓名字符型10否读者姓名性别字符型2否读者性别年龄数值型3否读者年龄详细地址字符型28否详细地址联系电话字符型11否联系电话注册日期日期型8否读者注册日期压金数值型6(小数2位)否读者办证所交压金是否允许借逻辑型1否读者办证件是否允许外借如下：图书销售表(saleinfo)用于记录图书的销售信息，包括书名、书号、价格、册数及是否有优惠等。其逻辑如下：字段名字段类型宽度可否为空说明书号字符型28否图书编号书名字符型40否书名作者字符型20否作者出版社字符型20否出版社定价数值度型6(小数2位)否定价销售价格数值度型6(小数2位)否销售价格销

14、售数量数值型3否销售数量销售日期日期型8否销售日期备注备注型4否备注用户表（表名：passwordinfo）用于记录用户的基本信息，包括用户名、密码和类别，其逻辑结构如下:字段名字段类型宽度可否为空说明用户名字符型6否系统的用户名密码字符型10否用户密码表与表之间表与界面之间建立了索引关系。第四章 系统详细设计与实现在使用计算机的过程当中，人和计算机是以人机界面为媒介传递信息的。用户通过接口向计算机提供各种数据和命令，来让计算机完成指定的任务。同时计算机将处理结果、出错信息，通过接口反馈给用户。用户界面设计最重要的目标是可使用性。它包括：简单要求界面能够很方便的处理各种基本的对话。术语标准化和

15、一致化系统相应快和系统成本低容错能力具备诊断错误的功能，能检查错误并能提供清楚、易理解的报错信息。具备出错保护，防止用户得到他不想要的结果。§4.1界面设计1登陆操作员使用系统前，要输入正确的用户名和密码，才可以进入“图书信息管理系统”在点击“确定”按钮后，执行以下代码：sele passwordinfoif allt(thisform.text1.value)="" thisform.text1.setfocuselse if allt(thisform.text2.value)="" thisform.text2.setfocus else

16、 locate for allt(用户名)=allt(thisform.text1.value); .and.allt(密码)=allt(thisform.text2.value) if eof() messagebox("用户名或密码错误，请重新输入！",64,"提示") thisform.text1.value="" thisform.text2.value="" thisform.text1.setfocus() else cyonghu=allt(thisform.text1.value) cmima=al

17、lt(thisform.text2.value) do menu.mpr thisform.release endif endifendif在点击“退出”按钮后，执行以下代码：thisform.releaseclean eventquit2主界面通过登陆验证后，进入主界面，通过主窗体，操作员可以方便地使用本图书信息管理系统的各项功能。在主界面表单的“init”事件中加入以下代码：Thisform.edit1.width=thisform.widthThisform.edit1.width=thisform.width*控制Edit1控件随表单自动的调整大小Do 主菜单.mpr with thi

18、s,.t.*加载主菜单3图书管理单击“图书管理”菜单，可以进行图书管理操作，比如单击“图书入库”子菜单，弹出“录入图书信息”窗口，在此窗口中可以添加新的图书信息。单击“确定”时，执行以下代码：use booksinfoif allt(thisform.text1.value)="" messagebox("请输入完整的必要信息！",64,"提示") thisform.text1.setfocuselse if allt(thisform.text2.value)="" messagebox("请输入完整的

19、必要信息！",64,"提示") thisform.text2.setfocus else if allt(thisform.text3.value)="" messagebox("请输入完整的必要信息！",64,"提示") thisform.text3.setfocus else if allt(thisform.text4.value)="" messagebox("请输入完整的必要信息！",64,"提示") thisform.text4.se

20、tfocus else if allt(thisform.text5.value)="" messagebox("请输入完整的必要信息！",64,"提示") thisform.text5.setfocus else if allt(thisform.text6.value)="" messagebox("请输入完整的必要信息！",64,"提示") thisform.text6.setfocus else if allt(thisform.text7.value)="

21、" messagebox("请输入完整的必要信息！",64,"提示") thisform.text7.setfocus else append blank repl 书号 with allt(thisform.text1.value) repl 编号 with allt(thisform.text2.value) repl 书名 with allt(thisform.text3.value) repl 作者 with allt(thisform.text4.value) repl 出版社 with allt(thisform.text5.val

22、ue) repl 定价 with allt(thisform.text6.value) repl 册数 with allt(thisform.text7.value) repl 备注 with allt(thisform.edit1.value) repl 入库日期 with date() mand2.click endif endif endif endif endif endifendifuse在单击“重填”时，执行以下代码：thisform.text1.value=""thisform.text2.value=""thisform.text3.va

23、lue=""thisform.text4.value=""thisform.text5.value=""thisform.text6.value=""thisform.text7.value=""thisform.edit1.value=""thisform.text1.setfocus在单击“返回”时，执行以下代码：thisform.release单击“修改图书信息”子菜单，弹出“修改图书信息”窗口，在此窗口中可以对图书信息进行修改。在单击“修改”按钮将执行以下代码：thi

24、sform.text1.readonly=.f.thisform.text2.readonly=.f.thisform.text3.readonly=.f.thisform.text4.readonly=.f.thisform.text5.readonly=.f.thisform.text6.readonly=.f.thisform.edit1.readonly=.f.在单击“删除”按钮将执行以下代码：use booksinfo exclusivego nheremb=messagebox("确定要删除吗？",1+64,"提示")if mb=1 dele

25、te pack thisform.label11.init if nhere>num go bottom thisform.init else go nhere thisform.init endifendif单击“第一条”按钮将执行以下代码：go topnhere=recno()thisform.label8.caption=allt(str(recno()mand4.enabled=.t.mand6.enabled=.t.thisform.init单击“最后一条”按钮将执行以下代码：go bottomnhere=recno()thisform.label8.caption=allt(

26、str(recno()mand3.enabled=.t.mand5.enabled=.t.thisform.init单击“上一条”按钮将执行以下代码：skip -1if bof() this.enabled=.f. mand3.enabled=.f. messagebox("已经到第一条记录了！",48,"提示") go top nhere=recno()else thisform.init nhere=recno()endifmand4.enabled=.t.mand6.enabled=.t.单击“下一条”按钮将执行以下代码：skip 1if eof(

27、) this.enabled=.f. mand4.enabled=.f. messagebox("已经到最后一条记录了！",48,"提示") go bottom nhere=recno()else nhere=recno() thisform.initendifmand3.enabled=.t.mand5.enabled=.t.单击“快速定位”按钮将执行以下代码：sele booksinfogo topif allt(thisform.text7.value)="" messagebox("请输入要查询的内容！",

28、64,"提示") thisform.text7.setfocus else locate for allt(书名)=allt(thisform.text7.value) if eof() go bottom thisform.init messagebox("此书不存在，请重新输入！",64,"提示") thisform.text7.setfocus else thisform.init endif nhere=recno()endif单击“返回”按钮将执行以下代码： thisform.release4图书销售单击“图书销售”菜单，可

29、以进行图书销售操作，比如单击“销售记录”子菜单，弹出“图书销售”窗口，在此窗口中可以进行图书销售操作。单击“确定”按钮之后，将执行以下代码： if allt(thisform.text2.value)="" thisform.text1.setfocuselse thisform.list1.additem(allt(thisform.text2.value) thisform.list1.additem(" "+allt(thisform.text3.value) thisform.list1.additem(" "+allt(th

30、isform.text4.value) thisform.list1.additem("销售价："+allt(thisform.text7.value)+"元×"+allt(thisform.text6.value) thisform.list1.additem("*") jiage=jiage+val(allt(thisform.text7.value)*val(allt(thisform.text6.value) thisform.label11.caption="价格总计："+allt(str(ji

31、age,7,2)+"元" sele saleinfo append blank repl 书号 with booksinfo.书号 repl 书名 with allt(thisform.text2.value) repl 作者 with allt(thisform.text3.value) repl 出版社 with allt(thisform.text4.value) repl 定价 with val(allt(thisform.text5.value) repl 销售价格 with val(allt(thisform.text7.value) repl 销售数量 wit

32、h val(allt(thisform.text6.value) repl 标识 with .T. repl 销售日期 with date() mand2.clickendif单击“取消”按钮之后，将执行以下代码：thisform.text1.value="ISBN "thisform.text1.setfocusthisform.text2.value=""thisform.text3.value=""thisform.text4.value=""thisform.text5.value=""

33、thisform.text6.value=""thisform.text7.value=""thisform.optiongroup1.option1.value=1thisform.optiongroup1.option2.value=0thisform.optiongroup1.option3.value=0thisform.optiongroup1.option4.value=0单击“返回”按钮之后，将执行以下代码：thisform.release单击“销售查询”，弹出“图书销售查询与统计”窗口，可以对已销售图书信息进行查询和统计操作。时间范围第1

34、个列表框的“init”事件:sele saleinfogo topthis.value=dtoc(销售日期)时间范围第1个列表框的“click”事件:if ctod(this.value)>ctod(bo2.value) wait window at 13,23 "后面的日期要大于前面的日期！请修改。" this.value=dtoc(销售日期)endif时间范围第2个列表框的“init”事件:this.value=dtoc(date()时间范围第2个列表框的“click”事件:if ctod(this.value)<ctod(bo1.value) wait w

35、indow at 13,35 "后面的日期要大于前面的日期！请修改。" this.value=dtoc(date()endif单击“查询”按钮之后，将执行以下代码：sele 书名,作者,出版社,销售数量 from saleinfo into cursor salels; where 销售日期>=ctod(bo1.value); .and.销售日期<=ctod(bo2.value) thisform.grid1.columncount=-1thisform.grid1.recordsource="salels"thisform.grid1.re

36、cordsourcetype=1单击“统计”按钮之后，将执行以下代码：if thisform.optiongroup1.option1.value=1 sele 书名,作者,出版社,count(销售数量) as 总销售量 from salels into cursor tjls; group by 书名 order by 总销售量 desc thisform.grid1.columncount=-1 thisform.grid1.recordsource="tjls"endifif thisform.optiongroup1.option2.value=1 sele 书名,

37、作者,出版社,count(销售数量) as 总销售量 from salels into cursor tjls; group by 作者 order by 总销售量 desc thisform.grid1.columncount=-1 thisform.grid1.recordsource="tjls"endifif thisform.optiongroup1.option3.value=1 sele 书名,作者,出版社,count(销售数量) as 总销售量 from salels into cursor tjls; group by 出版社 order by 总销售量

38、desc thisform.grid1.columncount=-1 thisform.grid1.recordsource="tjls"endif单击“退出”按钮之后，将执行以下代码：thisform.release5读者管理单击“读者管理”菜单，可以进行读者管理操作，比如单击“录入读者信息”子菜单，弹出“录入读者信息”窗口，在此窗口中可以添加新的读者信息。性别列表框的“Init”代码如下：this.displayvalue="男"this.additem("男")this.additem("女")单击“确定”按

39、钮之后，将执行以下代码：use readerinfoif allt(thisform.text1.value)="" messagebox("请输入完整的必要信息！",64,"提示") thisform.text1.setfocuselse if allt(thisform.text2.value)="" messagebox("请输入完整的必要信息！",64,"提示") thisform.text2.setfocus else if allt(thisform.text4.

40、value)="" messagebox("请输入完整的必要信息！",64,"提示") thisform.text3.setfocus else if allt(thisform.text5.value)="" messagebox("请输入完整的必要信息！",64,"提示") thisform.text4.setfocus else append blank repl 读者编号 with allt(thisform.text1.value) repl 姓名 with all

41、t(thisform.text2.value) repl 年龄 with allt(thisform.text3.value) repl 联系电话 with allt(thisform.text4.value) repl 详细住址 with allt(thisform.text5.value) repl 压金 with val(allt(thisform.text6.value) repl 备注 with allt(thisform.edit1.value) repl 注册日期 with date() if allt(bo1.value)="" repl 性别 with a

42、llt(bo1.displayvalue) else repl 性别 with allt(bo1.value) endif mand2.click endif endif endifendifuse单击“重填”按钮，将执行以下代码:thisform.text1.value=""thisform.text2.value=""thisform.text3.value=""thisform.text4.value=""thisform.text5.value=""bo1.value="&qu

43、ot;bo1.displayvalue="男"thisform.edit1.value=""thisform.text1.setfocus单击“返回”按钮之后，将执行以下代码：thisform.release单击“修改读者信息”，弹出“修改读者信息”窗口，可以对读者信息进行修改。单击“第一条”按钮将执行以下代码：go topnhere=recno()mand4.enabled=.t.mand6.enabled=.t.thisform.init单击“最后一条”按钮将执行以下代码：go bottomnhere=recno()mand3.enabled=.t.

44、mand5.enabled=.t.thisform.init单击“上一条”按钮将执行以下代码：skip -1mand4.enabled=.t.mand6.enabled=.t.if bof() go top this.enabled=.f. mand3.enabled=.f. messagebox("已经到第一条记录了！",64,"提示") nhere=recno()else nhere=recno() thisform.initendif单击“下一条”按钮将执行以下代码：skip 1mand3.enabled=.t.mand5.enabled=.t.i

45、f eof() go bottom this.enabled=.f. mand4.enabled=.f. messagebox("已经到最后一条记录了！",64,"提示") nhere=recno()else nhere=recno() thisform.initendif单击“修改”按钮将执行以下代码： thisform.text1.readonly=.f.thisform.text2.readonly=.f.thisform.text3.readonly=.f.thisform.text4.readonly=.f.thisform.text5.rea

46、donly=.f.bo1.readonly=.f.thisform.edit1.readonly=.f.单击“删除”按钮将执行以下代码：use readerinfo exclusivego nheremb=messagebox("确定要删除吗？",1+64,"提示")if mb=1 delete pack count all to num if nhere>num go bottom thisform.init else go nhere thisform.init endifendif单击“快速定位”按钮将执行以下代码：sele readerin

47、foif allt(thisform.text6.value)="" messagebox("请输入姓名或编号！",64,"提示") thisform.text6.setfocuselse locate for allt(姓名)=allt(thisform.text6.value); .or. allt(读者编号)=allt(thisform.text6.value) if eof() messagebox("没有此记录，请重新输入！",64,"提示") thisform.text6.setfo

48、cus go nhere else thisform.init endif nhere=recno()endif单击“返回”按钮将执行以下代码：thisform.release6图书服务单击“图书服务”菜单，可以进行图书服务操作，比如单击“图书查询”，弹出“查询、”窗口，在此窗口中可以查询图书。if allt(thisform.text1.value)="" sele booksinfoelse sele bookslsendifgo topthisform.initmand4.enabled=.t.mand6.enabled=.t.单击“最后一条”按钮将执行以下代码：if

49、 allt(thisform.text1.value)="" sele booksinfoelse sele bookslsendifgo bottomthisform.initmand3.enabled=.t.mand5.enabled=.t.单击“上一条”按钮将执行以下代码：if allt(thisform.text1.value)="" sele booksinfoelse sele bookslsendifskip -1if bof() this.enabled=.f. mand3.enabled=.f. messagebox("已经到

50、第一条记录了！",64,"提示") go topendifthisform.initmand4.enabled=.t.mand6.enabled=.t.单击“下一条”按钮将执行以下代码：if allt(thisform.text1.value)="" sele booksinfoelse sele bookslsendifskip 1if eof() this.enabled=.f. mand4.enabled=.f. messagebox("已经到最后一条记录了！",64,"提示") go bottom

51、endifthisform.initmand3.enabled=.t.mand5.enabled=.t.单击“查询”按钮将执行以下代码：sele booksinfoif allt(thisform.text1.value)="" messagebox("请输入要查询的内容！",64,"提示") thisform.text1.setfocuselse if thisform.optiongroup1.option1.value=1 sele 书号,书名,作者,出版社 from booksinfo into cursor booksls;

52、 where allt(书名)=allt(thisform.text1.value) endif if thisform.optiongroup1.option2.value=1 sele 书号,书名,作者,出版社 from booksinfo into cursor booksls; where allt(作者)=allt(thisform.text1.value) endif if thisform.optiongroup1.option3.value=1 sele 书号,书名,作者,出版社 from booksinfo into cursor booksls; where allt(出版

53、社)=allt(thisform.text1.value) endif thisform.initendif单击“确定”按钮将执行以下代码： sele readerinfoif allt(thisform.text3.value)="" messagebox("请输入你的编号！",64,"提示") thisform.text3.setfocuselse locate for allt(读者编号)=allt(thisform.text3.value) if eof() messagebox("您还没有注册，请先注册.",48,"警告") thisform.text3.value="