Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]等待时间一过，弹出登录窗口


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

主题：[求助]等待时间一过，弹出登录窗口
帅哥哟，离线，有人找我吗？
liujywwy
 小大  21楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00 		  发帖心情 Post By：2014/9/30 10:37:00 [只看该作者]

以下是引用有点甜在2014-9-30 10:19:00的发言：
 代码没有问题啊，如果有问题，就是你的逻辑错了，你自己msgbox看一下条件，再对比一下你的数据。

我在代码里面增加了msgbox(DataTables("需求明细表").LoadFilter)

弹出框如下：从信息来看应该是只加载yexiaogang@bdcom.com.cn 的数据。     

 


图片点击可在新窗口打开查看此主题相关图片如下：yexiaogang.png
图片点击可在新窗口打开查看

等进去之后加载的数据也是对的。如下： 


图片点击可在新窗口打开查看此主题相关图片如下：第一次.png
图片点击可在新窗口打开查看

等再次出现登陆框，输入密码之后，加载的数据增加了biananmin@bdcom.com.cn 的数据了。

如附件 


图片点击可在新窗口打开查看此主题相关图片如下：第二次.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 贴出你LoadUserSetting 和 SystemIdle 的代码。

 回到顶部
帅哥哟，离线，有人找我吗？
liujywwy
 小大  23楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00 		  发帖心情 Post By：2014/9/30 10:48:00 [只看该作者]

以下是引用有点甜在2014-9-30 10:45:00的发言：
 贴出你LoadUserSetting 和 SystemIdle 的代码。

loadusersetting代码如下:

static flag As Boolean = False
If flag = False Then
    flag = True   
    Dim druser As DataRow = DataTables("技术支持信息表").SqlFind("name = '" & user.name & "'")
    If User.Name.Trim() = "liujiyong@bdcom.com.cn" Then
        DataTables("需求明细表").LoadFilter = ""
    Else
        Select Case user.Group
            Case  "录入"
                If druser.Isnull("新负责人邮箱") Then
                    DataTables("需求明细表").LoadFilter = "技术支持邮箱 = '" & User.Name.trim() & "'"
                Else
                    DataTables("需求明细表").LoadFilter = "技术支持邮箱 = '" & User.Name.trim() & "' or 技术支持邮箱 in ('" & druser("新负责人邮箱").Trim().Replace(",", "','") & "') "
                End If
            Case "审核"
                DataTables("需求明细表").LoadFilter = "流程 = '" & user.Group & "'"
        End Select
    End If  

    Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound'  or 状态 is null"
    Tables("需求主表").Filter = "审核通过 = False And  审核不通过 = False"
    Tables("商务下单查询表").Filter = "状态 = 'Published'"
msgbox(DataTables("需求明细表").LoadFilter)
End If
DataTables("需求明细表").Load()
DataTables("临时版本跟踪表").Load()
DataTables("需求主表").Load()
DataTables("商务下单查询表").Load()

With DataTables("技术支持信息表")
    .LoadTop = 34
    .LoadPage = 0
End With

With DataTables("需求明细表")
    .LoadTop = 30
    .LoadPage = 0
End With
DataTables("技术支持信息表").Load()
DataTables("需求明细表").Load()
If User.Name.Trim() = "liujiyong@bdcom.com.cn" Then
    DataTables("技术支持信息表").LoadFilter = ""
End If

If User.Name.Trim() = "xuyunjie@bdcom.com.cn" Then
    DataTables("技术支持信息表").LoadFilter = "[分组] = '产线'"
Else
    Select Case user.Group
        Case  "产线"
            DataTables("技术支持信息表").LoadFilter = "name = '" & User.Name.trim() & "'"
    End Select
End If
DataTables("技术支持信息表").Load()

If User.Name.Trim() = "mahuiying@bdcom.com.cn" Then
    DataTables("技术支持信息表").LoadFilter = "[分组] = '测试epon'"
Else
    Select Case user.Group
        Case  "测试epon"
            DataTables("技术支持信息表").LoadFilter = "name = '" & User.Name.trim() & "'"
    End Select
End If
DataTables("技术支持信息表").Load()

If User.Name.Trim() = "zoupingping@bdcom.com.cn" Then
    DataTables("技术支持信息表").LoadFilter = "[分组] = '测试switch'"
Else
    Select Case user.Group
        Case  "测试switch"
            DataTables("技术支持信息表").LoadFilter = "name = '" & User.Name.trim() & "'"
    End Select
End If
DataTables("技术支持信息表").Load()

If User.Name.Trim() = "chenhaitao@bdcom.com.cn" Then
    DataTables("技术支持信息表").LoadFilter = "[分组] = '测试router'"
Else
    Select Case user.Group
        Case  "测试router"
            DataTables("技术支持信息表").LoadFilter = "name = '" & User.Name.trim() & "'"
    End Select
End If
DataTables("技术支持信息表").Load()

