VFP串1 Microsoft PowerPoint 演示文稿.pptVIP

技巧;一、输出重定向到表文件,文本文件创建技巧应用;二、locate|continu命令;locate|continu命令;简单应用;简单应用珊瑚软件18套上机题;修改点1;*在下面的程序中，第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;改错理由;*在下面的程序中，第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…][FOR Expression] 【功能】对当前表用表达式i的值替换字段i的值, 【说明】 ①省略ALL同时省略FOR短语,仅对当前记录字段的值进行更新,否则对所有记录对应的字段进行更新. ②使用FOR短语,对满足条件的记录进行更新. ③使用此命令前,必须打开对应表文件. Use stu Replace all 总分 with 0,平均分 with 0 Replace 性别 with“1”for 性别=“男” Replace 性别 with“0”for 性别=“女”;Replace 与update区别;简单应用;综合应用;查看表记录;分析;close all use 歌手表 goto top do while not eof() gsbh=歌手编号 找出“歌手表”第i的歌手编号 select avg(分数) from 评分表 ; where gsbh=评分表.歌手编号 ; group by 歌手编号 into array aa replace 最后得分 with aa 第1个元素的值替换歌手表最后得分 skip 记录指针下移 enddo ;close all use 歌手表 i=1 循环变量I作为记录指针 do while i=reccount( ) reccount( ) 统计记录总数 goto I 指向第I条记录 gsbh=歌手编号 找出“歌手表”第i的歌手编号 select avg(分数) from 评分表 ; where gsbh=评分表.歌手编号 ; group by 歌手编号 into array aa replace 最后得分 with aa 第1个元素的值替换歌手表最后得分 i=i+1 记录指针下移 enddo ;close all use 歌手表 i=1 do while i=reccount() goto i gsbh=歌手编号 找出“歌手表”第i的歌手编号 select avg(分数) from