V8系统中不同权限的用户有不同的图标功能

标签（空格分隔）： v8 权限

---

在V8系统中，如果有一个表格，一种用户可以删除记录，另一种用户则没有删除权限，那么这个删除的图标就不应该显示的。如图所示：

declare  px number(8);  py number(8);  seq number(6);  pnm varchar2(2000);  objprop1 clob;begin  seq := 1;  px := 0;  py := 0;  pnm := 'P201701010001';  delete from hb_tbs_pageEleForSl where fpageId = pnm;    objprop1:='    布局模式:[0];  数据表:[hii.dcm_tbs_upload(rowid=V:a_sql_equal,rowmtype=C:D)];  保存后刷新:[upLoadList2];  ';seq := seq+10;    insert into hbpageeleforsl (FPAGEID, FELEID, FELENME, FELENMC, FELECATBYSL, FPOSX, FPOSY, FWIDTH, FHEIGHT, FPROPERTY, FQRYURI, FVALFROM, FSAMESELECT, FIFNEEDLABEL, FSELECTVALCAT, FENABLEELES, FINVISIBLEELES, FOBJPROP) values (pnm, seq, 'upLoadList2', '附件列表', '任意表格',  -1,-1, -1, -1, 'FontSize=12;',  '*文档记录查询', '', '', 'Y', 'N', '', '文件编号;FDISEQ;SEQ;RID;', '布局模式:[1];空一行;分页显示:[每页行数=10,分页模式=客户端];按钮位置=100;  按钮:[下载(''{FDISEQ}''.length!=''0'')=下载文件(fdiseq_sql_equal=''{upLoadList2.当前行_FDISEQ}'',classname=fa-download)、删除(''{FDISEQ}''.length!=''0'' and ''{slvb-empNm_sql_equal-slve}''==''管理员'')=删除提示窗口(内嵌页面={宽900、高7000},classname=删除, winname=''您确定要删除该附件？'',a_sql_equal=''{upLoadList2.当前行_10}'')];删除提示窗口保存语句:~['||objprop1||']~;');

在表格的每行最后都有两个按钮：下载、删除。在按钮名后面的括号里就是显示的条件。字符串要用双引号。
{FDISEQ}表示查询的一个字段
{slvb-empNm_sql_equal-slve}是v8系统的变量（好像是用户名），可以在页面中查询到。如图所示：

_sql_equal表示传递参数
slve表明变量来自内存
fdiseq_sql_equal是下载页面的固定参数。下载文件是v8系统的固定文件
upLoadList2是表格名
classname=fa-download表示该功能的图标。
a_sql_equal a是自定义的变量，在objprop1中使用。
upLoadList2.当前行_10表示查询的一个字段，但是这里使用的是第十个字段（从1开始），其实就是FDISEQ。下附查询代码参考。
objprop1objprop1在代码开始出定义了。
hii.dcm_tbs_upload 数据库表名
rowid=V:a_sql_equal,rowmtype=C:D中 rowid 字段名，C表示字符串格式，D表示删除，此外还有I插入，U更新
参考http://200.100.100.4:8080/publicApp/devStart.m?sessionId=FIXEDgdzyxx 按钮控件

查询代码参考：

declare    id varchar2(60);    name varchar2(50);    direct varchar2(2);    cndxml varchar2(4000);    cndxsl clob;    theSQL varchar2(4000);    dispsql varchar2(4000);    param varchar2(400);    cfgxml varchar2(4000);    resulttype varchar2(8);    header varchar2(4000);    footer varchar2(4000);    bxml varchar2(8000);    bxsl varchar2(8000);    bsql clob;  bsql_pv varchar2(5000);    bsql_pt varchar2(5000);beginid := '文档记录查询';name := 'DFFS0400文档记录查询';direct := '1';cndxml := '<?xml version="1.0" encoding="GB2312"?><EprSelect></EprSelect>';cndxsl := '';theSQL := '';param := '';resulttype := 'ntable';header := '8;$page';footer := '1;经手人:;5;日期:';delete from query_vws_cnd where fid=id;insert into query_vws_cnd(fid,fname,fdirect,fcndxml,fcndxsl,fsql,fdispsql,fparam,fcfgxml,fresulttype,fheader,ffooter)values (id,name,direct,cndxml,cndxsl,NULL,dispsql,param,cfgxml,resulttype,header,footer);bsql := 'select t.fuploadUid   文件编号       ,t.ffiletype    资料类型       ,t.ffilename    资料名称       ,t.ffileDt      上传时间       ,upper(substr(a.FFILENM,INSTR(a.FFILENM,''.'',-1,1)+1,length(a.FFILENM))) 资料格式       ,trunc( dbms_lob.getlength( a.fcontent ) /1024,2  ) ||''KB''  大小          ,t.fopempnm     记录操作员名称       ,to_char(t.fopdt,''yyyy-mm-dd'') 记录操作时间       ,t.fremark      备注       ,r.fdiseqfrom dcm_tbs_upload t   inner join ib_tbs_TblDat r on   t.fuploaduid=r.fpkseq  inner join ib_tbs_detailedinf a on   r.fdiseq=a.fdiseqwhere (t.ffilename like ''%''||?||''%'' or ? is null)  and (    upper(substr(a.FFILENM,INSTR(a.FFILENM,''.'',-1,1)+1,length(a.FFILENM))) is null    or (upper(substr(a.FFILENM,INSTR(a.FFILENM,''.'',-1,1)+1,length(a.FFILENM))) like ''%''||?||''%'' or ? =''全部'' )and ? is not null  )  and (t.ffiletype= ? or ? =''全部'') order by t.fopdt desc;';bsql_pv := 'filename_sql_equal,filename_sql_equal,docmenttype_sql_equal,docmenttype_sql_equal,docmenttype_sql_equal,filetype_sql_equal,filetype_sql_equal;';bsql_pt := 'V,V,V,V,V,V,V;';delete query_tbs_dispfmt where fid = id and fband='DETAILS';insert into query_tbs_dispfmt(fid,fband,fsql,fParaValOfSql,fParaTypeOfSql,fxml,fxsl,fdispfmt)values (id,'DETAILS',bSQL,bsql_pv,bsql_pt,NULL,NULL,'RS');end;/commit;