表单上建“专家编号”和“专家姓名”两个标签及对应的文本筐,有开始和停止两个命令按钮,添加“时钟”控件,enabled=.f.,interval=500,
Timer事件代码:
select 专家表
thisform.text1.value=专家名字
thisform.text2.value=编号
skip
if eof()
go top
endif
开始命令按钮代码:
thisform.timer1.enabled=.t.
停止按钮代码:
thisform.timer1.enabled=.f.
[此贴子已经被作者于2006-4-27 0:03:59编辑过]