Office中国论坛/Access中国论坛

标题: 请问各位大侠，如何做一个ACCESS的试用版？ [打印本页]

作者: BENDIY 时间: 2002-8-7 00:31
标题: 请问各位大侠，如何做一个ACCESS的试用版？
如当一个窗体打开超过50次时，系统会自动关闭。并能否限制对数据库的复制？

作者: HG 时间: 2002-8-7 02:13
ACCESS試用版,我的作法就是提供部分功能,而關鍵部分,只有正版方提供.
用戶被迫升級.

作者: ququ 时间: 2004-3-19 16:19
限制数据库的试用天数

通过读取文件的各日期，防止修改系统时间来避开试用期的程序。
同时也能一定限度的防止通过备份文件的方式来避开试用期。
未做严格测试：
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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)