第三十二套
一、基本操作题（共4小题，第1和2题是7分、第3和4题是8分）
在考生文件夹下完成如下操作:
1. 新建一个名称为"外汇数据"的数据库。
2. 将自由表rate_exchange和currency_sl添加到数据库中。
3. 通过"外币代码"字段为rate_exchange 和currency_sl 建立永久联系（如果
必要请建立相关索引）。
4. 打开表单文件test_form，该表单的界面如下图所示，请将标签"用户名"和
"口令"的字体都改为"黑体"。
本题主要考核点：
数据库的建立、将自由表添加到数据库中、表索引的建立、表之间的永久联系的建立等知识点
本题解题思路：
第一步：在Visual FoxPro主窗口中按下组合键Ctrl+N，系统弹出"新建"对话框，在文件类型中选择"数据库"，点击"新建文件"按钮，在弹出的对话框的"数据库名"处输入"外汇数据"，单击保存按钮。
第二步：打开考生文件夹下的"外汇数据"数据库。
第三步：打开数据库菜单选择"添加表(A)"，在弹出的"打开"对话框中，选定考生文件夹下的 rate_exchange表，再点击"确定"即可,这样表rate_exchange就添加到了"外汇数据"数据库中，用同样的方法，将 currency_sl表也添加到"外汇数据"数据库中。
第四步：在数据库设计器中选中表rate_exchange，在主菜单中选择"修改(Y)"，弹出表设计器，选择表设计器"索引"标签，在索引名列中填入"外币代码",在索引类型列中选择"主索引"，在索引表达式列中填入"外币代码"，点击"确定"按钮，保存表结构，用类似的方法，为currency_sl表建立普通索引。
第五步：在数据库设计器中，选中rate_exchange表中的索引"外币代码"并拖动到表currency_sl的"外币代码"的索引上并松开，这样两个表之间就建立起了永久联系。
第六步：打开考生文件夹下的"test_form"表单，按CTRL键选中标签"用户名"和"口令"后，按鼠标右键，选择"属性(P)"，在弹出的"属性"对话框中将标签"用户名"和"口令"的"FontName"值置为"黑体"，保存表单即可。
二、简单应用（2小题，每题20分，计40分）
在考生文件夹下完成如下简单应用:
1. rate_pro.prg中的程序功能是计算出"林诗因"所持有的全部外币相当于
人民币的价值数量，summ中存放的是结果。注意:某种外币相当于人民币数量的
计算公式：人民币价值数量= 该种外币的"现钞买入价"* 该种外币"持有数量"。
请在指定位置修改程序的语句，不得增加或删除程序行，请保存所做的修改。
2. 建立一个名为menu_rate的菜单，菜单中有两个菜单项"查询"和"退出"。
"查询"项下中还有一个子菜单，子菜单有"日元"、"欧元"、"美元"三个选项。
在"退出"菜单项下创建过程，该过程负责返回系统菜单。
本题主要考核点：
文件菜单建立等知识点
本题解题思路
第1题：本题是一个程序修改题，题中的第一个错误是find for 姓名="林诗因"，应改为loca for 姓名="林诗因"；第二个错误while not eof()，应改为do while not eof()；第三个错误是"summ=summ+a[1]*rate_exchange.持有数量"，应改为summ=summ+a[1] *currency_sl.持有数量。
第2题，本题的主要考核点是菜单的建立。新建菜单可按下列步骤：选择"文件"菜单中的"新建"命令，在"新建"对话框中选择"菜单"，单击"新建文件"按钮。在"新建菜单"对话框中选择"菜单"按钮，调出"菜单设计器"。也可用CREATE MENU命令直接调出菜单设计器。在菜单名称中填入"查询"、"退出"，"查询"结果为子菜单，单击编辑；在子菜单的菜单名称中输入"日元"、"欧元"、 "美元"，"退出"结果为过程"SET SYSMENU TO DEFAULT"。
三、综合应用（1小题，计30分）
设计一个文件名和表单名均为myrate的表单，所有控件的属性必须在表单设
计器的属性窗口中设置。表单的标题为"外汇持有情况"。表单中有一个选项组控
件(命名为myOption)和两个命令按钮"统计"(command1)和"退出"(command2)。其
中，选项组控件有三个按钮"日元"、"美元"和"欧元"。
运行表单时,首先在选项组控件中选择"日元"、"美元"或"欧元",单击"统计"
命令按钮后，根据选项组控件的选择将持有相应外币的人的姓名和持有数量分别
存入rate_ry.dbf（日元）或rate_my.dbf（美元）或rate_oy（欧元）中。
单击"退出"按钮时关闭表单。
表单建成后，要求运行表单，并分别统计"日元"、"美元"和"欧元"的持有数
量。
本题主要考核点
控件的属性的修改、SQL语句运用、表单的退出等知识点
本题解题思路：
第一步：在Visual FoxPro主窗口中按下组合键Ctrl+N，系统弹出"新建"对话框，在文件类型中选择"表单"，点击"新建文件"按钮（系统将打开表单设计器）；或直接在命令窗口中输入 crea form myrate。
第二步：点击工具栏按钮"表单控件工具栏"，在弹出的"表单控件"对话框中，选中"选项组"控件，在表单设计器中拖动鼠标，这样在表单上得到一个"选项组"控件optiongroup1，用类似的方法为表单再加入两个"命令按钮"控件command1和command2。
相关控件的属性值如下：
对象 属性 属性值
Form1 Caption 外汇持有情况
选项组 Name myOption
ButtonCount 3
MyOption.option1 Caption 日元
MyOption.option2 Caption 美元
MyOption.option3 Caption 欧元
Command1 Caption 统计
Command2 Caption 退出
***********命令按钮command1(统计)的Click事件代码如下************
DO CASE
CASE thisform.myOption.option1.value=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 thisform.myOption.option2.value=1
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 thisform.myOption.option3.value=1
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
***********命令按钮command2(退出)的Click事件代码如下************
thisform.release