四、在全局代码中定义两个变量:
Public _UserName As StringPublic _UserGroup As String
_UserName用户保存当前登录用户的名称,_UserGroup用于保存该用户的分组。