VFP课件第11部分(多表程序及表的多重循环)zxl.pptVIP

第11次上机 准备 熟悉vfp环境，默认路径的设置 实验15 任务1（1）（2）（3）(下周周末提交) 实验15 任务2（课外自己完成，老师给参考程序） SET TALK OFF USE STU SET ORDER TO ? ? 专业编号 高数 外语 计算机 总分 DO WHILE not eof() STORE 0 TO K1,K2,K3 BH=substr(编号,3,2) DO WHILE substr(编号,3,2)=BH AND ? K1=K1+高数 K2=K2+外语 K3=K3+计算机 SKIP ENDDO ? ? ENDDO USE tag 编号 BH,K1,K2,K3,K1+K2+K3 not eof() （0802）．设有职工表和奖金表的表结构如下： 职工表（zg.dbf）：职工号(C,7)（无重复值），姓名(C,6)，工作日期(D)。 奖金表（jj.dbf）：职工号(C,7)（无重复值），部门号(C,4)（有重复值），奖金(N,5,1)。 按如下要求编写一个程序： 根据以上两个表，可以通过键盘任意输入一个部门号（按回车键结束），按奖金从高到低显示该部门的职工姓名、工作年限（=系统当前日期的年份值-工作日期的年份值）及奖金，显示格式如下：