vb.net 教程 20-4 库存管理系统3.17 密码修改（FormPass）

当前位置:

首页 > VB.net教程 >

vb.net 教程 20-4 库存管理系统3.17 密码修改（FormPass）

关于《Visual Basic.Net 循序渐进》请到百度网盘下载，具体下载地址：

链接：https://pan.baidu.com/s/1IfaLvlklx-nT4KK4VKZuIw

提取码：ip5n

密码修改时，为防止不是本人操作，应对旧密码进行验证。验证成功后，用MD5加密新密码后保存。

全部代码如下：

Imports System.ComponentModel

Imports System.Data.OleDb

Public Class FormPass

Dim connection As OleDbConnection

Private Sub FormUser_Load(sender As Object, e As EventArgs) Handles MyBase.Load

connection = New OleDbConnection(databaseConnString)

'打开数据连接

connection.Open()

txtName.Text = loginName

End Sub

Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnClose.Click

Me.Close()

End Sub

Private Sub btnOk_Click(sender As Object, e As EventArgs) Handles btnOk.Click

Dim passOld As String = txtPassOld.Text.Trim

Dim passNew As String = txtPassNew.Text.Trim

If passNew.Length < 6 Then

MessageBox.Show("密码长度至少应为6位")

Exit Sub

End If

Dim passOldMd5 As String = ClassMd5.toMD5(passOld)

Dim passNewMd5 As String = ClassMd5.toMD5(passNew)

'新建OleDbCommand对象实例

Dim command As New OleDbCommand()

'=========填充用户列表==================

'要执行的SQL查询

command.CommandText = "select 密码 from 操作员 where id=" & loginId

'设置OleDbCommand的数据连接为OleDbConnection

command.Connection = connection

Dim odReader As OleDbDataReader

Dim pass As String

odReader = command.ExecuteReader(CommandBehavior.SingleResult)

odReader.Read()

pass = odReader.GetValue(0)

odReader.Close()

If pass <> passOldMd5 Then

MessageBox.Show("原密码不正确，取消操作")

Exit Sub

End If

command.CommandText = "update 操作员 set 密码='" & passNewMd5 & "' where id=" & loginId

command.ExecuteNonQuery()

MessageBox.Show("修改密码成功！")

End Sub

Private Sub FormPass_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing

connection.Close()

End Sub

End Class

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供的参考。

————————————————

原文链接：https://blog.csdn.net/UruseiBest/article/details/114225095

栏目列表