【机房重构】——修改密码 及 share（）

机房收费系统重构之修改密码，算是自己独立敲出的第一条线，也代表着自己对三层终于有了一定的理解。

修改密码主要思路：

活动图：



三层思想：



UI层：

        负责将用户输入信息记录到实体层。

BLL层：

        负责判断旧密码是否正确，输入的两次新密码是否相同。

DAL层：

        负责从数据库调取数据，修改数据。

在过程中，遇到的一个困难：如何将登陆的用户名记录下来，以供修改密码查找记录时调用。

vb中是在模板里定义了一个公共变量，这里应该也是这种思想....但如何定义呢？

解决方法：

用share关键字。

在实体中：

Public Shared UserID As String

这样就可实现将变量值应用于整个程序。

       最初想到这个问题（如何设定一个公共变量），我先想到了：如何让一个变量被赋完值，不再变化（实例化后不是空）。然后我首先想到的是static关键字，static关键字是在C++考试时接触较多的。但我也只知道给static类变量赋值后，将保留最新值。当然实验的结果是：用在这里是不合适的，所以又找到了share。

        static为什么不行，问题在哪，它和share有什么区别？我总结了一篇博客：在这里有答案......

http://blog.csdn.net/onlybymyself/article/details/44726719

下面是修改密码的代码及一些注释（VB.NET版）：

实体层：

Public Class e_UserPwd

Public Shared UserID As String '用于记录登录时的用户名
Public Shared OldPwd As String '用于记录输入的旧密码

Private e_Password As String
Private e_NewPwd1 As String
Private e_NewPwd2 As String

Public Property Password As String
Get
Return e_Password
End Get
Set(ByVal value As String)
e_Password = value
End Set
End Property

Public Property NewPwd1 As String
Get
Return e_NewPwd1
End Get
Set(ByVal value As String)
e_NewPwd1 = value
End Set
End Property

Public Property NewPwd2 As String
Get
Return e_NewPwd2
End Get
Set(ByVal value As String)
e_NewPwd2 = value
End Set
End Property
End Class

DAL:

'引用命名空间
Imports System.Data.SqlClient
Imports ChargeEntity
'连接数据库，查询数据
Public Class Changpassword
Dim sqlConnectStr As String = "server=zhaohan;database=ChargeSystem;uid=sa;pwd=123456;"
Dim sqlConnection1 As SqlConnection = New SqlConnection(sqlConnectStr) 'SqlConnection:重新连接
Function selectPassword(ByVal User As ChargeEntity.e_UserPwd) As ChargeEntity.e_UserPwd

Dim sql As String = "select * from User_Info where UserID='" & ChargeEntity.e_UserPwd.UserID & "'"
Dim cmd As SqlCommand = New SqlCommand(sql, sqlConnection1) '定义sqlcommand对象
Dim read As SqlDataReader '定义sqldatareader对象
Dim User1 As New ChargeEntity.e_UserPwd
Dim UserDaTable As New DataTable
Try
sqlConnection1.Open()
read = cmd.ExecuteReader()
UserDaTable.Load(read)
User1.Password = UserDaTable.Rows(0)("UserPWD")
Return User1

Catch ex As Exception '如果出现错误则执行
User1.Password = ""
Return User1
Finally
If Not IsNothing(sqlConnection1) Then
sqlConnection1.Close() '关闭数据库连接

End If
End Try
End Function
'修改密码
Function chagpsd(ByVal pasd As ChargeEntity.e_UserPwd) As Boolean
Dim sql As String = "update User_Info set UserPWD='" & pasd.NewPwd1 & "'where UserID='" & ChargeEntity.e_UserPwd.UserID & "'" ' ChargeEntity.e_UserPwd.UserID  share类型如此引用

Dim cmd As SqlCommand = New SqlCommand(sql, sqlConnection1)
cmd.CommandText = sql
cmd.CommandType = CommandType.Text
sqlConnection1.Open()

Dim flag As Boolean '用于判断数据库是否正确执行操作更新
flag = cmd.ExecuteNonQuery
If flag = True Then
Return True
Else
Return False
End If
sqlConnection1.Close()

End Function
End Class

BLL:

Public Class Changpassword
'判断旧密码是否正确
Function CheckoldPassword(ByVal Message As ChargeEntity.e_UserPwd) As Boolean
Dim OdPsd As New ChargeDAL.Changpassword
Dim e_msg As New ChargeEntity.e_UserPwd

e_msg = OdPsd.selectPassword(Message) '将D层获取的数据库信息传给实体e_msg
If ChargeEntity.e_UserPwd.OldPwd = e_msg.Password Then '输入密码正确返回True,否则返回False
Return True
Else
Return False
End If

End Function
'判断两次密码是否相同
Function isequal(ByVal psd As ChargeEntity.e_UserPwd) As Boolean
Dim Dpsd As New ChargeDAL.Changpassword

If psd.NewPwd1 = psd.NewPwd2 Then
Return Dpsd.chagpsd(psd)
Else
Return False
End If
End Function
End Class

UI:

Public Class frmchangpassword

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim e_psd As New ChargeEntity.e_UserPwd
Dim b_psd As New ChargeBLL.Changpassword

'密码不得为空
If txtnewpsd.Text = "" Then
MsgBox("密码不得为空")
txtnewpsd.Focus()
End If

ChargeEntity.e_UserPwd.OldPwd = txtodpsd.Text
If b_psd.CheckoldPassword(e_psd) = True Then '如果旧密码填写正确
e_psd.NewPwd1 = txtnewpsd.Text
e_psd.NewPwd2 = txtnewpsd2.Text
If b_psd.isequal(e_psd) = False Then     '如果两次输入新密码不同
MsgBox("两次输入密码不同，请重新输入")
txtnewpsd.Text = ""
txtnewpsd2.Text = ""
txtnewpsd.Focus()
Else
MsgBox("密码修改成功")
Me.Close()
End If
Else
MsgBox("原始密码有误，请重新输入")
End If

End Sub
End Class

        总结：机房收费系统，虽然很慢，但收获很多，内心虽然焦急，但切不可盲目追求进度。虽说不可盲目追求进度.................但也不能一直停步不前呐，赶紧着吧......加油，表灰心~~~