首页 > 代码库 > 重构之路 组合查询之传參+存储过程
重构之路 组合查询之传參+存储过程
上篇博文给大家一起讨论了实现组合查询的一种方法，即在U层将select语句的where子句部分组装好，赋给一个字符串变量。传到D层然后与select子句组成完整的sql语句。之后运行。返回查询结果，就是这么简单。可是博文的结尾也留下了一个疑问，这样的方法的安全性有点欠佳，有没有相对好一点的办法呢？
答案是肯定的。这次我们一起来看看我实现的还有一种方法。首先给大家简介一下这样的方法的思路，事实上也比較简单，最初我是想在程序代码里写sql查询语句的，然后将组合查询的各个条件的值当做实体參数（如今实体层定义一个用于组合查询的实体）传进sql语句中。最后再运行sql语句。返回结果。
可是后来怎么想也想不出怎样组装sql语句，所以就询问别人有没有使用传递參数的组合查询办法，结果人家用的是存储过程。我一想：why not？
以下我们就以查询系统用户工作日志的组合查询功能来看看这样的办法的详细实现代码：
首先我们要在实体层Entity定义一个用于组合查询的实体类:
Public Class QueryWorklog
Private _field1 As String
Private _field2 As String
Private _field3 As String
Private _operatorchar1 As String
Private _operatorchar2 As String
Private _operatorchar3 As String
Private _content1 As String
Private _content2 As String
Private _content3 As String
Private _relation1 As String
Private _relation2 As String
Public Property Field1 As String
Get
Return _field1
End Get
Set(value As String)
_field1 = value
End Set
End Property
Public Property Field2 As String
Get
Return _field2
End Get
Set(value As String)
_field2 = value
End Set
End Property
Public Property Field3 As String
Get
Return _field3
End Get
Set(value As String)
_field3 = value
End Set
End Property
Public Property Operatorchar1 As String
Get
Return _operatorchar1
End Get
Set(value As String)
_operatorchar1 = value
End Set
End Property
Public Property Operatorchar2 As String
Get
Return _operatorchar2
End Get
Set(value As String)
_operatorchar2 = value
End Set
End Property
Public Property Operatorchar3 As String
Get
Return _operatorchar3
End Get
Set(value As String)
_operatorchar3 = value
End Set
End Property
Public Property Content1 As String
Get
Return _content1
End Get
Set(value As String)
_content1 = value
End Set
End Property
Public Property Content2 As String
Get
Return _content2
End Get
Set(value As String)
_content2 = value
End Set
End Property
Public Property Content3 As String
Get
Return _content3
End Get
Set(value As String)
_content3 = value
End Set
End Property
Public Property Relation1 As String
Get
Return _relation1
End Get
Set(value As String)
_relation1 = value
End Set
End Property
Public Property Relation2 As String
Get
Return _relation2
End Get
Set(value As String)
_relation2 = value
End Set
End Property
End Class然后在SQL Server中编写实现组合查询的存储过程：
USE [ChargeSystemDB]
GO
/****** Object: StoredProcedure [dbo].[PROC_QueryWorklog] Script Date: 08/17/2014 22:39:39 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: <连江伟>
-- Create date: <2014年8月17号>
-- Description: <用于系统用户工作日志的组合查询>
-- =============================================
ALTER PROCEDURE [dbo].[PROC_QueryWorklog]
-- Add the parameters for the stored procedure here
@field1 char(20),
@field2 char(20),
@field3 char(20),
@operator1 char(20),
@operator2 char(20),
@operator3 char(20),
@content1 char(20),
@content2 char(20),
@content3 char(20),
@relation1 char(20),
@relation2 char(20)
AS
declare @tempSql varchar(500)
BEGIN
-- SET NOCOUNT ON added to prevent extra result sets from
-- interfering with SELECT statements.
SET NOCOUNT ON;
-- Insert statements for procedure here
if (@relation1 =‘‘)
set @relation1 =null
if (@relation2 =‘‘)
set @relation2 =null
--char(32)是空格，char(39)是单引號
set @tempSql =‘select * from T_Worklog where ‘+@field1 +@operator1 + char(39) + @content1 +char(39)
if (@relation1 is not null )
set @tempSql =@tempSql +@relation1 +char(32)+@field2 +@operator2 +char(39) +@content2 +char(39)
if (@relation2 is not null)
set @tempSql =@tempSql +@relation2 +char(32) +@field3 +@operator3 +char(39)+@content3 +char(39)
execute (@tempSql)
END
之后在D层编写函数。调用和运行存储过程并将所需參数传进来：
Public Function QueryWorklog(worklog As QueryWorklog) As List(Of Entity.WorklogEntity) Implements IWorklog.QueryWorklog
Dim mylist As List(Of Entity.WorklogEntity)
Dim mydt As New DataTable
Dim sql As String = "PROC_QueryWorklog"
Dim paras As SqlParameter() = {New SqlParameter("@field1", worklog.Field1),
New SqlParameter("@field2", worklog.Field2),
New SqlParameter("@field3", worklog.Field3),
New SqlParameter("@operator1", worklog.Operatorchar1),
New SqlParameter("@operator2", worklog.Operatorchar2),
New SqlParameter("@operator3", worklog.Operatorchar3),
New SqlParameter("@content1", worklog.Content1),
New SqlParameter("@content2", worklog.Content2),
New SqlParameter("@content3", worklog.Content3),
New SqlParameter("@relation1", worklog.Relation1),
New SqlParameter("@relation2", worklog.Relation2)}
mydt = workloghelper.ExecuteSelect(sql, CommandType.StoredProcedure, paras)
mylist = Entity.ConvertTo.ConvertToList(Of Entity.WorklogEntity)(mydt)
Return mylist
End Function
而后在B层利用接口调用D层的组合查询函数：
Public Function QueryWorklog(ByVal worklog As Entity.QueryWorklog) As List(Of WorklogEntity)
iworklog = fworklog.CreateWorklog
Return iworklog.QueryWorklog(worklog)
End Function
最后在U层将界面中用户的输入内容，赋给实体參数中对应的属性：
Private Sub btnQuery_Click(sender As Object, e As EventArgs) Handles btnQuery.Click
Dim mylist As List(Of Entity.WorklogEntity)
Dim worklog As New Entity.QueryWorklog
Dim Bworklog As New BLL.WorklogBLL
worklog.Field1 = ConvertField(ComboBox1.Text.Trim)
worklog.Field2 = ConvertField(ComboBox2.Text.Trim)
worklog.Field3 = ConvertField(ComboBox3.Text.Trim)
worklog.Operatorchar1 = ComboBox4.Text.Trim
worklog.Operatorchar2 = ComboBox5.Text.Trim
worklog.Operatorchar3 = ComboBox6.Text.Trim
worklog.Content1 = TextBox1.Text.Trim
worklog.Content2 = TextBox2.Text.Trim
worklog.Content3 = TextBox3.Text.Trim
worklog.Relation1 = ComboBox7.Text.Trim
worklog.Relation2 = ComboBox8.Text.Trim
mylist = Bworklog.QueryWorklog(worklog)
If mylist.Count > 0 Then
DataGridView1.DataSource = mylist
Else
MsgBox("未检索到您须要的数据。请又一次确认查询条件！", MsgBoxStyle.OkOnly, "提示")
End If
End Sub
最后总结一下组合查询的功能实现：单纯来看这个功能看起来非常高级，能够任意组合你的筛选条件，可是它的实现事实上非常easy，其核心就是将用户输入的限制条件进行拼接和组装，形成Select语句的where子句，然后调用系统函数运行这条SQL语句，将结果返回。难点就是在细节的处理上。即怎样将用户输入的限制条件放入到SQL语句中。这就是我对组合查询的认识。事实上代码实现并非最重要的。重要的是思想上的思考，怎样将问题简化。而且加以实现才是我们学习的核心。
重构之路 组合查询之传參+存储过程
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。