[组图]2010年计算机二级VFP上机第三套冲刺模拟及答案二

三、综合应用（1小题，计30分）
设计一个文件名和表单名均为myrate的表单，所有控件的属性必须在表单设计器的属性窗口中设置。表单的标题为"外汇持有情况"。表单中有一个选项组控件(命名为myOption)和两个命令按钮"统计"(command1)和"退出"(command2)。其中，选项组控件有三个按钮"日元"、"美元"和"欧元"。
运行表单时,首先在选项组控件中选择"日元"、"美元"或"欧元",单击"统计"命令按钮后，根据选项组控件的选择将持有相应外币的人的姓名和持有数量分别存入rate_ry.dbf（日元）或rate_my.dbf（美元）或rate_oy（欧元）中。
单击"退出"按钮时关闭表单。
表单建成后，要求运行表单，并分别统计"日元"、"美元"和"欧元"的持有数量。
解答：
（1）单击工具栏的“新建”按扭，选择“表单”，再单击“新建文件”，启动“表单设计器”。
（2）按照题目要求添加控件，如图：

选中“选项按扭组”，单击右键，选择编辑，然后设置每个选项按扭的caption依次为：日元、美元和欧元。


设置两个命令按扭的caption为：统计和退出。
（3）编写事件代码。
“统计”按扭的click 代码如下：
x=thisform.myoption.value
do  case
case x=1
SELECT Currency_sl.姓名, Currency_sl.持有数量;
FROM  外汇数据!rate_exchange INNER JOIN 外汇数据!currency_sl ;
ON  Rate_exchange.外币代码 = Currency_sl.外币代码;
WHERE Rate_exchange.外币名称 = "日元";
INTO TABLE rate_ry.dbf
case x=2
SELECT Currency_sl.姓名, Currency_sl.持有数量;
FROM  外汇数据!rate_exchange INNER JOIN 外汇数据!currency_sl ;
ON  Rate_exchange.外币代码 = Currency_sl.外币代码;
WHERE Rate_exchange.外币名称 = "美元";
INTO TABLE rate_my.dbf
case x=3
SELECT Currency_sl.姓名, Currency_sl.持有数量;
FROM  外汇数据!rate_exchange INNER JOIN 外汇数据!currency_sl ;
ON  Rate_exchange.外币代码 = Currency_sl.外币代码;
WHERE Rate_exchange.外币名称 = "欧元";
INTO TABLE rate_oy.dbf
Endcase
“退出”按扭的click代码：thisform.release
※ 解题技巧：
“统计”按扭的代码可以用“查询设计器”做完，然后查看sql把代码复制过来；每个分支粘贴一次，然后作少量的修改。
附数据表内容和结构如下：

上一页  [1] [2] [3]