三、 1. 建立菜单文件' `' N- i+ R, V1 ^! Z! c
CREATE MENU mymenu6 G7 K5 p. w9 b: t8 U$ m
在“新建菜单”对话框中,单击“菜单”按钮。
4 O- I9 H+ a# m; A 2. 在“菜单设计器-mymenu.mnx”中,在“菜单名称”中输入“考试”,再单击“创建”按钮来建立子菜单,在“菜单名称”中输入“计算”,再移到下一个菜单项处中输入“返回”。
, q7 h; L& Z# ^- u8 N9 K8 j$ o1 C 3. 选中“计算”子菜单项,在“结果”中选择“过程”并单击“创建”,在“菜单设计器-mymenu.mnx-统计 过程”中输入下列语句:
) U* T6 S* D& V7 K close data
; e( z7 g# f+ X7 L( o+ B alter table order add 总金额 N(7,2)
, t8 [0 m3 @% M. w' @& k1 Y3 O6 ^$ A select 3
+ ]' ]- p2 f- v9 o* J use goods* J2 }2 q- _: B' K8 W
index on 商品号 to t1
. i v& h3 B( K3 L$ X5 J select 2! f( P( U7 U: n# a" t. B
use orderitem
u# K' K- F8 Z; G" V/ w# L set relation to 商品号 into c, |3 b+ B- a0 C6 S" E2 E5 K3 Q$ r
index on 订单号 to t22 X* O3 l7 }! J6 u+ ]
select 1; F5 Y- _% V3 b. M: }. L
use order
$ h# X5 u0 @: w0 g( s8 a set relation to 订单号 into b
* U B! i# N) p0 [+ } go top
, f' L d+ O, o8 O4 z y( h do while !eof()0 `6 `( @6 \- m
ddh = 订单号- w* I/ V2 [+ K; q0 [
s = 0' I# z! @8 T' R. ?3 C, w
select 2
: q- w& A! l$ y; G& q do while 订单号=ddh; z; w' l& \; m! u0 ]
s = s + 数量 * goods.单价& H3 @' |! \& H9 }
skip
7 ^ Y# v2 \& @9 ~ enddo
- O) v4 O7 c6 J+ i) J; ~4 N select 1' B1 }8 H+ }+ O- c1 [
replace 总金额 with s. a5 M3 o: n' ~7 L: I6 h3 g
skip
( _" J _, Z' n8 m7 X, S enddo
z6 C$ N/ h& c" h0 z* ?# v use
$ ?7 @- R, G" t$ ~1 G select 2
. F0 e, g' x+ g. B6 w2 j2 h use y& s+ {, m# l
select 34 f$ c3 I' v! |2 M( w
use
" B, l5 R+ T7 s8 k 4. 选中“返回”子菜单项,在“结果”中选择“过程”并单击“创建”,在“菜单设计器-mymenu.mnx-返回 过程”中输入下列语句:" G# V0 U2 c1 P! b3 N# }
set sysmenu nosave7 L6 m& ^/ r% s5 |/ k$ [
set sysmenu to default A, O3 X1 d% @7 ^! p& y+ q
5. 单击“显示\常规选项”菜单项,在“常规选项”对话框的“位置”框中选中“追加”单选钮,再单击“确定”按钮。; }0 X+ ^+ Q0 h! Z
6. 在“菜单设计器”窗口下,单击“菜单”菜单栏,选择“生成”菜单项,生成“mymenu.mpr”文件。 |