Foxtable(狐表) → 用户栏目 → 专家坐堂 → 菜单按钮和对应的窗口不一致


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

主题：菜单按钮和对应的窗口不一致
美女呀，离线，留言给我吧！
susu312
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：997 积分：6752 威望：0 精华：0 注册：2018/6/8 16:17:00 		菜单按钮和对应的窗口不一致  发帖心情 Post By：2018/9/12 22:42:00 [只看该作者]


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

 

老师，我首页对应的不是上面的窗口，但是每次打开是这个窗口

 

我只有点一下单位管理，然后再点到首页，首页对应的窗口才正确了，
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

去编写菜单的SelectTab事件。

 回到顶部
美女呀，离线，留言给我吧！
susu312
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：997 积分：6752 威望：0 精华：0 注册：2018/6/8 16:17:00 		  发帖心情 Post By：2018/9/12 22:59:00 [只看该作者]

以下是引用有点甜在2018/9/12 22:52:00的发言：
去编写菜单的SelectTab事件。

Select Case e.Sender.Name
    Case "首页"
        Forms("首页").open()
        MainTable = Tables("person")
    Case "单位管理"
        Forms("单位管理").open()
        MainTable = Tables("organList")
   Case "部门管理"
        Forms("部门管理").open()
        MainTable = Tables("depList")
    Case "人员管理"
        Forms("人员管理窗口").open()
        MainTable = Tables("person")
    Case "查询统计"
        Forms("统计查询主窗口").open()
        MainTable = Tables("person")
    Case "历史库管理"
            MainTable = Tables("history")
            Forms("历史库管理窗口").open()
    Case "用户管理"
        Forms("用户管理主窗口").open()
        MainTable = Tables("user")

 End Select

 

代码是这样的 ，本来首页应该是红色代码的窗口，但是有时候打开是绿色代码窗口？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

代码没问题。是不是你打开项目的时候，默然就是打开了绿色的窗口导致的？
 回到顶部
美女呀，离线，留言给我吧！
susu312
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：997 积分：6752 威望：0 精华：0 注册：2018/6/8 16:17:00 		  发帖心情 Post By：2018/9/13 10:42:00 [只看该作者]

以下是引用有点甜在2018/9/12 23:05:00的发言：

代码没问题。是不是你打开项目的时候，默然就是打开了绿色的窗口导致的？

没有啊，在哪里设置默认窗口了，我这里没有设置默认窗口


此主题相关图片如下：1.png
按此在新窗口浏览图片

而且操作员进来应该看不到用户管理的，现在也能看到

 

 

这是登录窗口，确定后的代码：

If e.Form.Controls("userPassword").Value = dr("userPassword") Then
    _UserName = UserName
    _UserOrgan = dr("OrganName")
    _UserRole = dr("userRole")
  
    ''权限控制
    If _UserRole ="超级管理员" Then
    DataTables("person").LoadFilter = ""
    DataTables("organList").LoadFilter = ""
    DataTables("history").LoadFilter = ""
    DataTables("user").LoadFilter = ""
    For Each t As Table In Tables
        t.AllowEdit = False
    Next

    RibbonTabs("单位管理").Groups("").Visible=False
    RibbonTabs("部门管理").Groups("").Visible=False
    RibbonTabs("人员管理").Groups("").Visible=False
    RibbonTabs("历史库管理").Groups("").Visible=False
    RibbonTabs("用户管理").visible = True
    RibbonTabs("用户管理").Groups("").Visible=False

    ElseIf _UserRole ="管理员" Then
 
    Dim dt1 As DataTable = DataTables("organList")
    Dim Filter As String
    For Each dr1 As DataRow In dt1.Select("[organName] = '" & _UserOrgan & "'")
       If Filter > "" Then
        Filter = Filter & " or "
       End If
    Filter=Filter & "organName = '" & dr1("organName") & "'"
    Dim f2 As String = Functions.Execute("AddFilter",dr1("organName"),dt1)
    If f2 > "" Then
        If Filter > "" Then
            Filter = Filter & " or "
        End If
        Filter=Filter & f2
    End If
   Next
   DataTables("organList").LoadFilter = Filter
   DataTables("person").LoadFilter = Filter
   DataTables("history").LoadFilter = Filter
   DataTables("user").LoadFilter =  Filter

   For Each t As Table In Tables
        t.AllowEdit = False
   Next

    RibbonTabs("单位管理").Groups("").Visible=True
    RibbonTabs("部门管理").Groups("").Visible=True
    RibbonTabs("人员管理").Groups("").Visible=False
    RibbonTabs("历史库管理").Groups("").Visible=False
    RibbonTabs("用户管理").visible = True
    RibbonTabs("用户管理").Groups("").Visible=True

 
    ElseIf _UserRole ="操作员" Then
    DataTables("person").LoadFilter = "organName = '" & _UserOrgan & "'"
    DataTables("organList").LoadFilter = "organName = '" & _UserOrgan & "'"
    DataTables("history").LoadFilter = "organName= '" & _UserOrgan & "'"
    DataTables("user").LoadFilter = "organName = '" & _UserOrgan & "'"
    For Each t As Table In Tables
        t.AllowEdit = True
    Next
'
    RibbonTabs("单位管理").Groups("").Visible=False
    RibbonTabs("部门管理").Groups("").Visible=False
    RibbonTabs("人员管理").Groups("").Visible=True
    RibbonTabs("历史库管理").Groups("").Visible=True
    RibbonTabs("用户管理").visible = False


   Else
      Messagebox.show("当前用户角色为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
   End If

   DataTables("person").Load()
   DataTables("organList").Load()
   DataTables("history").Load()
   DataTables("user").Load()
 
   e.Form.BaseForm.Opacity = 0
   e.Form.Close
   Forms("首页").Open
   basemainform.visible = True
   ConfigBar.Items("标签1").Text=Date.Today & "  " & _UserOrgan & " " & _UserRole & "  " &  _UserName
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

[此贴子已经被作者于2018/9/13 10:44:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

做什么操作的时候导致的窗体不一致？出错的实例发上来测试。

 回到顶部
美女呀，离线，留言给我吧！
susu312
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：997 积分：6752 威望：0 精华：0 注册：2018/6/8 16:17:00 		  发帖心情 Post By：2018/9/13 10:56:00 [只看该作者]

以下是引用有点甜在2018/9/13 10:47:00的发言：
做什么操作的时候导致的窗体不一致？出错的实例发上来测试。

点注销再登录时，实例有数据库，可能看不上

 

注销代码：

 

basemainform.visible = False
Forms("用户登录").Open()
RibbonTabs.SelectedTab = RibbonTabs("首页")
Forms("单位管理").Close
Forms("单位管理").Open
Forms("部门管理").Close
Forms("部门管理").Open
Forms("用户管理主窗口").Close
Forms("用户管理主窗口").Open
Forms("人员管理窗口").Close
Forms("人员管理窗口").Open
Forms("历史库管理窗口").Close
Forms("历史库管理窗口").Open

[此贴子已经被作者于2018/9/13 10:56:40编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

那你修改7楼的代码啊。把首页窗口打开啊。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06006 秒, 4 次数据查询