三、 1. 建立表单: r9 J* M1 O) F& j/ N8 J- u
CREATE FORM rate
* `+ c% a- {7 H1 r; `0 G; V. q 2. 在“表单设计器”中,在“属性”的Caption处输入“外汇汇率查询”,在Name处输入“rate”。6 ^7 m% `( U" g, G2 q" p
3. 在“表单设计器”中,添加两个标签,在第1个标签Lable1“属性”的Caption处输入“币种1”,在第2个标签Lable2“属性”的Caption处输入“币种2”。
' j: H& R* `! D c' t, j4 {/ Z 4.在“表单设计器”中,单击鼠标右键,在弹出菜单中选择“数据环境”,在“数据环境设计器-rate.scx”中,在“打开”对话框中,选择“外汇汇率.dbf”表,接着在“添加表或视图”的对话框中,按“关闭”按钮,关闭“添加表或视图”对话框。8 L1 \- G( q8 D1 p/ P0 n* d
5. 在“表单设计器”中,添加两个组合框,在第1个组合框Combo1“属性”的RowSourceType处输入“6-字段”,在RowSource处输入“币种1”,在第2个组合框Combo2“属性”的RowSourceType处输入“6-字段”,在RowSource处输入“币种2”。
9 D7 R/ y6 g: |% w5 ~( U1 D! ? 6. 在“表单设计器”中,添加两个命令按钮,在第1个命令按钮“属性”的Caption处输入“查询”,在第2个命令按钮“属性”的Caption处输入“退出”。$ v& A; ~* @. S1 M
7. 在“表单设计器”中,双击“Command2”命令按钮,在“Command2.Click”编辑窗口中输入“Release Thisform”,接着关闭编辑窗口。1 q$ e, J# ~: K+ k5 o4 v( ]
8. 在“表单设计器”中,双击“Command1”命令按钮,在“Command1.Click”编辑窗口中输入下列语句,接着关闭编辑窗口。2 V0 [. z2 C$ f2 H5 U. F
if used("外汇代码")
& M/ q: i6 A( S4 K4 @% V4 r# O select 外汇代码
4 i) _! z( [6 P% v else, s6 }8 O% L/ E
use 外汇代码
4 ~' s- R2 h% o7 d3 c5 H8 p: _ endif3 d8 n0 u7 y: G. u) y
locate for 外币名称=thisform.Combo1.value
# Q8 ^6 V% P: V7 k mm1=外币代码1 s# H) W6 `0 Y! ~9 X
locate for 外币名称=thisform.Combo2.value- J/ |" w' w/ ?
mm2=外币代码# X: l9 {6 k" b* j8 h C5 Z
select * from rate where 币种1代码=mm1 and 币种2代码=mm2 into table tmp_rate |