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


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

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


加好友 发短信
等级：三尾狐 帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00 		[求助]等待时间一过，弹出登录窗口  发帖心情 Post By：2014/9/29 15:36:00 [显示全部帖子]

我的登录窗口用的是系统自带的logform.txt,还有我自己的一张图片。

比如项目3分钟不进行任何操作，自动弹出登录出口，需要重新输入密码才能操作项目。

这个我如何把登录窗口调出来？

是否在时间管理那款处理？
 回到顶部
帅哥哟，离线，有人找我吗？
liujywwy
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00 		  发帖心情 Post By：2014/9/29 15:57:00 [显示全部帖子]

If LastInputTickCount >  180000 Then
    Syscmd.Project.SwitchUser()
 End If

 

怎么一下子不停的弹登录窗口？不应该指弹出一个登录窗口就可以了么。难道有多少user.name就弹出多少？
 回到顶部
帅哥哟，离线，有人找我吗？
liujywwy
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00 		  发帖心情 Post By：2014/9/29 16:12:00 [显示全部帖子]

以下是引用有点甜在2014-9-29 16:01:00的发言：

改一下代码

 

static flag As Boolean = False
If flag = False AndAlso LastInputTickCount >  18000 Then
    flag = True
    Syscmd.Project.SwitchUser()
    flag = False
End If

你定义的这个静态flag，而且是boolean型。主要是用来判断什么的？

另外重新输入密码之后，怎么一下子把过滤掉的行也一并显示出来了？不应该是和弹出登录窗口的数据一致么。
 回到顶部
帅哥哟，离线，有人找我吗？
liujywwy
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00 		  发帖心情 Post By：2014/9/29 16:39:00 [显示全部帖子]

 1、加入判断只要是不让下面的代码重复执行；----已明白了

 

 2、重新登录以后，会触发LoadUserSetting事件的，你也可以用一个变量，设置一个标志，不让那个事件重复执行；

----既然会触发LoadUserSetting事件的。那应该按照设置的过滤条件来加载吧

比如Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound'  or 状态 is null"
Tables("需求主表").Filter = "审核通过 = False And  审核不通过 = False"
Tables("商务下单查询表").Filter = "状态 = 'Published'"

 3、或者你用另外一种方法去实现锁屏的功能 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=52203&replyID=343370&skin=1

----这里面有个问题是每个账户的密码都是不一致的，怎么可以固定为一个值呢，比如123456呢？

Dim pwd As String = e.Form.Controls("TextBox1").Text
If pwd <> "123456" Then
    msgbox("密码不正确,默认密码是123456")
    e.cancel = True
End If

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


加好友 发短信
等级：三尾狐 帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00 		  发帖心情 Post By：2014/9/29 17:41:00 [显示全部帖子]

static flag As Boolean = False
If flag = False AndAlso LastInputTickCount >  18000 Then
    flag = True
    Syscmd.Project.SwitchUser()
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'"
   
    flag = False
End If

我改为这样，发现加载需求明细表有问题。好像不受红色的代码的控制
 回到顶部
帅哥哟，离线，有人找我吗？
liujywwy
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00 		  发帖心情 Post By：2014/9/29 18:02:00 [显示全部帖子]

SystemIdle代码仍然如下，对吧。那我把loadusersetting的启动加载的代码放入到切换窗口Syscmd.Project.SwitchUser()后执行应该是对的吧。感觉像是重复触发了启动加载的代码。

static flag As Boolean = False
If flag = False AndAlso LastInputTickCount >  18000 Then
    flag = True
    Syscmd.Project.SwitchUser()
    flag = False
End If

 

你说改原来事件的代码，是指loadusersetting的代码？
 回到顶部
帅哥哟，离线，有人找我吗？
liujywwy
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用有点甜在2014-9-29 18:06:00的发言：

 这段写在LoadUserSetting

 

static flag As Boolean = False
If flag = False Then
    flag = True
    Tables("临时版本跟踪表").Filter = "状态 = 'Confirming' or 状态 = 'Bound'  or 状态 is null"
    Tables("需求主表").Filter = "审核通过 = False And  审核不通过 = False"
    Tables("商务下单查询表").Filter = "状态 = 'Published'"
End If

甜老师，上面是针对临时版本跟踪表，需求主表，商务下单查询表的filter。我还有一个需求明细表。

在loadusersetting里面还有一段是针对需求明细表加载的case代码。如下。那如何把需求明细表也能正确加载呢。


    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
 回到顶部
帅哥哟，离线，有人找我吗？
liujywwy
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00 		  发帖心情 Post By：2014/9/30 10:15:00 [显示全部帖子]

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

关键的啊

 

static flag As Boolean = False
If flag = False Then
    '里面写你原来的东西
End If

这个我试过了。需求明细表加载的数据有问题。把另外的一个人的记录也加载进来了。

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'"
End If
 回到顶部
帅哥哟，离线，有人找我吗？
liujywwy
 小大  9楼 | 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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
liujywwy
 小大  10楼 | 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
 回到顶部
总数 17 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询