AfterOpenProject的代码:
If OpenFileArgs.count>0 Then
Else
Forms("登陆").Open()
If usna="" Then
syscmd.project.Exit()
Return
End If
End If
If User.Type <> UserTypeEnum.Developer
TableCaptionVisible = False
End If
MainTable=Tables("用户表")
Forms("主窗口").Open()
Forms("物料").open()
Dim w As Integer = sysinfo.ScreenWidth
Dim h As Integer = Sysinfo.ScreenHeight
With baseMainForm
.show
.WindowState = System.Windows.Forms.FormWindowState.Normal
.Width = 920
.Height = 640
.Top=h\10
.left=w\6
End With
Dim dr As DataRow=DataTables("用户表").find("用户名称='" & usna & "'")
If dr IsNot Nothing Then
StatusBar.Message1= "用户:" & usna & " " & "当前版本:" & PublishDate
End If
StatusBar.Message2=" 登陆日期:" & Date.Today
加好友 
发短信
Post By：2019/9/23 13:46:00 [显示全部帖子]
