| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 发布后程序注册 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150652) |
| -- 作者：禾成 -- 发布时间：2020/6/3 21:11:00 -- 发布后程序注册 在帮助文档里的软注册方法是通过记录使用次数限制，感觉好像很弱的样子， 能不能限制数据库的记录数来保护软件的版权呢？
|
| -- 作者：xndd -- 发布时间：2020/6/3 21:28:00 -- 可以。 每次运行程序的时候，读取每一张数据表的记录数，汇总然后看看是否超过你的限制，比如30000条记录，超过了的话，弹出提示并退出。
|
| -- 作者：有点蓝 -- 发布时间：2020/6/4 8:13:00 -- 获取记录数的方法：http://www.foxtable.com/webhelp/topics/0419.htm |
| -- 作者：禾成 -- 发布时间：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 End If [此贴子已经被作者于2020/6/5 9:13:54编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/6/5 10:02:00 -- 到BeforeAddDataRow事件判断 |
| -- 作者：禾成 -- 发布时间：2020/6/5 10:30:00 -- 之前我也试过了放到BeforeAddDataRow一点反应都没有 我用的是外部ACCESS数据库 有例子吗？给个看一下 [此贴子已经被作者于2020/6/5 10:30:48编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/6/5 10:39:00 -- if e.DataTable.datarows.count > 50 then e.Cancel = True Messagebox.Show("试用版只能输入50个记录!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) endif
|