vb.net机房收费系统重构——存储过程的使用

       在敲写七层登陆过程中，接触了存储过程的概念，但当时还没使用。在正式的重构过程中，一点点添加，将存储过程也添加到了重构中。才正式了解了存储过程。

        首先

【存储过程的概念】

存储过程Procedure是一组为了完成特定功能的SQL语句集合，经编译后存储在数据库中，用户通过指定存储过程的名称并给出参数来执行。

    存储过程中可以包含逻辑控制语句和数据操纵语句，它可以接受参数、输出参数、返回单个或多个结果集以及返回值。

【存储过程的使用】

首先，打开数据库——存储过程



右键—新建存储过程

CREATE PROCEDURE <存储过程名称>
-- Add the parameters for the stored procedure here
<@Param1, sysname, @p1> <Datatype_For_Param1, , int> = <Default_Value_For_Param1, , 0>,
<@Param2, sysname, @p2> <Datatype_For_Param2, , int> = <Default_Value_For_Param2, , 0>
AS
BEGIN
-- SET NOCOUNT ON added to prevent extra result sets from
-- interfering with SELECT statements.
SET NOCOUNT ON;

-- Insert statements for procedure here
SELECT <@Param1, sysname, @p1>, <@Param2, sysname, @p2>
END
GO

例如在机房收费系统中注册新用户的存储过程

CREATE PROCEDURE [dbo].[pro_Register]
-- Add the parameters for the stored procedure here
@Cardno char(12),
@Studentno char(12),
@Studentname char(12),
@Sex char(12),
@Department char(12),
@Grade char(12),
@Class char(12),
@Explain varchar(50),
@IsCheck char(12),
@Type char(12),
@Cash numeric(18,1),
@Date date,
@Time time(0),
@UserID char(12),
@Status char(12)

AS
BEGIN

insert into T_Student(Cardno,Studentname,Studentno,Sex,Department,Grade,Class,Cash,Explain,IsCheck,UserID,Type,Status)values(@Cardno ,@Studentname,'12',@Sex,@Department,@Grade,@Class,@Cash,@Explain,@IsCheck,@UserID,@Type,@Status)

insert into T_Recharge(Cardno,Studentno,Addmoney,Date,Time,UserID,Status)values(@Cardno,@Studentno,@Cash,@Date,@Time,@UserID,@Status)

END

存储过程名称为：pro_Register

调用时在D层

Public Function SelectStudent(ByVal student As Entity.StudentEntity, ByVal recharge As Entity.RechargeEntity) As Boolean Implements IDAL.IStudent.SelectStudent

Dim sqlparams As SqlParameter() = {New SqlParameter("@Cardno", student.Cardno),
New SqlParameter("@Studentname", student.StudentName),
New SqlParameter("@Studentno", student.Studentno),
New SqlParameter("@Sex", student.Sex),
New SqlParameter("@Department", student.Department),
New SqlParameter("@Grade", student.Status),
New SqlParameter("@Class", student.Clas),
New SqlParameter("@Cash", student.Cash),
New SqlParameter("@Explain", student.Explain),
New SqlParameter("@IsCheck", "未结账"),
New SqlParameter("@UserID", student.UserID),
New SqlParameter("@Type", student.Type),
New SqlParameter("@Status", student.Status),
New SqlParameter("@Date", recharge.Dater),
New SqlParameter("@Time", recharge.Timer)
}

Dim strSql = "<span style="color:#FF0000;">pro_Register</span>"

Dim helper As New SqlHelper
Dim dt As New Integer

dt = helper.ExeAddDelUpdate("pro_Register", CommandType.StoredProcedure, sqlparams)

If dt > 0 Then
Return True
Else
Return False
End If

【存储过程的优点】

存储过程允许标准组件式编程

        1、存储过程允许标准式组件编程

       存储过程创建后可以在程序中被多次调用执行，而不必重新编写该存储过程的SQL语句。而且数据库专业人员可以随时对存储过程进行修改，但对应用程序源代码却毫无影响，从而极大的提高了程序的可移植性。

        2、 存储过程能够实现较快的执行速度

        如果某一操作包含大量的T-SQL语句代码，分别被多次执行，那么存储过程要比批处理的执行速度快得多。因为存储过程是预编译的，在首次运行一个存储过程时，查询优化器对其进行分析、优化，并给出最终被存在系统表中的存储计划。而批处理的T-SQL语句每次运行都需要预编译和优化，所以速度就要慢一些。

        在机房收费系统中，由于数据量和用户都比较小，可能体会不到批处理和存储过程的区别。当用户较多数据量较大时，此方法的优点较为明显。

        3、 存储过程减轻网络流量

        对于同一个针对数据库对象的操作，如果这一操作所涉及到的T-SQL语句被组织成一存储过程，那么当在客户机上调用该存储过程时，网络中传递的只是该调用语句，否则将会是多条SQL语句。从而减轻了网络流量，降低了网络负载。

        此优点也是当数据量较大时可以明显体会出存储过程的优势。

        4、 存储过程可被作为一种安全机制来充分利用

        系统管理员可以对执行的某一个存储过程进行权限限制，从而能够实现对某些数据访问的限制，避免非授权用户对数据的访问，保证数据的安全。