表事件
权限_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
如何能让上述在表里面“给用户密码加密的代码”在“增加用户”和“更改用户”窗口里使用。也就是说在“增加用户”和“更改用户”窗口给用户的密码也能加密并写入表中。谢谢!