本人是VF菜鸟,自已写了一个登录的程序,但总不能实现,特来请哪位高手指教下,先谢谢了!

public sf,user_name,pwd
sf=thisform.optiongroup1.value
user_name=thisform.text1.value
pwd=thisform.text1.value
i=0
use 用户表
go top
do while .not.eof()
if 用户名=user_name .and. 密码=pwd .and. 身份=sf
thisform.release
else
i=i+1
if i>=3
=messagebox("3次输入错误!将自动关闭窗口!",48,"警告!")
thisform.release
else
thisform.text1.setfocus
=messagebox("用户名或密码或身份错误!",48,"错误!")
endif
endif
skip
enddo

我怎么看你的用户名和密码用的是同一个text1文本框啊。
一个单机版的登陆程序要写这么多的程序吗？

那个是我粗心了,不过错误不是这个

难道是我的问题太菜了,高手们不愿帮我解答下吗?

你没有说明问题，这个程序出了什么错误?

你的程序第一个条件成立然后关闭表单，条件2，3次输入密码错误也是关闭表单，没到3次text1获取焦点。这个程序不太懂干什么用的。

在这
if 用户名=user_name .and. 密码=pwd .and. 身份=sf
thisform.release
else
i=i+1
if i>=3
=messagebox("3次输入错误!将自动关闭窗口!",48,"警告!")
thisform.release
else
thisform.text1.setfocus
=messagebox("用户名或密码或身份错误!",48,"错误!")
endif
endif
如果用户超过三个你循环查找三遍没有就退出了，不再查找其他的了。这样不对，你那三次的记数不应该再这里用。

何必三遍，我的意思，成功就进，失败就退。程序如下:
use 用户表.dbf
locate all for 用户名=thisform.text1.value .and. 密码=thisform.text2.value .and. 身份=thisform.optiongroup1.value
if eof()
quit
else
thisform.release
do MENU.MPR &&这里进入主控程序MENU.MPR，根据需要可修改
ednif

三次记数不在这里用,应该用在哪里呢?

就是个登录问题
我输入正确的用户名和密码并选择正确的身分后,却总弹出后面的错误警告而不是如希望的把表单关闭