关于权限的编程技巧

    '备选权限初始化
    Private Sub l1_init()
        '小区数据
        Me.l1_add("小区数据> 小区查看", 1010)
        Me.l1_add("小区数据> 小区管理", 1012)
        Me.l1_add("小区数据> 楼房数据管理", 1014)
        Me.l1_add("小区数据> 楼房情况查看", 1015)
        Me.l1_add("小区数据> 住户情况查看", 1016)
        Me.l1_add("小区数据> 住户数据管理", 1017)
        Me.l1_add("小区数据> 员工情况查看", 1021)
        Me.l1_add("小区数据> 员工数据管理", 1022)
        Me.l1_add("小区数据> 业委会数据管理", 1031)
        Me.l1_add("小区数据> 业委会查看", 1032)
        Me.l1_add("小区数据> 住户查寻", 1041)
        Me.l1_add("小区数据> 产权类别", 1051)
        Me.l1_add("小区数据> 房屋朝向", 1053)
        Me.l1_add("小区数据> 户型表", 1055)
        Me.l1_add("小区数据> 分公司名称管理", 1060)
        Me.l1_add("小区数据> 收费员管理", 1070)

 

        '服务管理
        Me.l1_add("服务管理> 保安数据查看", 2010)
        Me.l1_add("服务管理> 保安数据管理", 2011)
        Me.l1_add("服务管理> 公共设施检查记录查看", 2020)
        Me.l1_add("服务管理> 公共设施检查记录管理", 2021)
        Me.l1_add("服务管理> 绿化档案查看", 2030)
        Me.l1_add("服务管理> 绿化档案管理", 2031)
        Me.l1_add("服务管理> 绿化养护查看", 2040)
        Me.l1_add("服务管理> 绿化养护管理", 2041)
        Me.l1_add("服务管理> 小区日常维护查看", 2050)
        Me.l1_add("服务管理> 小区日常维护管理", 2051)

        '收费管理
        Me.l1_add("收费管理> 收费数据查寻", 3010)
        Me.l1_add("收费管理> 价格数据查看", 3020)
        Me.l1_add("收费管理> 价格数据管理", 3021)
        Me.l1_add("收费管理> 收费类别管理", 3030)
        Me.l1_add("收费管理> 欠费查寻", 3040)
        Me.l1_add("收费管理> 收费录入", 3050)
        Me.l1_add("收费管理> 收费数据管理", 3051)
        Me.l1_add("收费管理> 收费数据管理减免权限", 3052)

        '工程管理
        Me.l1_add("工程管理> 工程查看", 4010)
        Me.l1_add("工程管理> 工程数据管理", 4020)

        '成本核算
        Me.l1_add("成本核算> 费用核对", 5010)

        '文档管理
        Me.l1_add("文档管理> 文档类别管理", 6010)
        Me.l1_add("文档管理> 文件查看", 6020)
        Me.l1_add("文档管理> 文件管理", 6030)
        Me.l1_add("文档管理> 系统公告管理", 6040)

        '统计报表
        Me.l1_add("统计报表> 统计报表1", 8010)
        Me.l1_add("统计报表> 统计报表2", 8020)
        Me.l1_add("统计报表> 统计报表3", 8030)
        Me.l1_add("统计报表> 统计报表4", 8040)
        Me.l1_add("统计报表> 统计报表5", 8050)
        Me.l1_add("统计报表> 统计报表6", 8060)
        Me.l1_add("统计报表> 统计报表7", 8070)

        '系统管理
        Me.l1_add("系统管理> 系统用户管理", 7010)
        Me.l1_add("系统管理> 查看在线用户", 7020)
        Me.l1_add("系统管理> 系统日志管理", 7030)

    End Sub

转载于:https://www.cnblogs.com/zhangyd1080/archive/2006/11/15/561761.html