vfp在编程过程中试运行：找不到别名

在vfp编程过程中，建立了tabpurview数据表，建立了一个系统登录表单,form1的initevent代码为publiccnmanager&&定义全局变量cn=0&... 在vfp编程过程中，建立了tabpurview数据表，建立了一个系统登录表单,
form1的init event代码为
public cn manager &&定义全局变量
cn=0 &&给全局变量赋初值

combo1的keypress event的代码为：

select tabpurview &&选择tabpurview工作区为当前工作区
do case
case nKeyCode=40 &&按下向下前头
if !eof()
skip &&记录指针向下移动一条记录
else
go bottom
endif
this.value=操作员姓名
case nkeycode=18 &&按下pageup
if !bof()
skip-1
else
go top &&记录指针多移动到第一条记录
endif
this.value=操作员姓名
endcase

确定的命令按键的chick的代码为：

public manager
manager=alltrim(thisform.combo1.value)
use yygl\database\tabpurview &&打开数据库表
cname=alltrim(thisform.combo1.value)
ppassword=alltrim(thisform.text1.value)
set order to 操作员姓名 &&指定控制索引文件
seek cname &&快速查询
set exact on &&设定字符精确比较
*判断操作员是否正确
if alltrim(tabpurview.操作员姓名)!=cname
cn=cn+1
cmessagetitle='系统登录'
cmessagetext='操作员错误，请重新输入'
ndialogtype=4+32
nanswer=messagebox(cmessagetext,ndialo9gtype,cmessagetitle)
do case
case nanswer=6 &&选择“是”时的操作
thisform.combol.value=''
thisform.combo1.setfocus
case nanswer=7 &&选择“否”时的操作
cmessagetitle='系统登录'
cmessagetext='不要乱来!'
messagebox(cmessagetext,ndiaolgtype,cmessagetitle)
thisform.release
endcase
if cn=3
thisform.release
endif
else
*判断密码是否正确
if alltrim(tabpurview.密码)!=ppassword
cn=cn+1
cmessagetitle='系统登录'
cmessagetext='密码错误，请重新输入！'
ndialogtype=4+32
nanswer=messagebox(cmessagetext,ndialogtype,cmcssagetitle)
do case
case nanswer=6
thisform.text1.value=''
thisform.text1.setfocus
case nanswer=7
cmessagetext='不要乱来'
messagebos(cmessagetext,ndialogtype,'系统登录')
thisform.release
endcase
if cn=3
thisform.release
endif
else
purview=val(alltrim(tabpurview.权限级别)) pxsgl=tabpurview.销售管理 &&给全局变量赋值
pjhgl=tabpurview.进货管理
pkfgl=tabpurview.库房管理
pthgl=tabpurview.财务管理
pzmgl=tabpurview.账目管理
pjcinfo=tabpurview.基础信息管理
psysgl=tabpurview.系统管理
manager=allrtim(thisform.combo1.sidplayvalue)
do form form\fdesktop
thisform.release
endif
endif
set exact off &&设置字符非精确比较

退出chick的代码为：
cmessagetitle='系统登录'
cmessagetext='真的退出吗？'
ndialogtype=4+32
if nanswer=6
thisform.release
endif 展开

 我来答