【操作步骤】
①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，在表单属性窗口中将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.OptionGroup1.value=1

SELECT外汇账户.*INTO CURSOR tmp FROM外汇账户，货币代码WHERE外汇账户.货币代码=货币代码.货币代码AND货币名称=〝美元〞

CASE ThisForm.OptionGroup1.value=2

SELECT外汇账户.*INTO CURSOR tmp FROM外汇账户，货币代码WHERE外汇账户.货币代码=货币代码.货币代码AND货币名称=〝英镑〞

CASE ThisForm.OptionGroup1.value=3

SELECT外汇账户.*INTO CURSoR tmp FROM外汇账户，货币代码WHERE外汇账户.货币代码=货币代码.货币代码AND货币名称=〝港币〞

ENDCASE

ThisForm.Grid1.RecordSourceType=1

ThisForm.Grid1.RecordSource=〝tmp〞

ThisForm.Grid1.Refresh

⑥选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd1”，保存在考生文件夹下，然后运行表单。