VFP串讲1MicrosoftPowerPoint演示文稿.pptVIP

一、输出重定向到表文件,文本文件创建技巧应用 1.拷贝表文件 将数据库表xuesheng.dbf复制为tem_stu1.dbf select * from xuesheng into table tem_stu1 不管是数据库表还是自由表，输出定向的表为自由表。 2.拷贝表结构 将数据库表xuesheng.dbf的结构复制为tem_1 select * from xuesheng ; where .F. into table tem_1 3.创建文本文件 Modi comm 命令是创建命令(程序)文件，加上.txt即可 Modify command abc.txt 二、locate|continu命令 1.LOCATE命令 【命令格式】locate all for 条件 【命令功能】在当前表中,顺序查找第一个满足条件的记录，将记录指针指向该记录并置found()函数为.T.。 【说明】 ①使用该命令之前，待查的表文件必须打开。 ②该命令是顺序逐条查找 ③一但找到，将记录指针指向该记录并置found()函数为.T.；没有找到记录指针指向文件尾EOF()并置found()函数为.F.。 ④all:表示查找记录的范围。 ⑤如果继续查找必须使用continue命令。 locate|continu命令 2.CONTINUE命令 【命令格式】continue 【命令功能】在当前表中,顺序查找下一个满足条件的记录，将记录指针指向该记录并置found()函数为.T.；没有找到将记录指针指向文件尾eof()并置found()函数为.F.。 【说明】 ①该命令没有任何短语。不能单独使用。 ②该命令必须在LOCATE命令之后使用。 3.FOUND( )函数 【调用格式】found( ) 【说明】执行LOCATE|CONTINUE命令之后，若查找成功，该函数返回逻辑.T.；否则该函数返回逻辑.F.。 简单应用 例1:在“学生信息”表中查找所有女性记录，并输出学号,姓名,性别等字段。 Modi comm 查找所有女性记录 clear use 学生信息 locate for 性别=女 do while not eof() do while found() ?? 学号,姓名,性别 continue ? enddo 简单应用珊瑚软件18套上机题 例2: 改错理由 1) Key1 = ALLTRIM(ThisForm1) 语法错误 更正: Key1 = ALLTRIM(ThisForm.text1.value) 2) Key2 = ALLTRIM(ThisForm2) 语法错误 更正: Key2 = ALLTRIM(ThisForm.text2.value) 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 更正: THISFORM.RELEASE LOOP 更正: THISFORM.RELEASE *在下面的程序中，第2、3、4、7和12行语句不正确，请修改！ *注意:修改时不允许增加或删除行,只能在错误行上进行修改！ USE pass Key1 = ALLTRIM(ThisForm.Text1.Value) Key2 = ALLTRIM(ThisForm.Text2.Value) LOCATE ALL FOR USER = Key1 IF FOUND() AND PASS = Key2 WAIT 欢迎使用本系统！ WINDOW TIMEOUT 1 THISFORM.RELEASE ELSE num = num + 1 IF num = 3 WAIT 用户名或口令不对,登录失败！ WIND TIMEOU 1 THISFORM.RELEASE ELSE WAIT 用户名或口令不对,请重输入！ WIND TIMEOU 1 ENDIF ENDIF 五、替换命令REPLACE 【语法格式】 REPLACE [ALL] FieldNmea1 WITH Expression1 [,FieldNmea2 WITH Expression2…][F