二、 第1处 查找姓名,所以应改为:locate for 姓名="林诗因"
* T# G; R8 Z0 k4 i 第2处 判断记录是否到底,应改为:DO WHILE NOT EOF()
& ^ u+ j; z5 _2 k7 o 第3处 累计人民币价值数量,所以应改为:summ=summ+a[1] * 持有数量% C5 F# Q, W. ]( c7 _
1. 单击“文件\新建”命令项。6 P& A, o1 f" [ q
2. 在“新建”对话框中选择“菜单”单选钮,再按“新建文件”按钮。
+ ^( N' s2 }& u2 Z3 r 3. 在“新建菜单”对话框中选择“菜单”按钮,在菜单设计器中的“菜单名称”中输入“查询”和“退出”,然后“查询”菜单的“结果”中选择“子菜单”,单击“创建”按钮,在“菜单设计器”中,输入三个子菜单项“日元”、“欧元”和“美元”。) A& M I r* q; e
4. 在“退出”子菜单的“结果”选择“命令”并输入命令“set sysmenu to default”。
/ ~) @: W+ j4 r5 x/ L2 A) I 5. 单击工具栏上“保存”按钮,在弹出“保存”对话框中输入“menu_rate”即可。: r7 X( ]2 G& }7 D4 c) d
6. 在“菜单设计器”下,单击“菜单”菜单栏,选择“生成”菜单项,生成“menu_rate.mpr”文件。
; \" k( C- v- }0 X) C4 p, Y3 f. w 三、- ^, t: n( [ D: I5 r2 y# H, @1 O
1. 在命令窗口中输入建立表单命令
% I4 y- l' }# z( T; r) P" T) Z" K/ P CREATE FORM myrate5 q: u) {' n. x+ O) s, |, Z( l
2. 在“表单设计器”中,在“属性”的Caption处输入“外汇持有情况”,在Name处输入“myrate”。4 F# G! J5 P `+ l( |- q' g
3. 在“表单控件”对话框中选定“选项按钮组”控件,在“表单设计器”中建立这个选项组,在选项组“属性”的ButtonCount中输入“3”,在Name处输入“myOption”。
" h( P! x3 V {- X- S$ w: Z( g 4. 选中这个选项组并单击鼠标右键,在弹出菜单中选择“编辑”菜单项,再单击“Option1”,在其“属性”的Caption处输入“日元”;单击“Option2”,在其“属性”的Caption处输入“美元”;单击“Option3”,在其“属性”的Caption处输入“欧元”。
' ~7 s) y7 `3 C/ s% ?* @ 5. 在“表单设计器”中添加两个命令按钮,在第1个命令按钮“属性”的Caption处输入“统计”,在第2个命令按钮“属性”的Caption处输入“退出”。
w: ~) ^8 f# S, L; i2 T1 ?# d 6. 双击“统计”按钮,在“Command1.Click”编辑窗口中编写相应的程序% ]: M4 u1 A$ {: p( c# F" F2 T. M
if thisform.myOption.value=19 p9 O. K" O$ J$ I6 M
select 姓名,持有数量 from currency_sl where currency_sl.外币代码="27" into dbf rate_ry4 Y) Q) I. q& {6 k2 N5 q
else, z- q t8 R; A2 w
if thisform.myOption.value=21 J) E" w g6 a4 L! n" x8 }
select 姓名,持有数量 from currency_sl where currency_sl.外币代码="14" into dbf rate_my& Q# c" x( h; X! R. k
else
# x4 o, m& X, Z: }, }+ Y select 姓名,持有数量 from currency_sl where currency_sl.外币代码="38" into dbf rate_oy/ N1 w6 o0 R# M
endif
2 y8 L. X2 b' U( p* q# R* D endif3 i5 U7 R6 U i/ ?9 ]4 H! \% J
7. 双击“退出”命令按钮,在“Command2.Click”编辑窗口中输入“Release Thisform”,并关闭编辑窗口。 |