If User.Name.Trim() = "jiangxiaogang@bdcom.com.cn" Then
    DataTables("技术支持信息表").LoadFilter = "[分组] = '链路组'"
Else
    Select Case user.Group
        Case  "链路组"
            DataTables("技术支持信息表").LoadFilter = "name = '" & User.Name.trim() & "'"
    End Select
End If
DataTables("技术支持信息表").Load()

If User.Name.Trim() = "fanghao@bdcom.com.cn" Then
    DataTables("技术支持信息表").LoadFilter = "[分组] = '网络组'"
Else
    Select Case user.Group
        Case  "网络组"
            DataTables("技术支持信息表").LoadFilter = "name = '" & User.Name.trim() & "'"
    End Select
End If
DataTables("技术支持信息表").Load()

If User.Name.Trim() = "liushuangyu@bdcom.com.cn" Then
    DataTables("技术支持信息表").LoadFilter = "[分组] = 'PTN应用组'"
Else
    Select Case user.Group
        Case  "PTN应用组"
            DataTables("技术支持信息表").LoadFilter = "name = '" & User.Name.trim() & "'"
    End Select
End If
DataTables("技术支持信息表").Load()

If User.Name.Trim() = "zhouyinghuan@bdcom.com.cn" Then
    DataTables("技术支持信息表").LoadFilter = "[分组] = 'R驱动组'"
Else
    Select Case user.Group
        Case  "R驱动组"
            DataTables("技术支持信息表").LoadFilter = "name = '" & User.Name.trim() & "'"
    End Select
End If
DataTables("技术支持信息表").Load()

If User.Name.Trim() = "sunxi@bdcom.com.cn" Then
    DataTables("技术支持信息表").LoadFilter = "[分组] = '协议一组'"
Else
    Select Case user.Group
        Case  "协议一组"
            DataTables("技术支持信息表").LoadFilter = "name = '" & User.Name.trim() & "'"
    End Select
End If
DataTables("技术支持信息表").Load()

If User.Name.Trim() = "liyishui@bdcom.com.cn" Then
    DataTables("技术支持信息表").LoadFilter = "[分组] = '协议二组'"
Else
    Select Case user.Group
        Case  "协议二组"
            DataTables("技术支持信息表").LoadFilter = "name = '" & User.Name.trim() & "'"
    End Select
End If
DataTables("技术支持信息表").Load()

If User.Name.Trim() = "xiejian@bdcom.com.cn" Then
    DataTables("技术支持信息表").LoadFilter = "[分组] = '交换组'"
Else
    Select Case user.Group
        Case  "交换组"
            DataTables("技术支持信息表").LoadFilter = "name = '" & User.Name.trim() & "'"
    End Select
End If
DataTables("技术支持信息表").Load()

If User.Name.Trim() = "dengkai@bdcom.com.cn" Then
    DataTables("技术支持信息表").LoadFilter = "[分组] = 'S驱动组'"
Else
    Select Case user.Group
        Case  "S驱动组"
            DataTables("技术支持信息表").LoadFilter = "name = '" & User.Name.trim() & "'"
    End Select
End If
DataTables("技术支持信息表").Load()

If User.Name.Trim() = "wangzhimin@bdcom.com.cn" Then
    DataTables("技术支持信息表").LoadFilter = "[分组] = 'EPON组'"
Else
    Select Case user.Group
        Case  "EPON组"
            DataTables("技术支持信息表").LoadFilter = "name = '" & User.Name.trim() & "'"
    End Select
End If
DataTables("技术支持信息表").Load()

If User.Name.Trim() = "wangjingfu@bdcom.com.cn" Then
    DataTables("技术支持信息表").LoadFilter = "[分组] = 'ONU组'"
Else
    Select Case user.Group
        Case  "ONU组"
            DataTables("技术支持信息表").LoadFilter = "name = '" & User.Name.trim() & "'"
    End Select
End If
DataTables("技术支持信息表").Load()

If User.Name.Trim() = "liuqiang@bdcom.com.cn" Then
    DataTables("技术支持信息表").LoadFilter = "[分组] = '网管组'"
Else
    Select Case user.Group
        Case  "网管组"
            DataTables("技术支持信息表").LoadFilter = "name = '" & User.Name.trim() & "'"
    End Select
End If
DataTables("技术支持信息表").Load()

 

If User.Name.Trim() = "zhouyinhe@bdcom.com.cn" Then
    DataTables("技术支持信息表").LoadFilter = "[分组] = '录入' or  [分组] = '审核'"
Else
    Select Case user.Group
        Case  "录入","审核"
            DataTables("技术支持信息表").LoadFilter = "name = '" & User.Name.trim() & "'"
    End Select
End If
DataTables("技术支持信息表").Load()

Tables("临时版本跟踪表").Sort = "需求编号 DESC"
Tables("需求明细表").Sort = "需求编号 DESC"
Tables("技术支持信息表").Sort = "Name"

