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

Visual Foxpro 6.0;作业中的问题;第十一讲 多表程序及表的多重循环;多表程序 表的多重循环 ;多表程序;例（实验指导书P35）：根据如下两个数据表，分别设计程序完成以下功能。;①方法一： clear accept请输入查询课程名称： to kcm ?课程名：+kcm select 姓名 as 教师姓名,职称 from js,kc ; where 职工号=授课教师 and 课程名=kcm to screen return;方法二: clear set safety off sele 1 use js index on 职工号 tag zgh sele 2 use kc set rela to 授课教师 into js accept请输入查询课程名称： to kcm ?课程名：+kcm ?教师姓名 职称 scan for 课程名=kcm ?a.姓名,space(4),a.职称 endscan close all set safety on return;② 方法一： clear sele 姓名 as 教师姓名,sum(学时数)*单位课时费 as 课时费 ; from js inner join kc on 职工号=授课教师; group by 授课教师 return;方法二: clear set safety off sele 1 use kc index on 授课教师 tag skjs total on 授课教师 to zks use zks index on 授课教师 to skjs sele 2 use js set rela to 职工号 into a ?教师姓名 课时费 scan ?姓名,a.学时数*单位课时费 endscan close all set safety on return;例：有一职工代码表（ZD.DBF），人事信息表（RS.DBF）;编一个程序，完成以下任务： ① 计算实发工资（实发工资=基本工资+工龄工资-扣款）并填入RS.DBF中。 ② 统计各类职称的基本工资，工龄工资，扣款，实发工资总数。 ③ 显示统计结果，其中统计表中“高工，工程师，助理工程师，技术工人”等职称名字必须通过职工代码表得到，并以代码的索引顺序显示，其格式如下： 基本工资 工龄工资 扣款 实发工资 高工 .... .... ... ... 工程师 .... .... ... ... … .... .... ... ... 合计 .... .... ... ...;clea clea all set talk off set safe off sele 1 use rs replace all 实发工资 with 基本工资+工龄工资-扣款 inde on 职称 tag zcdm total on 职称 to hz use hz inde on 职称 tag zcdm sele 2 use zd set rela to 代码 into hz;该程序涉及到几个表; ? 基本工资 工龄工资 扣款 实发工资 scan ?职称,hz.基本工资,hz.工龄工资,hz.扣款,hz.实发工资 endscan ?合计,jb,gl,kk,sf clos all set talk on set safe on retu;例：设有学生档案表、成绩表和学生课程表的表结构如下： 学生档案表（xsda.dbf）：学号(C,10)，姓名(C,8)，性别(C,2)，入学总分(N(5,1))。 学生成绩表（xscj.dbf）：学号(C,10)（有重复值），课程号(C,5)（有重复值），学期(C,1)，考试成绩(N(5,1))。 学生课程表（xskc.dbf）：课程号(C,5)，课程名(C,14)。 按如下要求编写一个程序：;①根据以上3个表，显示所有学生各门课程的学号、姓名、课程名、考试成绩。 ②通过键盘任意输入一个课程号和学期，计算并显示该门课程该学期的平均分、最高分和最低分，显示该门课程该学期所有需要参加补考的学生的补考通知单，其格式如下： 补考通知单 XXX同学： 第X学期你的XXXXXX课程考试不及格，请利用假 期看书复习，作好补考准备。 注意：补考通知单中的“X”需用数据表中的相应数据填充。;clear clear all set safe off set talk off select 1 use xsda inde on 学号 t