| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 导航栏 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88809) |
| -- 作者：lk15502 -- 发布时间：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 -- 发布时间：2016/8/10 8:00:00 -- 老师，Forms.open和forms.show有什么不同？ |
| -- 作者：freeants -- 发布时间：2016/8/10 8:12:00 -- show 肯定显示， open 不一定 |
| -- 作者：大红袍 -- 发布时间：2016/8/10 9:24:00 -- 1、变颜色不可以。你可以单独用一个label显示，是点击了那个按钮
2、如果是模式窗口，你open或者show以后，必须等到这个窗口关闭，才会执行open后面的代码的。 |