'修改密码代码
Dim c md As New S QLCommand
c md.C
e.F orm.Controls("UserName").Value = _UserName
Dim pass As String = e.F orm.Controls("PassWord1").Value
If e.F orm.Controls("PassWord1").Value = e.F orm.Controls("PassWord2").Value Then
c md.CommandText = "U PDATE {user} SET [password]= '" & pass & "' WHERE Name='" & e.F orm.Controls("UserName").Value & "'"
c md.ExecuteNonQuery()
F orms("密码修改").Close ‘这里有关闭
F orms("用户登录").O pen ‘这里没有打开登入窗口，直接进入系统，我想让他打开窗口，代码需要怎么改
Else
M essageBox.Show ("密码输入错误，重新输入")
e.F orm.Controls("PassWord1").Value = Nothing
e.F orm.Controls("PassWord2").Value = Nothing
End If
加好友 
发短信
Post By：2024/4/18 14:12:00 [只看该作者]
