AfterOpenProject写入注册机制后，在弹出注册窗口时，为什么要打开狐表主程序呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

AfterOpenProject写入注册机制后，在弹出注册窗口时，为什么要打开狐表主程序呢？

有没有办法只弹出注册窗口不弹出狐表主程序谢谢各位老师

MainTable=Tables("表a")

Dim n As Integer = GetConfigValue("Count",1)

Dim Code As String = GetConfigValue("Register" & ComputerId,"")

Dim Ok As Boolean

If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确

OK = True

'Dim sucess As Boolean = False

'mu = new System.Threading.Mutex(True, "12+3措施暨法律文书规范化",sucess)

'If not sucess Then

'Dim Result As DialogResult

'Result = MessageBox.Show("同一个软件只能打开一次!","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

'If Result = DialogResult.Yes Then

'Syscmd.Project.Exit(False)

'End If

'Else

vars("当前年度")=Date.today.Year

vars("当前月份")=Date.today.Month

Dim web As new WebPlatform.ProStart()

web.Show()

'End If

Else

If n > 1 Then

Forms("注册").Open()

Code = GetConfigValue("Register" & ComputerId,"")

If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确

OK = True

End If

n = n + 1

SaveConfigValue("Count",n)

主题：AfterOpenProject写入注册机制后，在弹出注册窗口时，为什么要打开狐表主程序呢？