从文档中取出当前用户的岗位和职责

原创 2004年08月12日 14:33:00

格式是这个样子的:岗位--职责;岗位--职责......

岗位中可能含有几个职责,一个人可以分别有几个不同有岗位。

1、将这个人的岗位列在一个列表框中,选中一个职责,另一个列表框中自动显示其对应的职责。

 不知道server出了什么问题,寡不执行代理,害得我连最简单的一个代理都调不过去,耽误了近一个小时!!!!

视图名子写错了,取不到值,活该!!

现在数据可以读出来了。可却是这个样子的:

程序员--编写程序代码;程序员--对完成的软件进行测试;程序员--对销售出去的产品和用户协调实施;财务总监--管理公司资产账目;

下面要进行对字符串的操作,同时可能要定义数组。

first 读出的数据中,前面的岗位有可能重复。重复的只取一个就可以了。

second 指定了一个岗位,要能将其下属的所有职责列出来,有点难度:(

先做个备份:
Sub Initialize
 Dim s As New NotesSession
 Dim db As NotesDatabase
 Dim curdoc,doc As NotesDocument
 Dim view As NotesView
 Dim htm,office As String
 Dim job,offi As String
 Dim jobs As Variant
 Dim excute As String
 excute =  "@Unique("
 Set curdoc = s.DocumentContext
 Set db = s.GetDatabase("TEST","renshiguanli.nsf",False)
 Set view = db.GetView("gangweizhize")
 Set doc = view.GetFirstDocument
 
 While Not doc Is Nothing
  
  If doc.name(0) = curdoc.thisuser(0) Then
   htm = htm & "您的岗位:" & doc.jobname(0) & "[
]"
   Dim b As String
   Forall a In doc.alloffice
    htm = htm & a & "[
]"
    b =Strleft(a,"--")
    excute = excute + "'" + b + "':"
   End Forall
  Else
   
  End If
  Set doc = view.GetNextDocument(doc)
 Wend
 htm = htm & excute & "'')"
 excute = excute & "'')"
 jobs = Evaluate(excute,curdoc)
 Forall c In jobs
  htm = htm + c
 End Forall
 curdoc.HTMLbody = htm
End Sub

通过以上的代理,现在显示的是这个样子:

程序员--编写程序代码
程序员--对完成的软件进行测试
程序员--对销售出去的产品和用户协调实施
财务总监--管理公司资产账目
@Unique('程序员':'程序员':'程序员':'财务总监':'')
您的岗位有:
程序员财务总监
可以将重复的岗位分检出来了:)

-------------------------------------------------------

以上显示的内容可以在主页显示,后面对于每条“岗位--职责” 的记录都加上一个“新建”

的操作,打开任务表单,直接将岗位和职责带到表单里面去。其实这是一个自己给自己下任务

的过程。当然,要是领导下任务的话要进行选择。

 

以上功能都已实现!

以下是完成给出选择职责列表的代码:

1、点"选择",打开selectjob?openform,后面加上username,标识被下任务的对象

在selectjob?openform打开时执行以下代理,给出列表:

Sub Initialize
 Dim s As New NotesSession
 Dim db As NotesDatabase
 Dim curdoc,doc As NotesDocument
 Dim view As NotesView
 Dim htm,office As String
 Dim job,offi As String
 Dim jobs As Variant
 Dim excute As String
 excute =  "@Unique("
 Set curdoc = s.DocumentContext
 Set db = s.GetDatabase("TEST","renshiguanli.nsf",False)
 Set view = db.GetView("gangweizhize")
 Set doc = view.GetFirstDocument
 
 While Not doc Is Nothing  
  If doc.name(0) = curdoc.thisuser(0) Then
   htm = htm & curdoc.thisuser(0) & "的岗位职责列表:" & doc.jobname(0) & "[<br>]"
   Dim b,d As String
   If Not doc.alloffice(0)="" Then
    Forall a In doc.alloffice
     
     b =Strleft(a,"--")
     d =Strright(a,"--")
     htm = htm & {[<input type=radio name="selectjob" value="}
     htm = htm & {&job=}& b & {&office=} & d  &{">]}
     htm = htm & a & "[<br>]"
     excute = excute + "'" + b + "':"
    End Forall
   Else
    htm="此用户没有指定岗位及职责!"
   End If
  Else
   
  End If
  Set doc = view.GetNextDocument(doc)
 Wend
 If Not htm = "此用户没有指定岗位及职责!" Then
  excute = excute & "'')"
  jobs = Evaluate(excute,curdoc)
  'htm = htm & "[<br>]" & "您的岗位有:[<br>]"
  'Forall c In jobs
  ' htm = "[<br>]" & htm + c
  'End Forall
 End If
 curdoc.HTMLbody = htm
End Sub

和上面的一个代理差不多,只不过显示的不同。

通过选择某个记录,就可以将此记录的岗位和职责信息带到表单位中

软件项目开发中各岗位职责

岗位:项目经理   主要职责: 1、 计划: a) 项目范围、项目质量、项目时间、项目成本的确认。 b) 项目过程/活动的标准化、规范化。 c) 根据项目范围、质量...
  • JackieLiuLixi
  • JackieLiuLixi
  • 2014年07月25日 09:22
  • 9129

