VFP第9部分(查询统计及扫描循环)解析

2）索引查询（p79页） 索引查询是在数据表文件建立了索引的基础上进行的， 因此必须打开相应的索引文件。打开索引后，记录将按索 引关键字值升序或降序排列，查询的速度比顺序查询要快 得多。
（1）FIND
格式：FIND<字符串>|<数值型常量>|<&字符变量> 功能：在索引文件中查找索引关键字值与指定的字符串 或数值常数相等的记录。
可以不加引号
find <字符>|<数字>|&<内存变量> seek <表达式>|<内存变量>
只能是字符、数值和日期表达式
【例】使用FIND命令和SEEK命令在学生档案表(dab.dbf)中
②查找1987 USE dab INDEX ON 姓名 TAG xmsy FIND 那措央中 &&或 SEEK "那措央中" DISPLAY
数据表的查询（P67页）
表中记录的查询就是在表的所有记录中查找满足条件的记录， 并把记录指针定位在要查询的记录上。这里介绍2种传统查询方法： 1）顺序查询(条件定位) 顺序查询是一种按照记录的排列顺序，在表文件中逐个地查找 (1)LOCATE 格式：LOCATE [范围] [FOR|WHILE <条件>] 功能：按顺序搜索数据表，并将记录指针定位在满足条件的第一条 记录上。
方法三： clear use student rs=0 scan for籍贯="江苏" rs=rs+1 endscan ?rs 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(1) ）
方法一： clear use student store 0 to rs,zf do while not eof() if 籍贯="江苏" rs=rs+1 endif skip enddo ? rs use return
方法二: clear use student rs=0 locate for籍贯="江苏" do while found() rs=rs+1 continue enddo ?rs use return
例：在student.dbf中输入学生 姓名，查询该学生的信息。 （实验14 任务1(1) ）
方法一： clear use student accept "请输入学生姓名：" to xm locate for 姓名=xm if found() display else ？"查无此人" endif use return
(2)CONTINUE
格式：CONTINUE 功能：LOCATE命令执行后继续移动记录指针到下一条满足条件的记录。
①LOCATE命令在指定范围内查找满足条件的第一条记录，并将该记录置为 当前记录。如果找不到符合条件的记录，则显示“已到定位范围末尾”；缺 省[范围]子句为ALL ②CONTINUE命令只能放在LOCATE命令后使用；可多次执行CONTINUE命 ③若LOCATE发现一条满足条件的记录，可使用 RECNO()返回该记录号，且 FOUND()函数的返回值为“真”(.T.)，EOF( )函数的返回值为“假”(.F.)
INDEX ON 性别+RIGH(DTOC(出生日期),2) TAG xbrq
SEEK "男"+ "87" && ?FOUND() && 根据FOUND（）的值判断查找结果
【例】：逐条显示学生表中84年出 生的学生的信息。
clear 循环条件 use 学生 循环体 do while .not.eof() if year(出生日期)=1984 disp endif 改变条件取 skip 值的命令 enddo use cancel
（2）SEEK
格式：SEEK <表达式> 功能：在索引文件中查找索引关键字值与指定表达式值相等 的记录。 ①只能在索引文件打开后使用 SEEK
②SEEK命令查找的是表达式，表达式可以是C、N、D、L 型的常量、变量及其组合。查找的字符串常量必须用定界符； 变量不用&函数。 ③如果 SEEK找到了与索引关键字相匹配的记录，则 RECNO（）返回匹配记录的记录号；FOUND（）返回 “真”(.T.)；EOF（）返回“假”(.F.) ④若找不到相匹配的关键字，则 RECNO（）返回表中记录 个数加 1。FOUND（）返回“假”(.F.)；EOF（）返回 “真”(.T.)。
方法一：
方法二：
clear use 学生 Locate for year(出生日期)=1984 do while .not.eof() disp 改变条件取 continue 值的命令 enddo use cancel
该循环只对数据表中的指定记 录逐个进行某种处理
扫描循环（scan…endscan循环）
命令格式：
locate [范围] for <条件>
继续查找命令
配对使用
命令格式： continue
不能单独使用
【例】 在学生档案表(dab.dbf)中找出计算机1班的前2位同学，并将记录输出。 USE dab
LOCATE ALL FOR 专业班级="计算机1班"
? FOUND() DISPLAY CONTINUE ? FOUND() DISPLAY USE && && 结果为.T.
格式： （见教科书146页,练习 册148页）
方法三：
clear use 学生 scan for year(出生日期)=1984 disp endscan use cancel
当循环 go top do whil not eof() 扫描循环 scan 处理一个记录 ends
处理一个记录
skip endd
找什么索引什么
①FIND只能找C、N型数据，字符串常量可不加定界 符；字符串变量前面必须用宏代换函数& ②FIND找到了与索引关键字相匹配的记录，则 RECNO（）返回匹配记录的记录号；FOUND()返回 “真”(.T.)；EOF()返回“假”(.F.) ③FIND命令找到的是与查询数据相匹配的第一条记录，