set exact on
select dl
locate for thisform.text1.value=操作员 and thisform.text2.value=密码
if!eof()
   &&messagebox("欢迎使用本系统!",48)
   thisform.release
   fm.show
  else
      if thsiform.inputno<2
         messagebox("你不是本系统的合法用户！禁止进入本系统！",48)
         thisform.release
         close all
      endif
endif

fm也是一个表单，为什么到这一行为出现错误。说fm不是一个对象！！！

还是不行，运行后说fm不在vfp的目录下

我做了一个简的的表单，试了一下，也是说不在c:vfp下

谢谢！！！我知道了。