这段程序是什么意思

st='密码不正确,请重新输入!'
*选择用户表
select 用户表

Pwd=alltrim(thisform.text1.value)

locate for alltrim(thisform.combo1.value)==alltrim(用户表.管理员id)
if found() and alltrim(用户表.密码)==Pwd
caozuoyuan=alltrim(用户表.管理员id)
thisform.visible=.f.
*调用主窗体
do form frmMain.scx
thisform.visible=.t.
else
wait window st timeout 2
thisform.text1.value=''
thisform.text1.setfocus
endi