</p> close data2 N1 l4 d3 v9 g) t; s" A
create table tablethree(商品名 C(20),总金额 N(7,2))* E6 g: x/ N2 }. j% u( ^( U, k
use
) K9 p; P. X' S7 T( X8 @5 y' h select 1/ b& E2 t! ^: F" H4 a$ x0 @
use tablethree5 `& W/ k, |( C* i$ S) K
select 4
8 |2 M/ R1 G% S use order! o, A' X* g: E9 W7 y
index on 订单号 to n11 [! _. Y# x: j: i, w
select 3
7 Y/ ~4 F# c/ J s, {+ g use orderitem/ l. u+ ~/ g3 T* @* O
index on 商品号 to n2# \/ d- m3 R" O5 x4 l% @1 I
set relation to 订单号 into d' d4 E5 W) b0 _
select 2* C9 N% o5 N; A; I4 ]
use goods
8 \' Z* L! f: H( @0 o0 D. P6 B: o index on 商品名 to n3) J! N. P2 R" {% T
set rela to 商品号 into c1 t: s( ~$ |- _! o
go top1 T' S' W- U. D/ b7 L5 P
do while .not.eof()
5 L0 s/ d) J4 @* m/ w' E h = 商品号& \/ X- y$ W$ E1 a& U4 ]
j = 单价
! L3 ]8 J7 @! R, T0 n9 M n = 商品名: s( }( D6 i/ j& [; n6 P
s = 0
6 K8 x+ n5 r& g e! B8 {: u select 3
( H8 Q# V7 C4 N, z f: H* j: w" r. R do while 商品号=h
- J) @, J/ c k& } if year(order.签订日期)=2001
( o# K9 }. E( j7 v s=s+数量*j5 g' c# a5 u% e/ s% t3 v; ~ b
endif7 K% p9 ]7 |7 e- {
skip
0 }1 L6 `# |4 {- t* s% i+ h. v( ` enddo8 D" P( S% {0 b1 h
select 1/ L5 V" J- K: q$ z6 ~ |5 o
append blank
. C6 b1 d& n+ }. k repl 商品名 with n,总金额 with s0 { C0 t. L2 i) D, H* i
select 2# s6 [* F( q) d7 v; j
skip
5 W$ Q! U% B! ~' O3 ?2 I enddo
& p* K& t% A8 Y% m9 d close data) O$ l6 l5 i: ?1 p9 ]- L* ]6 k9 A
4. 选中“返回”子菜单项,在“结果”中选择“过程”并单击“创建”,在“菜单设计器-mymenu.mnx-返回 过程”中输入下列语句:
* n1 y2 N) p' @. ?7 m! G2 [ set sysmenu nosave
& H* p1 ?; p4 K! r# q set sysmenu to default1 T. ^/ L8 k; \) @0 o# m" q
5. 单击“显示\常规选项”菜单项,在“常规选项”对话框的“位置”框中选中“追加”单选钮,再单击“确定”按钮。3 g7 u' K, M y2 b" D+ b9 v
6. 在“菜单设计器”窗口下,单击“菜单”菜单栏,选择“生成”菜单项,生成“mymenu.mpr”文件。 |