主程序运行正确并调用登录表单;登录表单输入密码后应该调用主菜单(单独运行正确)而出现的是系统菜单.

cn=cn+1
IF allt(thisform.text1.value)=allt(keey.mymm)
 thisform.release   
    DO d:/家庭管家管理软件/menus/main.mpr     &&执行主菜单程序   
 ELSE
 if cn>=3
       =messagebox("你不是合法用户！你不能使用！！",64,"提示窗口")
          thisform.release
         Clea event
        else
      =messagebox("密码不正确！请重新输入！",64,"提示窗口")
  thisform.text1.value=''
  thisform.text1.setfocus()
 endif
ENDIF
问题已解决,就是用户登录表单的typ不能设置1-模式

[ 本帖最后由 谈建红 于 2012-11-26 12:26 编辑 ]