第10章图书管理系统.doc

第10章 图书管理系统本 章 内 容 数据库应用系统开发的基本思想和步骤 创建关于图书管理系统的表和数据库 创建借书表单 创建还书表单 创建资料查询表单 创建图书管理表单 创建读者管理表单 创建图书管理系统的报表 创建报表打印表单 创建一个自定义工具栏类 设计图书管理系统的主表单 初始化表单的制作 制作数据备份表单 创建数据恢复表单 创建数据清空表单 制作密码验证表单 制作密码修改表单 创建系统封面表单 图书管理系统菜单的制作 图书管理系统主程序的制作 创建项目组织系统结构 应用系统的发布 案例1：数据库应用系统开发的基本思想和步骤学习Visual FoxPro最终的目的是开发一个数据库应用系统，本章通过制作图书管理系统集中介绍数据库开发的全过程，以及开发数据库应用系统的制作方法和步骤。一、 需求分析1、开发目的： 这个图书管理系统主要为小型图书馆、图书社设计，根据这些图书馆、图书社图书管理的需求，经过分析后要实现的功能有：（） 能浏览图书的资料信息和读者的资料信息。（） 能够按一定条件查询相关资料的信息。（） 能够修改、增加和删除相关资料信息。（） 能按条件打印相关资料信息。（） 有安全性较强的系统入口。（） 应用系统自身的维护功能。2、数据需求：作者经过数据需求的分析，这个系统需要建立关于图书资料信息、读者资料信息、借书登记和帐户管理的四个表，创建一个数据库，并且实现图书资料信息、读者资料信息和借书登记表之间的关联，详细的设计在案例二中讲述。3、功能分析：（） 浏览能浏览图书的资料信息和读者的资料信息。（） 查询能对图书资料、读者资料和借阅登记的信息按照一定的条件进行查询或者模糊查询。（） 数据维护对图书资料、读者资料和借书登记的相关数据进行修改、添加、删除等的数据维护。（） 撤消保存能撤消错误的操作，能保存用户更改的信息。（） 资料打印对图书资料、读者资料和借书登记的相关数据信息按照指定的条件进行打印。（） 数据备份、恢复和清除能随时对数据进行备份，也能对数据进行恢复，还可以对整个数据库和表进行初始化和清除操作。（） 帐户密码的管理可以修改帐户密码二、 模块分析1、系统维护模块系统维护模块包括了系统初始化、数据表的清空、数据备份、数据恢复、密码修改和系统退出等的功能。这些功能是通过独立的表单实现的。2、借还书模块这个模块包括两个表单，分别实现借书和还书功能，在这两个表单上我们可以查看要借或者要还图书的信息资料和读者的信息资料，并且利用“借书”和“还书”两个按钮实现借书和还书登记。3、资料查询模块这个模块通过一个拥有两个页框的表单实现图书资料和读者资料的查询，并且可以是模糊查询，也可以是精确查询。4、资料管理模块这个模块包括两个表单，分别实现图书资料的管理和读者资料的管理，管理包括：查看资料、修改资料、删除资料以及添加资料等等功能。5、打印资料模块通过一个表单实现有条件打印，在这个表单里我们可以选择要打印的数据，实现按条件打印的目标。三、 开发步骤：1、创建数据表和数据库。表和数据库是数据库应用系统操作的基础和核心，所以经过需求分析后接着要做的就是设计表和数据库。表的设计要合理，要建立关联的表必须有相同的字段名，关于表和数据库的设计知识我想大家一定知道，这里就不详述了。2、应用程序的设计。一个应用系统包含多种类型的文件，比如表单、菜单、报表、子类等等，每一种文件又有好多个，这些种类数量繁多的应用程序必须有一个清晰的设计思路，同一个系统不同的设计者有不同的设计思路，比如有人设计是从整体到局部、从大到小，先建立项目管理器，接着创建主程序，然后是主界面，最后才是某个具体功能的表单、报表等等，也有人是正好相反的步骤。而作者本人喜欢先设计小的、局部的，然后再设计大的、整体的，我认为这样对编程等方面是有利的。3、连编生成应用程序或可执行文件。当一个项目建立好后，在项目运行前还必须对它们“连编”。主要目的是生成可执行文件，同时可以设置项目信息，比如版权等，还可以测试和校验项目，测试程序组件是否可用。4、测试并发布应用程序。以上步骤完成后，剩下的就是发布程序了。案例2：创建关于图书管理系统的表和数据库制作要点：1、创建表2、建立主索引和普通索引3、创建数据库4、实现两个表之间的关联步骤详解：刚才已经说过表和数据库是数据库应用系统操作的基础和核心，设计的时候要充分考虑到表之间的关联，同时注意数据库设计的合理性，以免造成数据冗余。下面列出图书管理系统的所有表的结构与必须的索引，表中的记录大家可以自己加几个，在这个案例中我们需要这样四个表：1、读者信息表（读者信息.DBF）结构：读者信息(读者编号 c(10) primary key,读者姓名 c(10),证件号 c(20),性别 c(2),单位部门 c(20),住址 c(40),职业 c(20),联系电话 c(12),备注 c(40),未还书目 c(2)2、图书资料表（图书资料.DBF）结构：图书资料(图书编号 c(10) primary key,图书类别 c(10),图书名称 c(50),作者 c(20),出版社 c(30),出版日期 d,入馆日期 d,购买价格 y(8),借阅次数 n(4),备注 c(50)3、借书登记表（借书登记.DBF）结构：借书登记(读者编号 c(10),图书编号 c(10),读者姓名 c(10),读者证件号 c(20),借阅日期 d,归还日期 d,借书标志 c(4), foreign key 读者编号 tag 读者编号 references 读者信息,foreign key 图书编号 tag 图书编号 references 图书资料)4、系统帐号表（系统账号.DBF）结构：系统账号（账号 c(20),密码 c(20)）接着再创建一个名为“读者管理”的数据库，把图书资料.DBF、读者资料.DBF和借书登记.DBF三个表添加到数据库里面并按表结构要求建立关联。如图10-1所示：图10-1 “读者管理”数据库案例3：创建借书表单案例运行效果与操作在这个表单中，我们可以通过输入读者的读者编号来了解读者的信息，也可以输入图书编号来了解要借图书的信息，当读者确定要借出时，单击“借出”按钮就可以把信息记录在借书登记表里面。借书表单的运行效果如图10-2。 图10-2 “js”表单运行效果其中单击“清空”按钮会将表单上所有的文本框内容清除，退出表单时，单击“退出”按钮就可以。制作要点1、 SQL查询语言2、 文本框属性设置步骤详解1、新建一个表单，保存文件名为js，打开“数据环境设计器”窗口，向其中添加读者信息表、图书资料表以及借书登记表。如图10-3添加对象，分别添加十六个标签、十四个文本框、五个按钮和两个形状。 图10-3 “js”表单 2、这些控件的属设置如表10-1： 表10-1“js”属性设置对象属性属性值说明Form1AutoCenter.t.-真设置这个表单在首次显示时自动在Visual FoxPro主窗口中自动居中BorderStyle2-固定对话框指定边框样式Caption书籍借阅标题Iconmonitor.ico(自己选择)表单的图标，大家可以使用自己喜欢的图标MaxButton.F.-假关闭最大化按钮NameForm1表单名ShowTips.T.-真显示工具提示ShowWindow1-在顶层表单中指定在创建过程中表单窗口显示表单WindowType1-模式表单在显示或运行时的动作模式Label1Caption读者信息AutoSize.T.-真Label2到Label16的AutoSize属性都照此设置BackStyle0-透明Label2到Label16的BackStyle属性都照此设置FontName宋体Label2到Label16的FontName属性都照此设置FontSize11Label10的FontSize属性也是11，其它从Label2到Label16的FontSize属性都是9Label2Caption读者编号：Label3Caption姓 名：Label4Caption性 别：Label5Caption证件号：Label6Caption单位部门：Label7Caption联系电话：Label8Caption备注：Label9Caption未还书目：Label10Caption图书信息Label11Caption图书编号：Label12Caption图书名称：Label13Caption图书类别：Label14Caption作 者：Label15Caption出版社：Label16Caption购买价格：Shape1BackStyle0-透明指定形状的背景为透明SpecialEffect0-3维指定形状的格式Shape2BackStyle0-透明SpecialEffect0-3维 Text1BackColor224,224,224背景色，自己选择一种喜欢的颜色就行，Text2到Text14的BackColor属性都可照此设置Text2ControlSource读者信息.读者姓名指定文本框的数据源是表读者信息中的读者姓名字段Text3ControlSource读者信息.性别Text4ControlSource读者信息.证件号Text5ControlSource读者信息.单位部门Text6ControlSource读者信息.联系电话Text7ControlSource读者信息.备注Text8ControlSource读者信息.未还书目Text10ControlSource图书资料.图书名称Text11ControlSource图书资料.图书类别Text12ControlSource图书资料.作者Text13ControlSource图书资料.出版社Text14ControlSource图书资料.购买价格Command1Caption确 定按钮上显示的文字FontName宋体按钮上显示的文字字体Command2Caption确 定FontName宋体Command3Caption借 出FontName宋体Command4Caption清 空FontName宋体Command5Caption退 出FontName宋体3、按照图示调整好这些对象的大小和位置，然后双击表单给这些对象添加代码：Form1的Load事件代码：sele 1use 读者信息sele 2use 图书资料Unload事件代码：use设置Command1“确定“按钮的Click事件代码：sele 1 locate for 读者编号=upper(allt(thisform.text1.value) if not found() =messagebox(没有该读者编号!,0+64+0,提示) go top else mand3.enabled=.T. endif thisform.refresh设置Command2“确定“按钮的Click事件代码：sele 2 locate for 图书编号=upper(allt(thisform.text9.value) if not found() =messagebox(没有该图书编号!,0+64+0,提示) go top else mand3.enabled=.T. endif thisform.refresh设置Command3“借出“按钮的Click事件代码：nAnswer = MESSAGEBOX(确认所借书目的资料无误吗？,4+32+0,重要提示)if nAnswer = 6insert into 借书登记(图书编号,读者姓名,读者证件号,借阅日期,借书标志);values(upper(allt(thisform.text10.value),;upper(allt(thisform.text2.value),;upper(allt(thisform.text4.value),; datetime(),借出)sele 2replace 借阅次数 with 借阅次数+1 endif 设置Command4“清空“按钮的Click事件代码：thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text4.value= thisform.text5.value= thisform.text6.value= thisform.text7.value= thisform.text8.value= thisform.text9.value= thisform.text10.value= thisform.text11.value= thisform.text12.value= thisform.text13.value= thisform.text14.value=0.00thisform.text1.setfocus设置Command5“退出“按钮的Click事件代码：thisform.release保存表单，保存文件名为js。执行表单，看看运行效果如何。案例4：创建还书表单案例运行效果与操作还书表单的运行效果和还书表单运行效果基本上一样，只不过显示的一些信息有变化，“借出”按钮变成了“还书”按钮，还书表单的运行效果如图10-4所示：图10-4 还书表单的运行效果我们可以输入已借的图书编号，单击“确定”查看指定的图书信息以及借书登记信息，单击“还书”按钮，实现还书登记。其他按钮的功能和借书表单中的相同按钮一样。制作要点1、 SQL查询语言2、 文本框属性设置3、 一些常用函数的使用步骤详解1、创建还书表单（hs.scx），在命令窗口中输入命令：CREATE FORM hs。打开“数据环境设计器”窗口，向其中添加图书资料表以及借书登记表。 2、如图10-5所示添加控件，控件包括十二个标签、十一个文本框、两个形状和四个按钮，并且调整它们的位置和大小，合理分布在表单上。图10-5 还书表单4、 设置这些表单控件的属性，见表10-2：表10-2“hs”属性设置对象属性属性值说明Form1AutoCenter.t.-真BorderStyle2-固定对话框Caption还书Iconmonitor.ico(自己选择)MaxButton.F.-假NameForm1ShowTips.T.-真ShowWindow1-在顶层表单中WindowType1-模式Label1Caption所还图书信息AutoSize.T.-真BackStyle0-透明FontName宋体FontSize11Label2Caption图书编号：AutoSize.T.-真Label2到Label112的AutoSize属性都照此设置BackStyle0-透明Label2到Label12的BackStyle属性都照此设置FontName宋体Label2到Label12的FontName属性都照此设置FontSize9Label2到Label12的FontSize属性都照此设置Label3Caption图书名称：Label4Caption图书类别：Label5Caption作 者：Label6Caption出版社：Label7Caption购买价格：Label8Caption读者编号：Label9Caption姓 名：Label10Caption借书日期：Label11Caption证件号：Label12Caption应还日期： Text1BackColor224,224,224Top59文本框高度，Text2到 Text11的Top属性准此Width168文本框宽度Text2到 Text11的Width属性准此Text2ControlSource图书资料.图书名称Text3ControlSource图书资料.图书类别Text4ControlSource图书资料.作者Text5ControlSource图书资料.出版社Text6ControlSource图书资料.购买价格Text7ControlSource借书登记.读者编号Text8ControlSource借书登记.读者姓名Text9ControlSource借书登记.借阅日期Text10ControlSource借书登记.读者证件号Text11ControlSource借书登记.归还日期Shape1BackStyle0-透明指定形状的背景为透明SpecialEffect0-3维指定形状的格式Shape2BackStyle0-透明SpecialEffect0-3维Command1Caption还 书FontName宋体Command2Caption确 定FontName宋体Command3Caption清 空FontName宋体Command4Caption退 出FontName宋体3、按照图示调整好这些对象的大小和位置，然后双击表单给这些对象添加代码：Form1的Load事件代码：open database 读者管理Form1的Unload事件代码：close database设置Command2“确定“按钮的Click事件代码：sele 2 locate for 图书编号=upper(allt(thisform.text1.value) if not found() =messagebox(没有该图书编号!,0+64+0,提示) go top else mand1.enabled=.T. endif thisform.refresh设置Command1“还书“按钮的Click事件代码：nAnswer = MESSAGEBOX(确认你还的书目的资料无误吗？,4+32+0,重要提示)if nAnswer = 6sele 3replace 借书标志 with 还回,归还日期 with datetime() for 图书编号=allt(thisform.text1.value)thisform.refresh =messagebox(操作完成，该书已经归档！,0+64+0,完成)Endif设置Command3“清空“按钮的Click事件代码：thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text4.value= thisform.text5.value= thisform.text6.value=0.00thisform.text7.value= thisform.text8.value= thisform.text9.value= thisform.text10.value= thisform.text11.value= thisform.text1.setfocus设置Command4“退出“按钮的Click事件代码：thisform.release案例5：创建资料查询表单案例运行效果与操作这个表单是包含两个选项卡的查询对话框，用于查询读者信息资料和图书信息资料，每一个选项卡都有查询选项和用于显示查询结果的表格，还可以选择是否用模糊查找。表单上除了两个选项卡外，还设计了四个按钮辅助查询。表单的运行效果如图10-6和10-7所示，在查询栏中输入其中的一些信息，可以是一个也可以是几个，并且选择是否模糊查找，然后单击选项卡上的“确定”或者选项卡外的“确定”按钮，表单中就会显示查询结果。“清空”按钮用于清除文本框中的数据。另外表单中还有一个“全部显示”按钮，功能是显示图书资料全部信息或者是读者信息资料，显示那一个由选项卡的活动页决定，也就是说，由你选择的选项卡决定。“退出”按钮用于释放表单。 图10-6 资料查询图书资料查询运行效果 图10-7 资料查询读者资料查询运行效果制作要点1、 页框添加以及页框属性的设置2、 表格添加以及表格属性的设置3、字符串比较函数步骤详解1、新建一个表单，保存文件名为cx，打开“数据环境设计器”窗口，向其中添加读者信息表、图书资料表。2、如图10-6和10-7通过“表单控件”添加控件，分别添加一个页框控件（Pageframe1）、和四个按钮控件。然后右击页框，选择“编辑”，在页框的两个页面（Page1和Page2）上分别添加其它控件。页面Page1上有一个形状控件、五个标签控件、四个文本框控件、一个复选框控件、一个表格控件和两个按钮控件；同样页面Page2上有一个形状控件、五个标签控件、四个文本框控件、一个复选框控件、一个表格控件和两个按钮控件。这些控件的主要属性设置如表10-3所示：表10-3“cx”属性设置对象属性属性值说明Form1AutoCenter.t.-真BorderStyle2-固定对话框Caption资料查询Iconmonitor.ico(自己选择)MaxButton.F.-假NameForm1ShowTips.T.-真ShowWindow1-在顶层表单中WindowType1-模式Command1Caption查 询FontName宋体Height61Width73Picturekfind.ico按钮上显示的图标，大家可以自己选择合适的，VFP中自带很多图标，一般保存在Microsoft Visual StudioCommonGraphicsIcons文件中ToolTipText单击查询控件提示文本Command2Caption显示全部FontName宋体Height61Width73Picturefont_type1.icoToolTipText显示全部资料Command3Caption清 空FontName宋体Height61Width73Picturetrashcan_empty.icoToolTipText清空数据Command4Caption退 出FontName宋体Height61Width73Picturexapp.icoToolTipText关闭此表单Pageframe1NamePageframe1PageCount2页框包含的页数Page1Caption图书资料查询Shape1BackStyle0-透明SpecialEffect0-3维Label1Caption查 询AutoSize.T.-真Standardlabel1到Standardlabel4的AutoSize属性都照此设置BackStyle0-透明Standardlabel1到Standardlabel4的BackStyle属性都照此设置FontName宋体Standardlabel1到Standardlabel4的FontName属性都照此设置FontSize10Standardlabel1到Standardlabel4的AutoSize属性都设置为9Standardlabel1Caption图书编号:Standardlabel2Caption图书类别:Standardlabel3Caption图书名称:Standardlabel4Caption作 者:Check1Caption模糊查找AutoSize.T.-真Command1Caption查 找Command2Caption清 空 Grid1ColumnCount10表格列数BackColor237,237,226 表格背景Column1ControlSource图书资料.图书编号表格列数据来源 Header1Caption图书编号Column2ControlSource图书资料.图书名称 Header2Caption图书名称Column3ControlSource图书资料.作者 Header3Caption作者Column4ControlSource图书资料.图书类别 Header4Caption图书类别Column5ControlSource图书资料.出版社 Header5Caption出版社Column6ControlSource图书资料.出版日期 Header6Caption出版日期Column7ControlSource图书资料.入馆日期 Header7Caption入馆日期Column8ControlSource图书资料.购买价格 Header8Caption购买价格Column9ControlSource图书资料.借阅次数 Header9Caption借阅次数Column10ControlSource图书资料.备注 Header10Caption备注Page2Caption读者资料查询Shape1BackStyle0-透明SpecialEffect0-3维Label1Caption查 询AutoSize.T.-真Standardlabel1到Standardlabel4的AutoSize属性都照此设置BackStyle0-透明Standardlabel1到Standardlabel4的BackStyle属性都照此设置FontName宋体Standardlabel1到Standardlabel4的FontName属性都照此设置FontSize10Standardlabel1到Standardlabel4的AutoSize属性都设置为9Standardlabel1Caption读者编号:Standardlabel2Caption证件号：Standardlabel3Caption读者姓名：Standardlabel4Caption职 业：Check1Caption模糊查找AutoSize.T.-真Command1Caption查 找Command2Caption清 空 Grid1ColumnCount10表格列数BackColor237,237,226 表格背景Column1ControlSource读者信息.读者编号表格列数据来源 Header1Caption读者编号Column2ControlSource读者信息.读者姓名 Header2Caption读者姓名Column3ControlSource读者信息.证件号 Header3Caption证件号Column4ControlSource读者信息.性别 Header4Caption性别Column5ControlSource读者信息.单位部门 Header5Caption单位部门Column6ControlSource读者信息. 住址 Header6Caption住址Column7ControlSource读者信息.职业 Header7Caption职业Column8ControlSource读者信息.联系电话 Header8Caption联系电话Column9ControlSource读者信息.未还书目 Header9Caption未还书目Column10ControlSource图书资料.备注 Header10Caption备注3、按照图示调整好这些对象的大小和位置，然后双击表单给这些对象添加代码。首先给表单右边的四个按钮添加代码。“查询”按钮的Click事件代码：if thisform.Pageframe1.activepage=1thisform.pageframe1.page1.Grid1.recordsourceType=4tsbh=allt(thisform.Pageframe1.page1.text1.value)zz=allt(thisform.pageframe1.page1.text2.value)tsmc=allt(thisform.pageframe1.page1.text3.value)tslb=allt(thisform.pageframe1.page1.text4.value)if thisform.pageframe1.page1.check1.value=0thisform.pageframe1.page1.Grid1.recordsource=;select * from 图书资料 where tsbh$图书编号;.or.zz$作者.or.tsmc$图书名称.or.tslb$图书类别 into cursor aelseset exact onthisform.pageframe1.page1.Grid1.recordsource=;select * from 图书资料 where tsbh=图书编号;.or.zz=作者.or.tsmc=图书名称.or.tslb=图书类别 into cursor aset exact offendifelse if thisform.Pageframe1.activepage=2thisform.pageframe1.page2.Grid1.recordsourceType=4dzbh=allt(thisform.Pageframe1.page2.text1.value)dzxx=allt(thisform.Pageframe1.page2.text2.value)zjh=allt(thisform.Pageframe1.page2.text3.value)dwbm=allt(thisform.Pageframe1.page2.text4.value)if thisform.Pageframe1.page2.check1.value=0thisform.Pageframe1.page2.Grid1.recordsource=;select * from 读者信息 where dzbh$读者编号;.or.dzxx$读者姓名.or.zjh$证件号.or.dwbm$职业 into cursor aelseset exact onthisform.Pageframe1.page2.Grid1.recordsource=;select * from 读者信息 where dzbh=读者编号;.or.dzxx=读者姓名.or.zjh=证件号.or.dwbm=职业 into cursor aset exact offendifendifendif“显示全部”按钮的Click事件代码：if thisform.Pageframe1.activepage=1thisform.pageframe1.page1.Grid1.recordsourceType=4thisform.pageframe1.page1.Grid1.recordsource=;select * from 图书资料 into cursor aendif if thisform.Pageframe1.activepage=2thisform.pageframe1.page2.Grid1.recordsourceType=4thisform.Pageframe1.page2.Grid1.recordsource=;select * from 读者信息 into cursor aEndif“清空”按钮的Click事件代码：if thisform.Pageframe1.activepage=1thisform.Pageframe1.page1.text1.value=thisform.Pageframe1.page1.text2.value=thisform.Pageframe1.page1.text3.value=thisform.Pageframe1.page1.text4.value=endif if thisform.Pageframe1.activepage=2thisform.Pageframe1.page1.text1.value=thisform.Pageframe1.page1.text2.value=thisform.Pageframe1.page1.text3.value=thisform.Pageframe1.page1.text4.value=endif“退出”按钮的Click事件代码：thisform.release接下来给页框上的控件添加代码，右击页框，在弹出的快捷菜单中选择“编辑”，然后就可以选中对象添加事件代码了。图书资料查询页（Page1）中各对象代码：“查找”按钮的Click事件代码：thisform.pageframe1.page1.Grid1.recordsourceType=4tsbh=allt(thisform.Pageframe1.page1.text1.value)zz=allt(thisform.pageframe1.page1.text2.value)tsmc=allt(thisform.pageframe1.page1.text3.value)tslb=allt(thisform.pageframe1.page1.text4.value)if thisform.pageframe1.page1.check1.value=0thisform.pageframe1.page1.Grid1.recordsource=;select * from 图书资料 where tsbh$图书编号;.or.zz$作者.or.tsmc$图书名称.or.tslb$图书类别 into cursor aelseset exact onthisform.pageframe1.page1.Grid1.recordsource=;select * from 图书资料 where tsbh=图书编号;.or.zz=作者.or.tsmc=图书名称.or.tslb=图书类别 into cursor aset exact offendif“清空”按钮的Click事件代码：thisform.Pageframe1.page1.text1.value=thisform.Pageframe1.page1.text2.value=thisform.Pageframe1.page1.text3.value=thisform.Pageframe1.page1.text4.value=读者资料查询页（Page2）中各对象代码：“查找”按钮的Click事件代码：thisform.pageframe1.page2.Grid1.recordsourceType=4dzbh=allt(thisform.Pageframe1.page2.text1.value)dzxx=allt(thisform.Pageframe1.page2.text2.value)zjh=allt(thisform.Pageframe1.page2.text3.value)dwbm=allt(thisform.Pageframe1.page2.text4.value)if thisform.Pageframe1.page2.check1.value=0thisform.Pageframe1.page2.Grid1.recordsource=;select * from 读者信息 where dzbh$读者编号;.or.dzxx$读者姓名.or.zjh$证件号.or.dwbm$职业 into cursor aelseset exact onthisform.Pageframe1.page2.Grid1.recordsource=;select * from 读者信息 where dzbh=读者编号;.or.dzxx=读者姓名.or.zjh=证件号.or.dwbm=职业 into cursor aset exact offendif“清空”按钮的Click事件代码：thisform.Pageframe1.page2.text1.value=thisform.Pageframe1.page2.text2.value=thisform.Pageframe1.page2.text3.value=thisform.Pageframe1.page2.text4.value=案例6：创建