HOLD的权限

zhgc

HOLD的权限

1. SELECT *
   
2. FROM SFC.C_PRIVILEGE A, SFC.C_EMP_DESC_T B
   
3. WHERE B.EMP_BC = :sUser
   
4. AND B.EMP_NO = A.EMP
   
5. AND A.PRG_NAME = 'HOLD'

复制代码

          if FieldByName('FUN').AsString = 'HOLD_HAND_HOLD' then
          begin
                if FieldByName('PRIVILEGE').AsInteger = 2 then



          else if FieldByName('FUN').AsString = 'HOLD_QUERY' then
          begin
                if FieldByName('PRIVILEGE').AsInteger = 2 then begin
                   frmmain.tbtnlogquery.Enabled:=true;