Access限制软件30天试用
时间：2008-10-22 17:31 来源：本站原创 作者：佚名 阅读：次
Dim ReValue As Date '声明时间变量
Dim name As String '声明字符串变量，软件名称
Dim dd As Variant '声明数值变量，dd为日期差
Dim name As String '声明字符串变量，软件名称
Dim dd As Variant '声明数值变量，dd为日期差
name = "gggg" '给变量赋值软件名为gggg
ReValue = GetSetting(name, "MainKey", "DateValue", Date) '读取注册表软件名gggg的键值，如果没有则为当前日期
Me.Text1 = ReValue
dd = DateDiff("d", ReValue, Date) '计算日期差
Me.Text2 = dd
If dd = 0 Then '如果是第一天运行
SaveSetting name, "MainKey", "dateValue", Date '写注册表
End If
If dd > 30 Then
MsgBox "软件已过期"
Else
MsgBox "软件可以试用"
'DoCmd Quit
MsgBox "还剩下" & 30 - dd & "天试用期！"
(责任编辑：admin)
顶一下
(0)
0%
踩一下
(0)
0%
相关内容
- ·ACCESS丢失MDW,还能还原用户与用户组及
- ·【技巧】如何让Access更加安全
- ·Access数据库安全中常见问题汇总
- ·数据库的安全为什么要侧重于网络系统
- ·建立Access数据库的安全门
- ·如何能通过窗体访问表，但不能直接读取
- ·Access 2007 中的用户级安全
- ·如何用二进制方式编辑 MDB 使 ACCESS
- ·Access限制软件30天试用
- ·Access处理加了密码的MDB数据库文件
- ·EXE修改安全级别并启动ACCESS项目
- ·处理加了密码的MDB数据库文件
- ·Access如何解除VBAProject 的口令保护
- ·保护Access 2000数据库的安全
- ·Access数据库安全五招
- ·Access 数据库安全攻防策略
最新内容
推荐内容