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

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 编辑 ]

支持自己解决问题，非常好。
你说的就是用户登录表单的windowtype不能设置1-模式,因为你的窗口是顶层窗口，不能设置windowtype为1-模式。
帮助文件上说：顶层表单总是非模式的，不考虑 WindowType 属性的设置。

做个记号

看来你“家庭管家管理软件”快完工了

    DO d:/家庭管家管理软件/menus/main.mpr     &&执行主菜单程序   
在程序中出现绝对路径不是个好习惯，这样做你的程序就不能在其他位置运行。