主页窗口无代码项目事件AfterOpenProject 内容
Forms("主页").Open()
MainTable = Tables("报价明细")
'自动打开主页定位主表
If User.name = "李萍(开发者)"
TableCaptionVisible = True
Else
TableCaptionVisible = False
End If
'表名可见权限
Select Case User.Group
Case "市场计划管理员","商务","业务负责人","李萍(开发者)","张志贤(管理员)","经理","商务审批","财务审批","出纳"
Forms("主页").Controls("计划皮窗口").TabPages(0).Visible = True
Case "操作员","调度","仓管员","财物","重柜业务员","外贸操作"
Forms("主页").Controls("计划皮窗口").TabPages(0).Visible = False
End Select
'报表明细可见授权
Select Case User.Group
Case "商务","李萍(开发者)","张志贤(管理员)","经理","财务审批","市场计划管理员","商务审批","出纳"
Forms("主页").Controls("导航主板").TabPages(4).Visible = True
Case "操作员","调度","仓管员","重柜业务员","外贸操作","业务负责人","后程管理"
Forms("主页").Controls("导航主板").TabPages(4).Visible = False
End Select
'商务页面可见授权
Tables("主页_派车需求与集港").OpenView("集港表视图")
Tables("主页_铁路辅料操作需求").OpenView("辅料视图")
Tables("主页_铁路淀粉操作需求").OpenView("淀粉视图")
Tables("产品发运通知单.费用预算明细表").OpenView("正常视图")
Tables("信风铁路辅料导入.操作派车需求").OpenView("辅料视图")
Tables("信风铁路淀粉导入.操作派车需求").OpenView("淀粉视图")
'固定视图界面
DataTables("操作派车需求").ReplaceFor("编辑者",Nothing,"编辑者 = '" & User.Name & "'")
DataTables("操作派车需求").Save()
'Tables("操作派车需求").Cols.Remove("编辑者")
With Tables("产品发运通知单")
.Cols("备注").OpenWindow()
End With
加好友 
发短信
Post By：2019/10/25 9:07:00 [只看该作者]
