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

控件的caption属性是指表单控件显示的标题，name属性是控件的名称。如按钮控件，它的caption就是按钮上显示的字，如“确定”，“登陆”等等，它的name属性就是按钮的名称，如command1，thisform.command1.caption

1)表单的init事件

PUBLIC n

n=0

2)“确定”按钮的click事件

user=ALLTRIM(thisform.text1.Value)

psw=ALLTRIM(thisform.text2.Value)

LOCATE FOR 帐号=user AND 密码=psw

IF FOUND() THEN

MESSAGEBOX("欢迎进入本系统！",0+64,,"欢迎")

ELSE

n=n+1

IF n=3 THEN

MESSAGEBOX("密码已输入三次，禁止进入！",0+48,"提示")

thisform.Release

ELSE

MESSAGEBOX("密码错误，请重新输入！",0+48,"提示")

ENDIF

ENDIF

---