VF程序实例1VIP专享VIP免费

壹 VF 程序实例 一、多工作区、Replace、copy to . 例题 1: 涉及 set relation [ri'leiʃən] to &&& n . 关系；亲属关系；叙述；故事 &&& 有如下表： (1) XS.DBF(学号 C(8)，姓名 C(8)，性别 C(2)，班级 C(9)，出生日期 D，走读 L) (2) CJ.DBF(学号 C(8)，课程名 C(20)，成绩 N(5,1)) 说明：一个学生可以选择多门课程。请编写一个完整的程序，该程序能完成以下功能： 1、 将表 XS.DBF 和表 CJ.DBF 建立关联，并显示出所有男同学的姓名以及他们所选课程的课程名 2、 将 XS.DBF 表中所有班级为“2002 级 2 班”的同学信息拷贝到新表STUDENT.DBF 中，STUDENT .DBF 只含有学号、姓名、性别、走读四个字段 3、将姓名为“王小平”的同学的所有成绩提高 10% CLEAR CLOSE ALL SELECT 2 USE CJ INDEX ON 学号 TO XH &&& index on SELECT 1 USE XS SET RELATION TO 学号 INTO B && relation SET SKIP TO B LIST FOR 性别='男' FIELDS 姓名,B.课程名 COPY TO STUDENT FOR 班级='2002 级 2 班' FIELDS 学号,姓名,性别,走读 replace b.成绩 with b.成绩*1.1 for a.姓名="王小平" 例题 2: 涉及 update 下面有两张表： 总分表：ZF.DBF 学号 姓名 语文 数学 总分 110 张三 114 李四 119 王二 成绩表： CJ.DBF 学号 语文 数学 110 67 65 114 89 67 119 78 95 按照成绩表的成绩修改总分表的成绩，并计算出总分表的总分字段 参考答案： CLOSE ALL SELE 2 USE CJ INDEX ON 学号 TAG XHCJ SELE 1 USE ZF INDEX ON 学号 TAG XHZF UPDA ON 学号 FROM B REPL 语文 WITH B.语文,数学 WITH B.数学 REPL ALL 总分 WITH 语文+数学 LIST 例题 3: 涉及 join with: 将 STUDENT.DBF 和 学生成绩.DBF 连接成新文件 NEW.DBF 表 1: student(学号 c(4),姓名 c(8),性别 L,出生日期 D,高考成绩 N(5,2)) 表 2: 学生成绩(学号 c(4),课程号 C(3),分数 N(2)) SELECT 1 USE STUDENT SELECT 2 USE 学生成绩 JOIN WITH A TO NEW FOR 学号=A.学号 ; FIEL 学号,A.姓名,A.性别,A.出生日期,课程号,分数 USE NEW LIST 如果再增加一张表,三表相连: 表 3: 课程(课程号 C(3),课程名称 C(10)) SELECT 1 USE STUDENT SELECT 2 USE 学生成绩 JOIN WITH A...