15

sele 会员编号,sum(单价*数量) as 总金额 ;

from cbs where 销售日期<=date();

group by 会员编号 into cursor aa

 

do while not eof()

do case

case aa.总金额>=20000

  update css set 会员类型="钻石卡" where 会员编号=aa.会员编号

case  aa.总金额>=10000 and aa.总金额<20000

  update css set 会员类型="金卡" where 会员编号=aa.会员编号

case  aa.总金额>=5000 and aa.总金额<10000

  update css set 会员类型="银卡" where 会员编号=aa.会员编号

case  aa.总金额<5000

  update css set 会员类型="普通卡" where 会员编号=aa.会员编号

endcase

skip

enddo

 

16

thisform.grid1.recordsource="sele 土地号,地名,面积,树种号,蓄面积,承包年份 ;

from ctr where 户主号=allt(thisform.text1.value)  into cursor aa"

 

sele 户名,年龄,性别,住址  from cbs where 户主号=allt(thisform.text1.value);

into array arr

thisform.text2.value=arr(1)

thisform.text3.value=arr(2)

thisform.text4.value=arr(3)

thisform.text5.value=arr(4)

 

 

17

sele 住宿.客户号,身份证号,客户名,工作单位,客房.客房号,等级名,房价;

from 房价,客房,住宿,客户;

where 房价.等级号=客房.等级号 and 客房.客房号=住宿.客房号 and;

住宿.客户号=客户.客户号 and 退房日期>=thisform.text1.value;

order by 房价 desc into table tftable

 

18

sele 姓名,性别 from employee where ;

职工号=allt(thisform.text1.value) into array aa

 

 

Thisform.Text2.Value=a(1)

Thisform.Text3.Value=a(2)

 

thisform.grdorders.recordsource=";

select * from orders where 职工号=alltrim(thisform.text1.value);

into cursor temp"