一个正规软件公司工作职责划分

项目经理工作职责 主要职责: 1、 计划: a)项目范围、项目质量、项目时间、项目成本的确认。 b)项目过程/活动的标准化、规范化。 c)根据项目范围、质量、时间与成本的综合因素的考虑,进行...
  • andycode
  • andycode
  • 2013年05月23日 14:37
  • 12806

互联网时代架构师的职责与思考

引言: 在当下的互联网时代,架构师是互联网行业的热点关键词,人云亦云者居多,那互联网架构师到底是做什么的,如何来评价互联网架构师的优劣呢?1. 架构师产生的历史渊源互联网应用脱胎于传统软件应用,伴随...
  • blueheart20
  • blueheart20
  • 2017年05月09日 00:00
  • 1882

Android开发岗位要求集锦

37游戏 任职要求: 学历:本科 1、熟悉Android开发平台的框架原理,熟悉Android应用开发流程; 2、熟悉系统启动流程、权限控制、内存管理等机制,精通至少一个Service模块的...
  • Ethan706
  • Ethan706
  • 2015年11月13日 21:34
  • 2058

软件开发岗位职责描述

软件开发岗位职责
  • wdeng2011
  • wdeng2011
  • 2017年05月24日 10:49
  • 1212

设计模式-职责链模式

定义:为解除请求的发送者和接受者之间耦合,而使多个对象都有机会处理这个请求,将这些对象连成一条链,并沿着这条链传递该请求,直到有一个对象处理它。 类图:      说明:Originator表示...
  • u012569119
  • u012569119
  • 2015年07月01日 10:53
  • 323

OAF学习笔记-12- 从系统获取ID值,查出Name,在页面显示

思路:通过调用系统函数,获取到系统的值,系统中只能存储ID ,所以根据ID在数据库中Name 在页面显示 (例OUID 和OU Name) 新建VO 将VO添加进AM之中 ...
  • u010598327
  • u010598327
  • 2015年08月26日 13:09
  • 378

软件项目经理岗位职责、职业要求、必备技能、素质要求描述

项目经理( Project Manager ) ,从职业角度,是指企业建立以项目经理责任制为核心,对项目实行质量、安全、进度、成本管理的责任保证体系和全面提高项目管理水平设立的重要管理岗位。项目经理是...
  • datamining2005
  • datamining2005
  • 2017年07月27日 10:18
  • 553

项目经理 VS 产品经理 (工作职责和要求)

产品经理工作职责和要求 1  产品经理工作职责图 2.1  市场调研与分析  1、市场调查;  2、分析竞争状况;  3、自身资源与满足用户需求的匹配程度(技术、市场资源、营...
  • tantexian
  • tantexian
  • 2015年03月11日 15:55
  • 6223

技术管理岗岗位职责总结

一 技术总监岗位职责 技术总监,CTO,又常称为技术官或首席技术官,是企业团体里的高阶主管职位之一,是企业内负责技术的最高负责人。 技术总监一般负责一个企业的技术管理体系的建设和维护,制定技术标准...
  • bcbobo21cn
  • bcbobo21cn
  • 2015年12月31日 23:21
  • 905
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:从文档中取出当前用户的岗位和职责
举报原因:
原因补充:

(最多只允许输入30个字)