设计一个文件名和表单名均为“bdl”的表单。表单的标题为“外汇持有情况”。表单中有一个选项按钮组控

设计一个文件名和表单名均为“bdl”的表单。表单的标题为“外汇持有情况”。表单中有一个选项按钮组控件、一个表格控件及两个命令按钮“查询”和“关闭”。其中，选项按钮组控件有3个按钮“美元”、“英镑”和“港币”。运行表单时，在选项组控件中选择“美元”、“英镑”和“港币”，单击“查询”命令按钮后，根据选项组控件的选择将“外汇账户”表的情况显示在表格控件中。单击“关闭”按钮，关闭并释放表单。

正确答案：
【考点指引】本大题主要考查表单的表格控件和选项按钮组控件的建立及使用，重点是表格数据源的设置。
【操作步骤】
①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，在表单属性窗口中将Caption属性值修改为“外汇持有情况”；单击表单控件工具栏上的“选项按钮组”控件图标，为表单添加一个选项按钮组0ptionGroup1；单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Command1和Command2；单击表单控件工具栏上的“表格”控件图标，再添加一个表格控件“Grid1”。

②选择选项按钮组0ptionGroup1，单击右键，在弹出的快捷菜单中选择“生成器”打开选项按钮组生成器对话框，单击“按钮”选项卡，设置按钮的数目为3，在“标题”列下修改3个按钮的标题分别为“美元”、“英镑”和“港币”，单击“确定”按钮关闭命令组生成器对话框。
③分别选择两个命令按钮，在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“查询”，Command2的Caption属性值修改为“关闭”，如图63–1所示。“关闭”命令按钮，在Click事件中输入代码：ThisForm．Release，用来关闭表单。
④选择表格控件“Grid1”，在表格控件属性窗口中将“RecordSource”属性值修改为“〝〞”，将“RecordsourceType”属性值修改为“1”。
⑤双击“查询”命令按钮，在Click事件中输入代码：
DO CASE
CASE ThisForm．Option Group1．value=1
SELECT外汇账户．*INTO CURSOR tmp FROM外汇账户，货币代码WHERE外汇账户．货币代码=货币代码．货币代码AND货币名称=〝美元〞
CASE ThisForm．Option Group1．value=2
SELECT外汇账户．*INTO CURSOR tmp FROM外汇账户，货币代码WHERE外汇账户．货币代码=货币代码．货币代码AND货币名称=〝英镑〞
CASE ThisForm．Option Group1．value=3
SELECT外汇账户．*INTO CURSoR tmp FROM外汇账户，货币代码WHERE外汇账户．货币代码=货币代码．货币代码AND货币名称=〝港币〞
ENDCASE
This Form．Grid1．Record SourceType=1
This Form．Grid1．Record Source=〝tmp〞
This Form．Grid1．Refresh
⑥选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd1”，保存在考生文件夹下，然后运行表单。