综合应用（1小题，计30分）

设计一个文件名和表单名均为rate的表单, 表单的标题为"外汇汇率查询",

表单界面如图所示，表单中有两个下拉列表框(Combo1和Combo2)，这两个下拉列

表框的数据源类型(RowSourceType属性)均为字段，且数据源(RowSource属性)分

别是外汇汇率表的"币种1"和"币种2"字段(不要给出表名前缀)；另外有币种1

(Label1)和币种2(Label2)两个标签以及两个命令按钮"查询"(Command1)和

"退出"(Command2)。运行表单时，首先从两个下拉列表框选择币种，然后单击

"查询"按钮用SQL语句从外汇汇率表中查询相应币种(匹配币种1和币种2)的信

息，并将结果存储到表temp_rate中。

单击"退出"按钮关闭表单。

解题思路：

1. 建立表单， 在“表单设计器”中，在“属性”的Caption处输入“外汇汇率查询”，在Name处输入“rate”。在“表单设计器”中，添加两个标签，在第1个标签Lable1“属性”的Caption处输入“币种1”，在第2个标签Lable2“属性”的Caption处输入“币种2”。在“表单设计器”中，单击鼠标右键，在弹出菜单中选择“数据环境”，在“数据环境设计器-rate.scx”中，在“打开”对话框中，选择“外汇汇率.dbf”表，接着在“添加表或视图”的对话框中，按“关闭”按钮，关闭“添加表或视图”对话框。在“表单设计器”中，添加两个组合框，在第1个组合框Combo1“属性”的RowSourceType处输入“6-字段”，在RowSource处输入“币种1”，在第2个组合框Combo2“属性”的RowSourceType处输入“6-字段”，在RowSource处输入“币种2”。在“表单设计器”中，添加两个命令按钮，在第1个命令按钮“属性”的Caption处输入“查询”，在第2个命令按钮“属性”的Caption处输入“退出”。在“表单设计器”中，双击“Command2”命令按钮，在“Command2.Click”编辑窗口中输入“Release Thisform”，接着关闭编辑窗口。在“表单设计器”中，双击“Command1”命令按钮，在“Command1.Click”编辑窗口中输入下列语句，接着关闭编辑窗口。

if used("外汇代码")

select 外汇代码

else

use 外汇代码

endif

locate for 外币名称=thisform.Combo1.value

mm1=外币代码

locate for 外币名称=thisform.Combo2.value

mm2=外币代码

select * from rate where 币种1代码=mm1 and 币种2代码=mm2 into table tmp_rate