VFP 学习、开发漫谈（27）- 权限管理

最新推荐文章于 2024-10-19 15:50:20 发布

原创

最新推荐文章于 2024-10-19 15:50:20 发布 · 770 阅读

0 ·

CC 4.0 BY-SA版权

本文详细介绍了在VFP中实现权限管理的方法，包括用户角色设定、权限分配及代码实现，揭示了如何在VFP环境中创建安全、可控的程序运行环境。

程序代码：

* 权限检查-------------------------------------------------------------------
FUNCTION CheckRight(tcModule)            && cModule（模块名）
    LOCAL nSelect,cRight,nMid,lFlag
    nSelect = SELECT()
    cRight = '无'
    * 找到模块 tcModule 对应的模块号 nMid
    IF !USED('module')
        USE module SHARED IN 0
        lFlag = .t.
    ENDIF
    SELECT module
    LOCATE FOR ALLT(UPPER(Module)) == ALLT(UPPER(tcModule)) AND !DELETED()
    nMid = m_id
    IF lFlag
        USE IN module
    ENDIF
    * 先处理组权限
    lFlag = .f.
    IF !USED('right')
        USE right SHARED IN 0
        lFlag = .t.
    ENDIF
    SELECT right
    IF gnGroupId # 0
        LOCATE FOR user_id = gnGroupId AND user_type = 'G' AND m_id = nMid AND !DELETED()
        IF FOUND()
            cRight = right
        ENDIF
    ENDIF
    * 再处理用户权限
    LOCATE FOR user_id = gnUserId AND user_type = 'U' AND m_id = nMid AND !DELETED()
    IF FOUND()
        cRight = right
    ENDIF
    IF lFlag
        USE IN right
    ENDIF
    SELECT (nSelect)
    RETURN cRight
ENDFUNC