度量快速开发平台-专业、快速的软件定制快开平台

标题: 选人,选部门,调用邮件那个选人窗体使用方法 [打印本页]

作者: 王爱东    时间: 2020-6-23 15:37
标题: 选人,选部门,调用邮件那个选人窗体使用方法

我们知道,发送邮件选择人时候,弹出了一个人员选择窗体,该窗体操作方便。我们很多业务需要用到自定义的选人功能时候,就可以直接调用这个窗体。
方法如下:



'第一个参数指示是否显示工作组,第二个参数为false时为只选择人员的模式,不能人员外的上级,为true时表示可以选择所有类型。
dim  form=LoadAssembly("FWFramework.Client.BaseControls.dll","FWFramework.Client.BaseControls.Persions.SelectStaffForm",true,true)
form.ShowDialog()

'获取所选中的组织机构
dim orgs=form.SelectOrganizations
dim str=""
for each org in orgs
        str="组织机构信息:"+newline()
        str=str+"ID:"&org.ID+newline()
        str=str+"名称:"&org.Name+newline()
        str=str+"别名:"&org.Alias+newline()
        str=str+"Type:"&org.Type+newline()
        str=str+"上级ID:"&org.UpperId+newline()
       
        msgbox(str)       
next

'获取选中的组织机构下的所有人员,注意获取的人员没有部门岗位信息。
dim staffs=form.SelectedStaffs
str=""
for each si in staffs
        str="组织机构信息:"+newline()
        str=str+"ID:"&si.ID+newline()
        str=str+"名称:"&si.UserName+newline()
        str=str+"Type:"&si.Type+newline()
        str=str+"上级ID:"&si.UpperId+newline()
        msgbox(str)       
next




作者: 万望    时间: 2020-6-23 23:01
还能这么写啊?
作者: 万望    时间: 2020-6-23 23:06
又学到了一点不错,收藏
作者: 万望    时间: 2020-6-23 23:07

作者: 万望    时间: 2020-6-29 22:45

作者: 万望    时间: 2020-6-29 22:47

作者: 万望    时间: 2020-6-29 22:49

作者: 万望    时间: 2020-6-29 22:52

作者: 万望    时间: 2020-6-30 17:08





欢迎光临 度量快速开发平台-专业、快速的软件定制快开平台 (http://bbs.delit.cn/) Powered by Discuz! X3.2