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

前端之家收集整理的这篇文章主要介绍了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,@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,@p1>,@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,Addmoney,Date,Time,@Studentno,@Date,@Time,@Status)
 
END

?

存储过程名称为:pro_Register

调用时在D层

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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" "@Studentno" "@Sex" "@Department" "@Grade" "@Class" "@Cash" "@Explain" "@IsCheck" "未结账" ),
"@UserID" "@Type" "@Status" "@Date" "@Time" }
Dim strsql = "<span style=" color:#FF0000; ">pro_Register</span>"
Dim helper As New sqlHelper
Dim dt As New Integer
dt = helper.ExeAddDelUpdate( "pro_Register" sqlparams)
If dt > 0 Then
Return True
Else
Return False
End If

【存储过程的优点】

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

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

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

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

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

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

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

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

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

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

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

猜你在找的VB相关文章