24

sele 订单号,sum(单价*数量) as 总金额 from 订货;

group by 订单号 into cursor aa

sele 货物.* from 货物,aa where 货物.订单号=aa.订单号;

and 货物.总金额!=aa.总金额 into table 修正

sele aa

do while not eof()

update 修正 set 总金额=aa.总金额 where 订单号=aa.订单号

skip

enddo

sele * from 修正 order by 总金额 desc  into cursor bb

sele * from bb  into table 修正

25

if thisform.check1.value=1

   if thisform.optiongroup1.value=1

     sele * from 职工 into table  temp

   else

     sele * from 订单 into table  temp

   endif

else

  if thisform.optiongroup1.value=1

     sele * from 职工

   else

     sele * from 订单

   endif

 endif

26

do case

case thisform.optiongroup1.value=1

sele 产品.* from 产品,产品类型 where;

产品.分类编号=产品类型.分类编号 and;

分类名="饮料"

case thisform.optiongroup1.value=2

sele 产品.* from 产品,产品类型 where;

产品.分类编号=产品类型.分类编号 and;

分类名="调料"

case thisform.optiongroup1.value=3

sele 产品.* from 产品,产品类型 where;

产品.分类编号=产品类型.分类编号 and;

分类名="小家电"

case thisform.optiongroup1.value=4

sele 产品.* from 产品,产品类型 where;

产品.分类编号=产品类型.分类编号 and;

分类名="橱卫用品"

case thisform.optiongroup1.value=5

sele 产品.* from 产品,产品类型 where;

产品.分类编号=产品类型.分类编号 and;

分类名="食品"

case thisform.optiongroup1.value=6

sele 产品.* from 产品,产品类型 where;

产品.分类编号=产品类型.分类编号 and;

分类名="烟酒类"

endcase