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

浏览数：72 / 时间：2015年06月09日

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

首先

【存储过程的概念】

存储过程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