VFP第9部分查询统计及循环zxl.pptVIP

评讲习题 实验教材自主练习 第9次上机 准备 熟悉vfp环境，默认路径的设置 实验操作： ?实验5?任务1（４）（５）（６）（７） 实验14 任务1 提交作业：? 实验14 任务2(1) (2) (3) ?（将正确命令粘贴到作业区提交） 课堂即时作业，做完即交 （0901）．设计如图所示表单，其中文本框Text1、Text2的Value属性的初值为0。 表单运行后在文本框Text1中输入一个奇数n，光标移到文本框Text2中可以计算数列1，3,5,…,n的平方和，并将结果显示在文本框Text2中。请编写文本框Text2的Gotfocus事件代码。 * 作业中的问题 编程： 1.100以内能够被７整除的正整数之和。 2.输入任意两个数，比较大小，输出其中较大数和较小数。 １、在for…endfor循环中用i=i+1(老问题) ２、do while …enddo;for…endfor；if…endif.没有配对出现 ３、loop与exit混淆 ４、loop与skip混淆 ５、由于篇幅限制，其他问题口述 第九讲 查询统计及扫描循环 数据查询 数据统计 扫描循环 实例分析 内容提要 1.顺序查询(条件定位) locate [范围] for 条件 命令格式： 继续查找命令 命令格式： continue 配对使用 不能单独使用 （教科书P67） 数据表的查询 2. 查询 find 字符|数字|内存变量 seek 表达式|内存变量 命令格式： 可以不加引号 只能是字符、数值和日期表达式 索引 找什么索引什么 （教科书P79） 【例】：逐条显示学生表中84年出生的学生的信息。 clear use 学生 do while .not.eof() if year(出生日期)=1984 disp endif skip  enddo use cancel 循环体 改变条件取值的命令 循环条件 方法一： clear use 学生 Locate for year(出生日期)=1984 do while .not.eof() disp continue  enddo use cancel 方法二： 改变条件取值的命令 扫描循环（scan…endscan循环） 格式： （见教科书146页） 该循环只对数据表中的指定记录逐个进行某种处理 方法三： clear use 学生 scan for year(出生日期)=1984 disp endscan use cancel 当循环 go top do whil not eof() 处理一个记录 skip endd 扫描循环 scan 处理一个记录 ends 例：在student.dbf中输入学生姓名，查询该学生的信息。 （实验14 任务1(1) ） 方法一： clear use student accept 请输入学生姓名： to xm locate for 姓名=xm if found() display else ？查无此人 endif use return 数 据 来 源 方法二： clear use student index on 姓名 tag sxm accept 请输入学生姓名： to xm seek xm if found() disp else ？查无此人 endif use return 例:在student.dbf中统计江苏籍学生的人数。 （实验14 任务1(２) ） 方法一： clear use student store 0 to rs do while not eof() if 籍贯= 江苏 rs=rs+1 endif skip enddo ? rs use return 查询内容“江苏”在题目中已知不需要再用accept输入 方法二: clear use student rs=0 locate for籍贯=江苏 do while found() rs=rs+1 continue enddo ?