悠悠 发表于：2008-03-02 08:55:25
在不使用密码的情况下如何禁止用户打开数据库?情况是这样的,我做了一个注册程序,在用户不注册的情况下不能打开数据库,但是,如果用户使用SHIFT键还是可以打开数据库的.如何做才能使用户在使用SHIFT的情况下也打不开数据库呢?
禁止用shift键
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropvalue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropvalue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropvalue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function
调用方法：
建一个窗体，在某一按钮的单击事件中写如下代码：
ChangeProperty "AllowBypassKey", 1, False 'false为禁止SHIFT键，TRUE为恢复
以上方法虽然可以禁用SHIFT键,但是还是有方法启用SHIFT键的.因此我的想法就是不让打开数据库,代码该怎么写呢?
除了禁止SHIFT键外,还可以在窗体加入权限或检测是否正常登陆来决定打开此窗体。这样即便别人通过工具还原SHIFT键也不能打开窗体
好的软件，源程序给别人，也够别人研究三五年的。还是朝这个方向努力吧。
我也有同样的问题, 好的软件，源程序给别人，也够别人研究三五年的。还是朝这个方向努力吧。 这是最高层次的方向. 但是也有低要求一点的嘛.有钱的当然开宝马去了,收入不是太高开个QQBN
我也有同样的问题, 好的软件，源程序给别人，也够别人研究三五年的。还是朝这个方向努力吧。 这是最高层次的方向. 但是也有低要求一点的嘛.有钱的当然开宝马去了,收入不是太高开个QQ也是正常的嘛. 我看大家做的很多数据库都有自己建的一个密码表,但是按住SHIFT进去一看那密码不是白费了吗? 所以我觉得这个问题还是值得大家研究一下的
密码可以加密的
总记录：7篇 页次：1/1 9 1 :
