VisualFoxpro编程实例
visual foxpro程序设计案例教程(蔡莉)vf按章(3)
2021/7/13
21
例如：将职工档案表按性别分组，求工资总和。 （1）显示职工档案表的内容。 USE职工档案 （2）建立索引文件，关键字段为性别。 INDEX ON 性别 TO B1X （3）计算工资总和，形成一个新的表HB.DBF，其
结构与职工档案表中的结构相同。 TOTAL ON 性别 TO HB
2.用命令的方法对工资表中的奖金字段建立降序的 索引。
(1)打开职工管理库：OPEN DATA D:\VF实验\职 工管理
(2)打开职工管理库中的工资数据库表:USE 工资 表
(3)建立按奖金降序排列的单索引文件，文件名为 JJ.IDX命令如下:INDE ON -奖金 TAG JJ
(4)由于刚建立完的索引文件处于打开状态，可直 接显示索引后的结果:LIST
录顺序。
2021/7/13
14
3.5 数据统计
2021/7/13
15
3.5.1求和
命令格式：SUM[<范围>][<字段名表>][TO<内存 变量表>|<数组名>][FOR<条件>]
命令功能：对当前表指定的数值型字段进行列向
求和。
例如：在“职工档案”表中，进行下面的统计操
作。
（1）将所有数值型字段求和。
2021/7/13
17
3.5.3 计数
命令格式：COUNT [<范围>][FOR<条件>][TO< 内存变量>|<数组名>] 命令功能：统计当前表中范围内满足条件的记录 个数。 例如：将职工档案表中，对性别是“男”的记录 进行统计，并把结果存入内存变量中。
USE职工档案 COUNT FOR 性别=“男” TO XB
VFP常见编程实例(免费下载)
VFP常见编程实例1、1-100的累加** 求1到100的累加值CLEARs=0i=1DO WHILE i<=100s=s+ii=i+1 &&一定记住先累加后循环ENDDOsRETURN2、阶乘** 求5的阶乘CLEARj=1i=1DO WHILE i<=5j=j*ii=i+1ENDDOjRETURN3、求阶乘和** 求1至5的阶乘和CLEARs=0i=1j=1DO WHILE i<=5j=j*is=s+ji=i+1ENDDOsRETURN4、条件定位** 查询定位记录指针在赵伟上CLEARUSE 学生LOCATE FOR 姓名="赵伟"IF FOUND()DISPLAYELSECANCELENDIFCONTINUE5、用scan语句查询定位** 用scan语句查询定位记录在赵伟上CLEARSCAN FOR 姓名="赵伟"DISPLAYENDSCANRETURN6、用scan语句扫描符合条件的记录，并显示出来** 把年龄小于30岁的人显示出来SCAN FOR 年龄<30 DISPLAYENDSCANRETURN7、查找男性职工** 查找男性职工CLEARLOCATE FOR 性别="男" DO WHILE FOUND()DISPLAYCONTINUEENDDORETURN** 查找男性职工CLEARLOCATE FOR 性别="男" DO WHILE NOT EOF() DISPLAYCONTINUERETURN** 查找男性职工CLEARUSE 职员基本信息表LOCATE FOR 性别="男"DO WHILE .t.IF FOUND() thenDISPLAYELSE &&记住最后一个ELSE语句后面不需要条件表达式 CANCELENDIFCONTINUEENDDO** 查找男性职工set talk offclearopen database 家庭成员管理.dbcuse stu.dbfscan for not eof()if xb="女"skipelsedisplayskipendifendscanclose databaseuseset talk onreturn8、新值换旧值** 有一对新生的兔子，从第三个月开始，每个月出生一对兔子，请问到第十二个月共出生多少对兔子？clearstore 1 to a,bi=3do while i<=12c=a+ba=bb=ci=i+1enddo"一年共出生兔子：",creturn9、多位整数各个位数相加** 求多位整数各个位数之和CLEARs=0input "请输入一个多位整数:" to aDO WHILE a<>0s=s+MOD(a,10) &&将a取余正好是个位上的数a=INT(a/10) &&将a除10取整正好是除个位之后的数ENDDO"这个整数的各个位数之和是：",sRETURN10、找100-999之间的“水仙花数”CLEARFOR i=100 TO 999a=INT(i/100)b=INT((i-100*a)/10)c=i-INT(i/10)*10IF i=a^3+b^3+c^3iENDIFENDFORRETURN11、判断一个大于3的数是否为素数CLEARinput "请输入一个数(>=3):" to s f=0i=2DO WHILE i<=INT(SQRT(s))IF MOD(s,i)<>0i=i+1LOOPELSEf=1EXITENDIFENDDOIF f=0str(s,3)+"是素数"ELSE f=1 &&这个表达式可有可无，为了省事完全省略也可以。
2019年foxpro编程范例-推荐word版 (12页)
本文部分内容来自网络整理，本司不为其真实性负责，如有异议或侵权请及时联系，本司将立即删除！== 本文为word格式，下载后可方便编辑和修改！ ==foxpro编程范例篇一：Visual Foxpro编程实例实验五 Visual Foxpro编程实践一. 实验目的与要求掌握利用Visual Foxpro编制开发自己的应用程序的实践知识，并学会在程序调试中自行发现问题和修改程序代码，最终完成应用程序的无错运行。
二. 相关知识利用Visual Foxpro自行开发编制应用程序的步骤：1．设置好系统的工作环境(尤其注意工作目录的默认设置)。
2．如果是初次进行，应当先建立一个项目，为该项目命名，激活项目管理器。
如果是接着上次的工作进行，则打开上次工作的本项目，同样也激活项目管理器。
3．在项目管理器的“数据”?“数据库”下面创建一个数据库，并命名(如已创建，则跳过本步骤)。
4．在项目管理器的“数据”?“数据库”?“表”下面进行数据表的创建或修改工作，并输入少量的正确数据以便将来的运行调试(如果已经创建了数据表，则跳过本步骤)。
5．在项目管理器的“文档”下面创建该应用程序所用到的所有表单，设计好各表单的界面并为表单里的控件填写程序代码.(注意为表单添加各自的数据环境，否则会出错!) 6．试运行各表单，发现问题后重新修改有问题的表单的代码，反复调试和修改直至最后能无错运行。
7．将应用程序打包发布或制作成安装文件。
三. 实验内容与步骤本次实验以一个简单的学生成绩管理系统为例。
首先，对该系统作一个简单的介绍：该应用系统为完成学生信息和成绩的管理系统，主要有以下几个应用模块： (1) 用户登录管理：系统具有管理员功能，只有取得管理员权限的人才能使用本系统。
(2) 数据添加功能：对学生基本信息、教师基本信息、班级信息、课程信息、学生成绩信息进行添加录入。
(3) 数据查询功能：对上述信息的基本查询。
(4) 数据修改功能：对上述信息可进行修改工作。
《VisualFoxPro9.0项目开发案例教程》第02章
报表生成
1
报表设计器
VisualFoxPro9.0提供了强大的报表设
查询与过滤
2
计器，支持多种样式和布局类型、不 同的数据源和多个页类型等。
报表生成的核心在于数据的准确性，
用户可以基于SQL语句进行数据筛选
和排序，进而生成相应的报表。
Байду номын сангаас
3
导出与打印
报表生成后，用户可以选择将其导出 为不同的格式，如Word、Excel和 PDF等。也可以直接打印到打印机或 PDF文件中。
语法基础
1
变量类型
VisualFoxPro9.0支持不同的变量类
运算符
2
型，包括字符型、数值型、日期型和 逻辑型等。每种类型对应的取值范围
VisualFoxPro9.0提供了丰富的运算
和运算规则都不同。
符支持，例如算数运算符、关系运算
符、逻辑运算符和位运算符等。还可
以通过自定义函数扩展运算。
3
控制语句
常见问题解答
常见错误解决
VisualFoxPro9.0常见错误解决是解决常见的维 护问题，解决后将为您的工作效率提升一个层 次。
速度优化
VisualFoxPro9.0运行速度对于处理大数据的应 用有很大的影响，快速运行速度可以节约大量 的时间，提高开发效率。
实际案例
企业员工管理系统
该系统基于VisualFoxPro9.0教程，结合企业管理流程需要进行开发，收到了广泛应用。
未来发展前景
VisualFoxPro9.0以面向对象和精细化的开发思 路，赢得了越来越多的用户的青睐和认可。在 未来，随着应用范围的不断扩大， VisualFoxPro9.0也会越来越受到关注和创新。
VisualFoxPro程序设计基础实例
V i s u a l F o x P r o程序设计基础实例(共14页)--本页仅作为文档封面，使用时请直接删除即可----内页可以根据需求调整合适字体及大小--Visual FoxPro程序设计基础实例▲表文件情况：学生成绩数据库的表文件结构为：字段名字段类型宽度小数位学号字符型 6姓名字符型 10英语数值型 6 2高等数学数值型 6 2计算机应用数值型 6 2总分数值型 7 2平均分数值型 6 2建立表文件结构显示如下：输入一些学生成绩。
例2-1计算表中的平均分和总分的程序set talk offCLOSE ALLUSE c:\000\CJREPLACE ALL 总分 WITH 英语+数学+计算机应用REPLACE ALL 平均分 WITH 总分/3LIST执行结果为：例2-2 统计成绩表中平均分大于90分的所有学生数目。
SET TALK OFFCLEARUSE c:\000\CJM=0SCAN FOR 平均分>90DISPLAYM=M+1ENDSCAN"总数为:",MUSERETURN执行结果：例2-3 统计成绩表中所有英语大于等于75分的学生数目。
SET TALK OFFUSE C:\000\CJMCOUNT=0FOR REC=1 TO RECCOUNT() ＆＆ RECCOUNT() 为该库中的记录数 GO RECIF 英语<75LOOPENDIFDISPLAYMCOUNT=MCOUNT+1ENDFOR"英语成绩不小于75分的总数为:", MCOUNTUSERETURN执行结果：例2-4 显示表中英语成绩小于90分的学生。
SET TALK OFFCLEARUSE CJDO . ( ** 或DO ) )IF 英语>=90SKIP （或** LOOP ）ENDIFDISPLAYWAIT"按任一键继续显示.…"SKIPENDDOUSERETURN执行结果：例2-5 对成绩表查询，若首记录的平均分数大于60分，则显示及格；成绩不及格”否则显示不及格。
visual foxpro程序设计案例教程(蔡莉)vf按章(2)
2021/7/13
15
3.7.3 参照完整性
参照完整性与表之间的关联有关,其含义是当插入、 删除或修改一个表中的数据时，通过参照引用相 互关联的另一个表中的数据，来检查对表的数据 操作是否正确。
参照完整性是关系数据库管理系统的一个很重要 的功能。在VFP中要建立参照完整性，首先要建立 表之间的联系。
关键字）时，如何处理相关的从表中的记录。 级联：用新的连接字段值自动修改子表中的相关 所有记录； 限制：若子表中有相关的记录，则禁止修改父表 中的连接字段值； 忽略：不作参照完整性检查，可以随意更新父表 记录的连接字段值。
2021/7/13
17
（4）删除规则规定了当删除父表中的记录时，如何
处理子表中相关的记录。
USE ZGGZ
&&在第2个工作中打开ZGGZ表
SELECT 3
&&选择第3个工作区
USE JSKC
&&在第3个工作中打开JSKC表
SELECT ZGDA 或 SELECT 1
&&在第1个工作区操作ZGDA表，两个命令是等价的
2021/7/13
3
3.6.2 在不同工作区中使用表
1、表的打开和关闭
可以使用USE命令,在不同的工作区中打开或关闭表。
2021/7/13
9
1、建立、编辑永久性关系
(1)为相应表建立索引，并打开“数据库设计器“。
(2)在“数据库设计器”上将“主”表的主索引拖动
到“从”表的相应普通索引上。
(3)在“数据库设计器”上将鼠标在关系的连线上按
右键，在出现的快捷菜单上，选择“编辑关系”，
弹出“编辑关系”对话框。
visual foxpro程序设计案例教程(蔡莉)vf按章(5)
基本概念
• 在VFP中，数据库是一个逻辑上的概念和手 段，通过一组系统文件将相互联系的数据 库表及其相关的数据库对象统一组织和管 理。
• 因此，在VFP中应该把.dbf文件称做表，而 不再称做数据库或数据库文件。
• 建立VFP 数据库时，建立扩展名是.dbc的 数据库文件，与之相关自动建立扩展名为 .dct的备注文件和扩展名为.dcx的数据库
（3）用命令打开数据库设计器。 • 命令格式： MODIFY DATABASE [FILENAME|?][NOWAIT][NOEDIT] 说 明： • FILENAME：要修改的数据库名，如果使用“？”或者省略
该参数则显示“打开”对话框。 • NOWAIT：该选项只在程序中使用，不在交互命令窗口中使
–D——表示使用当前系统设置的日期格式。 –L——表示在数值前显示填充的前导零，而不
是用空格字符。 –T——表示禁止输入的字段的前导空格字符和
结尾空格字符。 –!——表示把输入的小写字母字符转换为大写
字母。
2021/7/6
•下面为常用的输入掩码：
–X——表示可输入任何字符。 –9——表示可输入数字和正负号。 –#——表示可输入数字、空格和正负号。 –$——表示在固定位置上显示当前货币符号。 –$$——表示显示当前货币符号。 –*——表示在值的左侧显示星号。 –.——表示用点分隔符指定数值的小数点位置。 –，——表示用逗号分隔小数点左边的整数部分，
读/写方式。 • VALIDATE：指定检查数据库中引用的对象是否合法。
2021/7/6
4、指定当前数据库 • 指定当前数据库的命令是： SET DATABASE TO [DATABASENAME] • 其中参数DATABASENAME指定一个已经打开
visual foxpro程序设计案例教程(蔡莉)vf按章(4)
例如：打开A盘GZ1数据表。
USE A:\GZ1
3、数据表的关闭
命令格式1：USE
命令功能：关闭当前数据表。
命令格式2：CLOSE TABLE
命令功能：关闭所有打开的数据表。
2021/7/13
2
3.3.3 数据的输入
1、使用浏览器输入数据
(1) 打开要输入数据的表。
(2) 选择“显示”菜单中“浏览”或“编辑“项；
的记录，实现方法为在命令窗口输入LIST FOR 性别="男"。 (4)追加记录：在表文件的尾部追加一条空白记录。 在命令窗口输入APPE BLAN
2021/7/13
23
插入记录：指针指向第2条记录，在第2第记录 后插入一条空白记录。
在命令窗口输入：GO 2
INSE BLAN
LIST (4)和(5)两步执行完成后，在屏幕的工作区出 现如下结果。
物理删除是将带有删除标记的记录从表中真正删除掉，物 理删除的记录则不能用恢复命令恢复。 （1）使用菜单
打开表，并进入“浏览”窗口。选择“表”菜单中的“彻底 删除”项，弹出“物理删除”提示对话框，在对话框中单击 “是”则将所有带有删除标记的记录从表中删除。 （2）使用命令
命令格式1：PACK 命令功能：删除带有删除标记的记录。 命令格式2：ZAP 命令功能：删除所有记录，无论其是否有删除标记。 使用ZAP命令删除表中全部记录后，表结构依然存在。
命令功能：将当前表中范围内满足条件的记录加上删除标 记。 说明：如不指定范围和条件则只逻辑删除当前记录。
例如：逻辑删除“职工编号”空白的记录。 DELETE ALL FOR 职工编号=""
2021/7/13
20
Visual FoxPro程序设计实例教程第6章 结构化程序设计基础
21
2）ACCEPT 格式：ACCEPT ［<提示信息>］ TO <内存 变量名> 功能：该命令与INPUT命令类似，不同的是它 把输入的内容作为字符串赋值给指定的<内存变量 > ①如果没有输入数据就按回车键，那么<内存 变量>的值则为空字符串。 ②
22
3）WAIT 格式：WAIT［<提示信息>］［TO <内存变量 名>］ ［WINDOW］ ［TIMEOUT<数值表达式> 功能：该命令的作用是暂停正在运行的程序， 直到用户按任意键（如输入为一字符，则可将其存 入内存变量）或单击鼠标或指定时间内继续程序的
50
①DO WHILE和ENDDO、FOR和ENDFOR、 SCAN和ENDSCAN ②<语句序列>可以是任何VFP命令或语句，
③<循环变量>应是数值型的内存变量或数组
④EXIT和LO计过程中，可以把一段经常使用的程 序代码独立出来，创建子程序、过程或自定义函数， 在需要使用该代码时，只需直接调用，而不必重复
46
图6.11
47
5 多重循环即循环的嵌套，是在一个循环结构的 循环体中又包含另一个循环。嵌套层数一般没有限 制，但内层循环的循环体必须完全包含在外循环的 循环体中，不能相互交叉。正确的嵌套关系如图 6.12所示。
48
图6.12 循环层次关系
49
DO WHILE <条件表达式1> <语句序列11> DO WHILE <条件表达式2> <语句序列21> DO WHILE <条件表达式3> ENDDO <语句行序列22> ENDDO <语句行序列12> ENDDO
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验五 Visual Foxpro编程实践一. 实验目的与要求掌握利用Visual Foxpro编制开发自己的应用程序的实践知识，并学会在程序调试中自行发现问题和修改程序代码，最终完成应用程序的无错运行。
二. 相关知识利用Visual Foxpro自行开发编制应用程序的步骤：1．设置好系统的工作环境(尤其注意工作目录的默认设置)。
2．如果是初次进行，应当先建立一个项目，为该项目命名，激活项目管理器。
如果是接着上次的工作进行，则打开上次工作的本项目，同样也激活项目管理器。
3．在项目管理器的“数据”“数据库”下面创建一个数据库，并命名(如已创建，则跳过本步骤)。
4．在项目管理器的“数据”“数据库”“表”下面进行数据表的创建或修改工作，并输入少量的正确数据以便将来的运行调试(如果已经创建了数据表，则跳过本步骤)。
5．在项目管理器的“文档”下面创建该应用程序所用到的所有表单，设计好各表单的界面并为表单里的控件填写程序代码.(注意为表单添加各自的数据环境，否则会出错!)6．试运行各表单，发现问题后重新修改有问题的表单的代码，反复调试和修改直至最后能无错运行。
7．将应用程序打包发布或制作成安装文件。
三. 实验容与步骤本次实验以一个简单的学生成绩管理系统为例。
首先，对该系统作一个简单的介绍：该应用系统为完成学生信息和成绩的管理系统，主要有以下几个应用模块：(1)用户登录管理：系统具有管理员功能，只有取得管理员权限的人才能使用本系统。
(2)数据添加功能：对学生基本信息、教师基本信息、班级信息、课程信息、学生成绩信息进行添加录入。
(3)数据查询功能：对上述信息的基本查询。
(4)数据修改功能：对上述信息可进行修改工作。
(5)统计操作：可分别按个人成绩、单科成绩统计出最高成绩、最低成绩和平均成绩等。
(6)打印功能：对上述信息可进行打印。
实验步骤如下：1．数据库设计：首先设置好系统的运行环境和工作目录，然后建立项目，为项目命名为“学生成绩管理系统”，激活项目管理器，并在在项目管理器的“数据”“数据库”下面创建一个数据库，命名为“学生成绩管理”，在“数据库”的“表”下面创建以下各数据表：字段名称类型宽度用户名字符型10密码字符型10字段名称类型宽度学号字符型8字符型10(3)教师信息表 teacher创建好以上数据表以后，应该向每个表中添加适量合法数据以便后面的测试。
2.表单设计2.1登录模块功能描述：实现只有指定的用户才能访问系统的功能。
并且，只有身份为“管理员”的用户才可以调用修改模块修改数据。
界面设计：表单名称： login文件名： login.scx数据环境： user.dbf对象设置：对象属性值说明Form1 Caption 欢迎使用学生成绩管理系统Lable1 Caption 学生成绩管理系统Lable2 Caption 请输入用户名：Lable3 Caption 请输入密码：Combo1 RowSourceType 6-字段指定数据值来源类型RowSource User.用户名指定数据值来源Cammand1 Caption 登录Cammand2 Caption 退出函数与方法声明：(1)Command1中的Click事件功能：完成在登录时对输入的用户名和密码的检验，如果数据表user中存在输入的用户名和密码信息，则调用主窗口(如果是管理员则不但调用主窗口，还允许执行主窗口的修改功能)，否则提示输入错误。
程序清单：private kl，yh，stst='密码不正确，请重新输入!'use userkl=alltrim(thisform.text1.value)yh=alltrim(bo1.value)*将用户输入的用户名和密码的值分别保存在yh和kl变量中locate for alltrim(bo1.value)= =alltrim(user.用户名)*在user表中查找是否有与yh和kl匹配的记录if found() and alltrim(user.密码)= =kl*正确的用户名和密码thisform.visible=.f.close tables alldo form main.scxif yh= ='admin'*如果是超级用户管理员，则允许他使用main表单中的第三组按钮(即修改模块) main.optiongroup1.option3.enabled=.t.endifthis.parent.text1.value=''else*错误的用户名和密码，系统给出提示，延迟2秒wait window st timeout 2thisform.text1.value=''thisform.text1.setfocusendif(2)Command2中的Click事件功能：退出学生成绩管理系统程序清单：clear eventsquit(3)Form1的Destroy事件功能：意外关闭程序窗口时的处理程序清单：clear events2.2 主界面模块功能描述：主要是提供本系统各功能模块的入口.界面设计：表单名称： main文件名： main.scx数据环境：无对象设置：(1)Optiongroup1中的IntelactiveChange事件：功能：根据Optiongroup1中的选择单击按钮，调用各重要功能模块.程序清单：do casecase this.value=1do form 添加case this.value=2do form 查询case this.value=3do form 修改case this.value=4do form 统计case this.value=5do form 打印case this.value=6thisform.releasequitendcase(2)Optiongroup1中的每一个Option的Click事件：功能：与(1)中不同，(1)是指在Optiongroup中的各个Option切换时才触发的程序，仅这样还不够，还要编写每个Option被单击时触发的程序才完整。
程序清单：对应Optiongroup1.Option1的Click事件： do form 添加……(其余类推)2.3 数据添加模块功能描述：用户通过5个不同的页面来完成对学生信息表、教师信息表、班级表、课程表和成绩表的数据添加操作。
界面设计：表单名称：添加文件名：添加.scx数据环境： student.dbf， class.dbf， score.dbf， teacher.dbf， course.dbf 对象设置：对象属性值说明Form1 Caption 添加PageFrame1 PageCount 5Command1 Caption 返回主菜单主表单中的Command1Page1 Caption 学生表Page2 Caption 教师表Page3 Caption 班级表Page4 Caption 课程表Page5 Caption 成绩表Command1 Caption 添加与上面的Command1不同，这是在各个页面中Command2 Caption 清空的Command1因为添加表单中对于5个表的操作方法类似，所以这里只给出学生表的添加部分，其余4个页面的程序请同学们自己对照思考和编制。
(1)Form1中的Active事件功能：设置焦点位置程序清单：this.pageframe1.page1.text1.setfocus(2)Form1中的Command1的Click事件功能：释放当前窗口程序清单：thisform.release(3)Page1中Command1的Click事件功能：将输入的新记录信息添加到学生表中，完成新记录的添加工作程序清单：num1=alltrim(thisform.pageframe1.page1.text1.value)num2=alltrim(thisform.pageframe1.page1.text2.value)num3=alltrim(thisform.pageframe1.page1.text3.value)num4=alltrim(thisform.pageframe1.page1.text4.value)num5=alltrim(dtoc(thisform.pageframe1.page1.text5.value)) &&并非是alltrim(thisform.pageframe1.page1.text5.value)set exact ondo casecase num1=''messagebox('学号不能为空!'，0+48，'系统提示!')thisform.pageframe1.page1.text1.setfocuscase num2=''messagebox('不能为空!'，0+48，'系统提示!')thisform.pageframe1.page1.text2.setfocuscase num3=''messagebox('性别不能为空!'，0+48，'系统提示!')thisform.pageframe1.page1.text3.setfocuscase num4=''messagebox('班级编号不能为空!'，0+48，'系统提示!')thisform.pageframe1.page1.text4.setfocuscase num5=''messagebox('出生日期不能为空!'，0+48，'系统提示!')thisform.pageframe1.page1.text5.setfocusotherwisea=messagebox('确认添加么?'，1+64+0，'系统提示!')if a=1select studentgo bottominsert into student(学号，，性别，班级编号，出生日期) values(num1，num2，num3，num4，ctod (num5))messagebox('添加成功!')elsethisform.pageframe1.page1.text1.setfocusendifendcase(4)Page1中的Command2的Click事件：功能：清空当前页面上输入的数据程序清单：this.parent.text1.value=''this.parent.text2.value=''this.parent.text3.value=''this.parent.text4.value=''this.parent.text5.value=''由于其它各个页面上的添加数据的操作小异，这里不再赘述。