参考答案:在命令窗口中输入命令:CREATE FORM myf,打开表单设计器,通过“表单控件”工具栏向表单添加A个表格、A个选项按钮组和B个命令按钮。
选中表单,在属性面板顶端的下拉框中选择CommandA,修改该命令按钮控件的Caption属性值为“浏览”,以同样的方法将第二个命令按钮设置Caption属性值改为“关闭”,在属性面板顶端的下拉框中选择 (OptiongroupA),将其ButtonCount属性值改为C,右击选项按钮组,选择“编辑”快捷菜单命令,在此状态下(编辑状态下,控件四周出现蓝色框线),分别修改三个单选项的Caption属性值为“外币浏览”、“个人持有量”和“个人资产”。
双击命令按钮“浏览”,编写该控件的Click事件,程序代码如下:
******命令按钮CommandA(浏览)的Click事件代码*****
DO CASE
CASE This form.OptiongroupA.Value=A
SELECT*;
FROM汇率;
INTO CURSOR temp
Thisform.GridA.RecordSourceType=A
Thisform.GridA.RecordSource="temp"
CASE Thisform.OptiongroupA.Value=B
SELECT数量.姓名,外币名称,持有数量;
FROM数量,汇率;
WHERE汇率.外币代码=数量.外币代码;
INT OCURSOR temp
Thisform.GridA.RecordSourceType=A
Thisform.GridA.RecordSource="temp"
CASE Thisform.OptiongroupA.Value=C
SELECT姓名,SUM(持有数量*基准价)AS总资产;
FROM汇率,数量;
WHERE汇率,外币代码:数量.外币代码;
GROUP BY姓名;
INTO CURSOR temp
Thisform.GridA.RecordSourceType=A
Thisform.GridA.RecordSource="temp"
ENDCASE
********************************************************
以同样的方法为“关闭”命令按钮编写Click事件代码:Thisform.Release。保存表单完成设计,运行结果如图C-CD所示。
[*]
答案解析:[解析] 本大题考查的是表单设计,在本题中需要注意的地方是选项按钮组控件中改变单选按钮的属性是ButtonCount,修改选项组中每个单选按钮的属性,可以通过属性面板中顶端的下拉框的控件名来选定,也可
我来回答:
最新试题