明天就要交作业啦,太感谢啦在帮我看看这几道吧

题目

明天就要交作业啦,太感谢啦在帮我看看这几道吧
编程题
1、在数据表RSGZ.DBF中,含有如下字段：工号(C,6)、姓名(C,8)、基本工资(N,8,2)、职级工资（N,8,2)、补贴（N,8,2)、扣款（N,8,2)、应发工资（N,8,2)、实发工资（N,8,2).其中基本工资（N,8,2)表示字段名为“基本工资”,数据类型为N型,字段长度为8位,小数位数为2位,其余类推.
（1）现在想求出所有人员的每个月的基本工资之和以及全年实发工资之和（假设每名职工一年中各月工资情况相同）,请写出相关程序.
（2）若想求出RSGZ.DBF中所有人员的每个月的基本工资以及实发工资的平均值,请写出相关程序.
2、某商店各班组每天的销售额已统计在XSE.DBF数据表中,该数据表有月份（C型）、日期（C型）、班组（C型）和销售额（N型）等字段,其记录情况如下：
月份 日期 班组 销售额
1月 1日 1组 100
1月 1日 2组 120
………………………………………
1月 2日 1组 301
1月 2日 2组 100
………………………………………
2月 1日 1组 150
2月 1日 2组 170
现在要统计XSE.DBF中每月全商店的销售总额、每月各班组的销售额、全年各班组的销售额,请写出相关程序.

答案

我想楼主的意思是用VFP本身的命令编程,而不是用SQL,以下供参考
1、在数据表RSGZ.DBF中,含有如下字段：工号(C,6)、姓名(C,8)、基本工资(N,8,2)、职级工资（N,8,2)、补贴（N,8,2)、扣款（N,8,2)、应发工资（N,8,2)、实发工资（N,8,2).其中基本工资（N,8,2)表示字段名为“基本工资”,数据类型为N型,字段长度为8位,小数位数为2位,其余类推.
问题：（1）现在想求出所有人员的每个月的基本工资之和以及全年实发工资之和（假设每名职工一年中各月工资情况相同）,请写出相关程序.
set talk off
use RSGZ
sum 基本工资,实发工资 to 基本之和,实发之和
全年之和 = 12 * 实发之和
"基本工资之和 =",基本之和
"全年实发工资之和 = ",全年之和
use
set talk on
（2）若想求出RSGZ.DBF中所有人员的每个月的基本工资以及实发工资的平均值,请写出相关程序.
set talk off
use RSGZ
average 基本工资,实发工资 to 基本平均,实发平均
"平均基本工资 =",基本平均
"平均实发工资 = ",实发平均
use
set talk on
2、某商店各班组每天的销售额已统计在XSE.DBF数据表中,该数据表有月份（C型）、日期（C型）、班组（C型）和销售额（N型）等字段,其记录情况如下：
月份 日期 班组 销售额
1月 1日 1组 100
1月 1日 2组 120
………………………………………
1月 2日 1组 301
1月 2日 2组 100
………………………………………
2月 1日 1组 150
2月 1日 2组 170
问题：现在要统计XSE.DBF中每月全商店的销售总额、每月各班组的销售额、全年各班组的销售额,请写出相关程序.
set talk off
use XSE
全年各班组销售额
select XSE
index on alltrim(班组) tag gr
set order to gr
total on alltrim(班组) to 全年班组总额 field 班组,销售额
select 0
use 全年班组总额
list
close all
set talk on