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
**后程序注释
表单的数据环境里加进去这个用户表,就是在表单上右击鼠标,在数据环境中右击,在弹出的对话框中点添加,把用户表选中添加进去即可。
温馨提示:答案为网友推荐,仅供参考