深圳全飞鸿

标题: HOLD的权限 [打印本页]

作者: zhgc 时间: 2021-6-25 13:25
标题: HOLD的权限
HOLD的权限

SELECT *
FROM SFC.C_PRIVILEGE A, SFC.C_EMP_DESC_T B
WHERE B.EMP_BC = :sUser
AND B.EMP_NO = A.EMP
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;

欢迎光临深圳全飞鸿 (http://www.nagomes.com/disc/)