Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

彻底隐藏所有的基本表包括链接表及系统表函数(2010-9-5上传示例)

时 间:2008-06-09 16:23:05
作 者:zealwoo   ID:2173  城市:青浦
摘 要:彻底隐藏所有的基本表包括链接表及系统表函数
正 文:

因为系统的安全着想,所以想彻底隐藏所有的重要的表.之前在网上看到相关的文章,一种方法是将表的名称前面加一个前缀"USYS",将用户自己的表变成系统表,以起到隐藏的目的.但是,如果有心人将工具菜单的选项中的系统对象勾选,则还是会被显示出来.

另外一种方法是用代码隐藏表.在网上看到例子,只是我实际运行时,发现不能隐藏链接表.

以下这段代码可以隐藏系统中所有的表和链接表.而且不能通过一般办法使其恢复显示.如果要恢复,只需要将下段代码改改就行.

这段代码在执行时我将系统表排除在外了,如果不排除系统表的话,则会连系统表一起给隐藏掉了.

 

Function chediyincangbiao()     '彻底隐蔽所有的表格包括链接表及系统表等

On Error GoTo Err_Command0_Click
Dim db As Database
Dim i As Integer
    Set db = DBEngine.Workspaces(0).Databases(0)
   
    db.TableDefs.Refresh
    For i = 0 To db.TableDefs.Count - 1
    '此项操作应避开系统表,以免将系统表属性改而造成问题.
      If db.TableDefs(i).name = "msysaccessobjects" or db.TableDefs(i).name = "MSYSACCESSXML" _
      or db.TableDefs(i).name = "MSYSACES" or db.TableDefs(i).name = "MSYSOBJECTS" _
      or db.TableDefs(i).name = "MSYSQUERIES" or db.TableDefs(i).name = "MSYSRELATIONSHIPS" Then
     
    Else
       CurrentDb.TableDefs(db.TableDefs(i).name).Attributes = 1
    End If
    Next i
    Set db = Nothing
MsgBox "当前数据库中的所有表格都已被隐藏."

Exit_Command0_Click:
    Exit Function

Err_Command0_Click:
    MsgBox Err.Description
    Resume Exit_Command0_Click

End Function

 

'============================

于2010-9-5更新,点击下载此附件

新上传了示例.有兴趣的老师可以研究下看看如何显示出所有表哦.

另外,需要提醒一下,这个程序在ACCESS2007上需要做些修改,因为在2007下的系统表比2003多出许多,注意需要避开系统表,因为更改了系统表可就不好玩了.^_^

 



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助