发布软件后，登陆窗口点取消后，依然进入软件操作界面； 以前这句代码是正常的，但现在加了‘注册’窗口后，才发生异常，不知道 哪里出问题了，麻烦老师帮忙 指点下
此主题相关图片如下：qq图片20170924091218.png

退出程序代码：Syscmd.Project.Exit()

这下面的是项目事件代码：

Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim it As Integer = 0
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,"502239","502239") = ComputerId Then \'如果注册码正确
    OK = True
it = 1
    \' MessageBox.show("注册码加密密文检测成功(检测已注册过的电脑)")
Else
    If n > 1 Then
 MessageBox.show("2,注册码验证,进入注册码窗口")           
        Forms("注册").Open()
        Code = GetConfigValue("Register" & ComputerId,"")
        If Code > "" AndAlso DecryptText(Code,"502239","502239") = ComputerId Then \'如果注册码正确
            OK = True
it = 1
            \' MessageBox.show("注册码加密密文检测成功(第一次检测电脑)")
        Else
            MessageBox.show("2,注册码加密密文错误,系统自动退出")           
            Syscmd.Project.Exit()
            Return
        End If
    End If
    \'If n > 3 AndAlso Ok = False Then
    \'Messagebox.Show("您正在使用的产品已经超出试用次数!")
    \'Syscmd.Project.Exit()
    \'End If
End If
n = n + 1
SaveConfigValue("Count",n)

MainTable = Tables("MAIN")
If it = 1 Then
If User.Type <> UserTypeEnum.Developer
   
    TableCaptionVisible = False
    Forms("导航2").open()
    Forms("main").open()
    \'  Forms("变更申请主窗口").open()
    \' Forms("main成本2").open()
End If
Forms("用户登陆2").Open()
End If
If it = 0 Then
 Syscmd.Project.Exit()
    Return
End If

参考设计

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=107009&skin=0