</p> close data9 V% L9 w4 K" _) V7 P
create table tablethree(商品名 C(20),总金额 N(7,2))
% m9 e# I$ Q! N$ a+ w6 G use& N) q" a( b/ U7 w& y4 J6 ~0 p0 M
select 1
" W* V" g# c3 ~, i use tablethree4 H! ^: Z! q% ?1 b0 k( G& u
select 4' r, u; g" H" f1 i$ y" E
use order
# ~$ ]0 c" J( \/ T index on 订单号 to n1
! z9 n: D- o; @; A% I select 31 |9 {. ?! Q3 A7 [/ q2 Z3 e( R& Y
use orderitem! ~! ]. ~6 k$ ?
index on 商品号 to n2
4 j7 ~5 f* P. H& T" l set relation to 订单号 into d4 m9 ^6 u( Q# P) O9 D
select 2
- d( X/ S5 y0 p1 m* x. ], i use goods
+ J+ ?2 ~! _! p0 j8 I/ ~5 Q index on 商品名 to n38 v0 |% P" C" K( I5 L; j# ?
set rela to 商品号 into c
7 E" I$ D8 X; C6 ^4 d: G" R go top5 R& F m/ z) m7 P$ ]. e# k7 V
do while .not.eof()
9 f" H- M! a" P4 c* A h = 商品号
J1 r: h# f/ G. `# d j = 单价- `' n4 b& A0 C+ q5 r$ @- S
n = 商品名
5 M, Z2 u* d% a' f+ c2 {+ m6 N7 ` s = 0
! ^! b9 F$ M4 O2 v( {+ F select 3 ~# I0 N4 R6 K% p5 f* Q/ e
do while 商品号=h! N+ }6 Y, M& V
if year(order.签订日期)=2001
, I) K9 w* ~+ q$ m i s=s+数量*j
/ C7 u5 e9 C# W% l, l" u endif+ I: L) _4 l6 q" P B+ Q2 y
skip+ }, v8 l- h8 _2 Y
enddo( ^# w- M; G; N
select 1
% r. c3 i" `. o! ^ append blank
. z( J6 K5 Z7 V; ?9 r0 n( V repl 商品名 with n,总金额 with s# n& o3 L/ s: @/ _
select 2
/ O& Q. O8 U: v* B3 { skip+ q- `: s% q/ i2 j: b7 f
enddo
+ ?8 v2 o4 w# R0 e0 e, Z9 d close data
: [" p( x! k# g( x" d 4. 选中“返回”子菜单项,在“结果”中选择“过程”并单击“创建”,在“菜单设计器-mymenu.mnx-返回 过程”中输入下列语句:$ M% r* j$ u; t
set sysmenu nosave: y2 i2 ]( V% U; F( ]
set sysmenu to default
g' t6 G7 ]$ @- Q1 S1 f 5. 单击“显示\常规选项”菜单项,在“常规选项”对话框的“位置”框中选中“追加”单选钮,再单击“确定”按钮。
j7 r5 s1 N9 {8 @- y% J& C 6. 在“菜单设计器”窗口下,单击“菜单”菜单栏,选择“生成”菜单项,生成“mymenu.mpr”文件。 |