主题：有关发布项目注册

开发的狐表项目虽然增加了注册要求，但同时希望即使注册成功后，在打开项目时，软件应自动与发布狐表项目里的“注册表”相核对，如果注册码相同且禁用一栏打钩的，就不能打开狐表，并提示“与开发者联系”字样，这个代码应该怎么写？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:上传狐表.zip

我们公司远程数据库服务器并不在本单位（是租用），想在狐表发布项目里弄个注册表（也采用外部数据源连接远程数据库服务器，并且该表只让开发者打开），这样项目发布给底下员工使用，员工如有发生异常，想通过注册表里禁用实现让该员工所使用的电脑打不开狐表项目，思路是这样，只是不知道程序代码如何写，想让各位大师帮忙出出主意？

这样行不行，你在计划管理里设计代码，每隔一段时间检查一次数据库，通过全局代码里的登录名，两者查询作比较，如果不通过则关闭项目。

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:未将对象引用设置到对象的实例，那程序要如何修改？

你dr是空值吧.并没有找到注册码='Code' 的行.所以造成后面对DR的操作报错..可以加个判断如果Dr不是空再执行对应操作.

测试通过，多谢几位大师指点。