vfp如何编写表单事件方法

① 简述在vfp中创建表单程序的步骤

④
1、在表单上新建标签label1~label5
2、在表单上新建文本框text1~text5
3、在表单上新建命令按钮command1~command5
4、将表单的数据环境添加rcda.dbf
5、在表单的Init事件里面录入：
with thisform
.label1.caption='编号'
.label2.caption='姓名'
.label3.caption='性别'
.label4.caption='出生日期'
.label5.caption='工资现状'
.command1.caption='每一个'
.command2.caption='上一个'
.command3.caption='下一个'
.command4.caption='最后一个'
.command5.caption='退出'
endwith
6、command1的click事件
go top
7、command2的click事件
if .not.bof()
skip -1
endif
8、command3的click事件
if .not.eof()
skip
endif
9、command4的click事件
go bott
10、command5的click事件
thisform.release
⑤
根据④作出一些修改就行了。

② 关于VFP中表单新建方法的调用

1）运行VFP软件，加载表单所在VFP项目。选Docs页。

3）保存所做的修改。运行该表单，测试按钮Click事件代码。

③ vfp表单设计

一
（1）Form1的Init事件代码：
thisform.timer1.enabled=.t.

（2）Timer1的Timer事件代码：
thisform.caption='计时：'+time()
if thisform.label1.fontsize=60
thisform.label1.fontsize=9
else
thisform.label1.fontsize=thisform.label1.fontsize+1
endif

二
(1) 表单form1的init事件代码：
set century on
thisform.timer1.enabled=.t.

(2)计时器控件timer1的timer事件代码：
thisform.text1.value=alltrim(str(year(date())))+'年'+alltrim(str(month(date())))+'月'+alltrim(str(day(date())))+'日'
thisform.text1.value=time()