问题 问答题

设计一个表单名和文件名均为myrate的表单,所有控件的属性必须在表单设计器的属性窗口中设置。表单的标题为“外汇持有情况”。表单中有一个选项组控件(名为。myOption)和两个命令按钮“统计”和“退出”(Command1和(Command2)。其中,选项组控件有3个按钮“日元”、“美元”和“欧元”。
运行表单时,首先在选项组控件中选择“日元”、“美元”或“欧元”,单击“统计”命令按钮后,根据选项组控件的选择将持有相应外币的人的姓名和持有数量分别存入表rate_ry(日元)或表rate_my(美元)或表rate_oy(欧元)中。
单击“退出”按钮关闭表单。
表单建成后,要求运行表单,并分别统计“日元”、“美元”和“欧元”的持有数量。

答案

参考答案:①选择[文件]→[新建]命令,选择“表单”,单击“新建文件”按钮打开表单设计器,在表单属性窗口中将Caption属性值修改为“外汇持有情况”,Name属性值修改为“myrate”。
②在表单中添加一个选项组控件optionalgroup1和两个命令按钮控件command1、command2,在表单属性窗口中将optionalgroup1的ButtonCount属性值修改为3,Name属性值为myoption,将command1、command2的Caption属性值修改为“查询”、“退出”。
③右击选项生成器控件,在弹出的菜单中选择“生成器”,打开“选项生成器”对话框,在“按钮”选项卡中填写“日元”、“美元”、“欧元”。
④双击“查询”命令按钮,在Click事件中输入代码:
If ThisForm.myOption.Value=1
Select姓名,持有数量from currency_s1,rate
_exchange;
where rate_exchange.外币代码=curren-
cy_s1.外币代码.and.
rate_exchange.外币名称="日元";
into table rate_ry
else
If ThisForm.myOption.Value=2
Select姓名,持有数量from currency_s1,
rate_exchange;
where rate_exchange.外币代码=
currency_s1.外币代码.and.
rate_exchange.外币名称="美元";
into table rate_my
else
Select姓名,持有数量from currency_s1,
rate_exchange;
where rate_exchange.外币代码=
currency_s1.外币代码.and.
rate_exchange.外币名称="欧元";
into table rate_oy
endif
endif
⑤双击“退出”命令按钮,在Click事件中输入代码:
thisform.release
⑥右击表单设计器的空白处,在弹出的菜单中选择“数据环境”,在弹出的“添加表或视图”对话框中,将currency_s1,rate_exchange添加到数据环境设计器中。
⑦点击保存按钮,点击运行按钮运行表单。

解析:[考点指引] 本题考查的是新建表单,控件的添加和属性修改。

多项选择题
单项选择题