delphi开发中的菜单及权限

来源:互联网 发布:linux添加权限 编辑:程序博客网 时间:2024/05/16 09:11

一添加权限

--材料收支信息添加权限


  insert into tModuleFunc(MKDM,GNMC)
  values('0508','基础收支信息')
  insert into tModuleFunc(MKDM,GNMC)
  values('0508','主材软装收支信息')
   go

   二操作员权限
--生成有材料收支信息模块权限的操作员权限
   insert into tCZYGNQX(CZYBH,MKDM,GNMC)
   select distinct CZYBH,MKDM,'基础收支信息' from tCZYQX
   where MKDM='0508'
   insert into tCZYGNQX(CZYBH,MKDM,GNMC)
   select distinct CZYBH,MKDM,'主材软装收支信息' from tCZYQX
   where MKDM='0508'
   GO

   三索引创建

CREATE INDEX index_name  ON table_name (column_name) 

DROP INDEX tReturnPay.iReturnPay_DocumentNo
go

CREATE INDEX iReturnPay_LastUpdate ON tReturnPay
(
       LastUpdate                     ASC
)
go

四with   encryption --加密

先加密:

create proc P_jiami
with   encryption --加密
as 
begin
select * from cc
end

--exec    sp_decrypt    'P_jiami'   --解密



0 0