BaseMainForm.Text = "生产管理系统"
'程序标题居左
BaseMainForm.visible = True
CType(BaseMainForm,C1Ribbon.C1RibbonForm).Ribbon.CaptionAlignment = 0
If User.Type <> UserTypeEnum.Developer
RibbonTabs("其他").Groups("OuterData1").Enabled = False
For Each tb As Table In Tables
tb.visible = False
Next
If Date.Today > "2019-03-01"
Syscmd.Project.Exit()
End If
End If
If User.Type = UserTypeEnum.Developer Or User.Type = UserTypeEnum.Administrator Then
RibbonTabs("统计分析").Groups("功能组5").Visible = True
End If
If User.Group = "销售经理" Or User.Group = "业务员" Or User.Group = "业务助理" Then
End If
If User.Type = UserTypeEnum.User Then
If User.IsRole("修改工序报工") Then
RibbonTabs("日常工作").Groups("功能组2").Items("工序报工查询").Enabled = True
RibbonTabs("日常工作").Groups("功能组2").Items("工序报废查询").Enabled = True
Else
RibbonTabs("日常工作").Groups("功能组2").Items("工序报工查询").Enabled = False
RibbonTabs("日常工作").Groups("功能组2").Items("工序报废查询").Enabled = False
End If
If User.Group = "销售经理" Or User.Group = "业务员" Or User.Group = "业务助理" Then
RibbonTabs("日常工作").Groups("功能组1").Items("订单导入").Enabled = True
Else
RibbonTabs("日常工作").Groups("功能组1").Items("订单导入").Enabled = False
End If
End If
StatusBar.Message2 = Date.Today & " " & User.Name
加好友 
发短信
Post By：2019/1/7 16:55:00 [显示全部帖子]
