VFP串讲1 Microsoft PowerPoint 演示文稿.ppt

技巧 LOCATE SET 命令工作区的概念宏替换函数串讲 1---- 补充 VFP 知识点替换命令涉及珊瑚软件上机第 9套题第三大题、第 18 套题第二大题 2小题和第三大题、第 19 套题第二大题 1小题和第 30 套题。综合应用一、输出重定向到表文件,文本文件创建技巧应用 复制为 select * from xuesheng into table tem_stu1 不管是数据库表还是自由表,输出定向的表为自由表。 的结构复制为 tem_1 select * from xuesheng ; where .F. into table tem_1 m 命令是创建命令(程序)文件, 即可 mand 源表文件目标表文件二、 locate|continu 命令 命令【命令格式】 locate all for < 条件> 【命令功能】在当前表中,顺序查找第一个满足条件的记录,将记录指针指向该记录并置 found() . 。【说明】①使用该命令之前, 待查的表文件必须打开。②该命令是顺序逐条查找③一但找到, 将记录指针指向该记录并置 found() . ;没有找到记录指针指向文件尾 EOF() 并置 found() .。④ all: 表示查找记录的范围。⑤如果继续查找必须使用 continue 命令。 locate|continu 命令 命令【命令格式】 continue 【命令功能】在当前表中,顺序查找下一个满足条件的记录,将记录指针指向该记录并置 found() . ; 没有找到将记录指针指向文件尾 eof() 并置 found() .。【说明】①该命令没有任何短语。不能单独使用。②该命令必须在 LOCATE 命令之后使用。 ( ) 函数【调用格式】 found( ) 【说明】执行 LOCATE|CONTINUE 命令之后,若查找成功,. ;.。简单应用例 1:在“学生信息”表中查找所有女性记录,并输出学号,姓名,性别等字段。 m 查找所有女性记录 clear use 学生信息 locate for 性别=" 女" do while not eof() && do while found() ?? 学号,姓名,性别 continue ? enddo 简单应用珊瑚软件 18 套上机题例 2: 修改点 1全局变量初值为 0 *在下面的程序中,第 2、3、4、7和 12 行语句不正确,请修改! *注意:修改时不允许增加或删除行,只能在错误行上进行修改! USE pass Key1 = ALLTRIM(ThisForm1) Key2 = ALLTRIM(ThisForm2) LIST ALL WHILE USER = Key1 IF FOUND() AND PASS = Key2 WAIT " 欢迎使用本系统! " WINDOW TIMEOUT 1 EXIT ELSE num = num + 1 IF num = 3 WAIT " 用户名或口令不对,登录失败!" WINDOW TIMEOUT 1 LOOP ELSE WAIT " 用户名或口令不对,请重输入!" WINDOW TIMEOUT 1 ENDIF ENDIF 改错理由 1) Key1 = ALLTRIM(ThisForm1) && 语法错误更正: Key1 = ALLTRIM() 2) Key2 = ALLTRIM(ThisForm2) && 语法错误更正: Key2 = ALLTRIM() 3)LIST ALL WHILE USER = Key1 && 逻辑错误下一个语句是: IF FOUND() AND PASS = Key2 由于 FOUND() 与 LOCATE|CONTINUE 有关更正: locate all for user=key1 4) EXIT 与 LOOP && 这两个语句只能用于循环体中, 本代码无循环,若将改错 3)改为 do while not eof(), 但无 ENDDO 语句。根据题意应是关闭表单。 EXIT 更正: THISFOR