- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 有关发布项目注册 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31441)
-- 发布时间：2013/4/15 15:26:00
-- 有关发布项目注册
开发的狐表项目虽然增加了注册要求，但同时希望即使注册成功后，在打开项目时，软件应自动与发布狐表项目里的“注册表”相核对，如果注册码相同且禁用一栏打钩的，就不能打开狐表，并提示“与开发者联系”字样，这个代码应该怎么写？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:上传狐表.zip |
-- 发布时间：2013/4/15 15:47:00
--
我们公司远程数据库服务器并不在本单位（是租用），想在狐表发布项目里弄个注册表（也采用外部数据源连接远程数据库服务器，并且该表只让开发者打开），这样项目发布给底下员工使用，员工如有发生异常，想通过注册表里禁用实现让该员工所使用的电脑打不开狐表项目，思路是这样，只是不知道程序代码如何写，想让各位大师帮忙出出主意？
-- 发布时间：2013/4/15 20:18:00
--
这样行不行，你在计划管理里设计代码，每隔一段时间检查一次数据库，通过全局代码里的登录名，两者查询作比较，如果不通过则关闭项目。
-- 发布时间：2013/4/16 15:29:00
--
Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
Dim dr As DataRow= DataTables("注册表").Find("注册码= \'code\'")
If Code > "" AndAlso DecryptText(Code,"cba","cba") = ComputerId Then \'如果注册码正确
OK = True
If dr("禁用") = True AndAlso user.name <> "开发者" Then
Messagebox.Show("您正在使用的产品已被开发者关闭,请与开发者联系!")
Syscmd.Project.Exit()
End If
Else
If n > 1 Then
Messagebox.Show("请马上注册!")
Forms("注册表").Open()
Code = GetConfigValue("Register" & ComputerId,"")
If Code > "" AndAlso DecryptText(Code,"cba","cba") = ComputerId Then \'如果注册码正确
OK = True
End If
End If
If n > 2 AndAlso Ok = False AndAlso user.name <> "开发者" Then
Messagebox.Show("您正在使用的产品已经超出试用次数!")
Syscmd.Project.Exit()
End If
End If
n = n + 1
SaveConfigValue("Count",n)
系统提示错误如下：
system.nullreferenceException:未将对象引用设置到对象的实例，那程序要如何修改？
-- 发布时间：2013/4/16 15:34:00
--
你dr是空值吧.并没有找到注册码=\'Code\' 的行.所以造成后面对DR的操作报错..可以加个判断如果Dr不是空再执行对应操作.
-- 发布时间：2013/4/16 15:43:00
--
测试通过，多谢几位大师指点。