-
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#爱好者提供的参考。
————————————————
版权声明:本文为CSDN博主「VB.Net」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/UruseiBest/article/details/114225095
栏目列表
最新更新
Python获取微信好友数据
Python 的排序方法 sort 和 sorted 的区别
WinForm轻松实现自定义分页 (转载)
Mac系统下使用brew搭建PHP(LNMP/LAMP)开发环境
在win系统安装配置 Memcached for PHP 5.3 图文
箱图在数据预处理中的应用
Python WEB开发:用Tornado框架制作简易【表
自从学会了用python解析视频,都不用去找
Python代码阅读(第50篇):对列表间隔取
Python爬虫+数据分析+可视化展示,分析《
MongoDB常用命令(2)
MongoDB基本介绍与安装(1)
SQLServer触发器调用JavaWeb接口
SQL Server索引的原理深入解析
SqlServer2016模糊匹配的三种方式及效率问题
SQL中Truncate的用法
sqlserver 多表关联时在where语句中慎用tri
链接服务器读取Mysql---出现消息 7347,级别
SQL Server解惑——为什么你拼接的SQL语句换
MySQL视图了解一下
php 判断常量、变量和函数是否存在
php if..else 循环
PHP中foreach循环详解
php foreach用法和实例
php for的高级运用
php foreach循环用法介绍
PHP条件语句(if else/switch)语法与示例
PHP 循环语句基本语法结构笔记
PHP 条件语句基本语法结构
php break跳出多重循环实例