if empty(thisform.txtOprator.value)
=messagebox("用户名不能为空！","提示")
else
select 用户表
locate for alltrim(用户表.oprator)==alltrim(thisform.txtOprator.value)
if thisform.txtPassword==用户表.password
do form storing
else
=messagebox("密码不正确！","提示")
endif
endif
斜体字部分好象不对，怎么该呢？
请教诸位大虾