27

sele count(dist 订货单位)  from 合同管理 into array a

update jg set 统计数=a  where 分类名="订货单位总数"

sele count(dist 供货单位)  from 合同管理 into array b

update jg set 统计数=b where 分类名="供货单位总数"

sele sum(订货数量)  from 合同管理 into array c

update jg set 统计数=c where 分类名="订货总数"

28

do case

case thisform.optiongroup1.value=1

     thisform.pageframe1.activepage=1

case thisform.optiongroup1.value=2

     thisform.pageframe1.activepage=2

case thisform.optiongroup1.value=3

     thisform.pageframe1.activepage=3

endcase

29

sele rate.* from rate,代码 a,代码 b,汇率 where ;

币种1=thisform.combo1.value and;

币种2=thisform.combo2.value and a.外币代码=rate.币种1代码;

 and b.外币代码=rate.币种2代码;

and 汇率.币种1=a.外币名称 and 汇率.币种2=b.外币名称

30

sele order.职工号,姓名,sum(金额) as 总金额 from employ,order where order.职工号=employ.职工号 ;

group by order.职工号 into cursor aa

31

if thisform.optiongroup1.value=1

  sele * from temp order by 最高分,最低分,平均分;

  into table asctable

else

  sele * from temp order by 最高分 desc,最低分;

  desc,平均分 desc into table desctable

endif