准备
工作: 将“2010-2011总考生文件夹”设置为默认目录.
1、2011-6-11 设计题
1
2、
3、
1
4、
5、
1720001-2011/12
6、
1720002-2011/12
2
7、
1720003-2011/12
8、
1720004-2011/12
3
9、设计题
2
1、 注意到选择按钮组的VALUE初始值为1,GRID1的RECORDSOURCETYPE为“1-别名”,并打开数据环境
进行观察。
2、 在“统计”的CLICK事件中编写如下代码: if thisform.optiongroup1.value=1
select 股票代码,sum(买入价*持有数量) as 买入总金额 from fnums order by 买入总金额 desc group by 股票代码 into cursor aaa else
select 股票代码,sum(卖出价*持有数量) as 卖出总金额 from fnums order by 卖出总金额 asc group by 股票代码 into cursor aaa endif
thisform.grid1.recordsource="aaa" 10、
1、注意到选择按钮组的VALUE初始值为1,并打开数据环境进行观察。 2、在“统计”的CLICK事件中编写如下代码: (1)方法一: SET TALK OFF DO CASE
CASE thisform.optiongroup1.value=1 count for 房型="1房" to A
average 售价 for 房型="1房" to B
4
CASE thisform.optiongroup1.value=2 count for 房型="2房" to A
average 售价 for 房型="2房" to B CASE thisform.optiongroup1.value=3 count for 房型="3房" to A
average 售价 for 房型="3房" to B ENDCASE
THISFORM.TEXT1.VALUE=A THISFORM.TEXT2.VALUE=B (2)方法二: DO CASE
CASE thisform.optiongroup1.value=1
SELECT COUNT(*),AVG(售价) FROM HOUSEXS WHERE 房型="1房" INTO ARRAY X CASE thisform.optiongroup1.value=2
SELECT COUNT(*),AVG(售价) FROM HOUSEXS WHERE 房型="2房" INTO ARRAY X CASE thisform.optiongroup1.value=3
SELECT COUNT(*),AVG(售价) FROM HOUSEXS WHERE 房型="3房" INTO ARRAY X ENDCASE
THISFORM.TEXT1.VALUE=X(1) THISFORM.TEXT2.VALUE=X(2)
(3)方法三…value的属性值改为 一房..
select count(*),avg(售价) from housexs where 房型=thisform.optiongroup1.value into array abc
thisform.text1.value=abc(1) thisform.text2.value=abc(2)
11、
1、 注意到GRID1的RECORDSOURCETYPE为“1-别名”,“显示全年总利润”的VALUE的初始值为0,并打开
数据环境进行观察。
2、 在组合框的CLICK或INTERACTIVECHANGE事件中编写代码:
SELECT 商品名,SUM(全年利润) AS 全年利润 FROM SPDMB,XSB WHERE SPDMB.商品号=XSB.商品号 AND 年度=this.value GROUP BY 商品名 INTO CURSOR AAA THISFORM.GRID1.RECORDSOURCE="AAA" IF THISFORM.CHECK1.VALUE=1
SELECT SUM(全年利润) FROM AAA INTO ARRAY X
5
THISFORM.TEXT1.VALUE=X(1) ENDIF 12、
1、注意到GRID1的RECORDSOURCETYPE为“1-别名”,“显示平均分”的VALUE的初始值为0,并打开数据环境进行观察。
2、在组合框的CLICK或INTERACTIVECHANGE事件中编写代码:
SELECT * FROM FGRADE WHERE =THIS.VALUE INTO CURSOR AAA THISFORM.GRID1.RECORDSOURCE="AAA" IF THISFORM.CHECK1.VALUE=1
SELECT AVG(成绩) FROM AAA INTO ARRAY X THISFORM.TEXT1.VALUE=X(1) ENDIF
13、
1720001-2011/12
在“查询”的CLICK事件中编写如下代码:
6
1、 观察数据环境中相关表格的内容
2、在“查询”的CLICK事件中编写如下代码: C=ALLTRIM(THISFORM.TEXT1.VALUE) GO TOP
LOCATE FOR =C IF FOUND()
THISFORM.LABEL5.CAPTION="已找到" THISFORM.TEXT2.VALUE=
THISFORM.TEXT3.VALUE=YEAR(出生日期) IF 性别=.T.
THISFORM.OPTIONGROUP1.VALUE=1 ELSE
THISFORM.OPTIONGROUP1.VALUE=2 ENDIF ELSE
THISFORM.LABEL5.CAPTION="查无此人" THISFORM.TEXT2.VALUE="" THISFORM.TEXT3.VALUE=""
THISFORM.OPTIONGROUP1.VALUE=0 ENDIF
14、
1720002-2011/12
1、观察数据环境中相关表格的内容
2、在“
查询”的CLICK事件中编写如下代码: C=ALLTRIM(THISFORM.TEXT1.VALUE) GO TOP
LOCATE FOR =C IF FO