MainTable = Tables("fssr1")
Forms("main").open
Dim r As DataRow = DataTables("lsconf").Find("f_vkey = 'DWMC'")
Dim dwmc As String = GetPy(r("F_val"),True) ' 取单位简码
Dim r2 As DataRow = DataTables("lsconf").Find("f_vkey = 'ZCM'")
Dim code As String = r2("F_val")
If Code > "" AndAlso DecryptText(Code,"che",dwmc) = ComputerId Then '如果注册码正确,
vars("reg")=True '定义一全局变量来记录程序是否注册,如果注册为TRUE,如果注册双击则提示欢迎使用,如果未注册弹出注册窗口
Dim n1 As Integer = GetConfigValue("bz",0) '第一次注册成功后给出提示,以后就不提示了,,,,
If n1 =0 Then
SaveConfigValue("bz",1)
MessageBox.Show("恭喜,您输入的注册码正确,",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
StatusBar.Message3 = "授权单位:" & r("F_VAL")
Else
vars("reg")= False
StatusBar.Message3 = "您当前使用的版本为试用版!"
End If
If user.name = "开发者"
SaveConfigValue("Count",0)
vars("reg")=True '如果是开发 者则自动为注册版
End If
If User.Type <> UserTypeEnum.Developer '隐藏表标题
TableCaptionVisible = False
basemainform.Width = sysinfo.workingareawidth
basemainform.height = sysinfo.workingareaheight
End If
Dim mc As DataRow = DataTables("lsconf").Find("f_vkey='rjmc'")
If mc IsNot Nothing
Vars("rjmc") = mc("F_val")
End If
Dim bbh As String = DataTables("lsconf").Find("f_vkey='version'")("F_val")
Dim fbrq As String = Format(PublishDate,"yyyy年MM月dd日") '程序发布日期
StatusBar.Message1= Vars("rjmc") & bbh & " →【程序发布日期: " & fbrq & "】←"
r= DataTables("lsconf").Find("f_vkey = 'lyrtjms'")
If r("F_val")="N"
Tables("fssr1").Cols("分组一").Visible =False
Tables("fssr1").Cols("分组二").Visible =False
End If
加好友 
发短信
Post By：2014/8/11 10:03:00 [显示全部帖子]
此主题相关图片如下：qq截图20140811113206.png