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

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

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的功能和灵活性，间接实现安全控制功能。

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