［原创分享］判断对象是否存在和彻底隐藏表的２个函数

红尘如烟

'=========================================================================================
'-函数名称：         IsObjectInDb
'-功能描述：         判断数据库对象是否存在
'-输入参数：         参数1：ObjectType ——对象类型
'                    参数2：ObjectName ----对象名称
'-返回参数：         对象存在返回true,不存在返回false
'-使用示例：         IsObjectInDb(AcForm,"窗体1")
'-参考资料：
'-兼 容 性：         2000及以后版本
'-作    者：         红尘如烟
'-创建日期：         2008-07-05
'========================================================================================

游客，如果您要查看本帖隐藏内容请回复

'=========================================================================================
'-函数名称：        HiddenTable
'-功能描述：        通过对表名称加上前缀"~TMPCLP"来彻底隐藏表,这样即使通过工具-选项,选中
'                   显示系统对象和隐藏对象也看不到被隐藏的表
'                   隐藏后的表可以绑定到窗体或报表，可以在SQL语句中使用均无任何问题
'-输入参数：        参数1：TableName ——表名称
'                   参数2：Hidden ----true隐藏,false显示
'-返回参数：        表存在返回true,不存在返回false
'-使用示例：        HiddenTable "表1",True
'-参考资料：
'-兼 容 性：
'-使用注意：        隐藏后的表在SQL语句中调用时需要将表名加上方括号[]
'-作    者：        红尘如烟
'-创建日期：        2008-07-05
'========================================================================================

游客，如果您要查看本帖隐藏内容请回复

[ 本帖最后由 红尘如烟 于 2008-7-13 22:46 编辑 ]

huangqinyong

[:11] 谢谢分享

gaofei186

看看学习一下

tanhong

学习一下,谢谢分享!

goto2008

[:27]

xinle

谢谢分享!

kangking

谢谢分享!

ynjxw

see

df

TRYTT

ycxchen

学习学习！