福建省计算机二级考试08年-6月设计题答案[借鉴].pdfVIP

提示：作为设计题的第2 题，一般地，做题前可以先试运行表单，其次要查看并了解数据 环境中的表。 表格显示的数据由2 个属性决定：recordsourceType 和recordsource 注意到recordsourceType 已经设置为4-查询，这里只需要设置recordsource 属性即可 bmh=alltrim(thisform.text1.value) nd=alltrim(thisform.text2.value) thisform.grid1.recordsource=select xsb.商品号,商品名,上半年利润, ; 下半年利润,上半年利润+下半年利润 from xsb,spdmb ; where xsb.商品号=spdmb.商品号 and ; 部门号=bmh and 年度=nd into cursor tmp thisform.refresh if thisform.optiongroup1.value=1 select 职员号,avg(金额) as 平均金额 from orders ; group by 职员号 order by 2 into table px_a else select 职员号,avg(金额) as 平均金额 from orders ; group by 职员号 order by 2 desc into table px_d endif if thisform.optiongroup1.value=1 thisform.grid1.recordsource=select 客户号,count(*), ; sum(金额) from orders group by 客户号 ; into cursor tmp endif if thisform.optiongroup1.value=2 thisform.grid1.recordsource=select 职员号,count(*), ; sum(金额) from orders group by 职员号 ; into cursor tmp endif gsbh=gsb.歌手编号 dime aa(1,6) 定义一个 1 行6 列的二维数组 select 分数 from pfb order by 评委编号 ; where 歌手编号=gsbh into array aa ss=0 for i=1 to 6 attname=thisform.text+alltrim(str(i))+.value attname = aa(1,i) ss=ss+aa(1,i) endfor thisform.text7.value=ss/6 1）设置combo1 的value 属性为: =ddm1.系名 2 ）组合框的interactivechange 事件编写代码如下： dime aa(1) if thisform.check1.value=1 select avg(基本工资) from teach1 ; where 系号=ddm1.系号 into array aa thisform.text1.value=aa(1) else thisform.text1.value= endif list1 的rowsourceType 已经设置为“3-SQL ”，columncount 为3，故： thisform.list1.rowsource=select 姓名,成果名称,成果类别 ; From rcda,cjda ; where rcda.人才编号=cjda.人才编号 and ; rcda.人才编号=bo1.value ; into cursor tmp 建议用结构清晰的三个独立的if 语句。 注意到text1 和text2 都为数值型文本框 x=thisform.text1.value if x10 y=x/3 endif if x=10 and x20 y=2*x+1 endif if x=20 y=3*x-10 endif t