</p> 三、
3 l' D1 J# p$ }7 t9 J 1. 建立菜单文件8 F( B' s% X7 o6 ~( l- k: o
CREATE MENU mymenu$ y% I. h! K4 l) I4 s& |; t3 _
在“新建菜单”对话框中,单击“菜单”按钮。, l6 W9 Y4 v2 Y/ c9 j$ k
2. 在“菜单设计器-mymenu.mnx”中,在“菜单名称”中输入“考试”,再单击“创建”按钮来建立子菜单,在“菜单名称”中输入“计算”,再移到下一个菜单项处中输入“返回”。
* C$ Y) |' v% J" H3 _ 3. 选中“计算”子菜单项,在“结果”中选择“过程”并单击“创建”,在“菜单设计器-mymenu.mnx-统计 过程”中输入下列语句:
+ e. A* L* `, U0 l( u+ S& }. R close data
& ~" }: @7 A1 |# C3 q$ K alter table order add 总金额 N(7,2)7 E0 ?( R# K7 P. a( J, M7 F
select 3
) m. o0 @5 u% _) c use goods6 k- l, R( R( f4 |
index on 商品号 to t1% e" V$ c; v- f* j) S s9 v. A
select 26 t4 A% H! A a6 I
use orderitem7 S# A$ |& l8 R- h
set relation to 商品号 into c* e' e: y$ E3 |& Y
index on 订单号 to t2
( y; @2 ^; W9 J- i select 1
7 G( J: q+ B4 W3 w/ ?* x' u5 L use order
& w( A2 U: G X, S set relation to 订单号 into b: J k G N4 w5 a c7 Q
go top
6 c% r% r5 _2 W$ h; B. } do while !eof()
- B E- d8 R1 |" X1 h: c. E ddh = 订单号
2 S2 o# @' H. s9 A# c' d s = 0
! U* @! S! o+ b, P select 2
) ]) U. y0 \+ \0 J do while 订单号=ddh- F' I) M5 X" w
s = s + 数量 * goods.单价
9 b! }5 K3 j0 A, `5 m. f$ { skip0 ]( _& A+ ~, t
enddo
6 Y* B8 F1 d! k- ^ select 1& [! Y5 H3 n0 Q
replace 总金额 with s! Y8 H% M- J& s6 H; \
skip
9 n+ D& y, N( y; [2 @ r% } A enddo
9 k% K5 }& \; W+ L( ] use& m. x3 n( G. d$ b/ u8 l/ V2 b; N
select 2
# O+ D: T5 o# {# V1 q6 Q: W0 D use
, X7 H4 J+ A8 ^ l select 33 C$ o$ j7 t* i& [, ~1 p: H
use0 o- q Z8 m. v7 B0 Q# ~$ [& `
4. 选中“返回”子菜单项,在“结果”中选择“过程”并单击“创建”,在“菜单设计器-mymenu.mnx-返回 过程”中输入下列语句:
; Z3 O; L3 Q( Z+ }8 }1 W: n set sysmenu nosave; |6 k! [$ I; R+ \% ~- i C
set sysmenu to default4 E* d8 I. m: W, o. k6 g% t# b
5. 单击“显示\常规选项”菜单项,在“常规选项”对话框的“位置”框中选中“追加”单选钮,再单击“确定”按钮。6 g9 D+ n8 `0 u( e% o. V2 C( F
6. 在“菜单设计器”窗口下,单击“菜单”菜单栏,选择“生成”菜单项,生成“mymenu.mpr”文件。 |