主题：[求助] 表事件的代码如何转换为窗口代码

表事件

权限_PrepareEdit

Select Case e.Col.Name

    Case "表名"

        e.Col.ComboList = DataTables("表列").GetComboListString("表名")

    Case "列名"

        e.Col.ComboList = DataTables("表列").GetComboListString("列名", "表名 = '" & e.Row("表名") & "'")

End Select

用户_CellButtonClick

Select Case e.Col.Name

    Case "密码"

        e.Cancel = True

        Dim result As DialogResult

        result = MessageBox.Show("你希望重置该用户的密码吗?", "重置密码", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)

        If result = DialogResult.Yes Then

            Dim pwd As String = MD5Encrypt("123456")   '初始密码123456

            e.Row(e.Col.Name) = pwd

        End If

End Select

用户_DataColChanging

Select Case e.DataCol.Name

    Case "密码"

        If e.NewValue = "" OrElse e.NewValue = MD5Encrypt("123456") Then

            e.NewValue = MD5Encrypt("123456")

        Else

            e.NewValue = MD5Encrypt(e.NewValue)

        End If

End Select

如何能让上述在表里面“给用户密码加密的代码”在“增加用户”和“更改用户”窗口里使用。也就是说在“增加用户”和“更改用户”窗口给用户的密码也能加密并写入表中。谢谢！