VB.NET版机房重构之存储过程+事务实现注册

这次机房收费系统采用三层的思想，每一条线中参数和返回值在层与层之间传递实现一个操作，思路很清晰，不过有的业务涉及到多条SQL语句，比如充值的时候除了增加充值记录还要去更新卡表中的卡内余额，当然如果我们写两条线没有问题，存储过程便可以解决这个问题，它是实现一定功能的语句组成的程序段，封装了几步操作的SQL语句，然后定义SQL语句时直接用存储过程代替，太厉害了。

首先，选择使用的数据库—可编程性—存储过程—新建存储过程，首先编辑存储过程名称，然后是SQL语句中使用到的参数及类型，在begin下面编写使用到的SQL语句，在这里我使用的存储过程+事务，就多了几条语句，其实也很简单，事务开始语句begin transaction，结束时有两种，一个是rollback（没有成功提交），一个是commit（提交事务）。

-- =============================================
-- Author:		李立平
-- Create date: 2014-09-14
-- Description:	存储过程+事务实现学生注册，涉及到T_Card,T_Student，T_Recharge三张表
-- =============================================

ALTER procedure [dbo].[PROC_Register]
@cardNo char(10),@presentCash numeric(10,0),@loginDate date,@loginTime time(0),@type char(10),@UserID char(10),@status char(10),@studentNo char(10),@studentName char(10),@sex char(10),@department char(10),@grade char(10),@class char(10),@addMoney numeric(10,@date DATE,@time time(0),@checkStatus char(10)
AS
BEGIN
declare @Err1 int,@Err2 int,@Err3 int
begin transaction
INSERT into T_Card (cardNo,presentCash,loginDate,loginTime,type,UserID,status )VALUES(@cardNo,@presentCash,@loginDate,@loginTime,@type,@UserID,'使用')
set @Err1=@@Error  
INSERT into T_Student(studentNo,cardNo,studentName,sex,department,grade,class) VALUES(@studentNo,@cardNo,@studentName,@sex,@department,@grade,@class )
set @Err2=@@Error  
INSERT into T_Recharge (cardNo,addMoney,date,time,checkStatus ) values(@cardNo,@addMoney,@date,@time,'未结帐')
set @Err3=@@Error  
 
if @Err1 =0 and @Err2 =0 and @Err3 =0
	COMMIT TRANSACTION
ELSE
	ROLLBACK TRANSACTION
END

然后编辑完成后要执行，出现命令已成功完成后才完整保存。然后使用的时候直接用存储过程代替SQL语句，命令类型改为存储过程即可，和其他的使用不同的也就在D层的代码上，其他层代码和原来一样。

Imports System.Data.SqlClient
Imports ChargeEntity
'/*********************
'类名称：RegisterDAL
'功能：
'命名空间：Charge.DAL
'作者：李立平
'小组：
'时间：2014/8/28 20:08:25
'版本号：v2.0.0

'**********************/
Public Class RegisterDAL : Implements ChargeIDAL.IRegister
    ''' <summary>
    ''' 注册
    ''' </summary>
    ''' <param name="enCard1"></param>
    ''' <param name="enStudent"></param>
    ''' <param name="enRecharge"></param>
    ''' <returns>受影响行数</returns>
    ''' <remarks></remarks>
    Public Function Register(ByVal enCard1 As ChargeEntity.CardEntity,enStudent As ChargeEntity.StudentEntity,enRecharge As ChargeEntity.RechargeEntity) As Integer Implements ChargeIDAL.IRegister.Register
        Dim cmdText As String = "PROC_Register"  'sql语句
        Dim cmdType As String = CommandType.StoredProcedure  '命令类型
        Dim Parameter As SqlParameter()
        '传参
        Parameter = {New SqlParameter("@cardNo",enCard1.cardNo),New SqlParameter("@presentCash",enCard1.presentCash),New SqlParameter("@loginDate",Now),New SqlParameter("@loginTime",New SqlParameter("@type",enCard1.type),New SqlParameter("@UserID",enCard1.UserID),New SqlParameter("@status",enCard1.status),New SqlParameter("@studentNo",enStudent.studentNo),New SqlParameter("@studentName",enStudent.studentName),New SqlParameter("@sex",enStudent.sex),New SqlParameter("@department",enStudent.department),New SqlParameter("@grade",enStudent.grade),New SqlParameter("@class",enStudent.class),New SqlParameter("@addMoney",enRecharge.addMoney),New SqlParameter("@date",New SqlParameter("@time",New SqlParameter("@checkStatus",enRecharge.checkStatus)}

        Dim SqlHelper As New SqlHelper
        Dim res As Integer

        res = SqlHelper.ExecuteNoQuery(cmdText,cmdType,Parameter) '调用SqlHelper类ExecuteNoQuery方法
        Return res '返回受影响的行数

    End Function
End Class

一、好处

首先，存储过程封装了一组语句，让整个业务的实现具有打包思想，简单清晰。

二、存储过程与事务

区别：1、存储过程是完成一定功能可重复调用的程序，可以理解成函数，就是一种工具，编译时一步步执行。2、事务也是一系列的对数据库的操作，但它强调一致性，这些操作要么全做，要么不做，它是不容分割的整体。比如你取款时取款机的操作，取款和更新账户余额就是一致的，不能说取完钱因为没电或系统崩溃而不更新卡上余额，岂不乱套了？

联系：事务可能是一个或几个存储过程，存储过程可以包含多个事务。在机房注册涉及到3张表，学生表，卡表和充值表，这些操作就具有一致性，存储过程+注册还是很好解决了注册的问题！机房中的充值、退卡、上下机、结账或者说不能一步就能解决的问题都可以使用存储过程+事务，真的很实用！