以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  AfterOpenProject写入注册机制后,在弹出注册窗口时,为什么要打开狐表主程序呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186221)

--  作者:cnsjroom
--  发布时间:2023/4/14 8:42:00
--  AfterOpenProject写入注册机制后,在弹出注册窗口时,为什么要打开狐表主程序呢?
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
    End If
End If
n = n + 1
SaveConfigValue("Count",n)

--  作者:有点蓝
--  发布时间:2023/4/14 8:46:00
--  
注册窗口设置为模式窗口
--  作者:cnsjroom
--  发布时间:2023/4/14 10:31:00
--  回复:(有点蓝)注册窗口设置为模式窗口
注册窗口是选择的模式窗口类型
特别是在未安装过狐表的电脑上   会弹出狐表主程序  不是项目主程序
有没有办法特底解决主程序的弹出呢?

--  作者:有点蓝
--  发布时间:2023/4/14 10:34:00
--  
注册窗口如果是模式窗口,绝对不可能在打开注册窗口的时候同时弹出Foxtable主界面的
--  作者:cnsjroom
--  发布时间:2023/4/14 10:40:00
--  回复:(有点蓝)注册窗口如果是模式窗口,绝对不可能...
确定是模式窗口

图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2023/4/14 10:43:00
--  
请上传实例说明