systemidle代码:
With CurrentTable
Dim Str1 As String = "当前登录用户: " & User.Name & "你好!欢迎使用BDSMS系统."
Str1 = Str1 & " " & "今天是:" & Date.now
Str1 = Str1 & " " & WeekDayName(Date.Today.DayOfWeek)
StatusBar.Message1 = Str1
End With