发布后程序注册 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 发布后程序注册

共有2161人关注过本帖树形打印复制链接主题：发布后程序注册

禾成

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：149 积分：1295 威望：0 精华：0 注册：2018/12/12 23:23:00

发布后程序注册 发帖心情

Post By：2020/6/3 21:11:00 [只看该作者]

在帮助文档里的软注册方法是通过记录使用次数限制，感觉好像很弱的样子，

能不能限制数据库的记录数来保护软件的版权呢？

xndd

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：517 积分：4325 威望：0 精华：0 注册：2014/11/26 15:23:00

Post By：2020/6/3 21:28:00 [只看该作者]

可以。

每次运行程序的时候，读取每一张数据表的记录数，汇总然后看看是否超过你的限制，比如30000条记录，超过了的话，弹出提示并退出。

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/6/4 8:13:00 [只看该作者]

获取记录数的方法：http://www.foxtable.com/webhelp/topics/0419.htm

禾成

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：149 积分：1295 威望：0 精华：0 注册：2018/12/12 23:23:00

Post By：2020/6/5 9:00:00 [只看该作者]

老师我是这样写的，但好像不起作用，请指教

报价主表DataRowAdded事件

Dim zls As Integer = DataTables("报价主表").DataRows.Count

Dim Code As String =Registry.GetValue("HKEY_CURRENT_USER\Software\cncgl","Register" & HardDiskID,"")

If Code > "" AndAlso DecryptText(Code,"123","123") = HardDiskID Then

Else

If zls > 50 Then

Messagebox.Show("试用版只能输入50个记录!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

[此贴子已经被作者于2020/6/5 9:13:54编辑过]

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/6/5 10:02:00 [只看该作者]

到BeforeAddDataRow事件判断

禾成

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：149 积分：1295 威望：0 精华：0 注册：2018/12/12 23:23:00

Post By：2020/6/5 10:30:00 [只看该作者]

之前我也试过了放到BeforeAddDataRow一点反应都没有

我用的是外部ACCESS数据库

有例子吗？给个看一下

[此贴子已经被作者于2020/6/5 10:30:48编辑过]

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/6/5 10:39:00 [只看该作者]

if e.DataTable.datarows.count > 50 then

e.Cancel = True

Messagebox.Show("试用版只能输入50个记录!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

endif

下一主题 >> << 上一主题

主题：发布后程序注册