If Syscmd.Project.Update(False,False) = False Then '如果没有升级
'替换启动图片
FileSys.CopyFile(ProjectPath & "images/splash.jpg", ApplicationPath & "splash.jpg", True)
'用于自定义用户权限设置方面
Forms("用户登录").Open()
If _username = "" Then
Syscmd.Project.Exit()
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If '关闭登录窗口
Forms("导航栏").Open
'快速访问栏处于选中状态,隐藏功能区
QAT("显示/隐藏菜单").Pressed = True
'隐藏表标题
If _username <> "陈" Then
TableCaptionVisible = False
QAT("显示/隐藏菜单").Visible = False
Else
TableCaptionVisible = True
QAT("显示/隐藏菜单").Visible = True
End If
'导航栏节点数据导入授权表
Dim dhc As WinForm.TopicBar = Forms("导航栏").Controls("TopicBar1")
'导航页面目录树
For Each page As WinForm.TopicPage In dhc.Pages
Dim dr As DataRow = DataTables("用户_授权").Find("父节点 = '"& page.Name &"'")
If dr Is Nothing Then
dr = DataTables("用户_授权").AddNew
dr("父节点") = page.Name
End If
For Each link As WinForm.TopicLink In page.Links
Dim dr1 As DataRow = DataTables("用户_授权").Find("父节点 = '"& page.Name &"' And 子节点 = '"& link.Text &"'")
If dr1 Is Nothing Then
dr1 = DataTables("用户_授权").AddNew
dr1("父节点") = page.Name
dr1("子节点") = link.Text
End If
Next
Next
For Each dr As DataRow In DataTables("用户_授权").Select("父节点 is null")
dr.Delete
Next
'导航栏授权
Dim dh As WinForm.TopicBar = Forms("导航栏").Controls("TopicBar1")
For Each dh1 As WinForm.TopicPage In dh.Pages
dh.Pages(dh1.Name).Visible = True
Next
For Each dr As DataRow In DataTables("用户_授权").Select("用户 is null")
If dr.IsNull("子节点") = False
dh.Pages(dr("父节点")).Links(dr("子节点")).Visible = False
ElseIf dr.IsNull("子节点") = True
dh.Pages(dr("父节点")).Visible = False
End If
Next
For Each dr As DataRow In DataTables("用户_授权").Select("用户 not Like '*"& _username &"*' and 子节点 is null")
dh.Pages(dr("父节点")).Visible = False
Next
For Each dr1 As DataRow In DataTables("用户_授权").Select("用户 not Like '*"& _username &"*' and 子节点 is not null")
Dim zjd As String = dr1("子节点")
dh.Pages(dr1("父节点")).Links(zjd).Visible = False
Next
If Forms("工厂无损录入主界面").Opened Then
Tables("工厂无损录入主界面_Table1").Cols("检测部位").DropForm = "通用目录树"
End If
For Each r As RibbonMenu.Tab In RibbonTabs
r.visible = False
Next
ApplicationMenu.visible = False
ConfigBar.visible = False
'打开无损录入主界面
Forms("背景").Open
'将表名汇总到表名称表里
For Each b As DataTable In DataTables
Dim dr As DataRow = DataTables("表名称").Find("表名= '"& b.Name &"'")
If dr Is Nothing Then
dr = DataTables("表名称").AddNew
dr("表名") = b.Name
End If
Next
'打开表视图
Tables("无损_工程主表").OpenView("无损主表")
Tables("无损_工程主表.无损_检验批").OpenView("无损_工程主表.无损_检验批")
Tables("无损_工程主表").OpenView("无损_工程主表.无损_检验批")
Tables("无损_工程主表.无损_检验批_现场").OpenView("无损_工程主表.无损_检验批_现场")
Tables("无损_检验批").OpenView("无损_检验批")
Tables("无损_检验批.无损_构件清单").OpenView("无损_检验批.无损_构件清单")
Tables("无损_构件清单").OpenView("无损_构件清单")
Tables("无损_构件清单.无损_检测明细").OpenView("无损_构件清单.无损_检测明细")
Tables("无损_检测明细").OpenView("检测明细")
Tables("无损_检验批_现场").OpenView("检验批")
Tables("无损_检验批_现场.无损_检测明细").OpenView("无损_检验批_现场.无损_检测明细")
End If '升级
加好友 
发短信
Post By：2018/9/3 17:56:00 [只看该作者]
