问题 多项选择题

(每个人拥有的所有外币中的每种基准价*持有数量的总和)。单击“关闭”按钮退出表单。

答案

参考答案:在命令窗口中输入命令: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,修改选项组中每个单选按钮的属性,可以通过属性面板中顶端的下拉框的控件名来选定,也可以右击该控件,选择“编辑”快捷菜单命令,在编辑状态下单个选定控件;程序设计中,查询语句为基本SQL查询,在程序控制上可以通过分支语句DO CASE-END CASE语句来进行判断选项组中选定的单选按钮,并执行相应的命令,选项组中当前选定的单选按钮,可通过Case Thisform.Optiongroup1.Value=1,2,3……语句来判断。

单项选择题
单项选择题