数据操作的封装--sqlhelper

为了提高软件的灵活性和可维护性，软件的代码须要科学的管理。我们引入了架构这个词。设计模式提醒我们，软件中反复性的代码须要封装起来。

近期在做收费系统时。须要和数据库进行频繁的联系。既然是反复的使用，就须要封装，这里使用到了sql
helper 。

先来看看百度对sqohelper的解释：一个基于.NETFframework的数据库操作组件。尽管不知道组件的详细含义。还是能够猜出来它就是D层中对数据库操作进行封装的工具。

数据库的操作，不外乎四种模式，增、删、改、查，依据返回值来区分，能够分为有返回值和无返回值两大类，增、删、改操作是不须要返回值的，查询操作返回值就是查询结果。这些操作各自都有两种操作方式，有參数和无參数的。无參数的就是对整张表的操作，有參数的是对个别字段的操作。

sql helper用到的方法或函数或參数：

ExecuteNonQuery :此方法用于运行没有返回值的命令（有參数或者没有參数）。它通经常使用于运行数据库（增、删、改）命令，也可用于返回存储过程的输出參数。

Parameters:此參数用于运行有參数的查询或更新（增、删、改）操作。

sql Command: 此函数用于封装数据库操作命令。

CommandType:用于设置数据库连接类型

CommandText:用于设置数据库连接语句。

看一下sql helper类代码：

Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Data
'须要在管理器中加入引用
Public Class sqlHelper
    '定义变量
    Dim ConnString As String = "Server=.;Database=Charge;User=sa;PassWord=123456"
    '获得数据库连接字符串
    Private ReadOnly strConnection As String = ConfigurationSettings.AppSettings("ConnString")
    Dim conn As SqlConnection = New SqlConnection(strConnection)
    '定义CMD命令
    Dim cmd As New SqlCommand
    ''' <summary>
    ''' 运行查询操作（有參数），參数没有限制
    ''' </summary>
    ''' <param name="cmdText">须要运行的语句，通常是SQL语句。也可能是存储过程</param>
    ''' <param name="cmdType">推断SQL语句的类型。一般不是存储过程</param>
    ''' <param name="sqlparameters">传入參数</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function ParaSelect(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal sqlparameters As SqlParameter()) As DataTable
        '
        Using conn As New SqlConnection(ConnString)  '
            Dim sqlAdapter As SqlDataAdapter         '
            Dim dt As New DataTable         '
            Dim ds As New DataSet          '
            '给CMD赋值
            cmd.CommandText = cmdText
            cmd.CommandType = cmdType
            cmd.Connection = conn
            cmd.Parameters.AddRange(sqlparameters) '加入參数
            sqlAdapter = New SqlDataAdapter(cmd)   '实例化adapter
            Try
                sqlAdapter.Fill(ds)       '用adapter将dataSet填充
                dt = ds.Tables(0)        'datatable为dataSet的第一个表
                cmd.Parameters.Clear()    '清除參数
            Catch ex As Exception            '抛出异常
                MsgBox("查询失败", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "警告")
            Finally
                Call CloseCmd(cmd)    '销毁cmd命令
            End Try
            Return dt
        End Using
    End Function
    ''' <summary>
    ''' 运行查询操作（无參数）
    ''' </summary>
    ''' <param name="cmdText">同上</param>
    ''' <param name="cmdType">同上</param>
    ''' <returns>dataTable查询到表格</returns>
    ''' <remarks></remarks>
    Public Function NonParaSelect(cmdText As String, cmdType As CommandType) As DataTable
        Using conn As New SqlConnection(ConnString)
            Dim sqlAdapter As SqlDataAdapter
            Dim ds As New DataSet
 
            cmd.CommandText = cmdText
            cmd.CommandType = cmdType
            cmd.Connection = conn
            sqlAdapter = New SqlDataAdapter(cmd)
            Try
                sqlAdapter.Fill(ds)
                Return ds.Tables(0)
                '抛出异常。无返回值
            Catch ex As Exception
                Return Nothing
            Finally
                Call CloseCmd(cmd)  '关闭CMD命令
            End Try
        End Using
    End Function
    ''' <summary>
    ''' 运行增、删、改操作（有參数）。使用Integer作为返回值类型。0操作失败。1操作成功
    ''' </summary>
    ''' <param name="cmdText">须要运行的语句</param>
    ''' <param name="cmdType">推断SQL语句类型</param>
    ''' <param name="sqlParameter">參数数组，參数没有限制</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function ParaDataManager(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal sqlParameter As SqlParameter()) As Integer
        '使用Usingkeyword实例化连接字符串。给cmd赋值
        Using conn As New SqlConnection(ConnString)
            cmd.Parameters.AddRange(sqlParameter)
            cmd.CommandType = cmdType   '设置一个值，解释cmdText
            cmd.Connection = conn    '设置连接，全局变量
            cmd.CommandText = cmdText '设置查询语句
            Try
                conn.Open()    '打开连接
                Return cmd.ExecuteNonQuery   '运行操作
                cmd.Parameters.Clear()      '清除參数
            Catch ex As Exception        '抛出异常
                Return 0
            Finally
                Call CloseConn(conn)
                Call CloseCmd(cmd)
            End Try
        End Using
    End Function
    ''' <summary>
    ''' 运行增、删、改操作（无參数）
    ''' </summary>
    ''' <param name="cmdType">同上</param>
    ''' <param name="cmdText">同上</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function NonParaDataManager(ByVal cmdType As CommandType, ByVal cmdText As String) As Integer
        '使用Using keyword实例化连接字符串
        Using conn As New SqlConnection(ConnString)
            cmd.CommandText = cmdText      '设置查询语句
            cmd.CommandType = cmdType      '设置SQL语句类型
            cmd.Connection = conn          '设置连接
            Try       '运行操作
                conn.Open()
                Return cmd.ExecuteNonQuery    '返回值
            Catch ex As Exception
                Return 0     '抛出异常。返回0表示操作失败
            Finally
                Call CloseCmd(cmd)
                Call CloseConn(conn)
            End Try
        End Using
    End Function
    ''' <summary>
    ''' 关闭连接
    ''' </summary>
    ''' <param name="conn">须要关闭的连接 </param>
    ''' <remarks></remarks>
    Public Sub CloseConn(ByVal conn As SqlConnection)
        If (conn.State <> ConnectionState.Closed) Then       '推断源对象是否关闭
            conn.Close()      '关闭连接
            conn = Nothing          '不指向原对象
        End If
    End Sub
    ''' <summary>
    ''' 关闭命令
    ''' </summary>
    ''' <param name="cmd">须要关闭的命令</param>
    ''' <remarks></remarks>
    Public Sub CloseCmd(ByVal cmd As SqlCommand)
        If Not IsNothing(cmd) Then  '假设CMD命令存在
            cmd.Dispose()             '销毁命令
            cmd = Nothing
        End If
    End Sub
