changeuserpasswordform.vb

来自「这是一个固定资产管理系统的源代码」· VB 代码 · 共 28 行

Imports System.Data.SqlClient

Public Class ChangeUserPasswordForm

    Private Sub 修改密码Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改密码Button.Click
        If (Not (Me.新密码TextBox.Text = Me.再输一次新密码TextBox.Text) Or (Me.新密码TextBox.Text.Length = 0)) Then
            MessageBox.Show("两次密码的输入不一致！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return
        End If
        Dim MySQLConnectionString As String = My.Settings.MyAssetsConnectionString
        Dim MySQL As String = "Update  操作用户 Set 用户密码='" + Me.新密码TextBox.Text + "' Where 用户名称='" + Me.用户名称TextBox.Text + "' AND 用户密码='" + Me.旧密码TextBox.Text + "'"
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        Dim MyCommand As New SqlCommand(MySQL, MyConnection)
        MyCommand.Connection.Open()
        Dim MyCount As Integer = MyCommand.ExecuteNonQuery()
        If (MyCount = 1) Then
            MessageBox.Show("在数据库中修改用户密码操作成功！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            MessageBox.Show("在数据库中修改用户密码操作失败！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
    End Sub
    Private Sub 返回系统Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 返回系统Button.Click
        Me.Close()
    End Sub
End Class