一、
m2 L* e b3 }( | create database 外汇. U' |: ^4 t/ e6 v9 `( Q
OPEN DATABASE 外汇% R# _6 }( i' p
ADD TABLE 外汇汇率' \- X9 f/ N( b. }
ADD TABLE 外汇账户0 P$ s: X# Q; p# r- P
ADD TABLE 外汇代码
$ j$ H- R. y/ F0 g9 L- M CREATE TABLE rate (币种1代码 C(2), 币种2代码 C(2), 买入价 N(8,4), 卖出价 N(8,4))
7 U$ g4 L# P" w/ O" q4 Q- U 1. 打开并修改表单
- }' a/ ^7 B4 R# k" G MODIFY FORM test_form8 k3 a K4 U& b- r' ?) m+ w0 y
2. 在“表单设计器”中,在“属性”的ScrollBars处选择“0-无”。
3 |( o/ a+ Q! ~3 o 二、4 ^2 f* k5 B4 h& O+ t4 g# P: b. Y
请查看three.prg源程序。
8 u2 k9 u& U, k8 M9 [/ { D1 M d8 l 1. 建立查询文件
K( |* h n9 v: v CREATE QUERY four, A, S2 K* w3 j
2. 在“打开”对话框中,选择表“外汇帐户.dbf”,再按“确定”按钮。
: q* T7 w) i, t8 W# | 3. 在“添加表或视图”对话框中,选择表“外汇代码”,再按“添加”按钮,并建立内容联接,接着按“关闭”按钮,关闭“添加表或视图”对话框。
+ n/ w0 n# {; @! W2 X7 x 4. 在“查询设计器-four”窗口中,单击“字段”选项卡,选择“外汇代码.外币名称”、“外汇账户.钞汇标志”和“外汇账户.金额”。
3 `# h6 }2 p0 I& [* s 5. 在“查询设计器-four”窗口中,单击“排序依据”选项卡,选择字段“外汇代码.外币名称”并在“排序选项”中选中“升序”,再单击“添加”按钮,再选择字段“外汇帐户.金额”并在“排序选项”中选中“降序”,再单击“添加”按钮,如果发现条件的“升序”或“降序”不正确,则重新调整一下就可以了。
) |, ~3 J0 c9 q) r- I5 \ 6. 在“查询设计器-four”窗口中,单击“筛选”选项卡,在字段名处选择“外汇代码.外币名称”,在条件处选择“=”,在实例处输入“"日元"”,在逻辑处选择“OR”,再在字段名处选择“外汇代码.外币名称”,在条件处选择“=”,在实例处输入“"欧元"”。
4 B8 B7 Q1 R: }6 o6 }; M 7. 在“查询设计器”中,单击“查询\查询去向”菜单项,并显示“查询去向”对话框,在此对话框中,单击“表”按钮,接着在“表名”处输入表名“five”,单击“确定”按钮。3 ~( j* f/ I8 A$ M0 U
8. 最后保存并运行此查询。8 g4 S$ j% f9 O3 ^
三、
0 K" K/ B H# d* ~. V; V 1. 建立表单) l3 d/ W0 f9 w7 m& ?+ z
CREATE FORM myaccount
0 y' f5 {" J8 C; m' L 2. 在“表单设计器”中,在“属性”的Caption处输入“外汇持有情况”,在Name处输入“myaccount”。) |. O% n- |$ G% w
3. 在“表单设计器”中,添加一个选项按钮组,在其“属性”的Name处输入“myOption”,接着对其进行编辑,在Option1的Caption处输入“现汇”,在Option2的Caption处输入“现钞”。
% ], E3 r# \$ Z$ D V ]* `+ Z; x0 a 4. 在“表单设计器”中,添加两个命令按钮,在第1个命令按钮“属性”的Caption处输入“查询”,在第2个命令按钮“属性”的Caption处输入“退出”。
" @ p; m4 x4 \ f" a3 D; o, t 5. 在“表单设计器”中,双击“Command2”命令按钮,在“Command2.Click”编辑窗口中输入“Release Thisform”,接着关闭编辑窗口。( i3 z) X; d# v; P3 g( u$ L7 u
6. 在“表单设计器”中,添加一个表格Grid1,在其“属性”的RecordSourceType处选择“4-SQL说明”。# q- \' L, e" P @! _) j# [2 D* r: C3 d
7. 在“表单设计器”中,双击“Command1”命令按钮,在“Command1.Click”编辑窗口中输入下列语句,接着关闭编辑窗口。: V _1 F- L- @1 {
thisform.grid1.recordsource="select * from 外汇账户 where 钞汇标志='"+iif(thisform.myOption.value=1, "现汇","现钞")+"' into cursor lsb" |