已经有了Users表，也定义了全局代码

此主题相关图片如下：users表.png

全局代码
Public _UserName As String
Public _UserRole As String
Public _UserGroup As String
Public _PassWord As String

项目事件SystemIdle

Dim Str1 As String = "当前用户: " & _UserName 
Dim Str2 As String = "用户角色: " & _UserRole
Dim Str3 As String = "用户分组: " & _UserGroup
Dim Str4 As String = "当前时间: " & Format (now, "D") \'& Format(now, "dddd ") & ""
StatusBar.Message1 = Str1 & "   "& Str2 &"    "& Str3 & "      "& Str4

两个问题：

1、左下状态栏用户角色没有显示

此主题相关图片如下：状态栏.jpg

2、用户登录窗口中，当选择了用户名，如何自动显示用户角色和用户分组？控件需要绑定吗？