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

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
热搜: 部件 流程 SQL
查看: 708|回复: 6

[分享] 闪烁提醒自定义窗体构建方法。

[复制链接]

197

主题

1307

帖子

3552

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
3552
发表于 2018-6-24 20:36:42 | 显示全部楼层 |阅读模式
度量快速开发平台中,在发送通知的时候,默认会给人闪烁提示小心并打开阅读。
如果我们自己构建的功能,也想实现选择不同的人,发送提示,选择的人就会闪烁提示,打开闪烁提示能够开打自己定义的窗体,那就能很好的实现自定义的消息提醒。


实现方式:

AAA.jpg
在发送消息功能中:


if 主页插件管理.DataTable.Rows.Count=0 then
   end
end if


'第一个参数指示是否显示工作组,第二个参数为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=""
dim iCount=0
for each si in staffs
   iCount=iCount+1
        '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)  
       '------------------------------------------------------------------------------------------------------
        '给指定的人发送消息闪烁提醒,并打开一个自定义的窗体。
        '参数1:人员ID串,示例: "20001,20002,20003"
                '参数2:通知标题。右下角冒泡的小界面的标题。
                '参数3:通知内容。右下角冒泡的小界面的内容。
                '参数4:点开打开的窗体ID
                '参数5: 向打开窗体传递的参数。
        SendCustomNotice(cstr(si.ID),主页插件管理.GetFocusedRowValue("分类"),主页插件管理.GetFocusedRowValue("标题"),"9f6f05e8360f455a9a813bcfaea5bf92",主页插件管理.GetFocusedRowValue("ID"))
        '-------------------------------------------------------------------------------------------------------
next
if iCount>0 then
   msgbox("向"&iCount&"人发送提醒成功!")
end if
效果:

选人:
BBB.jpg
提示:
CCC.jpg

弹出自定义窗体。
弹出窗体接收 SendCustomNotice 第五个参数方法:
dim info=me.GetParam("RELATION_INFO")
DDD.jpg

注意:本功能还没正式发布,在本发帖日之后会发布一个升级包支持该项功能。
回复

使用道具 举报

348

主题

3590

帖子

8843

积分

论坛元老

Rank: 8Rank: 8

积分
8843
发表于 2018-6-24 21:20:48 | 显示全部楼层
顶顶!d=====( ̄▽ ̄*)b
若現在就覺得失望無力,未來那麽遠妳該怎麽扛...
————————————————————————致自己
回复 支持 反对

使用道具 举报

348

主题

3590

帖子

8843

积分

论坛元老

Rank: 8Rank: 8

积分
8843
发表于 2018-6-24 21:23:03 | 显示全部楼层
若現在就覺得失望無力,未來那麽遠妳該怎麽扛...
————————————————————————致自己
回复 支持 反对

使用道具 举报

348

主题

3590

帖子

8843

积分

论坛元老

Rank: 8Rank: 8

积分
8843
发表于 2018-6-24 21:24:40 | 显示全部楼层
若現在就覺得失望無力,未來那麽遠妳該怎麽扛...
————————————————————————致自己
回复 支持 反对

使用道具 举报

348

主题

3590

帖子

8843

积分

论坛元老

Rank: 8Rank: 8

积分
8843
发表于 2018-6-24 21:28:13 | 显示全部楼层
这个功能构建的( ^_^ )不错
若現在就覺得失望無力,未來那麽遠妳該怎麽扛...
————————————————————————致自己
回复 支持 反对

使用道具 举报

348

主题

3590

帖子

8843

积分

论坛元老

Rank: 8Rank: 8

积分
8843
发表于 2018-6-25 20:33:29 | 显示全部楼层
再次回顾,意味深长啊
若現在就覺得失望無力,未來那麽遠妳該怎麽扛...
————————————————————————致自己
回复 支持 反对

使用道具 举报

348

主题

3590

帖子

8843

积分

论坛元老

Rank: 8Rank: 8

积分
8843
发表于 2018-7-11 13:29:40 | 显示全部楼层
感谢这么使用功能构建方案,
若現在就覺得失望無力,未來那麽遠妳該怎麽扛...
————————————————————————致自己
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|重庆度量科技  本站关键词:快速开发平台

GMT+8, 2018-9-22 19:57 , Processed in 0.356544 second(s), 34 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表