表循环嵌套分支.doc

实例讲解：1在考生文件夹下有数据表CHENGJI.dbf和KECHENG.dbf，表结构如下：CHENGJI(学号(C 8),姓名(C 10)，课程(C 10)，成绩(N 8,2)KECHENG(课程(C 10)，最高分(N 8,2) ，最低分，平均分，总分)CHENGJI表用于记录学生的考试成绩，其中一个学生可以有多项记录(登记一个学生的多门成绩)。KECHENG表的内容是所开课程，一门课程只有一个记录(表中有固定的已知数据)。请在考生文件夹下编写符合下列要求的程序prog1：(1)计算表CHENGJI中每门课程的最高分,并将结果存入KECHENG表的最高分字段中； 笔记本上有(2)根据上面的计算结果，生成一个按最高分降序排序的新表jcc(课程名(C 10) 最高分(N 8,2)，最低分，平均分，总分)。用SQL分析 (1)、 本题希望修改内容的表是 KECHENG，所以应在KECHENG表中循环 (2)、 修改KECHENG要以chengji 表为依据，但成绩表用loca for 按课程 查找时，第一次遇到的并不是最高分，如何能让查找是第一次遇到的就是最高分？-如果将chemgji 按照课程、成绩（降）排序后，配合KECHENG使用，就可以大大简化程序2 有CHENGJI表和XUESHENG表，各表结构如下：CHENGJI表(姓名(C 10)、课程名(C 10)、成绩(N 8,2)XUESHENG表(姓名(C 10)、平均分(N 16,2)CHENGJI表用于记录学生的考试成绩，但一个学生可以有多条记录(登记一个学生的多门成绩)。XUESHENG表是学生信息，一个学生只有一条记录(表中有固定的已知数据)。写程序完成：根据CHENGJI表计算每个学生的平均分，并将结果存入XUESHENG表的平均分字段。分析：(1)此处有两张表：要填写的表XUESHENG、填写依据CHENGJI。考虑应以哪张表做循环？(要x填写的表)(2)每遇到一个学生，要按其姓名到另张表中寻找依据。所以姓名是两张表联系的桥梁(3)用内存变量转存姓名是较易理解的方法*prog2.prgCleaSet talk offclos all &多表操作时，建议写上此句Sele 0 use CHENGJI alia cjsele 0 use XUESHENG alia xssele xsscan xm=姓名 sele cj aver to pjf for 姓名=xm &aver to pjf for 姓名=xs.姓名 sele xs &切换到与循环对应的工作区 repl 平均分 with pjfendscanbrow &看是否预期结果close all &关闭所有表set talk oncancel3 有数据表YUANGONG和ZHICHENG，表结构如下：YUANGONG(职工编码(C 10),姓名(C 10),职称(C 10),工资(N 10,2),新工资(N 10,2)ZHICHENG(职称(C 10),增加百分比(N 10,2)写符合下列要求的程序：(1)将YUANGONG表复制到JCC表中；(2)在JCC表中给每个员工增加工资，新工资=工资*(1+增加百分比/100),将计算结果存入相应记录的“新工资”字段中。分析：(1)此处有两张表：要填写的表YUANGONG、填写依据ZHICHENG。考虑应以哪张表做循环？(2)每遇到一种职称，要按其职称到另张表中寻找依据。所以职称是两张表联系的桥梁4 有两个数据表“价格.dbf”和“销售.dbf”，表结构如下：价格(货号(C 10)，单价(N 10,2)销售(货号(C 10)，销量(N 8)写符合下列要求的程序：(使用 do while 循环)1) 将价格表复制生成包含货号和单价两个字段的表PRICE.dbf；2) 在PRICE.dbf表中，根据销售表中的销量来调整单价，一件都没有卖掉的商品单价调整为原来的8折，销量大于等于5的商品单价上浮10%。分析：(1)此处有两张表：要改写的表PRICE、填写依据销售。考虑应以哪张表做循环？(2)每遇到一种商品，要按其货号到另张表中寻找依据。所以货号是两张表联系的桥梁*prog4.prgset talk offclear*(1)use 价格copy to PRICEuse*(2)sele 0 use PRICE alia prsele 0 use 销售 alia xssele pr do while ! eof() hh=货号 select xs sum(销量) to n for 货号=hh &考虑到可能是明细帐，所以没直接使用语句:n=销量 select pr if n=5 replace 单价