Endif
Thisform.text1.setfocus Thisform.refresh
(3)command的click事件 Thisform.release 22、有一个狐狸头 (1)form1的init事件 Thisform.f=0
Thisform.caption=”动画” （2）timer1的timer事件 If thisform.f=0
Thisform.image1.left=thisform.image1.left+1
If thisform.image1.left=thisform.width-thisform.image1.width Thisform.f=1 Endif Endif If thisform.f=1
Thisform.image1.left=thisform.image1.left-1 If thisform.image1.left=0 Thisform.f=0 Endif Endif
23. 学生学籍信息浏览，2秒自动刷新，到第三页后自动回到第一页 时钟 INTERVAL 2000 TIMER事件 DO case
CASE thisform.pageframe1.ActivePage=1
thisform.pageframe1.ActivePage=2 thisform.pageframe1.ActivePage=3 thisform.pageframe1.ActivePage=1
CASE thisform.pageframe1.ActivePage=2 CASE thisform.pageframe1.ActivePage=3
ENDCASE
thisform.Refresh
24根据学生表，课程表和成绩表，用SOL-SELECT语句实现以下查询。。学号前三位为“081” COMMAND1 的 CLICK
SETECT 学生.学号,姓名,出生年月,课程名,成绩 FROM 学生,成绩,课程;
WHERE 学生.学号=成绩.学号 AND 课程.课程号=成绩.课程号 AND YEAR(;出生年月)>=1990 COMMAND2 的 CLICK
SETECT 学生.学号,姓名,课程名,成绩 FROM 学生,成绩,课程;
WHERE 学生.学号=成绩.学号 AND 课程.课程号=成绩.课程号 AND 成绩>=60 COMMAND3 的 CLICK
SETECT 学生.学号,姓名,课程名,成绩 FROM 学生,成绩,课程;
WHERE 学生.学号=成绩.学号 AND 课程.课程号=成绩.课程号 AND LEFT(;学生.学号,3)=\COMMAND4 的 CLICK THISFORM.RELEASE
25学生表信息查询界面，只读方式 FORM1 INIT事件
THISFORM.LABEL1.CAPTION=\请选择学生姓名\THISFORM.LABEL2.CAPTION=\学号\THISFORM.LABEL3.CAPTION=\姓名\THISFORM.LABEL4.CAPTION=\性别\THISFORM.LABEL5.CAPTION=\出生年月\THISFORM.LABEL6.CAPTION=\奖学金\
THISFORM.CHECK1.CAPTION=\选中为'男',否则为'女'\THISFORM.CAPTION=\学生表信息查询\
THISFORM.SETALL(\THISFORM.CHECK1.READONLY=.T. LIST1 INTERACTIVECHANGE事件 THISFORM.SETALL(\THISFORM.REFRESH
1.设计一个统计车票总金额的表单，要求是：在给出的各种车票中选择你需要的， 3个复选框
“计算总额”按钮 default为T text1 readonly 为 T Command1的CLICK s=0
IF thisform.check1.value=1
s=s+580 ENDIF
IF thisform.check2.value=1
s=s+50 ENDIF
IF thisform.check3.value=1
s=s+280 ENDIF
thisform.text1.value=s thisform.Refresh
Command2的CLICK thisform.Release
2. 设计一个“职工销售额分档查询”表单
FORM1的INIT事件 SET SAFETY OFF SET DELETED ON
SELECT 姓名,商品名称,数量*单价 as 金额 FROM 职工,销售,商品 WHERE 销售.职工号=职工.职工号; AND 销售.商品号=商品.商品号 INTO TABLE 商品销售 ORDER BY 销售.职工号 WITH thisform. grid1
.recordsourcetype=1 .recordsource=\商品销售\.readonly=.T. .visible=.F. .allowaddnew=.F. .deletemark=.F. FORM1的DESTROY事件
OPTIONGROUP1的INTERACTIVECHAN事件 DELETE ALL DO case
CASE this.Value=1
RECALL ALL FOR 金额>=6000 CASE this.Value=2
RECALL ALL FOR 金额>=4000 AND 金额<6000 CASE this.Value=3
RECALL ALL FOR 金额>=2000 AND 金额<4000 CASE this.Value=4
RECALL ALL FOR 金额>=1000 AND 金额<2000 CASE this.Value=5 RECALL ALL FOR 金额<1000 ENDCASE GO TOP
THISFORM.GRID1.Visible=.T. THISFORM.Refresh
ENDWITH CLOSE ALL