--
\' If Syscmd.Project.Update(False,True) = False Then \'如果没有升级
Forms("主窗口").Open()
Forms("导航栏窗口").open()
If User.Type <> UserTypeEnum.Developer Then
TableCaptionVisible = False
End If
Dim dtname As String
For Each dt As DataTable In DataTables
dtname=dtname & dt.name & "|"
Next
Tables("授权表").cols("表名").Combolist= dtname.trim("|")
\'End If
\'隐藏程序菜单
Basemainform.visible = True
ApplicationMenu.visible = False
\'创建登陆日志
Dim IPAdress As System.Net.IPAddress
Dim HostName As String
HostName = System.Net.Dns.GetHostName \'获得本机的机器名
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) \'获得本机的IP
Dim ndr As DataRow = DataTables("系统登录日志表").AddNew()
ndr("登录用户") =User.Name
ndr("登录时间") =Date.Now
ndr("登录IP") =IPAdress.Tostring
ndr("机器名") =HostName
DataTables("系统登录日志表").Save()
\' 默认冻结所有表的第一列
For Each tb As Table In Tables
tb.cols.Frozen=1
Next
\'显示更新日志
Dim Count = GetConfigValue("项目打开次数", 0)
If count = 0 Then
Dim Proc As New Process
Proc.File = ProjectPath & "\\Docs\\更新日志.pdf"
Proc.Start()
SaveConfigValue("项目打开次数", 1)
End If
\'项目资料管理表特需授权用户选择
Tables("项目资料表").Cols("特需授权").DropForm = "特需授权用户选择窗口"