VFP第十四部分(多表程序).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;例(0701)、有营业员数据表文件YYY.DBF和日销售数据表文件RXS.DBF *RXS.DBF 营业员 代码 姓名 性别 101 天涯 女 102 海角 男 103 风声 男 104 水起 女 *YYY.DBF 营业员代码 品名 数量 单价 营业额 101 电视 3 1230.40 0000.00 102 电话 4 223.00 0000.00 101 电扇 5 334.00 0000.00 103 电话 3 223.00 0000.00 102 电视 1 1230.40 0000.00;编程要求： （1）计算出RXS.DBF中的营业额字段的值。注：营业额=数量*单价 （2）根据用户输入的营业员代码查询某个营业员的全天营业额，按如下格式显示： 代码：101 姓名：天涯 性别： 女 品名 营业额 电视 3691.20 电扇 1670.00 营业额： 5361.20 ;clear select 1 use rxs replace all 营业额 with 数量*单价 select 2 use yyy index on 营业员代码 tag dm select rxs set relation to 营业员代码 into yyy accept “输入营业员代码：” to dm ?”代码：”+dm locate for 营业员代码=dm ?“姓名：”+yyy.姓名+“ 性别：”+ yyy.性别 List 品名,营业额 for 营业员代码=dm off sum 营业额 to x1 for 营业员代码=dm ?” 营业额：”,x1 Close all return;例（0802）．设有职工表和奖金表的表结构如下： 职工表（zg.dbf）：职工号(C,7)（无重复值），姓名(C,6)，工作日期(D)。 奖金表（jj.dbf）：职工号(C,7)（无重复值），部门号(C,4)（有重复值），奖金(N,5,1)。 按如下要求编写一个程序： 根据以上两个表，可以通过键盘任意输入一个部门号（按回车键结束），按奖金从高到低显示该部门的职工姓名、工作年限（=系统当前日期的年份值-工作日期的年份值）及奖金，显示格式如下：