主题：自定义用户管理二

窗口的AfterLoad事件代码为:

Dim UserName As String
Dim UserGroup As String
Dim PassWord As String
Dim dr As DataRow
If Forms("用户管理").Opened Then '正常打开
    UserName = Forms("用户管理").Controls("ListBox1").SelectedItem
Else
   UserName = _UserName '_UserName为全局变量,用于保存当前用户名
   e.Form.Controls("UserName").Enabled = False
   e.Form.Controls("UserGroup").Enabled = False
End If
e.Form.Text = e.Form.Text & "-" & UserName '将要更改的用户名保存在窗口标题中,方便其他事件调用
dr = _UserTable.SQLFind("[Name] = '" & UserName & "'")
If dr IsNot Nothing Then
    e.Form.Controls("UserName").Value = UserName
    e.Form.Controls("UserGroup").Value = dr("Group")
    e.Form.Controls("PassWord").Value = dr("PassWord")
Else
    MessageBox.Show("用户不存在或者已经被删除!","提示",MessageBoxButtons.OK)
    e.Form.Close()
End If

上面的代码在打开“更改用户”窗口之前，先判断“用户管理”窗口是否已经打开，如果已经打开，则更改“用户管理”窗口中选定的用户；否则更改当前登录的用户，且禁止更改用户名和用户分组，只能更改用户密码。

试了狐表自带的事例文件，不象上面说的只能更改用户密码，用户名和分组也可以更改，怎么回事？