第7套 一、8 D; X6 W9 X6 l7 f8 V0 o# U
1. 打开并修改表单
+ ] r' r- N' o/ N! T MODIFY FORM formtest4 X( n/ c: w- n( b- N% z/ G7 h
2. 在“表单设计器”中,在“属性”的Caption处输入“考试系统”。
' j+ ^- t3 k6 m3 d 1. 打开并修改表单4 v# S8 h: f6 C0 c, [. ?; G
MODIFY FORM formtest
, ~. @' r4 G0 `+ s 2. 在“表单设计器”中,添加一个标签Label1,在其“属性”的Caption处输入“欢迎使用考试系统”,在ForeColor处输入“255,0,0”。, L- K" x2 x9 I
在“表单设计器”中,添加一个计时器控件,在其“属性”的Name处输入“Timefor”。
4 N: m, e$ o- T; A0 h8 | b 选定计时器控件Timerfor,在其“属性”的Interval处输入“200”。& s5 ^! G7 l9 G( C/ A7 P
二、0 d) u C# |" s3 M" V& ~2 D
SELECT TOP 5 姓名,出生日期 FROM employee ORDER BY 出生日期 INTO TABLE emage; o# W! A# P9 t$ u \- ^6 r# \6 |
第1处:PARAMETERS a,b
9 K$ l1 F# M( ?1 X9 n6 _. P# U7 V 第2处:RETURN c
1 s8 R7 Z4 b% M5 e9 h+ W+ J4 D 三、
( F0 Q6 k X. h0 e: x6 ~ 1. 建立表单; |5 k8 V7 v# J* i
CREATE FORM calculator @2 z& i) I0 S9 {
2. 在“表单设计器”中,在其“属性”的Name处输入“calculator”,在Caption处输入“计算器”。
+ y6 \" n! Q+ {; X 3. 在“表单设计器”中,依次建立三个Label1、Label2和Label3的标签,并分别修改其标题Caption的值,依次为“操作数1”、“操作数2”和“计算结果”。2 Y, Q: Y* d3 u# m E
4. 在“表单设计器”中,依次建立三个Text1、Text2和Text3的文本框,再对Text3的Enable属性选择“.F.”。
: W1 t8 c0 L% u! s/ G8 T 5. 在“表单设计器”中,添加一个“选项按钮组”,在其“属性”的ButtonCount处输入“4”,调整这四个按钮的排列位置以及各个Caption的值。$ A5 I/ r% D. R: q- k8 B
6. 在“表单设计器”中,添加两个命令按钮(Command1和Command2),在第1个命令按钮Command1“属性”的Caption处输入“计算”,在第2个命令按钮Command2“属性”的Caption处输入“关闭”。7 t. X1 z' L8 ^5 k1 z
7. 双击“计算”按钮,在“Command1.Click”编辑窗口中输入下列程序0 D/ p: w- o# s! ]1 _0 y
do case. m W. c2 S- |
case thisForm.optiongroup1.value=1
2 o1 y/ K) S: m# x8 k+ R+ O7 q thisForm.Text3.Value=val(thisForm.Text1.Value)+val(thisForm.Text2.Value). }+ B" Q, c9 C0 p% l
case thisForm.optiongroup1.value=2' Y2 U& `1 _& \5 @; r* \( g J) {
thisForm.Text3.Value=val(thisForm.Text1.Value)-val(thisForm.Text2.Value)
& v5 X/ B9 z" `! G case thisForm.optiongroup1.value=3
. I8 M2 w* X# h0 @3 _, M4 Z thisForm.Text3.Value=val(thisForm.Text1.Value)*val(thisForm.Text2.Value)
& ?; @4 v7 c! D/ @, t8 @; t case thisForm.optiongroup1.value=4
8 _1 @& ~% H- B$ i0 _* u2 p thisForm.Text3.Value=val(thisForm.Text1.Value)/val(thisForm.Text2.Value)
0 O3 }: p+ x& U \0 ^, J: l) V6 `/ P; b) Y endcase
. J5 `$ I7 K3 [9 J. ]9 @ 8. 双击“关闭”命令按钮,在“Command2.Click”编辑窗口中输入“ThisForm.Release”,接着关闭编辑窗口。 |