private sysma
sele sysb
sysma=alltrim(thisform.text1.value)
locate for alltrim(操作员姓名)==alltrim(thisform.combo1.value)
if found() and alltrim(sysb.操作员密码)==sysma
thisform.visible=.f.
do zkcd.mpr
read events
thisform.visible=.t.
thisform.text1.value=""
else
messagebox("用户名或密码不正确!请重新输入!.",0,"警告")
thisform.text1.value=""
thisform.ext1.setfocus
endif

上面哪个红的代码出错,提示找不到ZKCD.MPR,请那位高手朋友帮我看看,怎么修改.
还有我哪个表单已经存在

您说的太对了,登陆过程一点登陆就提示文件'KCD.MPR'不存在.可是你说的处理方法我不是太会,只是看书上的例题做的,还希望你可以帮助我修改一下.最好是最简单的办法