以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  验证注册码正确之后 在运行主窗体 代码怎么修正？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170559)

--  作者：cnsjroom --  发布时间：2021/7/30 12:39:00 --  验证注册码正确之后 在运行主窗体 代码怎么修正？ 怎么实现将红色部分代码   在项目验证了验证码正确之后再进行运行呢？ 有没有更好的办法  除了代码的写法以外： Dim n As Integer = GetConfigValue("Count",1) Dim Code As String = GetConfigValue("Register" & ComputerId,"") Dim Ok As Boolean If Code > "" AndAlso DecryptText(Code,"cnsjroom","lixiaochun") = ComputerId Then \'如果注册码正确     OK = True   Else     If n > 1 Then         Forms("授权").Open()         Code = GetConfigValue("Register" & ComputerId,"")         If Code > "" AndAlso DecryptText(Code,"cnsjroom","lixiaochun") = ComputerId Then \'如果注册码正确             OK = True         End If     End If     If n > 2 AndAlso Ok = False Then         Messagebox.Show("您正在使用的产品已经超出试用次数!")         Syscmd.Project.Exit()     End If End If n = n + 1 SaveConfigValue("Count",n) if ok=true then CType(BaseMainForm,C1Ribbon.C1RibbonForm).Ribbon.CaptionAlignment = 0 BaseMainForm.Text = "【数据生成】" MainTable = Tables("表A") Forms("主窗体").show TableCaptionVisible = False RibbonTabs.HideTabHeaderRow = True end if [此贴子已经被作者于2021/7/30 12:55:49编辑过]

--  作者：有点蓝 --  发布时间：2021/7/30 13:34:00 --   不是有判断吗？【if ok=true then】，验证通过才会执行的呀