15.某"抽奖"表单上有2个标签、1个文本框、1个计时器、2个命令按钮和1个列表控件,其数据环境中有一自由表gztable,该表有两个字段：TEL(字符型,用于存储参与者的手机号码)和YN(逻辑型,其值为.T.时表示该参与者被抽中)。在表单设计器中设计表单时,表单如图1所示：表 （暂缺图） 单运行后单击"开始"命令按钮,命令按钮标题改为"停止",且启用计时器控件使得文本框中循环显示gztable表中的手机号码,单击"停止"命令按钮时表单显示如图2所示(计时器控件废止)。
(2)根据图1和图2所示的表单,表单及各控件的事件代码设置分别为：
● 表单的Init事件代码为：
THISFORM.Textl.ControlSource= （）
REPLACE ALL yn WITH.F.
GOTOTOP
"开始"命令按钮Click事件代码为:
IF THIS.Caption=’开始’
LOCATE FOR !yn
THISFORM.Timer1.Enabled=.T.
THIS.Caption=’停止’
ELSE
THISFORM.Timer1.Enabled=.F.
THIS.Caption=’开始’
THISFORM.Listl. （）(THISFORM.Text1.value)
REPLACE yn with .T.
ENDIF
THISFORM.Refresh
计时器的Timer事件代码为：
CONTINUE
IF （）
LOCATE FOR !yn
ENDIF
THISFORM.Refresh
"退出"命令按钮(标题为图片)的功能是将获奖名单复制到Excel文件中,然后关闭表
单。其Click事件代码为：
COPY TO 获奖名单 XLS FOR （）
THISFORM.Release
