Access爱好者--
所属分类: 系统安全 作者: 共享 更新日期:2003-11-13 10:53:18 阅读次数:279

限制软件30天试用


Dim ReValue As Date '声明时间变量
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 & "天试用期!"


End If


--------------------------------------------------------------------------------
相关文章

数据库设计中的敏捷方法 2004-2-9 11:19:16
两个未公开的ACCESS方法的使用技巧 2003-12-30 14:59:33
对注册表操作技巧-将程序在开机时运行 2003-11-18 9:24:59
限制软件试用次数及时间 2003-11-13 10:54:17
ACCESS的数据库安全问题解答 2003-11-13 10:52:11
程序打开速度缓慢 2003-10-14 8:29:22
如何强制 Access 显示四位数年份的日期 2003-10-10 10:34:21
Access启动命令行选项大全 2003-10-10 10:02:00


系统优化
控件使用
数据库设计
数据库连接
系统安全
OLE自动化
常见问题
实用代码
属性详解
网络相关
实用API
经验分享
精选教程
字符处理
ADP相关



文章搜索



制作维护:李寻欢     Mail:[email protected]

关于本站 -- 网站服务 -- 版权条款 -- 联系方法 -- 网站帮助
Access爱好者版权所有 Copyright 2003-2005 All Rights Reserved 未经许可不得盗链