'权限检查
Function checkACL(ByVal s As String, ByVal b As Boolean) As Boolean

' 参数s  ,  要检查的权限的ID

'参数b   ,  当权限为False 时，是否显示“你没有权限操作”的警告对话框

'获得权限受限时候的SQL语句附加条件
Public Function getACLSQL(tblName As String, Optional strPre As String) As String

'tblName 表名，如ac
'strPre   SQL条件 如 and
'例子 getACLSQL("ac","and")