ACCESS的安全性设置.doc

ACCESS的安全性设置 应该说，ACCESS的安全性是很弱的，碰到高手一弄，精心作成的软作就完全毁掉了，当然，我是一只菜鸟，我研究ACCESS快十年了，全是用最蠢最笨的办法去解决这些问题，下面，我把我编写的系统的安全性进行一个说明，破解高手就不要来看了，是菜鸟的就来。 如果用ACCESS系统内置的必威体育官网网址办法进行安全管理，这是我刚学习ACCESS时使用的一种办法，破解办法很多人都会，这里我就不说怎么破解了。层次安全管理设置，那么多人、表、窗休进行设置，这是一项伟大的工程，而且效果并不乐观，经常出错把管理员搞得焦头烂额。然而，这一切并不是最重要的，最重要的是，用ACCESS写软件，最主要的就是多用户使用，如果把数据库放在软件中，会出现以下两个问题让人不得安宁。 当这个软件大小超过500M时，运时会出现错误或系统损坏，我相信很多人已经遇到这个问题了。 一旦软件密码被破解，所有的数据都完了，有些数据说不定是公司很重要的数据呢。 所以，对于不会编程的人来讲，想用ACCESS做一些管理系统，但对安全性又不放心，用别的软件编写系统，编程的水平要求又极高，更做不到，怎么办呢？ 因为我思考良久，又测试良久，终于，我决定用以下方法来配置ACCESS的安全性： 用SQL SERVER做为系统数据库并把它安装在公司的服务器上，当然，SQL SERVER的安全设置就比ACCESS高档得多。 在客户端电脑上用ODBC联上SQL SERVER的数据库。 在ACCESS中用链接的方式接上ODBC。 这样做的好处在于：A、当别人试图从你的ACCESS中导出数据失，ACCESS中根本就没用数据，所以就无法得到系统数据，当然更无法破坏了。那么，大家一定会想到，人家不用导出，直接打开系统破坏不就得了？ 所以，下面的方法就是怎样让他打不开系统的主界面（即设计界面）。 思路是当系统使用者打开系统的时候，只能看到操作界面，看不到设计界面，这样目的就基本达到了。 设定如下，相信很多人都会，如下图。 当系统运行时，直接打开“PRIMARY”窗体，并且关闭了设计菜单，这时，只要把这个窗体做一个简单设定，就可以让大家只在这个窗体上进行操作了，如下图（注意，此窗此没有关闭按钮，只有退出系统按钮，要不进入操作界面，要不就退出系统，光标右键已经锁定，没有右键快捷菜单）。 这就是主窗体：PRIMARY，下面讲解还会用到的。 这就是主窗体：PRIMARY，下面讲解还会用到的。 设计快捷菜单被控制以后，有人就会使用SHIFT键打开设计界面了，方法是，按住SHIFT键，光标双击档案就直接打开系统设计界面如下图，所在数据直接受到威胁。 这绝对是致命的，因此，下一步绝对是要控制住SHIFT键的使用才能放心，控制SHIFT键可以用程序控制（其实，大家只要按我的方法把下面程序复制过去就可以直接用了，不用会编程），方案如下： 如下图，增加一个叫“SYSTEMTOOLS”的模块，建立函数如右，其实就是关闭或开启SHIFT键和关闭或启动交谈窗对话方块。 Option Compare DatabaseFunction CloseBypassKey() Dim p Option Compare Database Function CloseBypassKey() Dim p On Error Resume Next Set p = CurrentDb.CreateProperty _ (AllowBypassKey, DB_BOOLEAN, False) CurrentDb.Properties.Append p CurrentDb.Properties(AllowBypassKey) = False End Function Function OpenBypassKey() Dim p On Error Resume Next Set p = CurrentDb.CreateProperty _ (AllowBypassKey, DB_BOOLEAN, True) CurrentDb.Properties.Append p CurrentDb.Properties(AllowBypassKey) = True End Function Function UpdateAppIconPath() Dim currPath, srcPath, iconPath iconPath = CurrentDb.Properties(AppIcon) srcPath = Left(iconPath, InStrRev(iconPath, \)) currPath