资源描述：
《VFP串讲1MicrosoftPowerPoint演示文稿》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、技巧LOCATESET命令工作区的概念宏替换函数串讲1----补充VFP知识点替换命令涉及珊瑚软件上机第9套题第三大题、第18套题第二大题2小题和第三大题、第19套题第二大题1小题和第30套题。综合应用一、输出重定向到表文件,文本文件创建技巧应用1.拷贝表文件将数据库表xuesheng.dbf复制为tem_stu1.dbfselect*fromxueshengintotabletem_stu1不管是数据库表还是自由表，输出定向的表为自由表。2.拷贝表结构将数据库表xuesheng.dbf的结构复制为tem_1select*fromxuesheng;
2、where.F.intotabletem_13.创建文本文件Modicomm命令是创建命令(程序)文件，加上.txt即可Modifycommandabc.txt源表文件目标表文件二、locate
3、continu命令1.LOCATE命令【命令格式】locateallfor<条件>【命令功能】在当前表中,顺序查找第一个满足条件的记录，将记录指针指向该记录并置found()函数为.T.。【说明】①使用该命令之前，待查的表文件必须打开。②该命令是顺序逐条查找③一但找到，将记录指针指向该记录并置found()函数为.T.；没有找到记录指针指向文件尾EOF()
4、并置found()函数为.F.。④all:表示查找记录的范围。⑤如果继续查找必须使用continue命令。locate
5、continu命令2.CONTINUE命令【命令格式】continue【命令功能】在当前表中,顺序查找下一个满足条件的记录，将记录指针指向该记录并置found()函数为.T.；没有找到将记录指针指向文件尾eof()并置found()函数为.F.。【说明】①该命令没有任何短语。不能单独使用。②该命令必须在LOCATE命令之后使用。3.FOUND()函数【调用格式】found()【说明】执行LOCATE
6、CONTINUE命令之后，若查
7、找成功，该函数返回逻辑.T.；否则该函数返回逻辑.F.。简单应用例1:在“学生信息”表中查找所有女性记录，并输出学号,姓名,性别等字段。Modicomm查找所有女性记录clearuse学生信息locatefor性别="女"dowhilenoteof()&&dowhilefound()??学号,姓名,性别continue?enddo简单应用珊瑚软件18套上机题例2:修改点1全局变量初值为0*在下面的程序中，第2、3、4、7和12行语句不正确，请修改！*注意：修改时不允许增加或删除行，只能在错误行上进行修改！USEpassKey1=ALLTRIM(Th
8、isForm1)Key2=ALLTRIM(ThisForm2)LISTALLWHILEUSER=Key1IFFOUND()ANDPASS=Key2WAIT"欢迎使用本系统！"WINDOWTIMEOUT1EXITELSEnum=num+1IFnum=3WAIT"用户名或口令不对,登录失败!"WINDOWTIMEOUT1LOOPELSEWAIT"用户名或口令不对,请重输入!"WINDOWTIMEOUT1ENDIFENDIF改错理由1)Key1=ALLTRIM(ThisForm1)&&语法错误更正:Key1=ALLTRIM(ThisForm.text1.
9、value)2)Key2=ALLTRIM(ThisForm2)&&语法错误更正:Key2=ALLTRIM(ThisForm.text2.value)3)LISTALLWHILEUSER=Key1&&逻辑错误下一个语句是:IFFOUND()ANDPASS=Key2由于FOUND()与LOCATE
10、CONTINUE有关更正:locateallforuser=key14)EXIT与LOOP&&这两个语句只能用于循环体中,本代码无循环,若将改错3)改为dowhilenoteof(),但无ENDDO语句。根据题意应是关闭表单。EXIT更正:THISFORM.
11、RELEASELOOP更正:THISFORM.RELEASE*在下面的程序中，第2、3、4、7和12行语句不正确，请修改！*注意:修改时不允许增加或删除行,只能在错误行上进行修改！USEpassKey1=ALLTRIM(ThisForm.Text1.Value)Key2=ALLTRIM(ThisForm.Text2.Value)LOCATEALLFORUSER=Key1IFFOUND()ANDPASS=Key2WAIT"欢迎使用本系统！"WINDOWTIMEOUT1THISFORM.RELEASEELSEnum=num+1IFnum=3WAIT"用
12、户名或口令不对,登录失败！"WINDTIMEOU1THISFORM.RELEASEELSEWAIT"用户名或口令不对,请重