If user.Group = "录入" Then
    RibbonTabs("博达临时版本数据管理").Groups("技术服务部").Items("售后审核管理").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("生产部").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("研发部").Enabled = False
End If

If user.Group = "审核" Then
    RibbonTabs("博达临时版本数据管理").Groups("生产部").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("研发部").Enabled = False
End If

If user.Group = "产线" Then
    RibbonTabs("博达临时版本数据管理").Groups("测试部").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("技术服务部").Items("售后审核管理").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("技术服务部").Items("需求明细录入").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("商务部").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("研发部").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("时间范围").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("时间范围").Items("Filter").Enabled = False
End If

If  user.Group = "配置管理"  Then
    RibbonTabs("博达临时版本数据管理").Groups("技术服务部").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("商务部").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("研发部").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("生产部").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("时间范围").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("时间范围").Items("Filter").Enabled = False
End If

If user.Group = "测试epon" Or user.Group = "测试switch" Or user.Group = "测试router"   Then
    RibbonTabs("博达临时版本数据管理").Groups("技术服务部").Items("售后审核管理").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("技术服务部").Items("需求明细录入").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("商务部").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("研发部").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("生产部").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("时间范围").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("时间范围").Items("Filter").Enabled = False
End If

If user.Group = "协议二组" Or user.Group = "协议一组" Or user.Group = "交换组" Or user.Group = "S驱动组" Or user.Group = "R驱动组" Or user.Group = "EPON组" Or user.Group = "ONU组" Or user.Group = "网管组" Or user.Group = "网络组" Or user.Group = "路由组" Or user.Group = "PTN应用组" Or user.Group = "链路组" Then
    RibbonTabs("博达临时版本数据管理").Groups("技术服务部").Items("售后审核管理").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("技术服务部").Items("需求明细录入").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("商务部").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("研发部").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("生产部").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("时间范围").Enabled = False
    RibbonTabs("博达临时版本数据管理").Groups("时间范围").Items("Filter").Enabled = False
End If

 

SystemIdle 如下:

static flag As Boolean = False
If flag = False AndAlso LastInputTickCount >  18000 Then
    flag = True
    Syscmd.Project.SwitchUser()
    flag = False
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 Loadusersetting，原本的全部的代码，都要写在判断里面啊

 

static flag As Boolean = False
If flag = False Then

    flag = True 

   

End If

[此贴子已经被作者于2014-9-30 10:51:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
liujywwy
 小大  25楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00 		  发帖心情 Post By：2014/9/30 11:10:00 [只看该作者]

以下是引用有点甜在2014-9-30 10:50:00的发言：

 Loadusersetting，原本的全部的代码，都要写在判断里面啊

 

static flag As Boolean = False
If flag = False Then

    flag = True 

   

End If

[此贴子已经被作者于2014-9-30 10:51:06编辑过]

哦。全部加进去，显示加载正确的数据。问题来了。再次点击刷新同步菜单，发现又增加了一条别人的记录。

 


图片点击可在新窗口打开查看此主题相关图片如下：第二次.png
图片点击可在新窗口打开查看

 

刷新同步按钮click代码如下:

DataTables("临时版本跟踪表").Load()
DataTables("需求主表").Load()
DataTables("商务下单查询表").Load()
Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound'  or 状态 is null"
Tables("需求主表").Filter = "审核通过 = False And  审核不通过 = False"
Tables("商务下单查询表").Filter = "状态 = 'Published'"
 Tables("临时版本跟踪表").Sort = "需求编号 DESC"
Tables("需求明细表").Sort = "需求编号 DESC"
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 msgbox看一下加载条件是什么

 回到顶部
帅哥哟，离线，有人找我吗？
liujywwy
 小大  27楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00 		  发帖心情 Post By：2014/9/30 11:22:00 [只看该作者]

以下是引用有点甜在2014-9-30 11:11:00的发言：
 msgbox看一下加载条件是什么


图片点击可在新窗口打开查看此主题相关图片如下：需求明细表.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/30 11:28:00 [只看该作者]

 例子发上来。

 回到顶部
帅哥哟，离线，有人找我吗？
liujywwy
 小大  29楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00 		  发帖心情 Post By：2014/9/30 11:35:00 [只看该作者]

以下是引用有点甜在2014-9-30 11:28:00的发言：
 例子发上来。

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:临时版本跟踪系统26.rar

开发者的密码你是知道的。

测试例子的账号yexiaogang@bdcom.com.cn，  密码:killerye
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 你在临时版本跟踪表的CurrentChanged事件加入了下面的代码，会动态加载对一个的表数据的

 

If e.Table.Current IsNot Nothing Then
    If DataTables("需求明细表").Find("需求编号 = '" & e.Table.Current("需求编号") & "'") Is Nothing Then
        DataTables("需求明细表").AppendLoad("需求编号 = '" & e.Table.Current("需求编号") & "'")
    End If
End If
 回到顶部
总数 35 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询