三、
1. 建立表單
CREATE FORM rate
2. 在“表單設計器”中,在“屬性”的Caption處輸入“外匯匯率查詢”,在Name處輸入“rate”。
3. 在“表單設計器”中,添加兩個標簽,在第1個標簽Lable1“屬性”的Caption處輸入“幣種1”,在第2個標簽Lable2“屬性”的Caption處輸入“幣種2”。
4.在“表單設計器”中,單擊鼠標右鍵,在彈出菜單中選擇“數(shù)據(jù)環(huán)境”,在“數(shù)據(jù)環(huán)境設計器-rate.scx”中,在“打開”對話框中,選擇“外匯匯率.dbf”表,接著在“添加表或視圖”的對話框中,按“關閉”按鈕,關閉“添加表或視圖”對話框。
5. 在“表單設計器”中,添加兩個組合框,在第1個組合框Combo1“屬性”的RowSourceType處輸入“6-字段”,在RowSource處輸入“幣種1”,在第2個組合框Combo2“屬性”的RowSourceType處輸入“6-字段”,在RowSource處輸入“幣種2”。
6. 在“表單設計器”中,添加兩個命令按鈕,在第1個命令按鈕“屬性”的Caption處輸入“查詢”,在第2個命令按鈕“屬性”的Caption處輸入“退出”。
7. 在“表單設計器”中,雙擊“Command2”命令按鈕,在“Command2.Click”編輯窗口中輸入“Release Thisform”,接著關閉編輯窗口。
8. 在“表單設計器”中,雙擊“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
相關鏈接:
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內蒙古 |