机房收费系统（个人重构）—

（本篇博客的真正目的不在知识的共享，而是记录当时问题的遗漏，以及此时关于这些问题的想法。）

存储过程：

一组为完成特定功能的sql语句集，用户通过制定存储过程的名字并给出参数（若该存储过程带有参数）来执行它。

知名其意，sql语句集：一系列的sql语句组成的集合，也就是说，当我们有一系列的sql语句要写时（即对多张表操作时）就可以考虑存储过程了，然后直接调用存储过程名字即可。但是我下面列举的实例并不属于这种情况，而是在D层设计到逻辑判断时，我选择了存储过程，一方面了解存储过程的使用，另一方面认识一下它。

组合查询，机房一大难点，第一次做系统时，选择的是拼接字符串，来写sql语句，这次如果照旧，就有些浑水摸鱼的感觉了，所以，组合查询我调入了模板模式，存储过程，抽出这些相同窗体的共同部分写成实体，通过的实体的传递，调用同一个存储过程，避免D层大量的代码。

先看D层代码（起初不加入存储过程）：

Public Function selectInfo(enGroupQuery As GroupQueryEntity) As Object Implements IgroupQuery.selectInfo
        Dim sql As String
        Dim table As DataTable
        Dim sqlParams As sqlParameter() = {New sqlParameter("@fileds1",enGroupQuery.Fileds1),New sqlParameter("@fileds2",enGroupQuery.Fileds2),New sqlParameter("@fileds3",enGroupQuery.Fileds3),New sqlParameter("@Operater1",enGroupQuery.Operater1),New sqlParameter("@operater2",enGroupQuery.Operater2),New sqlParameter("@operater3",enGroupQuery.Operater3),New sqlParameter("@context1",enGroupQuery.Context1),New sqlParameter("@context2",enGroupQuery.Context2),New sqlParameter("@context3",enGroupQuery.Context3),New sqlParameter("@relation1",enGroupQuery.Relation1),New sqlParameter("@relation2",enGroupQuery.Relation2),New sqlParameter("@gettable",enGroupQuery.Table)}

        sql = "select * from " & enGroupQuery.Table & " where "
        If Trim(enGroupQuery.Relation1) = "" Then '只有一组查询条件
            sql = sql & enGroupQuery.Fileds1 & enGroupQuery.Operater1 & "'" & enGroupQuery.Context1 & "'"
        Else
            If Trim(enGroupQuery.Relation2) = "" Then '有两组查询条件
                sql = sql & enGroupQuery.Fileds1 & enGroupQuery.Operater1 & "'" & enGroupQuery.Context1 & "'" & enGroupQuery.Relation1 & " " & enGroupQuery.Fileds2 & enGroupQuery.Operater2 & "'" & enGroupQuery.Context2 & "'"
            Else '有三组查询条件
                sql = sql = sql & enGroupQuery.Fileds1 & enGroupQuery.Operater1 & "'" & enGroupQuery.Context1 & "'" & enGroupQuery.Relation1 & " " & enGroupQuery.Fileds2 & enGroupQuery.Operater2 & "'" & enGroupQuery.Context2 & "'" & enGroupQuery.Relation2 & " " & enGroupQuery.Fileds3 & enGroupQuery.Operater3 & "'" & enGroupQuery.Context3 & "'"
            End If
        End If

        table = sqlhelper.GetDataTable(sql,CommandType.Text,sqlParams)
        Return table

    End Function

问题就是：存在大量的逻辑判断，事实上是不允许的，所以，加入存储过程：（之后的D层）：

Public Function selectInfo(enGroupQuery As GroupQueryEntity) As Object Implements IgroupQuery.selectInfo
        Dim sql As String = "GROUPCHECK_INFO" '存储过程的名字，直接调用就行。
        Dim table As DataTable
        Dim sqlParams As sqlParameter() = {New sqlParameter("@fileds1",enGroupQuery.Table)}

        table = sqlhelper.GetDataTable(sql,CommandType.StoredProcedure,sqlParams)
        Return table

    End Function
End Class

至于存储过程的过程，我是根据数据库系统原理里的创建存储过程写的。

-- =============================================
-- Author:		<贾丽敏>
-- Create date: <2015-3-21>
-- Description:	<组合查询存储过程>
-- =============================================
ALTER PROCEDURE [dbo].[GROUPCHECK_INFO]

	-- Add the parameters for the stored procedure here
	
	@Operater1 varchar(20),@operater2 varchar(20),@operater3 varchar(20),@context1 varchar(20),@context2 varchar(20),@context3 varchar(20),@relation1 varchar(20),@relation2 varchar(20),@fileds1 varchar(20),@fileds2 varchar(20),@fileds3 varchar(20),@gettable  VARCHAR(20)
	
		
AS
	declare @strsql varchar(2000)
BEGIN
	--CHAR(32)表示空格，CHAR(39)表示单引号
	SET @strsql ='select * from ' + @gettable + ' where ' +CHAR(32)+@fileds1 + @Operater1 + CHAR(39)+ @context1 +CHAR(39)
	if (@relation1 != NULL)
	BEGIN
		SET @strsql =@strsql +CHAR(32)+@relation1 +CHAR(32)+@fileds2 + @operater2 +CHAR(39)+ @context2 +CHAR(39)
		if (@relation2 != null)
		BEGIN
		SET @strsql =@strsql +CHAR(32)+@relation2 + CHAR(32)+@fileds3 + @operater3 +CHAR(39)+ @context3 + CHAR(39)
		END
	END
	EXECUTE(@strsql)
END

自己这次存储过程的引入，只是实现逻辑运算的搬移工作。

遗漏问题：

1·在没有引入存储过程之前，D层代码中：我是利用实体字段在写sql语句的，其实应该用参数来代替的，可是这里又设计到sql语句字符串拼接的格式问题，对比于之前的vb版本的系统，修改过多次，没有实现。求解。

2·在引入存储过程后，创建的过程中，又引入“引号”不完整问题，查阅过相关资料后也还是不清楚到底该怎么用，这也是遗留的一个问题：一个引号时，表示所辖内容；三个引号时，第一个表示字符串前引号，第二个是转义字符，第三个表示引号（字符内容），可是这里并没有涉及到转义字符，所以，这点还是有些迷糊，挂起来！

机房收费系统（个人重构）——存储过程

猜你在找的VB相关文章