</p> 三、
: \* n# v2 O" z) T$ g7 s9 ^$ F 1. 建立菜单文件- v5 y3 {/ \: W
CREATE MENU mymenu7 Y+ A5 c" O4 s/ V
在“新建菜单”对话框中,单击“菜单”按钮。! L ]0 ]" R8 r0 ]. H& l
2. 在“菜单设计器-mymenu.mnx”中,在“菜单名称”中输入“考试”,再单击“创建”按钮来建立子菜单,在“菜单名称”中输入“计算”,再移到下一个菜单项处中输入“返回”。! T- M3 u, B' Y0 ~! y( S% k
3. 选中“计算”子菜单项,在“结果”中选择“过程”并单击“创建”,在“菜单设计器-mymenu.mnx-统计 过程”中输入下列语句:! @8 n9 ^8 N- b
close data
) O0 z/ Z7 y7 Q* q create table tablethree(商品名 C(20),总金额 N(7,2))
) H( O- }& ]( `6 q use& O" d8 S& H/ W) _2 A) _0 P
select 1) {' x5 ^3 x( U, ~) t* D# r
use tablethree
* z0 y( J' V5 C" R: a6 H1 P select 4
$ z5 ]5 l3 c7 V1 L! v2 e2 e# f5 F use order
' a, t$ M1 x% p& E5 C) h' V! e index on 订单号 to n1' U" i( R3 z f4 r; X* Z* O% j
select 3
c1 y6 N! f! ^- _6 L use orderitem
% s2 h# N+ f" U. ~ index on 商品号 to n2, @* q1 s; \/ |! Q' F9 Q& r F* X
set relation to 订单号 into d. M: \ `' t, O& Z5 H5 n7 j3 k
select 2
7 d5 N0 J8 a+ j2 m) p use goods6 k% `" c8 `4 Y/ q o# b' _: x
index on 商品名 to n31 p3 E9 H9 F+ j, M
set rela to 商品号 into c7 Q# E2 |: O2 K) {
go top
% D% w: Z! I( R. }* P" P, J do while .not.eof()" O5 g R1 A: A
h = 商品号
/ j# Q H- T1 m u j = 单价
/ q1 _) t8 S0 V. R n = 商品名
2 M7 A9 u" }2 w2 c s = 0) l: @/ q. O1 J! Q [1 x
select 30 u4 o' `( e9 d9 w8 I0 j/ C' z
do while 商品号=h
; W6 Q* s, P( r1 u" Q- q2 B if year(order.签订日期)=2001) ^; X. r) T7 Z& e0 q# R8 ^
s=s+数量*j
7 V( _3 i( T: w) V' { endif3 @- S0 T" I( y4 g- f# I+ s
skip( f2 Q3 g, |* Z0 |( ]! n; O
enddo
- s2 T a7 \) T# r4 _ select 18 @4 O" T9 Y3 {4 l
append blank! ~$ I# a; i# L; q
repl 商品名 with n,总金额 with s
8 ?6 ^: V, L% x% I* X* W, v& P select 2
" v" r2 _$ G4 R& h a, H9 e skip
) i' h$ h$ @6 B3 J* Q2 ]$ ]4 b enddo- Z0 T* E5 Q! Q; w* H. h* _) m+ z
close data
& N6 F D; ~9 k1 Q' z/ B1 X 4. 选中“返回”子菜单项,在“结果”中选择“过程”并单击“创建”,在“菜单设计器-mymenu.mnx-返回 过程”中输入下列语句:
% {' Q' u* v/ O( P& h% p9 ` set sysmenu nosave* n) n- i! F7 V: Q$ H
set sysmenu to default
/ t5 i1 } i& ], t+ k. Z9 G" [# j0 { 5. 单击“显示\常规选项”菜单项,在“常规选项”对话框的“位置”框中选中“追加”单选钮,再单击“确定”按钮。4 N' F- r6 h+ s- G V
6. 在“菜单设计器”窗口下,单击“菜单”菜单栏,选择“生成”菜单项,生成“mymenu.mpr”文件。 |