时间:2011-12-29 20:52:27
33
select 订单号,sum(单价*数量) as 总金额 from orderdetail group by 订单号 order by 订单号 into cursor ff
do while not eof()
update orderlist set 总金额=aa.总金额 where 订单号=aa.订单号
skip
enddo
select * from orderlist order by 总金额 desc into table jsnew
34(1)
update or_detail set 新单价=单价*0.95 where 订单号=;
(select 订单号 from or_list where 订单号=or_detail.订单号 and year(订购日期)=2006)
update or_detail set 新单价=单价*1.15 where 订单号=;
(select 订单号 from or_list where 订单号=or_detail.订单号 and year(订购日期)=2007)
35
sele 年份,sum(销售额)as 销售额,sum(销售额-部门工资)as 利润;
from 部门,销售 where 部门.部门号=销售.部门号 and ;
部门名=allt(thisform.text1.value) group by 年份;
order by 年份 into table allt(thisform.text1.value)
thisform.grid1.recordsource=allt(thisform.text1.value)
36
CLOS ALL
OPEN DATABASE 学生成绩
SELECT * FROM BJGCJ INTO TABLE CTEMP
SELECT 1
USE XS
INDEX ON 学号 TAG 学号
SELECT 2
USE CJ
INDEX ON 学号 TAG 学号
SET RELATION TO 学号 INTO XS
GO TOP
DO WHILE .NOT.EOF()
IF CJ. 语文<60
INSERT INTO CTEMP VALUES(XS.学号,XS.姓名,'语文',CJ. 语文)
ENDIF
IF CJ.数学<60
INSERT INTO CTEMP VALUES(XS.学号,XS.姓名,'数学',CJ.数学)
ENDIF
IF CJ.英语<60
INSERT INTO CTEMP VALUES(XS.学号,XS.姓名,'英语',CJ.英语)
ENDIF
SKIP
ENDDO
SELECT * FROM CTEMP ORDER BY 分数 DESC,学号 INTO ARRAY ARR
INSERT INTO BJGCJ FROM ARRAY ARR
CLOSE DATABASE
CLOSE TABLES ALL
DROP TABLE CTEMP