项目总结——再谈事务机制

       引言：

        做机房收费系统时，有研究过在三层架构中添加事务处理的机制。那时候基本是自创的一个方法。因为要访问一个公共的静态变量。当时自然就想到了使用实体类，这样得到公共的Connection以后就可以不用在每个层中传了。同样这次的系统中也用到了事务机制的处理。发现了另一种使用事务机制的好的方法，当然也要拿出来给大家分享下了。

        基本思路：

       看代码之前，大概说一下这次系统中使用是如何使用事务机制了。事务无非就是同时执行多条sql语句，要保证事务的实现无非就是让执行这几条sql语句在同一个Connection链接下操作。其实事务很简单，不过是和三层混在了一起所以让人无从下手罢了，这次的系统中实现事务机制的方法是把要同时执行的多条sql语句放在D层的一个方法里。如果多条sql语句都没有参数，那么就只需要把这多条的sql语句保存起来然后再传给sqlhelper逐条的执行，如果多条的sql语句都带有参数，那么需要保存的就不止有sql语句还用其对应的参数了。

       技术难点：

       看到这里大家发现其实主要的技术难点只剩下两个，

               1.保存这些sql语句，以及他们可能有的参数，然后对应的取出来。

                2.就是把对应的把sql语句自己的参数附加上去。

       代码以及说明：

       说到现在我想应该让大家看看代码了：（这里的例子是带有参数的sql语句，这个掌握了，不带参数的自然也就掌握了。）

       首先是D层确定需要放在同一个事务中处理的sql语句，并保存起来用于送给sqlhelper处理。

 ''' <summary>
    ''' 注册卡号时的事务，需要向学生表，卡表，充值记录中添加信息--韩义
    ''' </summary>
    ''' <param name="enStuCard">附有所有信息的学生卡实体</param>
    ''' <param name="enRecharge">附有所有信息的充值实体</param>
    ''' <returns>bool,true则表示成功，false则表示失败</returns>
    ''' <remarks></remarks>
    Public Function Register(ByVal enStuCard As Entity.StuCardEntity, ByVal enRecharge As Entity.ChargeEntity) As Boolean Implements IDAL.IAffairsDAL.Register
        Dim HashList As New Hashtable '定义hashtable。
        '第一条需要执行的sql语句，以及他的参数。
        Dim sql1 As String = "insert into T_Card(CardNo,StudentNo,Cash,CardType,Creater,Status,IsCheck,Date,Time) values(@CardNo,@StudentNo,@Cash,@CardType,@Creater,@Status,@IsCheck,@Date,@Time)"
        Dim sqlParam1(8) As SqlParameter
        sqlParam1(0) = SqlHelperDAL.AddSqlParameter("@CardNo", SqlDbType.Char, enStuCard.CardNO)
        sqlParam1(1) = SqlHelperDAL.AddSqlParameter("@StudentNo", SqlDbType.Char, enStuCard.StudentNO)
        sqlParam1(2) = SqlHelperDAL.AddSqlParameter("@Cash", SqlDbType.Decimal, CDec(enStuCard.Cash))
        sqlParam1(3) = SqlHelperDAL.AddSqlParameter("@CardType", SqlDbType.VarChar, enStuCard.CardType)
        sqlParam1(4) = SqlHelperDAL.AddSqlParameter("@Creater", SqlDbType.Char, enStuCard.Creater)
        sqlParam1(5) = SqlHelperDAL.AddSqlParameter("@Status", SqlDbType.Char, enStuCard.Status)
        sqlParam1(6) = SqlHelperDAL.AddSqlParameter("@IsCheck", SqlDbType.Char, enStuCard.IsCheck)
        sqlParam1(7) = SqlHelperDAL.AddSqlParameter("@Date", SqlDbType.Char, enStuCard.RegisterDate)
        sqlParam1(8) = SqlHelperDAL.AddSqlParameter("@Time", SqlDbType.Char, enStuCard.RegisterTime)
        '第二条需要执行的语句，以及他的参数
        Dim sql2 As String = "insert into T_Student(StudentNo,StudentName,Sex,Department,Grade,Class) values(@StudentNo,@StudentName,@Sex,@Department,@Grade,@Class)"
        Dim sqlParam2(5) As SqlParameter
        sqlParam2(0) = SqlHelperDAL.AddSqlParameter("@StudentNo", SqlDbType.Char, enStuCard.StudentNO)
        sqlParam2(1) = SqlHelperDAL.AddSqlParameter("@StudentName", SqlDbType.Char, enStuCard.StudentName)
        sqlParam2(2) = SqlHelperDAL.AddSqlParameter("@Sex", SqlDbType.Char, enStuCard.Sex)
        sqlParam2(3) = SqlHelperDAL.AddSqlParameter("@Department", SqlDbType.VarChar, enStuCard.Department)
        sqlParam2(4) = SqlHelperDAL.AddSqlParameter("@Grade", SqlDbType.Char, enStuCard.Grade)
        sqlParam2(5) = SqlHelperDAL.AddSqlParameter("@Class", SqlDbType.Char, enStuCard.ClassName)

        '第三条需要执行的语句以及他的参数
        Dim sql3 As String = "insert into T_Recharge(CardNo,AddMoney,UserID,IsCheck,Date,Time) values(@CardNo,@AddMoney,@UserID,@IsCheck,@Date,@Time)"
        Dim sqlParam3(5) As SqlParameter
        sqlParam3(0) = SqlHelperDAL.AddSqlParameter("@CardNo", SqlDbType.Char, enRecharge.CardNO)
        sqlParam3(1) = SqlHelperDAL.AddSqlParameter("@AddMoney", SqlDbType.Decimal, CDec(enRecharge.AddMoney))
        sqlParam3(2) = SqlHelperDAL.AddSqlParameter("@UserID", SqlDbType.Char, enRecharge.UserID)
        sqlParam3(3) = SqlHelperDAL.AddSqlParameter("@IsCheck", SqlDbType.Char, enRecharge.IsCheck)
        sqlParam3(4) = SqlHelperDAL.AddSqlParameter("@Date", SqlDbType.Char, enRecharge.ChargeDate)
        sqlParam3(5) = SqlHelperDAL.AddSqlParameter("@Time", SqlDbType.Char, enRecharge.Time)
        '把三条sql语句和对应的参数保存到hashtable中
        HashList.Add(sql1, sqlParam1)
        HashList.Add(sql2, sqlParam2)
        HashList.Add(sql3, sqlParam3)
        Try
            '传递个sqlhelper执行
            SqlHelperDAL.ExecuteSqlTran(HashList)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

        这里我们完成注册卡需要同时完成三件事1.注册卡信息。2.注册学生信息。3添加充值记录。

        大家通过代码也可以看得出来。代码中我们使用了哈希表保存sql语句以及他们对应的参数，哈希表主要有点是他的存取是键值对型的。想到这个其实我们就解决了问题1.我们现在就可以对应的保存与提取了。

        然后我们一起来看sqlheper的代码：

        ''' <summary>
        ''' 执行多条sql语句，实现数据库事务--韩义
        ''' </summary>
        ''' <param name="SQLStringList">sql语句的哈希表</param>
        ''' <remarks></remarks>
        Public Sub ExecuteSqlTran(ByVal SQLStringList As Hashtable)
            Using (conn) '打开数据库连接
                '打开数据库连接  
                conn.Open() '打开数据连接
                Dim trans As SqlTransaction = conn.BeginTransaction() '开始数据库事务
                Using (trans)
                    Try
                        '循环
                        For Each myDE As DictionaryEntry In SQLStringList
                            Dim cmdText As String = myDE.Key.ToString()
                            Dim cmdParms() As SqlParameter = CType((myDE.Value), SqlParameter())
                            PrepareCommand(cmd, conn, trans, cmdText, cmdParms)
                            Dim val As Integer = cmd.ExecuteNonQuery() '调用ExecuteNonQuery函数，返回受影响的行数
                            cmd.Parameters.Clear() '清空参数对象
                        Next
                        trans.Commit() '提交事务
                    Catch ex As Exception
                        trans.Rollback() '事务回滚
                        Throw
                    End Try

                End Using
            End Using
        End Sub

        上面的这段代码中包括一个循环，这个循环的主要作用就是取出保存在hashtable中的sql语句以及参数，而且保证不会“乱”。当然这其中还有一个很重要的函数

        PrepareCommand这个函数的作用就是把取出来的sql语句和参数，组合在一起。

