三、8 a8 _8 @& l- P8 |% X9 |7 Y
一、建立表文件; }/ n0 L/ I$ B. r
CREATE TABLE tablethree(姓名 C(6), 最高金额 N(6,2), 最低金额 N(6,2), 平均金额 N(6,2))
5 n) H9 N7 w2 r: C' H' t 二、建立表单4 y, ?& l) V% r
1. 使用命令建立表单
0 M- j+ M9 }& x CREATE FORM formtwo/ x( Y. x9 @1 L; Y7 V
2. 在“表单设计器”中,在“属性”的Caption处输入“综合应用”。1 X/ R3 k7 c( x
3. 在“表单设计器”中,添加一个表格控件(Grid1),在“属性”的RecordSourceType处选择“4 - SQL 说明”,再添加一个文本框(Text1)。. e& @" L8 D* i7 `6 r
4. 在“表单设计器”中,添加两个命令按钮(Command1和Command2),单击第1个命令按钮在“属性”的Caption处输入“查询统计”,单击第2个命令按钮在“属性”的Caption处输入“退出”。6 d6 ~$ L5 G' G5 j: y0 ^1 \
5. 双击“查询统计”命令按钮,在“Command1.Click”编辑窗口中输入命令组,接着关闭编辑窗口。
2 S3 w3 p+ W2 Q6 z! t \- m set talk off
& e% O; G. k+ _ n, r0 \8 C Thisform.Grid1.RecordSource="select 订单号,金额;
4 ] u3 n& N8 X1 t5 P- ~ from employee join order on Employee.职员号 = Order.职员号;. m+ Y- u+ j+ D% h; n3 w
where employee.姓名=alltrim(thisform.text1.value);
% z; T7 S$ ~. `8 z order by 金额 into cursor lsb"
5 v5 q9 d8 x# ^* X I) D$ Y select lsb
& o2 x; t6 l! j& |$ Z- |' y go top s6 ~% U/ t, o. A5 k `% \9 n) B& H
mi=金额
( Q6 q* Y0 L6 j# _8 p go bottom
8 G+ @, o& j2 r4 o ma=金额
% B' r) u; m+ v average 金额 to av
# l: I$ k( `3 H$ F; j* @ select tablethree
5 S" x, L. P+ _$ C2 `% l append blank
, h% F2 F& w8 T: K3 j replace 姓名 with alltrim(thisform.text1.value),最高金额 with ma,最低金额 with mi,平均金额 with av& w& {. S, w$ p
set talk on
6 z; F% _( d( q `! V 6. 双击“退出”命令按钮,在“Command2.Click”编辑窗口中输入“Release Thisform”,并关闭编辑窗口。 |