三、</p> 一、建立表文件/ i, |% b4 u L& h7 {0 s" C
CREATE TABLE tablethree(姓名 C(6), 最高金额 N(6,2), 最低金额 N(6,2), 平均金额 N(6,2))& x+ P" z, K# b: F$ u2 v# Q
二、建立表单
- A; t0 ?4 w- {; P6 `. ]3 e, Z 1. 使用命令建立表单& f2 |6 Y2 i- @3 J4 K& `
CREATE FORM formtwo% C, ~# ?0 d1 [8 I# K: R
2. 在“表单设计器”中,在“属性”的Caption处输入“综合应用”。
! |0 A, h% @3 B' X8 C 3. 在“表单设计器”中,添加一个表格控件(Grid1),在“属性”的RecordSourceType处选择“4 - SQL 说明”,再添加一个文本框(Text1)。
6 E% c+ T$ T+ f. N2 [. s 4. 在“表单设计器”中,添加两个命令按钮(Command1和Command2),单击第1个命令按钮在“属性”的Caption处输入“查询统计”,单击第2个命令按钮在“属性”的Caption处输入“退出”。& r1 c2 c: s/ \3 B$ K* v# G$ R
5. 双击“查询统计”命令按钮,在“Command1.Click”编辑窗口中输入命令组,接着关闭编辑窗口。; ^1 H0 Y& h; w k3 }! q+ P K9 O
set talk off- S, d1 s+ X" @. j# C" K
Thisform.Grid1.RecordSource="select 订单号,金额;
$ ?6 i* M) s- x4 n' {) g6 {% Q from employee join order on Employee.职员号 = Order.职员号; f" e. D% S; O4 F: s0 O
where employee.姓名=alltrim(thisform.text1.value); g6 f1 k# q6 J" T+ j8 m
order by 金额 into cursor lsb"7 \0 D- }9 O# T. M( h% z
select lsb$ l. T6 }' n0 X- h3 e. m
go top0 @' E. E4 p& m$ o! y
mi=金额
' w b+ t" d% C2 O. O, x/ Y go bottom
/ N/ R" I6 ~7 Q. n" y2 i ma=金额
' ?1 z Z% W; T7 P4 M average 金额 to av) E# H; h* {8 q. V; h3 i2 U
select tablethree
9 S' \* K8 L' T( }4 ^ append blank, a( f& g0 N% p% L) |7 A" P& e
replace 姓名 with alltrim(thisform.text1.value),最高金额 with ma,最低金额 with mi,平均金额 with av, o4 j, L2 m! c4 }: S: D
set talk on
8 u' f. W! a* O6 M 6. 双击“退出”命令按钮,在“Command2.Click”编辑窗口中输入“Release Thisform”,并关闭编辑窗口。 |