''' <summary>
        ''' 写入参数--韩义
        ''' </summary>
        ''' <param name="cmd">sqlCommand命令</param>
        ''' <param name="conn">sqlconnection命令</param>
        ''' <param name="trans">事务</param>
        ''' <param name="cmdText">sql语句</param>
        ''' <param name="cmdParms">参数</param>
        ''' <remarks></remarks>
        Public Sub PrepareCommand(ByVal cmd As SqlCommand, ByVal conn As SqlConnection, ByVal trans As SqlTransaction, ByVal cmdText As String, ByVal cmdParms() As SqlParameter)
            If conn.State <> ConnectionState.Open Then
                conn.Open()
            End If
            cmd.Connection = conn '设置连接
            cmd.CommandText = cmdText '设置对数源执行的sql语句
            If Not IsNothing(trans) Then
                cmd.Transaction = trans '设置执行事务
                cmd.CommandType = CommandType.Text
            End If
            If Not IsNothing(cmdParms) Then '如果存在参数
                '遍历每个参数
                For Each parameter As SqlParameter In cmdParms
                    If (parameter.Direction = ParameterDirection.InputOutput Or parameter.Direction = ParameterDirection.Input) And (IsDBNull(parameter.Value)) Then
                        parameter.Value = DBNull.Value '附空值
                    End If
                    cmd.Parameters.Add(parameter) '加入参数
                Next
            End If
        End Sub

        这样我们也就解决了第二个问题--就是把对应的把sql语句自己的参数附加上去。

        看到这里，事务处理基本已经完成了。对于没有参数的多条sql语句，当然泛型是很好的选择。把多条sql语句保存在一个字符串类型的泛型中，然后向下传递。

       总结：

        两种在三层中添加事务的处理方式都已经在我的博客中有介绍了。那么让我们来总结，比较一下这两种方法的区别把（另一篇博客地址：http://blog.csdn.net/hy6688_/article/details/8933097）我总结的区别有一下几点：（为了方便说明原来的那篇称第一篇，现在的这篇称第二篇）。

                1.第一篇中的方法，没有第二篇的简单、直接。

                2.第一篇中的方法可以实现这样的操作：第二条sql语句的执行要依赖与第一条sql语句执行的返回结果。

                3.第一篇中的方法把每一个sql语句单独的作为一个方法，这样可以实现简单的复用，如果另一个事务机制的处理需要使用这个方法直接拿来用就可以了。

                4.第二篇中的方法，用到的hashtable，方法很巧妙值得学习研究。