| 重新启用SHIFT安全键 |
|
| 作者：huanghai… 文章来源：AccessQQ 点击数： 本日：{$DayHits} 更新时间：2004-11-23 17:23:36 |
|
' enablePassKey ("c:\db1.mdb")
' enablePassKey ("c:\db1.adp")
Public Function enablePassKey(ByVal strFileName As String) As Boolean
On Error Resume Next
Dim acc As Object
Set acc = CreateObject("access.Application")
acc.OpenCurrentDatabase strFileName
acc.CurrentProject.Properties.Add "AllowByPassKey", True
acc.Quit
If Err.Number = 0 Then enablePassKey = True
End Function
|
| 文章录入：huanghai 责任编辑：tm |
|
上一篇文章： 我的一个登陆程序
下一篇文章： 在Access Table中存储密码的安全性 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
