3

thisform.grid1.recordsource="sele 零件名,颜色,重量 from 供应,零件 where 供应.零件号=;

零件.零件号 and 工程号='JC11' into cursor aa  "

 

5

(1)mainform.grid1.recordsourcetype=0

   mainform.grid1.recordsource="课程"

 

(2)open database 学生选课

   mainform.grid1.recordsourcetype=0

   mainform.grid1.recordsource="xkview"

(3)report form xkrepo preview

 

 

 

7

if thisform.myopgroup.value=1

thisform.grid1.recordsource="sele * from 账户  where 钞汇标志='现钞' into cursor aa"

else

thisform.grid1.recordsource="sele * from 账户 where 钞汇标志='现汇'  into cursor bb"

endif

 

 

8

update cj set 学分=0

update cj set 学分=学分+2 where 语文>=60

update cj set 学分=学分+3 where 数学>=60

update cj set 学分=学分+4 where 英语>=60

sele * from cj  order by 学分 desc,学号 into table temp

 

10

do case

CASE THISFORM.OPTIONGROUP1.VALUE=1

     THISFORM.TEXT3.VALUE=THISFORM.TEXT1.VALUE+THISFORM.TEXT2.VALUE

CASE THISFORM.OPTIONGROUP1.VALUE=2

     THISFORM.TEXT3.VALUE=THISFORM.TEXT1.VALUE-THISFORM.TEXT2.VALUE

CASE THISFORM.OPTIONGROUP1.VALUE=3

     THISFORM.TEXT3.VALUE=THISFORM.TEXT1.VALUE*THISFORM.TEXT2.VALUE

CASE THISFORM.OPTIONGROUP1.VALUE=4

     THISFORM.TEXT3.VALUE=THISFORM.TEXT1.VALUE/THISFORM.TEXT2.VALUE

ENDCASE