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

最新推荐文章于 2016-03-29 12:15:15 发布

judyge

最新推荐文章于 2016-03-29 12:15:15 发布

阅读量496

点赞数

分类专栏： SQL

SQL 专栏收录该内容

46 篇文章 0 订阅

订阅专栏

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

首先

【存储过程的概念】

存储过程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</default_value_for_param2,></datatype_for_param2,></default_value_for_param1,></datatype_for_param1,>

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

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