一、6 g1 y+ m( O) X$ q0 A1 P
create database 外汇
/ N# O! f9 U1 e/ N7 C# |+ A OPEN DATABASE 外汇
. X. m6 i/ ~! C5 A( E ADD TABLE 外汇汇率! Z, V6 d1 O$ A W7 g) y. p
ADD TABLE 外汇账户
* c( y* w. \" t ADD TABLE 外汇代码' I/ p/ f9 l! C6 ~4 B
CREATE TABLE rate (币种1代码 C(2), 币种2代码 C(2), 买入价 N(8,4), 卖出价 N(8,4))
3 D$ \' s' H0 d* A6 X% H: U 1. 打开并修改表单
; W. {8 n9 d: o1 v& {. n MODIFY FORM test_form9 d: }6 O* F A- Z
2. 在“表单设计器”中,在“属性”的ScrollBars处选择“0-无”。 u1 E+ N F* M% K) [* h
二、
/ C( U K3 F% d! ? {% y ? 请查看three.prg源程序。- N' H# d% w$ J! i/ p5 K
1. 建立查询文件
9 S" k& }6 Y5 @+ g. T) E O2 x CREATE QUERY four$ U2 @& u' `2 B0 I
2. 在“打开”对话框中,选择表“外汇帐户.dbf”,再按“确定”按钮。
' N% M* u4 Z4 |7 ]! d$ X 3. 在“添加表或视图”对话框中,选择表“外汇代码”,再按“添加”按钮,并建立内容联接,接着按“关闭”按钮,关闭“添加表或视图”对话框。9 p8 e T6 y- k- T9 ?& V
4. 在“查询设计器-four”窗口中,单击“字段”选项卡,选择“外汇代码.外币名称”、“外汇账户.钞汇标志”和“外汇账户.金额”。3 K% u# a: T, y
5. 在“查询设计器-four”窗口中,单击“排序依据”选项卡,选择字段“外汇代码.外币名称”并在“排序选项”中选中“升序”,再单击“添加”按钮,再选择字段“外汇帐户.金额”并在“排序选项”中选中“降序”,再单击“添加”按钮,如果发现条件的“升序”或“降序”不正确,则重新调整一下就可以了。
& T+ ^5 [) {- y- J3 C" J. w% D 6. 在“查询设计器-four”窗口中,单击“筛选”选项卡,在字段名处选择“外汇代码.外币名称”,在条件处选择“=”,在实例处输入“"日元"”,在逻辑处选择“OR”,再在字段名处选择“外汇代码.外币名称”,在条件处选择“=”,在实例处输入“"欧元"”。+ n f: b* ^3 h$ f* ^
7. 在“查询设计器”中,单击“查询\查询去向”菜单项,并显示“查询去向”对话框,在此对话框中,单击“表”按钮,接着在“表名”处输入表名“five”,单击“确定”按钮。6 [, K3 i2 ^# y4 p; O/ L/ d# ]( v* h4 H
8. 最后保存并运行此查询。) `+ Q: K0 A$ R0 ^3 p+ p
三、. Q& T1 [) Q1 e" F' Y$ e% ~
1. 建立表单
# v8 }$ V7 M2 @7 |; h5 t+ ?& o; V- N CREATE FORM myaccount
0 f2 V" v! L, M0 B# ?; d% z( I 2. 在“表单设计器”中,在“属性”的Caption处输入“外汇持有情况”,在Name处输入“myaccount”。
9 i3 r' i9 x, G( z4 D4 J4 O$ y! ` 3. 在“表单设计器”中,添加一个选项按钮组,在其“属性”的Name处输入“myOption”,接着对其进行编辑,在Option1的Caption处输入“现汇”,在Option2的Caption处输入“现钞”。9 e) o' {! y; m! ?* T" w
4. 在“表单设计器”中,添加两个命令按钮,在第1个命令按钮“属性”的Caption处输入“查询”,在第2个命令按钮“属性”的Caption处输入“退出”。1 U& s0 T- d g) S3 l; T2 h2 e2 O
5. 在“表单设计器”中,双击“Command2”命令按钮,在“Command2.Click”编辑窗口中输入“Release Thisform”,接着关闭编辑窗口。
9 U& F* ?1 j( k: z 6. 在“表单设计器”中,添加一个表格Grid1,在其“属性”的RecordSourceType处选择“4-SQL说明”。: M5 j8 @, R% h0 b1 V8 z
7. 在“表单设计器”中,双击“Command1”命令按钮,在“Command1.Click”编辑窗口中输入下列语句,接着关闭编辑窗口。1 R9 Q% K& ^- v, O* ?$ I6 m1 C) y7 F% s
thisform.grid1.recordsource="select * from 外汇账户 where 钞汇标志='"+iif(thisform.myOption.value=1, "现汇","现钞")+"' into cursor lsb" |