玉祥平台客服-15087858732

标题: 主页插件的配置 [打印本页]
作者: 张兴康    时间: 2020-4-12 17:40
标题: 主页插件的配置
根据客户要求，希望在首页桌面上添加一个查看所有科室上传的最新文件模块

如上图所示

具体代码如下：

表格标题：
  1. <img src="images\news.png" width="16" height="16" style="border: medium none">
  2. <a title="显示所有" style="color: #1f3978; text-decoration: none; font-size: 9pt")">科室动态</a>
复制代码
数据行的字符串：
  1. <td>·<a title="来自：{3}" href="javascript:CallFunction3('Open_科室动态','{0}','{5}','{7}');">{6}{4}{1}</a></td>
复制代码
sql语句：
  1. select id,itime,日期,作者,标题,科室,分类,类型 from (
  2. Select Id,
  3.        '<font color="#007000">(' || To_Char(日期, 'yyyy-mm-dd') ||
  4.        ')</font>' || Case
  5.          When trunc(sysdate) - trunc(日期) < 3 Then
  6.           '<font color="#FF0000"><b>new</b></font>'
  7.          Else
  8.           Null
  9.        End Itime,
  10.        日期,
  11.        作者,
  12.        case when length(标题)>28 then substr(标题,1,28)||'...' else 标题 end 标题,
  13.        科室,
  14.   '<font color="blue">【'||substr(科室,1,2)||分类||'】</font>' 分类,
  15.   '1' 类型
  16.   From zz_主页插件管理

  18. union all

  20. Select Id,
  21.        '<font color="#007000">(' || To_Char(日期, 'yyyy-mm-dd') ||
  22.        ')</font>' || Case
  23.          When trunc(sysdate) - trunc(日期) < 3 Then
  24.           '<font color="#FF0000"><b>new</b></font>'
  25.          Else
  26.           Null
  27.        End Itime,
  28.        日期,
  29.        作者,
  30.        case when length(标题)>28 then substr(标题,1,28)||'...' else 标题 end 标题,
  31.        '监审科' 科室,
  32.   '<font color="blue">【'||substr( '监审科' ,1,2)||分类||'】</font>' 分类,
  33.   '0' 类型
  34.   From zz_监审科主页
  35. ) where rownum<30  order by 日期 desc
复制代码
函数设置：
  1. dim flag=this.Input3
  2. dim form1
  3. if flag = "0" then
  4. '打开智能窗体，窗体位置： 株洲二医院\主页插件\*监审科主页查看*
  5. form1 = 创建窗体("384aee1c-49bb-4ce2-a66f-1802ad1f4e8d")
  6. form1.Input1="查看"
  7. form1.Input2=this.Input1
  8. form1.Show()
  9. end if

  11. if flag = "1" then

  13. '打开智能窗体，窗体位置： 株洲二医院\主页插件\*主页插件查看*
  14. form1 = 创建窗体("972005c9-17b6-47d7-bac6-5ee2bc5f7f99")
  15. form1.Input1="查看"
  16. form1.Input2=this.Input1
  17. form1.Show()
  18. end if
复制代码


作者: 张兴康    时间: 2020-4-12 17:42
注意：在编辑sql代码时，下图中框起来的地方尽量不要用"[]"来表示
作者: 王爱东    时间: 2020-4-12 17:48
有时候直接用[] 显示就会有问题，要用【】才行。
作者: 万望    时间: 2020-4-12 21:11
王爱东 发表于 2015-11-12 17:48
有时候直接用[] 显示就会有问题，要用【】才行。

用[]平台解析了吧
作者: 陈晓龙    时间: 2020-4-12 21:29
好好，有用！
作者: 张军勇    时间: 2020-4-13 10:53
可以再说详细点。



欢迎光临 玉祥平台客服-15087858732 (http://plat.delit.cn/) Powered by Discuz! X3.2