存储过程，解决机房收费系统多表操作问题

一、背景

     机房收费系统也敲了一段时间了，其中也遇到了很多问题，开始师父叫我先敲三层，后面再逐步添加存储过程、泛型、七层和设计模式等内容。开始觉得能敲三层就很不错了，但是敲了将近10个窗体的时候，觉得只敲三层太没意思了，而且每涉及到多表操作的时候，我都要敲一个过程，每一层里我都要写多一个过程，于是就想到了存储过层，觉得不能就这么简单没意思的罗列代码。

    下面以注册为例，先看看我没有加存储过程的D层代码

<span style="font-family:KaiTi_GB2312;font-size:24px;"> Public Function FillStudent(ByVal student As Model.studentEntity) As Model.studentEntity
        Dim conn As New SqlConnection   '创建连接对象  
        Dim cmd As New SqlCommand       '创建命令对象  
        conn = New SqlConnection(Dtutil.connstring())  '连接数据库  
        cmd.Connection = conn '初始化
        cmd.CommandText = "Insert INTO Students(studentNO,studentName,sex,class,grade,cardNo ,department,static ,money,type,userID,checks,RegisterDate,RegisterTime)values(@studentNO,@studentName,@sex,@class,@grade,@cardNo,@checks,@Department,@static,@money,@type,@userNo,@RegisterDate,@RegisterTime)"
        cmd.Parameters.Add(New SqlParameter("@studentNO", student.studentNo))
        cmd.Parameters.Add(New SqlParameter("@studentName", student.studentName))
        cmd.Parameters.Add(New SqlParameter("@sex", student.Sex))
        cmd.Parameters.Add(New SqlParameter("@class", student.ClassNo))
        cmd.Parameters.Add(New SqlParameter("@grade", student.Grade))
        cmd.Parameters.Add(New SqlParameter("@CardNO", student.CardNo))
        cmd.Parameters.Add(New SqlParameter("@Department", student.Department))
        cmd.Parameters.Add(New SqlParameter("@static", student.StaticCard))
        cmd.Parameters.Add(New SqlParameter("@money", student.Money))
        cmd.Parameters.Add(New SqlParameter("@type", student.Type))
        cmd.Parameters.Add(New SqlParameter("@userNO", student.UserNo))
        cmd.Parameters.Add(New SqlParameter("@checks", "未结账"))
        student.RegisterDate = Format(Now, "yyyy/MM/dd")
        student.RegisterTime = Format(Now, "HH:mm:ss")
        cmd.Parameters.Add(New SqlParameter("@RegisterDate", student.RegisterDate))
        cmd.Parameters.Add(New SqlParameter("@RegisterTime", student.RegisterTime))
        conn.Open()

        num = cmd.ExecuteNonQuery() '执行插入命令
        conn.Close()
        Return students
    End Function</span>

    这也只是一部分代码，因为注册还涉及到充值表，于是，我还有一段基本上一样的代码。所以总觉得自己真的像个码农，不懂得思考，机械式的敲着重复的代码。但是我又不了解存储过程，我也不知道怎么用。于是翻了一下《数据库系统原理》。

二、存储过程

1、了解

 存储过程是存放咱服务器上的预先的编译好的SQL语句。存储过程的优点主要有提供了安全机制、改进执行性能、减少了网络流量和增强了代码的重用性。了解到存储过程有这么多优点，看来我是必须要学会用它了。

它的基本语法规则是：

<span style="font-family:KaiTi_GB2312;font-size:24px;">CREATE  PROCEDURE  PROC_NAME
               @[参数名] [类型],@[参数名] [类型]……
         AS
         BEGIN
               [过程体].........
         END</span>

2、使用

   接下来依旧是以注册为例，看看在机房收费系统同中如何使用存储过程。

1）新建存储过程

                                                    

   2）在SQL server中编译代码

    

<span style="font-family:KaiTi_GB2312;font-size:24px;">CREATE PROCEDURE PROC_Register  
    --定义参数
 @Cardno varchar(6),@money decimal(5,1),@userID varchar(60) ,@dates date ,@times time ,@checks nvarchar(20) ,@comment nvarchar(20),
@studentName nvarchar(10) ,@studentNO varchar(18),@type nvarchar(10),@static nvarchar(50),@RegisterDate date,@RegisterTime time,
@sex varchar(6) ,@class nvarchar(20),@grade nvarchar(20),@department nvarchar(30),@addmoney decimal(5,1)
as
--
begin
--对表进行操作
insert into Students (studentNO ,studentName ,sex,class, grade, cardNo ,department,static ,money,type,userID,checks,RegisterDate,RegisterTime)values(@studentNo,@studentName ,@sex ,@class ,@grade ,@Cardno  ,@department ,@static   ,@money  ,@type ,@userID ,@checks ,@RegisterDate ,@RegisterTime )
insert into Recharge (cardNo ,addmoney ,money ,dates ,times ,userID ,comment ,checks )values(@Cardno ,@addmoney ,@money ,@dates ,@times,@userID ,@comment ,@checks )
end
</span>

   代码编译完成后对其进行执行，执行成功后数据库中遍生成了存储过程。

   3）vb.net中机房收费系统中D层代码的编写

<span style="font-family:KaiTi_GB2312;font-size:24px;">Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Public Class RegisterDAL : Implements IDAL.IRegister
   
    Public Function Insert(ByVal student As Model.studentEntity, ByVal card As Model.RechargeEntity) As Boolean Implements IDAL.IRegister.Insert
        '定义SqlHelper实例  
        Dim cmdType As CommandType = CommandType.StoredProcedure       '定义数据库命令类型  
        Dim cmdText As String = "Proc_Register"                        '数据库执行字符串  
        Dim parameters As SqlParameter()                               '定义参数数组，负责向存储过程中的变量传值  
        '为参数数组中的参数一一赋值  
        parameters = {New SqlParameter("@studentNO", student.studentNo),
                      New SqlParameter("@studentName", student.studentName),
                      New SqlParameter("@sex", student.Sex),
                      New SqlParameter("@class", student.ClassNo),
                      New SqlParameter("@grade", student.Grade),
                      New SqlParameter("@Cardno", student.CardNo),
                      New SqlParameter("@money", student.Money),
                      New SqlParameter("@type", student.Type),
                      New SqlParameter("@RegisterDate", student.RegisterDate),
                      New SqlParameter("@RegisterTime", student.RegisterTime),
                      New SqlParameter("@addmoney", student.Money),
                      New SqlParameter("@dates", student.RegisterDate),
                      New SqlParameter("@times", student.RegisterTime),
                      New SqlParameter("@department", student.Department),
                      New SqlParameter("@static", "使用"),
                      New SqlParameter("@checks", "未结账"),
                      New SqlParameter("@comment", "注册"),
                      New SqlParameter("@userID", student.UserNo)}

        Return SqlHelper.ExecuteNoQuery(cmdText, CommandType.StoredProcedure, parameters)
    End Function


End Class
</span>

    这样看上去D层代码就比之前的少了很多。

三、小结

存储过程的使用，也让接触了很多新的我不懂或不太了解的内容，所以在学着使用存储过程的过程中我也学会了接口的使用，进一步了解了sqlhelper这部分内容，也学会了配置文件的使用，而且到现在我也遇到了其他问题，如外观模式和泛型等。

路漫漫其修远兮，吾将上下而求索！