设计一个表单名和文件名均为myrate的表单,所有控件的属性必须在表单设计器的属性窗口中设置。表单的标题为"外汇持有情况"。表单中有一个选项组控件(名为myOption)和两个命令按钮"统计"和"退出...
运行表单时,首先在选项组控件中选择"日元"、"美元"或"欧元",单击"统计"命令按钮后,根据选项组控件的选择将持有相应外币的人的姓名和持有数量分别存入表rate_ry(日元)或表rate_my(美元)或表rate_oy(欧元)中。
单击"退出"按钮关闭表单。
表单建成后,要求运行表单,并分别统计"日元"、"美元"和"欧元"的持有数量。
参考解析: 【解题思路】 新建表单,按要求添加控件并修改属性,写入命令按钮的代码。
【操作步骤】
步骤1:新建一个名为myrate的表单,按照题目的要求为表单添加一个选项组控件两个命令按钮控件,设置表单的Name属性为myrate,Caption属性为“外汇持有情况”,设置选项组控件的Name属性为myOption,ButtonCount属性为“3”,选项按钮1的Caption属性为“日元”,选项按钮2的Caption属性为"美元",选项按钮3的Caption属性为"欧元",设置Command1的Caption属性为“统计”,Command2的Caption属性为"退出"。(注意:在修改选项组控件中各选项按钮的属性时,要先右键单击选项组控件,选择"编辑"命令,先后单击选中各选项按钮)。
保存表单,运行并查看表单的运行结果。
步骤2:双击"统计"按钮,编写其Click事件代码如下。
*************************
If ThisForm.myOption.Value=1
Select 姓名,持有数量 from currency_sl,rate_exchange;
where rate_exchange.外币代码=currency_sl.外币代码.and.;
rate_exchange.外币名称="日元";
into table rate_ry
else
If ThisForm.myOption.Value=2
Select 姓名,持有数量 from currency_sl,rate_exchange;
where rate_exchange.外币代码=currency_sl.外币代码.and.;
rate_exchange.外币名称="美元";
into table rate_my
else
Select 姓名,持有数量 from currency_sl,rate_exchange;
where rate_exchange.外币代码=currency_sl.外币代码.and.;
rate_exchange.外币名称="欧元";
into table rate_oy
endif
endif
*************************
步骤3:双击"退出"按钮,编写其Click事件代码如下:
ThisForm.Release
步骤3:运行表单,查看结果。