
程序代码:
CREATE CURSOR hz (姓名 c(20) , ;
平时语文 N(8,2) ,期中语文 N(8,2) ,;
期末语文 N(8,2) ,汇总语文 N(8,2) ,;
平时数学 N(8,2) ,期中数学 N(8,2) ,;
期末数学 N(8,2) ,汇总数学 N(8,2))
USE "平时.dbf" IN 0
INSERT INTO hz (姓名,平时语文,平时数学) ;
SELECT 姓名,语文,数学 FROM 平时
use in 平时
USE "期末.dbf" IN 0
INSERT INTO hz (姓名,期中语文,期中数学) ;
SELECT 姓名,语文,数学 FROM 平时
use in 期中
USE "期中.dbf" IN 0
INSERT INTO hz (姓名,期末语文,期末数学) ;
SELECT 姓名,语文,数学 FROM 平时
use in 期末
sele hz
INDEX on 姓名 TO idx_xm
TOTAL TO c:\hz1.dbf ON 姓名
USE IN hz
use c:\hz1.dbf in 0
sele hz1
REPLACE hz1.汇总数学 WITH (平时数学*.2 + 期中数学*.4 + 期末数学*.4) , ;
hz1.汇总语文 WITH (平时语文*.2 + 期中语文*.4 + 期末语文*.4) ALL