vfp第14部分[多表程序].pptVIP

Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 本部分要点 复杂多表程序 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 多表程序 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 例（实验指导书P35）：根据如下两个数据表，分别设计程序完成以下功能。 职工号 001 003 002 004 姓名 丁伟 黄鹂 邓兴 李力 职称 讲师 副教授 教授 助教 单位课时费 33 45 58 25 课程名 大学计算机 软件工程 C++ 计算机英语 会计学 计量学 金融学 大学计算机 软件工程 授课教师 002 001 002 001 004 003 004 001 002 课时数 64 80 80 64 72 64 80 64 80 ①输入课程名，查询该课程授课教师姓名和职称； ② 统计每位教师总的课时费。 kc.dbf js.dbf Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. ①方法一： clear accept请输入查询课程名称： to kcm ?课程名：+kcm select 姓名 as 教师姓名,职称 from js,kc ; where 职工号=授课教师 and 课程名=kcm to screen return Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 方法二: 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 数据环境 输入 输出 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. ② 方法一： clear sele 姓名 as 教师姓名,sum(学时数)*单位课时费 as 课时费 ; from js inner join kc on 职工号=授课教师; group by 授课教师 return Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 方法二: 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 汇总 数据环境 输出 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 例(0701)、有营业员数据表文件YYY.DBF和日销售数据表文件RXS.DBF