在表单 Form1 中有标签 Label1 、 Label2 、 Label3 、时钟控件 Timer1 、“开始抽奖”按钮和“停止”按钮,如题 56 图所示。在抽奖数据表 TEL.dbf 中有姓名 (C , 6) 、电话号码 (N , 11) 、家庭地址 (C , 20) 等字段,该数据表已经添加到表单数据环境中。当用户点击“开始抽奖”按钮时,在 Label3 中每秒钟滚动显示 TEL.dbf 表中的一个电话号码,点击“停止”按钮时停止,且在 Label3 中显示出中奖的号码。 表单 Form1 的 Init 事件代码如下: . ThisForm. Timer1. Enabled= .F. “开始抽奖”按钮的 Click 事件代码如下: ThisForm.Timer1.Enabled=.T. “停止”按钮的 Click 事件代码如下: ThisForm. Timer1. Enabled=.F. 时钟控件 Timer1 的 Timer 事件代码如下: dh = 电话号码 ThisForm.Label3.Caption= skip If Eof() Go Top EndIf