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)。 按如下要求编写一个程序： 根据以上两个表，可以通过键盘任意输入一个部门号（按回车键结束），按奖金从高到低显示该部门的职工姓名、工作年限（=系统当前日期的年份值-工作日期的年份值）及奖金，显示格式如下： 职工姓名 工作年限 奖金 …… …… …… …… …… …… 解法一： clear clear all set safe off select 1 use zg inde on 职工号 tag xh （2分） select 2 use jj set relation to 职工号 into zg inde on 奖金 tag jj desc （1分） do while .t. accept 输入部门号： to bmh if len(allt(bmh))=0 （3分） exit endif ? 职工姓名 工作年限 奖金 Scan for 部门号=bmh （4分） ?zg.姓名, year(date())-year(zg.工作日期),奖金 Endscan Enddo close all set safe on return 解法二： clear do while .t. accept 输入部门号： to bmh （3分） if len(allt(bmh))=0 exit endif select 姓名,year(date())-year(zg.工作日期) as工作年限,奖金 from zg,jj; （3分）where zg.职工号=jj.职工号 and 部门号=bmh; （5分） order by 奖金 desc （7分） Enddo (0702)已知两个数据表：学生档案表XSDA.dbf，有学号、姓名、专业班级（均为字符型）等字段和学生成绩表XSCJ.dbf，有学号（有重复值）、课程名、成绩（数值型）等字段。 编写一程序，通过反复输入学生的学号（输入回车键退出），查询学生的姓名，专业班级，课程名以及成绩情况。 方法1：利用VFP语言实现 clear set safety off clear all sele 1 use XSDA index on 学号 tag xh sele 2 use XSCJ set relation to 学号 into xsda do while .T. accept 请输入学生的学号： to xh if len(alltrim(xh))=0 exit endif ?姓名 专业班级 课程名 成绩 scan for 学号=xh ?xsda.姓名,xsda.专业班级,课程名,成绩 endscan enddo close all set safety on return 方法2：利用select-sql语言实现 Close all clear Do while .T. accept 请输入学生的学号： to xh if len(alltrim(xh))=0 exit en