Access技巧限制软件30天试用计算机二级考试

文章作者 100test 发表时间 2009:06:15 15:19:47
来源 100Test.Com百考试题网

　　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 &. "天试用期！"