vfp表单设计中如何用代码编写对象的事件程序？

如果你的vfp版本是9.0  你可以使用  bindevent()  函数把 timer 事件的代码 绑定到另一个方法上

 form.init

 

thisform.addobject('timer2','timer')

thisform.timer2.Interval=2000

BINDEVENT(thisform.timer2,'timer',thisform,"tttt")

form.tttt

=MESSAGEBOX("时间到",0,"tips")

thisform.timer2.interval=0

如果 不是 9.0   就要先自定义一个类  把 timer代码写在类里面, 然后在form里面加入自定义类对象

tttt.prg

DEFINE CLASS tttt as timer

    interval=0    

    PROCEDURE timer  

       =MESSAGEBOX("你好")

    endpro

ENDDEFINE

form.init

SET LIBRARY TO tttt addi  &&加载自定义库

thisform.addobject('timer2','tttt') &&建立对象

thisform.timer2.interval=5000 && 触发事件

1, 将表添加到表单的数据环境中(表单空白处点击右键, 选择数据环境)

2,在数据环境中,按住那个表不松, 拖动到表单中,松开后会自动创建一个表格控件, 数据源就是刚才那个表

3,在表单中放置一个按钮, caption为"新增", click代码为:

append blank

4,在表单中放置一个按钮, caption为"删除", click代码为:

delete

5,在表单的init事件中,输入代码:

set deleted on

6,运行表单,一个简单的编辑表数据的表单就可以用了.

ps.这只是最简单的功能, 如果要更高级,比如缓冲,需要更多的设置, 这里无法说明了

---