关于Visual FOXpro设计表单的问题
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。vis...全部
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)elsewait window st timeout 2thisform。
text2。value=' 'thisform。text2。setfocusendif**后程序注释表单的数据环境里加进去这个用户表,就是在表单上右击鼠标,在数据环境中右击,在弹出的对话框中点添加,把用户表选中添加进去即可。收起