在机房收费系统中的“结账”部分，要求选中操作员然后点击“结账”button后，将该操作员办理的注冊、充值、退卡业务的状态改为“已结账”。注冊、充值和退卡分别记录在三张表中，假设依照传统的办法，须要在DAL层写三个函数，分别update每张表的isCheck为“true”，且不说写多少代码，费多少力气，这样还减少了系统的执行速度，easy出错。

       在个人版机房收费系统重构中，我们不是像曾经那样仅仅要功能实现就可以，而是变“懒”了，对反复的工作Say No，在这里就引入了存储过程来解决问题。存储过程是使用SQL语句和流程控制语句编写的模块，经编译和优化后存储在数据库server端的数据库中，使用时调用就可以。

1.存储过程的创建：

选择要使用存储过程下的“可编程性”，点开“+”号选择"存储过程"，右击在快捷菜单中选择"新建存储过程"，然后显示出例如以下的界面。咋一看有好多代码，事实上就是个模板，我们仅仅需填写一下。

注意：要在參数后注明数据类型，和数据库中对应的字段类型保持一致。

2.使用存储过程的D层代码：

  '结账后将该用户操作的业务[充值，退卡，注冊卡]isCheck改为true
    Public Function UpdateIsCheck(ecard As Card) As Boolean Implements ICheckOut.UpdateIsCheck
        Dim sqlHelper As New SqlHelper.sqlHelper   '实例化sqlHelper类  
        Dim cmdType As <strong>CommandType</strong> = CommandType.StoredProcedure '定义命令类型，存储过程
        <strong>Dim cmdText As String = "PROC_CheckOut"  </strong> '数据库运行字符串  
        '传參  
        Dim params As SqlParameter()
        params = {New SqlParameter("@ischeck", ecard.ProisCheck),
                             New SqlParameter("@userID", ecard.ProuserID)}
        Return sqlHelper<strong>.ExecuteNoQuery(cmdText, cmdType, params)</strong>
    End Function

3.使用SQL语句的代码：

Public Function ModifyPwd(euser As User) As Integer Implements IPwd.ModifyPwd
        Dim strSQL As String = "update T_User set userPwd =@pwd where userID=@userID"
        Dim params() As SqlParameter = {New SqlParameter("@pwd", euser.ProuserPwd), New SqlParameter("@userID", euser.ProuserID)}
        Dim helper As New SqlHelper.sqlHelper
        Dim result = helper.ExecuteNoQuery(strSQL, CommandType.Text, params)
        Return result
    End Function

         相对于直接使用SQL语句，在应用程序中直接调用存储过程有下面优点：减轻了程序编写的工作量，减少了网络通信量。调用一个行数不多的存储过程与直接调用SQL语句的网络通信量可能不会有非常大的区别，但是假设存储过程包括上百行SQL语句，那么其性能绝对照一条一条的调用SQL语句要高得多。因为在存储过程创建的时候，数据库已经对其进行了一次解析和优化。存储过程一旦运行，在内存中就会保留一份这个存储过程，这样下次再运行相同的存储过程时，能够从内存中直接调用，从而提高了运行速度。同一时候增强了SQL的功能和灵活性，间接实现安全控制功能。

         这是第一次使用存储过程，今后还会不断地学习和运用。迈出了第一步，前边的路就好走了。