如何限制access数据库的试用天数

摘 要:通过读取文件的各日期，防止修改系统时间来避开试用期的程序。同时也能一定限度的防止通过备份文件的方式来避开试用期。
未做严格测试.

正 文:
Private Sub FORM_Load()
Dim dd As String
dd = CurrentProject.Path
If Right(dd, 1) <> "" Then dd = dd & ""
ShowFileAccessInfo dd & CurrentProject.Name
End Sub
Sub ShowFileAccessInfo(filespec)
Dim fs, f, s, aa, bb, cc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
aa = f.DateCreated ’建立日期
bb = f.DateLastAccessed’最后访问日期
cc = f.DateLastModified’最后更新日期
If aa > bb Then GoTo ww:
If aa > cc Then GoTo ww:
If bb > cc Then GoTo ww:
If cc > Date Then GoTo ww:
Exit Sub
ww:
MsgBox "请不要修改系统日期！": Quit
End Sub

以上就是如何限制access数据库的试用天数的全部内容，望能这篇如何限制access数据库的试用天数可以帮助您解决问题，能够解决大家的实际问题是谜爱阁生活网一直努力的方向和目标。