第40套 一、
3 h7 B9 k4 ~ A) F! d create database 外汇7 [ F( x+ @( U/ n: e- Z1 _0 R' A, }
OPEN DATABASE 外汇* ^/ x/ u3 ^: h+ k- q
ADD TABLE 外汇汇率
; ~9 A+ r$ R/ l- t) P0 f ADD TABLE 外汇账户
4 D* z0 e# d9 p" w9 L, s& y ADD TABLE 外汇代码+ v2 f( K y& R- v& ~* d% c9 f
CREATE TABLE rate (币种1代码 C(2), 币种2代码 C(2), 买入价 N(8,4), 卖出价 N(8,4))' N6 {" q8 v% P, X2 W
1. 打开并修改表单
9 x& ^. s3 s. U5 t$ [ MODIFY FORM test_form, p% Z1 |8 P# o/ c3 c( N) D/ l
2. 在“表单设计器”中,在“属性”的ScrollBars处选择“0-无”。$ D1 M/ m! I, B% `6 e0 \8 b5 q
二、
" t8 m# ^* J. q: L3 @! h* [7 @ 请查看three.prg源程序。
+ T, Y/ f" A- V9 z6 C 1. 建立查询文件' j* q ]$ n' x4 q2 |
CREATE QUERY four
7 E! O0 t& d, B# s 2. 在“打开”对话框中,选择表“外汇帐户.dbf”,再按“确定”按钮。# _' T+ c9 [# N3 _0 p" z' x
3. 在“添加表或视图”对话框中,选择表“外汇代码”,再按“添加”按钮,并建立内容联接,接着按“关闭”按钮,关闭“添加表或视图”对话框。
N: y0 _( s+ t% a6 ^ 4. 在“查询设计器-four”窗口中,单击“字段”选项卡,选择“外汇代码.外币名称”、“外汇账户.钞汇标志”和“外汇账户.金额”。
* M3 ?4 G+ a4 P8 @! x6 v3 u0 H3 G* y* n 5. 在“查询设计器-four”窗口中,单击“排序依据”选项卡,选择字段“外汇代码.外币名称”并在“排序选项”中选中“升序”,再单击“添加”按钮,再选择字段“外汇帐户.金额”并在“排序选项”中选中“降序”,再单击“添加”按钮,如果发现条件的“升序”或“降序”不正确,则重新调整一下就可以了。. Y3 T; F6 ]% F6 ]8 t6 \; x/ q: \8 ?" L
6. 在“查询设计器-four”窗口中,单击“筛选”选项卡,在字段名处选择“外汇代码.外币名称”,在条件处选择“=”,在实例处输入“"日元"”,在逻辑处选择“OR”,再在字段名处选择“外汇代码.外币名称”,在条件处选择“=”,在实例处输入“"欧元"”。; s# n& S, T5 x, s
7. 在“查询设计器”中,单击“查询\查询去向”菜单项,并显示“查询去向”对话框,在此对话框中,单击“表”按钮,接着在“表名”处输入表名“five”,单击“确定”按钮。9 L8 p+ s' _7 [2 n2 q
8. 最后保存并运行此查询。- z2 Y3 V, W% X- C
三、
; {" K4 b& L' J* |) o 1. 建立表单
9 ~* Q- a6 X6 y! j CREATE FORM myaccount( c2 x! s1 e( h' y O6 L6 l
2. 在“表单设计器”中,在“属性”的Caption处输入“外汇持有情况”,在Name处输入“myaccount”。, F/ Z* q$ n' U$ ~, [- Q& z8 O
3. 在“表单设计器”中,添加一个选项按钮组,在其“属性”的Name处输入“myOption”,接着对其进行编辑,在Option1的Caption处输入“现汇”,在Option2的Caption处输入“现钞”。
2 }6 s' ?; `& ` 4. 在“表单设计器”中,添加两个命令按钮,在第1个命令按钮“属性”的Caption处输入“查询”,在第2个命令按钮“属性”的Caption处输入“退出”。 H6 Y4 T' h; H
5. 在“表单设计器”中,双击“Command2”命令按钮,在“Command2.Click”编辑窗口中输入“Release Thisform”,接着关闭编辑窗口。
+ i( A$ `( |$ o5 P- y+ r3 S 6. 在“表单设计器”中,添加一个表格Grid1,在其“属性”的RecordSourceType处选择“4-SQL说明”。0 ^9 R4 l) n! r; s% |( l3 c
7. 在“表单设计器”中,双击“Command1”命令按钮,在“Command1.Click”编辑窗口中输入下列语句,接着关闭编辑窗口。& j/ W# `" g, Z2 d) n6 L
thisform.grid1.recordsource="select * from 外汇账户 where 钞汇标志='"+iif(thisform.myOption.value=1, "现汇","现钞")+"' into cursor lsb" |