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
**后程序注释
表单的数据环境里加进去这个用户表，就是在表单上右击鼠标，在数据环境中右击，在弹出的对话框中点添加，把用户表选中添加进去即可。
问：高分求Dreamweaver MX 2004网页设计问题
答：可以的 具体联络 QQ 5详情>>
答：详情>>
答：三级网络技术考试大纲 三级网络新大纲 基本要求 1． 具有计算机系统及应用的基础知识。 2． 掌握计算机局域网的基本概念和工作原理。 3． 了解网络操作系统的基...详情>>
