Office中国论坛/Access中国论坛

标题: Access如果设了用户名的密码，为什么还是可以用shift啊 [打印本页]

作者: JingLing 时间: 2003-12-22 05:36
标题: Access如果设了用户名的密码，为什么还是可以用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键的程序如何恢复。或某些我有权限别人没有的权限如何控制，介绍一个给自己留后门的方式。很简单的.........带上启动参数！
如：快捷方式启动：
D:\PROGRA~1\MICROS~2\OFFICE\MSACCESS.EXE E:\wzj\acc\test.mdb/cmd "wzj"

窗体启动中
Private Sub FORM_Load()
mshift (False) '屏蔽shift键的函数
If Command = "wzj" Then mshift (True)　'取消屏蔽shift键的函数
End Sub

那么说。如果进去了access按shift好象没有什么意义呢？？？？？？

希望大家解答。

作者: JingLing 时间: 2003-12-22 05:37
有高手可以对这个问题解决吗？？？？？
谢了

作者: zenki 时间: 2003-12-23 20:40
请问如何把小写数转成中文大写？

作者: cbnuisve 时间: 2009-4-3 20:50

作者: yinghua05 时间: 2009-4-14 09:07
这样就不太安全了

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