If Syscmd.Project.Update(False,False) = False Then '如果没有升级
StatusBar.Message1 = "当前用户:" & user.name & "日期" & format(Date.today,"yyyy年mm月dd日")
end if