End Class

sqlhelper类代码分为三部分。第一部分为数据库连接设置部分；第二部分是四个数据库操作，从上到下依次为：有參数的查询、无參数的查询、有參数的更新、无參数的更新；第三部分为关闭连接和销毁命令部分。每一次调用这个类，在结尾都须要关闭命令和连接。查询操作须要返回查询结果，没有返回值得须要返回Integer类型的0或1来推断是否操作成功。

看看D层代码时怎样调用sql helper的：

查询操作（有參数）：

Imports System.Data.SqlClient
Imports System.Data
Imports Charge.DAL.sqlHelper
 
Public Class Login
    Public user1 As Charge.Model.User
    Dim strSQL As String
    Dim help As New sqlHelper
 
    Public Function SelectUsers(user1 As Charge.Model.User) As DataTable
        strSQL = "select *  from User_Info where UserName=@UserName and PassWord=@PassWord"
        Dim sqlPara As SqlParameter() = {
        New SqlParameter("@UserName", user1.UserName),
        New SqlParameter("@PassWord", user1.PassWord)
        }
        Return  help.ParaSelect(strSQL, CommandType.Text, sqlPara)
    End Function
End Class

这个模块时登录模块，使用username和password作为參数，返回值为DataTable表格。

更新（加入）操作（有參数）：

Imports System.Data.SqlClient
Imports Charge.DAL.sqlHelper
Imports System.Data
 
Public Class AddUsers
    Dim strSQL As String
    Dim help As New sqlHelper
 
    Public Function AddUser(user3 As Charge.Model.User) As Integer
        strSQL = "insert into [User_Info] (UserName,PassWord,Level,RealName)values(@UserName,@PassWord,@Level,@RealName) "
        Dim sqlPara As SqlParameter() = {
        New SqlParameter("@UserName", user3.UserName),
        New SqlParameter("@PassWord", user3.PassWord),
        New SqlParameter("@Level", user3.Level),
        New SqlParameter("@RealName", user3.RealName)
        }
        Return help.ParaDataManager(strSQL, CommandType.Text, sqlPara)
    End Function
End Class

这个模块时插入模块。使用了四个參数。返回值类型为Integer。

这里没实用到设计模式，仅仅是进行了封装，没实用到泛化和继承。随着进一步的学习，会有更好的办法来解决反复的问题。