以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  权限管理及加密  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80897)

--  作者:kaituozhe
--  发布时间:2016/2/6 9:23:00
--  权限管理及加密
我的软件想通过以下方式限制用户使用:一是最多增加数据行数,比如不超过200行,二是限制使用次数;三是限制使用时间。这个方式怎么设置?
--  作者:大红袍
--  发布时间:2016/2/6 9:28:00
--  

限制增加数据行数,在beforeAddDataRow事件写代码

 

If e.DataTable.DataRows.Count >= 200 Then

    msgbox("不能再添加")

    e.Cancel = true

End If


--  作者:大红袍
--  发布时间:2016/2/6 9:30:00
--  

限制使用次数,参考

 

http://www.foxtable.com/help/topics/1545.htm

 

限制使用时间一样,记录下第一次打开的时间,对比现在的时间即可。


--  作者:kaituozhe
--  发布时间:2016/2/6 9:38:00
--  
这个时间和次数是不是换电脑又重新计算呀?能否把时间与次数保存在内部表或其他形式中,即使换了电脑也没有用。
--  作者:大红袍
--  发布时间:2016/2/6 9:44:00
--  
以下是引用kaituozhe在2016/2/6 9:38:00的发言:
这个时间和次数是不是换电脑又重新计算呀?能否把时间与次数保存在内部表或其他形式中,即使换了电脑也没有用。

 

呃,你要理解里面的代码啊。你只要记录count即可。

 

afterOpenProject事件

 

Dim n As Integer = GetConfigValue("Count",1)
If n > 3 Then
    msgbox("大于30次,不能再使用")
    Syscmd.Project.Exit(False)
End If
n = n + 1
SaveConfigValue("Count",n)


--  作者:大红袍
--  发布时间:2016/2/6 9:46:00
--  

数据是保存在项目里面的啊,只要是同一个文件就不能重复打开。跟你说的换不换电脑都无关


--  作者:kaituozhe
--  发布时间:2016/2/13 12:17:00
--  

自己开发的软件需要与另外共同使用,但是只能限于我允许的项目怎么,比如有ABC三个项目,我把开发的项目软件给客户使用时只能限于我所允许的项目,比如我只允许AB两个项目使用,录入C项目的数据时超过一定时间或次数就不能再使用。该怎么办?


--  作者:Hyphen
--  发布时间:2016/2/13 14:22:00
--  
一样的道理,在各自项目里做控制就可
--  作者:kaituozhe
--  发布时间:2016/2/14 12:10:00
--  
5楼的代码count参数保存那里,会通过其他方法把它重新变为零吗?
--  作者:Hyphen
--  发布时间:2016/2/14 14:01:00
--  
除非在同一个项目中用代码重新赋值