Question

关于Visual FOXpro设计表单的问题

如果对于一个用户名与密码的表单 如何编辑命令按钮的CLICK程序让它只有在上面用户名和密码文本都输入正确的情况下才能进入的程序？
谢谢甜甜蜜蜜小蚊子 不过为社么我照你方法做了 为社么有时候可以 但有时候会跳出‘找不到别名用户’的对话框呢？要将新建的名为用户的表关联进去吗？

Answer 1

private yh,mm,st**yh为用户名，mm为密码。st指提示信息。
st='密码不正确，请重新输入!'
yh=alltrim(thisform.text1.value)**其中的text1指用户名输入的文本框控件
mm=alltrim(thisform.text2.value)**其中的text2指密码输入的文本框控件
locate for yh==alltrim(用户.用户名).and.alltrim(用户.密码)==mm**这里“用户”是一个数据库表，表里的字段为用户名和密码，这是要自己建的。

if found()
yhm=alltrim(用户.用户名)
thisform.visible=.f.
do form 主表单.scx**这里主表单是登陆后要出现的那个表单名称（caption)
else
wait window st timeout 2
thisform.text2.value=' '
thisform.text2.setfocus
endif

**后程序注释

表单的数据环境里加进去这个用户表，就是在表单上右击鼠标，在数据环境中右击，在弹出的对话框中点添加，把用户表选中添加进去即可。