Foxtable(狐表)用户栏目专家坐堂 → 数据的自动流转之二 如何将用户更换为用户组进行操作呢?比如录入组 操作第一列 第二列 审核组 操作第三列 第四列 财务组 负责第五列 第六列


  共有2720人关注过本帖树形打印复制链接

主题:数据的自动流转之二 如何将用户更换为用户组进行操作呢?比如录入组 操作第一列 第二列 审核组 操作第三列 第四列 财务组 负责第五列 第六列

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
数据的自动流转之二 如何将用户更换为用户组进行操作呢?比如录入组 操作第一列 第二列 审核组 操作第三列 第四列 财务组 负责第五列 第六列  发帖心情 Post By:2014/7/23 23:49:00 [只看该作者]

数据的自动流转之二  如何将用户更换为用户组进行操作呢?比如录入组 操作第一列 第二列  审核组 操作第三列 第四列  财务组 负责第五列 第六列 

3、然后在项目事件LoadUserSetting中设置代码,加载由登录用户负责处理的行,并设置本流程开始标记:

'加载登录用户负责处理的行
Dim
Filter As String
Dim
bj As String
Select
Case User.Name     ’是否是直接将更换为user.Group
    Case
"张三"              ‘
        Filter =
"进度 Is Null Or 进度 = '1A'" '进度为空或进度一开始
       
bj = "1A"
   
Case "李四"            ’
 “录入组 ”
        Filter =
"进度 = '1B' Or 进度 = '2A'" '进度一结束或进度二开始
        bj =
"2A"
   
Case "王五"           ‘
 “审核组” 
        Filter =
"进 = '2B' Or 进度 = '3A'" '进度二结束或进度三开始
        bj =
"3A"
   
Case "赵六"           ’
 “财务组  ”
        Filter =
"进度 = '3B' Or 进度 = '4A'" '进度三结束或进度四开始
        bj =
"4A"
   
Case Else
        Filter = ""
'其他用户加载全部记录
End
Select



将窗口的AfterLoad事件代码设置为:

e.Form.Controls("第一列").Enabled = (User.Name = "张三")     是否是直接将更换为user.Group ="录入组")

e.Form.Controls("第二列").Enabled = (User.Name = "张三")       是否是直接将更换为user.Group ="录入组") 

e.Form.Controls("第三列").Enabled = (User.Name = "李四")     是否是直接将更换为user.Group ="审核组") 

e.Form.Controls("第四列").Enabled = (User.Name = "李四")       是否是直接将更换为user.Group ="审核组") 

e.Form.Controls("第五列").Enabled = (User.Name = "王五")       是否是直接将更换为user.Group ="财务组") 

e.Form.Controls("第六列").Enabled = (User.Name = "王五")       是否是直接将更换为user.Group ="财务组") 





 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(李孝春)数据的自动流转之二 如何将用户更换...  发帖心情 Post By:2014/7/24 0:10:00 [只看该作者]

经过测试 可以操作

上例子 保存  以备今后查询使用
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:按用户组来进行自动流转.zip



 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/7/24 8:32:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
G流星雨
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:136 积分:1361 威望:0 精华:0 注册:2017/2/25 22:34:00
  发帖心情 Post By:2018/3/21 11:16:00 [只看该作者]

如果按照部门分,是否可以做?代码如何改?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/3/21 12:34:00 [只看该作者]

以下是引用G流星雨在2018/3/21 11:16:00的发言:
如果按照部门分,是否可以做?代码如何改?

 

先看懂代码怎么做的,理解代码意思,再修改

 

http://www.foxtable.com/webhelp/scr/2274.htm

 


 回到顶部