华南俳烁实业有限公司

綜合應(yīng)用（1小題，計30分）

設(shè)計一個文件名和表單名均為rate的表單, 表單的標(biāo)題為"外匯匯率查詢",

表單界面如圖所示，表單中有兩個下拉列表框(Combo1和Combo2)，這兩個下拉列

表框的數(shù)據(jù)源類型(RowSourceType屬性)均為字段，且數(shù)據(jù)源(RowSource屬性)分

別是外匯匯率表的"幣種1"和"幣種2"字段(不要給出表名前綴)；另外有幣種1

(Label1)和幣種2(Label2)兩個標(biāo)簽以及兩個命令按鈕"查詢"(Command1)和

"退出"(Command2)。運行表單時，首先從兩個下拉列表框選擇幣種，然后單擊

"查詢"按鈕用SQL語句從外匯匯率表中查詢相應(yīng)幣種(匹配幣種1和幣種2)的信

息，并將結(jié)果存儲到表temp_rate中。

單擊"退出"按鈕關(guān)閉表單。

解題思路：

1. 建立表單， 在“表單設(shè)計器”中，在“屬性”的Caption處輸入“外匯匯率查詢”，在Name處輸入“rate”。在“表單設(shè)計器”中，添加兩個標(biāo)簽，在第1個標(biāo)簽Lable1“屬性”的Caption處輸入“幣種1”，在第2個標(biāo)簽Lable2“屬性”的Caption處輸入“幣種2”。在“表單設(shè)計器”中，單擊鼠標(biāo)右鍵，在彈出菜單中選擇“數(shù)據(jù)環(huán)境”，在“數(shù)據(jù)環(huán)境設(shè)計器-rate.scx”中，在“打開”對話框中，選擇“外匯匯率.dbf”表，接著在“添加表或視圖”的對話框中，按“關(guān)閉”按鈕，關(guān)閉“添加表或視圖”對話框。在“表單設(shè)計器”中，添加兩個組合框，在第1個組合框Combo1“屬性”的RowSourceType處輸入“6-字段”，在RowSource處輸入“幣種1”，在第2個組合框Combo2“屬性”的RowSourceType處輸入“6-字段”，在RowSource處輸入“幣種2”。在“表單設(shè)計器”中，添加兩個命令按鈕，在第1個命令按鈕“屬性”的Caption處輸入“查詢”，在第2個命令按鈕“屬性”的Caption處輸入“退出”。在“表單設(shè)計器”中，雙擊“Command2”命令按鈕，在“Command2.Click”編輯窗口中輸入“Release Thisform”，接著關(guān)閉編輯窗口。在“表單設(shè)計器”中，雙擊“Command1”命令按鈕，在“Command1.Click”編輯窗口中輸入下列語句，接著關(guān)閉編輯窗口。

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