做一个表单，单击开始，则在文本框内随机显示表里的一个字段数据，比如显示手机号码，然后单击停止，显示在另外的控件内显示其他字段的信息，求解代码？

1、生成测试数据
CREATE CURSOR tmp(id i,name c(10),tel c(11))
FOR i=1 TO 100
    INSERT INTO tmp(id,name,tel) values(i,'姓名'+TRANSFORM(i),'138'+PADL(i,8,'0'))
ENDFOR

2、表单中放1个定时器 timer1，2个text文本框，分别为 text1,text2,1个按钮command1,名称为"开始"

3、command1的click中
IF this.Caption ="开始"
   RAND(-1)
   this.Caption ="停止"
   thisform.timer1.Enabled = .T.
   thisform.timer1.Interval = 10
   thisform.timer1.Tag = "1"
ELSE
   this.Caption ="开始"
   thisform.timer1.Tag = "0"
ENDIF

4、timer1的 timer中
LOCAL rn,rc
IF this.Tag = "1"
   rc=RECCOUNT()
   rn=INT(RAND()*rc+1) &&取随机记录号
   GO rn
   thisform.text1.value=ALLTRIM(tel)
   thisform.text2.value=""
ELSE
   thisform.text2.value=ALLTRIM(name)
   this.Enabled = .F.
   this.Interval = 0
ENDIF

做抽奖程序啊？？？？？