研发埠

标题: 如何禁止数据库窗口以及菜单栏中某些命令的显示？ [打印本页]

作者: 刘晓强 时间: 2013-7-11 14:55
标题: 如何禁止数据库窗口以及菜单栏中某些命令的显示？
我不愿意别人复制我的数据库或参考我的设计，所以我把它生成.mde文件，可是表和查询还有数据库窗口、备份数据库命令等都可见；如果建立一个快捷方式，以runtime方式打开数据库，上述就都看不见了，可是，很容易修改快捷方式的属性，去掉runtime的字样。用什么办法才能实现禁止一些对象显示呢？用宏或代码能实现吗？

作者: 淡写轻描 时间: 2013-7-11 15:07
我找到这个方法试了，挺好的，和runtime方式打开的一样。可是，如果按着shift键启动，就会出现数据库窗口和所有的菜单栏和工具栏！我又找到一个文章，说可以禁用shift键，可是不会调用，要调用只能在最先的时候调用，对吧？那么怎么调用呢？1．在Access数据库（MDB）中禁止Shift键的方法首先创建一个设置数据库属性的通用函数。Function ChangeProperty(strPropName AsString, varPropType As Variant, varPropvalue As Variant) As IntegerDim dbs As Object, prp As VariantConst conPropNotFoundError = 3270 &#39;没有找到属性的错误常量Set dbs = CurrentDb &#39;获取当前的数据库对象On Error GoTo Change_Err &#39;如果出错则转到错误处理dbs.Properties(strPropName) = varPropvalue&#39;如果找到属性,则设置属性的值为新的值ChangeProperty = True &#39;设置成功,设置函数值返回真Change_Bye:Exit FunctionChange_Err:If Err = conPropNotFoundError Then &#39; 如果错误是数据库没有这个属性Set prp = dbs.CreateProperty(strPropName, _varPropType, varPropvalue) &#39; 创建新的属性,并设置它的默认值dbs.Properties.Append prp &#39; 将新的属性对象绑定到数据库Resume Next &#39; 继续执行后面的代码ElseChangeProperty = False &#39; 如果是其它错误,则函数值返回假Resume Change_Bye &#39; 转到函数退出处理End IfEnd Function然后调用这个通用函数来设置“AllowBypassKey”属性值为False，代码如下。ChangeProperty &quot;AllowBypassKey&quot;,1, False&#39;False为禁止Shift键，True为恢复如果想允许使用Shift键，则同样设置ChangeProperty &quot;AllowBypassKey&quot;, 1, True就可以了。

欢迎光临研发埠 (http://bbs.yanfabu.com/)