Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导航栏


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

主题：导航栏
帅哥哟，离线，有人找我吗？
lk15502
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		导航栏  发帖心情 Post By：2016/8/10 7:57:00 [只看该作者]

在导航栏的topiclinkclick事件中写了如下代码，能正常使用，是否有不合理地方，有些代码需要放到窗口得affterload事件中，还有点击任务后能否让其变色，让用户知道打开的窗口是对应哪个任务按钮，
Select Case e.link.text
    Case "入库管理1"
        MainTable = Tables("入库表")
        DataTables("入库表").loadfilter = ""
        DataTables("入库表").load()
        Forms("入库表").show
    Case "库存管理1"
        MainTable = Tables("库存表")
        DataTables("库存表").loadfilter = ""
        DataTables("库存表").load
        Forms("库存表").show
    Case "出库管理1"
        MainTable = Tables("出库表")
        DataTables("出库表").loadfilter = ""
        DataTables("出库表").load
        Forms("出库表").show
    Case "增加入库操作"
        If user.group = "成品仓库" OrElse user.Type = usertypeenum.developer  Then
            MainTable = Tables("入库表")
            DataTables("入库表").loadfilter = ""
            DataTables("入库表").load()
            Forms("增加入库操作").open()
        Else
            messagebox.show("您没有此操作权限","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
            Return
        End If
    Case "库存操作"
        If user.group = "成品仓库" OrElse user.Type = usertypeenum.developer  Then
            Forms("库存表回收").close
            MainTable = Tables("库存表")
            DataTables("库存表").load
            Forms("库存操作").open
        Else
            messagebox.show("您没有此操作权限","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
            Return
        End If
    Case "仓位图"
        Forms("仓位图").show
        MainTable = Tables("仓位图")
    Case "库存表回收"
        If user.group = "成品仓库" OrElse user.Type = usertypeenum.developer  Then
            MainTable = Tables("库存表")
            Forms("库存表回收").open
        Else
            messagebox.show("您没有此操作权限","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
            Return
        End If
    Case "查看回收站"
        MainTable = Tables("库存表回收站")
        Forms("回收站").open
        DataTables("库存表回收站").load
    Case "出库表物流操作"
        If user.group = "成品仓库" OrElse user.Type = usertypeenum.developer  Then
            MainTable = Tables("出库表")
            Forms("出库表物流操作").open
            DataTables("出库表").load
        Else
            messagebox.show("您没有此操作权限","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
            Return
        End If
    Case "日志查看"
        If user.group = "财务" OrElse user.Type = usertypeenum.developer  Then
            MainTable = Tables("数据操作日志")
            Forms("日志查看").open
            DataTables("数据操作日志").load
        Else
            messagebox.show("您没有此操作权限","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
            Return
        End If
    Case "财务统计1"
        If user.group = "财务" OrElse user.Type = usertypeenum.developer OrElse user.roles = "副总经理" OrElse user.roles = "总经理" OrElse user.Type = UserTypeEnum.Administrator Then
            MainTable = Tables("main")
            Forms("统计窗口").open
        Else
            messagebox.show("您没有此操作权限","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
            Return
        End If
    Case "财务统计2"
        If user.group = "财务" OrElse user.Type = usertypeenum.developer OrElse user.roles = "副总经理" OrElse user.roles = "总经理" OrElse user.Type = UserTypeEnum.Administrator Then
            MainTable = Tables("main")
            Forms("统计窗口2").open
        Else
            messagebox.show("您没有此操作权限","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
            Return
        End If
    Case "财务统计3"
        If user.Type = UserTypeEnum.Developer OrElse user.Type = UserTypeEnum.Administrator OrElse user.roles = "总经理" Then
            MainTable = Tables("库存表")
            DataTables("库存表").loadfilter = ""
            DataTables("库存表").load
            Forms("统计窗口3").open
        Else
            messagebox.show("您没有此操作权限","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
            Return
        End If
    Case "系统设置"
        If user.Type = UserTypeEnum.Developer OrElse user.Type = UserTypeEnum.Administrator Then
            MainTable = Tables("系统设置表")
            Forms("系统设置").open
        Else
            messagebox.show("您没有此操作权限","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
            Return
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2016/8/10 8:00:00 [只看该作者]

老师，Forms.open和forms.show有什么不同？

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


加好友 发短信
等级：二尾狐 帖子：572 积分：3771 威望：0 精华：0 注册：2014/5/8 13:41:00 		  发帖心情 Post By：2016/8/10 8:12:00 [只看该作者]

show 肯定显示， open 不一定

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/10 9:24:00 [只看该作者]

1、变颜色不可以。你可以单独用一个label显示，是点击了那个按钮

 

2、如果是模式窗口，你open或者show以后，必须等到这个窗口关闭，才会执行open后面的代码的。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 4 次数据查询