47
一、基本操作题（共4小题，第1和2题是7分、第3和4题是8分）
在考生文件夹下完成下列操作：
1. 用命令新建一个名为"外汇"的数据库，并将该命令存储于one.txt中；
2. 将自由表"外汇汇率"、"外汇账户"、"外汇代码"加入到新建的"外汇"数据库
中；
3. 用SQL语句新建一个表rate，其中包含4个字段"币种1代码" C(2)、
"币种2代码"C(2)、"买入价"N(8,4)、"卖出价"N(8,4)，请将SQL语句
存储于two.txt中。
4. 表单文件test_form中有一个名为form1的表单(如图)，请将编辑框控件
Edit1的滚动条去掉。
本题的主要考核点：
SQL语句的使用、将自由表添加到数据库中、表单属性设置等。
解题思路:
1.SQL语句的用法（建立数据库）
CREATE DATABASE 外汇
2.将自由表添加到数据库中，可以在项目管理器或数据库设计器中完成。打开数据库设计器，在"数据库"菜单中或在数据库设计器上单击右键弹出的菜单中选择"添加表"，然后在"打开"对话框中选择要添加到当前数据库的自由表。还可用ADD TABLE命令添加一个自由表到当前数据库中。
3.SQL语句的用法(建立表结构）
CREATE TABLE rate (币种1代码 C(2),币种2代码 C(2),买入价 N(8,4),卖出价 N(8,4))
4.修改表单控件的属性值：编辑框控件的ScrollBars属性决定编辑框是否有垂直滚动条。
二、简单应用（2小题，每题20分，计40分）
在考生文件夹下完成如下简单应用：
1. 编写程序three.prg完成下列操作：根据"外汇汇率"表中的数据产生rate
自由表中的数据。
要求：将所有"外汇汇率"表中的数据插入rate表中并且顺序不变，由于
"外汇汇率"中的币种1和币种2存放的是外币名称，而rate表中的币种1代码和币种
2代码应该存放外币代码，所以插入时要做相应的改动，外币名称与外币代码的对
应关系存储在"外汇代码"表中。
注意：程序必须执行一次，保证rate表中有正确的结果。
2. 使用查询设计器建立一个查询文件four.qpr。查询要求：外汇帐户中有
多少日元和欧元。查询结果包括了外币名称、钞汇标志、金额，结果按外币名
称升序排序，在外币名称相同的情况下按金额降序排序，并将查询结果存储于
表five.dbf 中。
第1题：本题的考查点是利用SQL_SELECT语句建立查询程序。第一步：在Visual FoxPro主窗口中按下组合键Ctrl+N，系统弹出"新建"对话框，在文件类型中选择"程序"，点击"新建文件"按钮；
第二步：在弹出的代码编辑器窗口中输入以下代码：
SELECT 外汇代码.外币代码 AS 币种1代码,;
外汇代码_a.外币代码 AS 币种2代码, 外汇汇率.买入价, 外汇汇率.卖出价;
FROM 外汇!外汇代码 INNER JOIN 外汇!外汇汇率;
INNER JOIN 外汇!外汇代码外汇代码_a ;
ON 外汇汇率.币种2 = 外汇代码_a.外币名称 ;
ON 外汇代码.外币名称 = 外汇汇率.币种1;
INTO TABLE rate.dbf
第2题：本题的考查点是利用查询设计器建立查询。
建立查询可以使用"文件"菜单完成，选择文件--新建--查询--新建文件，将"外汇代码"和"外汇账户"表加入查询中，从字段中选择字段外汇代码.外币名称、外汇账户.钞汇标志和外汇账户.金额；切换到筛选中输入条件：
外币代码外币名称 = "日元" OR
外币代码外币名称 = "欧元"；
切换到"排序依据"中选择"外汇代码.外币名称"字段按升序排序和"外汇账户.金额"字段按降序排序。单击查询菜单下的查询去向，选择表，输入表名five.dbf，最后运行该查询。
三、综合应用（1小题，计30分）
设计一个文件名和表单名均为myaccount的表单。表单的标题为
"外汇持有情况"。表单中有一个选项按钮组控件（myOption）、一个表格控件
(Grid1)以及两个命令按钮"查询"(Command1)和"退出"(Command2)。其中，选项
按钮组控件有两个按钮"现汇"(Option1)、"现钞"(Option2)。
运行表单时，首先在选项组控件中选择"现钞"或"现汇"，单击"查询"命令
按钮后，根据选项组控件的选择将"外汇账户"表的"现钞"或"现汇"(根据钞汇标
志字段确定)的情况显示在表格控件中。
单击"退出"按钮，关闭并释放表单。
注：在表单设计器中将表格控件Grid1的数据源类型设置为"SQL说明"。
本题主要考核点
控件的属性的修改、SQL语句运用、表单的退出等知识点
本题解题思路：
第一步：在Visual FoxPro主窗口中按下组合键Ctrl+N，系统弹出"新建"对话框，在文件类型中选择"表单"，点击"新建文件"按钮（系统将打开表单设计器）；或直接在命令窗口中输入 crea form myrate。
第二步：点击工具栏按钮"表单控件工具栏"，在弹出的"表单控件"对话框中，选中"选项组"控件，在表单设计器中拖动鼠标，这样在表单上得到一个"选项组"控件optiongroup1，用类似的方法为表单再加入两个"命令按钮"控件command1和command2。
相关控件的属性值如下：
对象 属性 属性值
Form1 Caption 外汇持有情况
选项组 Name myOption
ButtonCount 2
MyOption.option1 Caption 现汇
MyOption.option2 Caption 现钞
Command1 Caption 查询
Command2 Caption 退出
***********命令按钮command1(查询)的Click事件代码如下************
DO CASE
CASE THISFORM.myOption.VALUE=1
THISFORM.GRID1.RECORDSOURCE="SELECT 外币代码, 金额;
FROM 外汇账户;
WHERE 钞汇标志 = [现汇];
INTO CURSOR TEMP"
CASE THISFORM.myOption.VALUE=2
THISFORM.GRID1.RECORDSOURCE="SELECT 外币代码, 金额;
FROM 外汇账户;
WHERE 钞汇标志 = [现钞];
INTO CURSOR TEMP"
ENDCASE
***********命令按钮command2(退出)的Click事件代码如下************
thisform.release