主页插件的配置

张兴康

根据客户要求，希望在首页桌面上添加一个查看所有科室上传的最新文件模块

如上图所示

具体代码如下：

表格标题：

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_主页插件管理
    
17. 
    
18. union all
    
19. 
    
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
   
10. 
    
11. if flag = "1" then
    
12. 
    
13. '打开智能窗体，窗体位置： 株洲二医院\主页插件\*主页插件查看*
    
14. form1 = 创建窗体("972005c9-17b6-47d7-bac6-5ee2bc5f7f99")
    
15. form1.Input1="查看"
    
16. form1.Input2=this.Input1
    
17. form1.Show()
    
18. end if

复制代码

张兴康

注意：在编辑sql代码时，下图中框起来的地方尽量不要用"[]"来表示

王爱东

有时候直接用[] 显示就会有问题，要用【】才行。

万望

王爱东 发表于 2015-11-12 17:48
有时候直接用[] 显示就会有问题，要用【】才行。

用[]平台解析了吧

陈晓龙

好好，有用！

张军勇

可以再说详细点。