数据库应用基础(第二版)第六章 常用表单空间的使用 实验6.1之实验报告

四、实验6-1报告

1.实验过程报告

(1)写出第2题“数字时钟”表单的Init事件和Timer事件的代码。 答:“数字时钟”表单的Init事件代码为:

THISFORM.TEXT1.VALUE=LEFT(TIME(),2)+\时\分\秒\

THISFORM.REFRESH

Timer事件的代码为: THISFORM.INIT THISFORM.REFRESH

(2)写出第3题“圆球跳动”表单的Timer事件的代码。 答:“圆球跳动”表单的Timer事件的代码为: IF THISFORM.SHAPE1.TOP=0

THISFORM.SHAPE1.TOP=THISFORM.HEIGHT-THISFORM.SHAPE1.HEIGHT ELSE

THISFORM.SHAPE1.TOP=0 ENDIF

THISFORM.REFRESH

(3)写出第4题“职工表自动只读浏览”表单的Timer事件的代码。 答:“职工表自动只读浏览”表单的Timer事件的代码为: SKIP IF EOF()

GO TOP ENDIF

THISFORM.REFRESH 2.简答题

(1)怎样使标签中的文字以竖行的形式显示?

答:将标签中属性名为WordWrap的属性由初始的默认值“.F.—假”设置为“.T.—真”,就可以使标签中的文字以竖行的形式显示。

(2)“圆球跳动”表单的圆球是使用的什么对象?怎样才能由方圆?改变球的颜色用的什么属性?怎样知道球到达了表单的顶部和底部?

答:“圆球跳动”表单的圆球是使用的图形控件—形状(Shape)对象。将形状中属性名为Curvatuer的属性值设置为99(圆)便可以由方变为圆。改变球的颜色用的BackColor属性。当shape的top属性值等于0时,球到达了表单的顶部;当shape的top属性值等于表单的height值减去shape的height值时,球到达了表单的底部。

(3)在文本框中显示文字要用什么属性?使文本框以只读的方式显示数据要用什么属性?

答:在文本框中显示文字要用属性名为DateFormat的属性,设置其属性值为“14—汉字”。 使文本框以只读的方式显示数据要用属性名为ReadOnly的属性,将其属性值由初始的默认值“.F.”设置为“.T.”。

(4)在什么条件下计时器控件的Timer事件代码才能运行?

答:当计时器中属性名为Enabled的属性由初始的默认值“.F.”设置为“.T.”时,计时器控件的Timer事件代码才能运行。

3.实验完成情况及存在问题。

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4