用vf设计登录界面

首先要有一个表 tabid.dbf 用于存放用户名和密码，至少有“用户名”和“密码”两个字段。

设计一个登录表单，至少有两个文本框分别为text1 (用于填写用户名)和text2(用于填写密码)。至少有二个命令按钮command1(确定)和command2(取消)

再有，本人习惯添加一个标签控件 label1,并设其 Caption 初始值为“0”

command1的代码如下

*设置用户名不能为空，如允许为空则不需此步骤

If Len(Alltrim(Thisform.text1.Value))=0

Messagebox('请输入用户名！')

Return

Endif

*设置密码不能为空，如允许为空则不需此步骤

If Len(Alltrim(Thisform.text2.Value))=0

Messagebox('请输入密码！')

Return

Endif

Use tabid.Dbf In 0

Locate For Alltrim(用户名)==Alltrim(Thisform.text1.Value) &&定位到与输入用户名相同的记录

*如果没有找到相同记录时执行下面代码

If Eof()

Use

Messagebox('没有此用户！')

Thisform.text1.Value=''

Thisform.text2.Value=''

Thisform.text1.SetFocus

Thisform.label1.Caption=Alltrim(Str(Val(Thisform.label1.Caption)+1)) &&累计出错的次数

If Thisform.label1.Caption='3' &&出错三次后自动退出

Messagebox('连续三次输入错误，系统将退出！')

Use

Quit

Endif

Return

ENDIF

*找到后执行的动做

If Alltrim(Thisform.text2.Value)==Alltrim(密码)

Use

在这里添加在正确登录后你要继续执行的程度

Else

Use

Messagebox('密码错误！')

Thisform.text2.Value=''

Thisform.text2.SetFocus

Thisform.label1.Caption=Alltrim(Str(Val(Thisform.label1.Caption)+1))

If Thisform.label1.Caption='3' &&出错三次后自动退出

Messagebox('连续三次输入错误，系统将退出！')

Use

Quit

Endif

Return

ENDIF

没做测试。为使代码在帖子里美观，句首加入了全角空格，所以不能直接复制代码。请高手指正！

使标签（label）移动 num = 0

FOR i=1 TO 10 STEP 1

num = num + i

myform.Label1.left = num

WAIT WIND '暂停10秒…' TIMEOUT 2

ENDFOR

选中标签label1在属性的backcolor设为255.255.255。微调控件的话属性中的keyboardhigh设置为255，keyboardlow设置为0。spinnerhigh设置为255，spinnerlow设为0，再把value设为255。

---