表单控制增删改权限难不难，狐友看过这篇纷纷点赞

    PROCEDURE setupCA
        Text to This.SelectCmd noshow
        select MODULE,DESCRIPTION,ENABLED,ALLOWNEW,ALLOWDEL,ALLOWEDIT,ALLOWPRT,roleright.ID from roleright inner join  rights on roleright.right_id=rights.id
        where userid=?this.uid
        EndText
        Text to This.CursorSchema noshow
         MOdule  C(50) , DEscription C(50) , ENabled  L(1) , ALlownew L(1) , ALlowdel L(1) , ALlowedit L(1) , ALlowprt L(1) , ID   I(4) 
        EndText
        Text to This.UpdatableFieldList noshow
        ID,ENABLED,ALLOWNEW,ALLOWDEL,ALLOWEDIT,ALLOWPRT 
        EndText
        Text to This.UpdateNameList noshow
        MODULE roleright.MODULE,DESCRIPTION roleright.DESCRIPTION,ENABLED roleright.ENABLED,ALLOWNEW roleright.ALLOWNEW,ALLOWDEL roleright.ALLOWDEL,ALLOWEDIT roleright.ALLOWEDIT,ALLOWPRT roleright.ALLOWPRT,ID roleright.ID
        EndText
    ENDPROC

*-- 实现一个权限子类
Define Class Right_CGRKD As Qiyu_RightManager Of Locfile("Qiyu_RightManager.prg")   
    Userid=0  &&用户id
    Description=""   &&功能名称
    *-- DO开头为勾子方法(框架约定不得直接调用)
    *-- 取得实际权限 用于UI与BLL类，写入状态标志
    Procedure DoGetRightStatus
        Lparameters oUIBLL      
        Local lcSQLCmd
        TEXT TO lcSQLCmd NOSHOW TEXTMERGE PRETEXT 1+2
        select * from roleright  inner join Rights
        on RoleRight.right_id=Rights.id
        WHERE userid=<<this.userid>> and description='<<this.description>>'
        ENDTEXT
        If This.oDbSQLhelper.SQLQuery(lcSQLCmd,"RightStatus")>0
            oUIBLL.isadd=RightStatus.allownew
            oUIBLL.isedit=RightStatus.allowedit
            oUIBLL.isDel=RightStatus.AllowDel
            oUIBLL.isprint=RightStatus.allowprt
        Else
            oUIBLL.isadd=.F.
            oUIBLL.isedit=.F.
            oUIBLL.isDel=.F.
            oUIBLL.isprint=.F.
        Endif     
    Endproc
Enddefine

Thisform.oRight=Newobject("right_cgrkd","right_cgrkd.prg")
Thisform.oRight.Userid=1  &&假设是用户id=1登录
Thisform.oRight.Description="采购入库单"  &&取采购入库单权限
Thisform.oRight.SetRightStatus(This)

Thisform.oRight.SetRightStatus(Thisform) &&重新设置权限