Question

用foxpro 中timer控件 设计一个抽取幸运者的表单

用foxpro 中timer控件 设计一个抽取幸运者的表单，单击“开始滚动”按钮记录开始滚动，单击停止就出现幸运者姓名
要代码

Answer 1

比如是对学生表抽奖：
在数据环境添加"学生.dbf"
计时器timer1 的interval属性设为100（当然可以换成1000等也可以，随便设）
form1的init事件代码：
thisform.timer1.enabled=.f.
thisform.text1.value=“幸运者姓名”
按钮“开始滚动”的click事件
thisform.timer1.enabled=.t.
thisform.text1.value=姓名
按钮“停止”的click事件
thisform.timer1.enabled=.f.
timer1的timer事件代码
sele 学生
skip
if eof()
go top
endif
thisform.text1.value=姓名

Answer 2

简单版

一个表存储幸运者的记录,XYZ.DBF 字段:姓名
form init
use xyz
thisform.timer1.interval=50
thisform.timer1.enabled=.t.
thisform.command1.caption="开始滚动"

timer1 timer 事件
thisform.label1.caption=姓名
do case
case recount()>=2
if reccount()=recno()
go top
else
skip
endif
case reccount()<=1
messagebox("只有一条记录或零记录,"+chr(13)+chr(10)+"请录入记录!","系统提示")
endcase

command 开始滚动 click
do case
case thisform.command1.caption="开始滚动"
thisform.timer1.enabled=.f.
messagebox("恭喜"+thisform.label1.caption+"同学中奖!","系统提示")
thisform.command1.caption="停止滚动"

case thisform.command1.caption="停止滚动"
go top
thisform.timer1.enabled=.t.
thisform.command1.caption="开始滚动"
endcase

一个按钮:点开始,caption变成停止,反之亦然
label1 滚动信息

Answer 3

你是要程序代码么？？？