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()