access的安全性设置

《access的安全性设置》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、ACCESS的安全性设置应该说，ACCESS的安全性是很弱的，碰到高手一弄，精心作成的软作就完全毁掉了，当然，我是一只菜鸟，我研究ACCESS快十年了，全是用最蠢最笨的办法去解决这些问题，下面，我把我编写的系统的安全性进行一个说明，破解高手就不要来看了，是菜鸟的就来。一、如果用ACCESS系统内置的保密办法进行安全管理，这是我刚学习ACCESS时使用的一种办法，破解办法很多人都会，这里我就不说怎么破解了。层次安全管理设置，那么多人、表、窗休进行设置，这是一项伟大的工程，而且效果并不乐观，经常出错把管理员搞得焦头烂额。然而，这一切并不是最重要的，最重

2、要的是，用ACCESS写软件，最主要的就是多用户使用，如果把数据库放在软件中，会出现以下两个问题让人不得安宁。1、当这个软件大小超过500M时，运时会出现错误或系统损坏，我相信很多人已经遇到这个问题了。2、一旦软件密码被破解，所有的数据都完了，有些数据说不定是公司很重要的数据呢。所以，对于不会编程的人来讲，想用ACCESS做一些管理系统，但对安全性又不放心，用别的软件编写系统，编程的水平要求又极高，更做不到，怎么办呢？二、因为我思考良久，又测试良久，终于，我决定用以下方法来配置ACCESS的安全性：1、用SQLSERVER做为系统数据库并把它安装在

3、公司的服务器上，当然，SQLSERVER的安全设置就比ACCESS高档得多。2、在客户端电脑上用ODBC联上SQLSERVER的数据库。3、在ACCESS中用链接的方式接上ODBC。这样做的好处在于：A、当别人试图从你的ACCESS中导出数据失，ACCESS中根本就没用数据，所以就无法得到系统数据，当然更无法破坏了。那么，大家一定会想到，人家不用导出，直接打开系统破坏不就得了？所以，下面的方法就是怎样让他打不开系统的主界面（即设计界面）。三、思路是当系统使用者打开系统的时候，只能看到操作界面，看不到设计界面，这样目的就基本达到了。1、设定如下，相信

4、很多人都会，如下图。2、当系统运行时，直接打开“PRIMARY”窗体，并且关闭了设计菜单，这时，只要把这个窗体做一个简单设定，就可以让大家只在这个窗体上进行操作了，如下图（注意，此窗此没有关闭按钮，只有退出系统按钮，要不进入操作界面，要不就退出系统，光标右键已经锁定，没有右键快捷菜单）。这就是主窗体：PRIMARY，下面讲解还会用到的。一、设计快捷菜单被控制以后，有人就会使用SHIFT键打开设计界面了，方法是，按住SHIFT键，光标双击档案就直接打开系统设计界面如下图，所在数据直接受到威胁。这绝对是致命的，因此，下一步绝对是要控制住SHIFT键的使

5、用才能放心，控制SHIFT键可以用程序控制（其实，大家只要按我的方法把下面程序复制过去就可以直接用了，不用会编程），方案如下：1、如下图，增加一个叫“SYSTEMTOOLS”的模块，建立函数如右，其实就是关闭或开启SHIFT键和关闭或启动交谈窗对话方块。OptionCompareDatabaseFunctionCloseBypassKey()DimpOnErrorResumeNextSetp=CurrentDb.CreateProperty_("AllowBypassKey",DB_BOOLEAN,False)CurrentDb.Propertie

6、s.AppendpCurrentDb.Properties("AllowBypassKey")=FalseEndFunctionFunctionOpenBypassKey()DimpOnErrorResumeNextSetp=CurrentDb.CreateProperty_("AllowBypassKey",DB_BOOLEAN,True)CurrentDb.Properties.AppendpCurrentDb.Properties("AllowBypassKey")=TrueEndFunctionFunctionUpdateAppIconPa

7、th()DimcurrPath,srcPath,iconPathiconPath=CurrentDb.Properties("AppIcon")srcPath=Left(iconPath,InStrRev(iconPath,""))currPath=Left(CurrentDb.Name,InStrRev(CurrentDb.Name,""))IfcurrPath<>srcPathThensrcPath=Mid(iconPath,InStrRev(iconPath,"")+1)CurrentDb.Properties("AppIcon")=c

8、urrPath&srcPathApplication.RefreshTitleBarEndIfEndFunctionFun