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