机房重构之开篇

前言：

    这算是第二次接触机房收费系统了，只不过这次增加了分层的概念，换成用VB.Net来实现一遍，由3层过渡到七层，说实话开始重构的过程感觉真是艰难，看了好多师哥师姐的博客也是各种晕，所幸经过一段“难熬的日子”感觉自己渐渐找到了方向！！

UML图：

        

   基本的就是这样实现的，也可以把SQLHelper放到D层这都不影响各层的关系，也都可以说得通！

   代码我就不一一展示了！

总结：

  刚开始的时候只是知道SQLHelper这个东西能够简化一些代码，方便数据库操作，以为每敲一个七层都要写一个SQLHelper。。。,后来才知道根本就不是那么回事儿，在SQLHelper中封装了好了一些方法分别为：

  增、删、改（有参的）：返回的是一个Boolean类型的情况，即成功与否

  增、删、改（没有参数的）：给U层一个提示成功与否；

  查询（有参）：返回的是符合查询的一个虚拟表

  查询（无参）：直接返回的数据库中表的信息

代码如下：

Imports System
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Data

Public Class sqlHelper
    '配置文件
    Private ReadOnly strConnection As String = ConfigurationManager.AppSettings("connString")
    ' Dim strConnection As String = "server=DESKTOP-MPR3FTG;Database=Mycharge;UserID=sa;Password=1;"
    Dim conn As New SqlConnection(strConnection) '设置连接
    Dim cmd As New SqlCommand   '定义cmd命令

    
    ''' <summary>
    ''' 执行增删改三个操作，（有参）返回值为Boolean类型,确认是否执行成功
    ''' </summary>
    ''' <param name="cmdText">需要执行语句一般是sql语句,也有存储过程</param>
    ''' <param name=" cmdType">判断sql语句的类型一般都不是存储过程</param>
    ''' <param name=" paras"> 参数数组，无法确认有多少参数</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function ExecAddDelUpdate(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As Boolean
        '将传入的值，分别为cmd的属性赋值

        cmd.Parameters.AddRange(paras) '将参数传人
        cmd.CommandText = cmdText
        cmd.CommandType = cmdType  '设置一个值解释cmdtext
        cmd.Connection = conn  '设置连接，全局变量

        Try
            conn.Open() '打开连接
            cmd.ExecuteNonQuery() ' 执行增删改操作
            cmd.Parameters.Clear()  '清除参数
        Catch ex As Exception
            Return False      '如果出错，返回0
        Finally
            cmd.Parameters.Clear()  '清除参数
            Call CloseConnection(conn)
            Call CloseCmd(cmd)
        End Try
        Return True

    End Function

    ''' <summary>
    ''' 执行增删改三个操作（无参）
    ''' </summary>
    ''' <param name="cmdText">需要执行语句，一般是sql语句，也有存储过程</param>
    '''  <param name="cmdType">判断sql语句的类型，一般都不是存储过程</param>
    ''' <returns>Interger,受影响的行数</returns>
    ''' <remarks></remarks>
    Public Function ExecAddDelUpdateNo(ByVal cmdText As String, ByVal cmdType As CommandType) As Boolean
        '给要执行命令的cmd赋值
        cmd.CommandText = cmdText  '先是查询的sql语句
        cmd.CommandType = cmdType   '设置sql语句如何解释
        cmd.Connection = conn    '设置连接

        '执行操作
        Try
            conn.Open()
            Return cmd.ExecuteNonQuery()
        Catch ex As Exception
            Return False
        Finally
            Call CloseConnection(conn)
            Call CloseCmd(cmd)
        End Try
    End Function

    ''' <summary>
    ''' 执行查询操作，（有参）参数不限
    ''' </summary>
    ''' <param name="cmdText">需要执行语句一般是sql语句,也有存储过程</param>
    ''' <param name=" cmdType">判断sql语句的类型一般都不是存储过程</param>
    ''' <param name=" paras"> 传入的参数</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function ExecSelect(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As DataTable

        Dim sqlAdapter As SqlDataAdapter
        Dim dt As New DataTable
        Dim ds As New DataSet

        '将传入的值，分别为cmd的属性赋值

        cmd.CommandText = cmdText
        cmd.CommandType = cmdType  '设置一个值解释cmdtext
        cmd.Connection = conn  '设置连接，全局变量
        cmd.Parameters.AddRange(paras) '参数添加
        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)
        End Try
        Return dt
    End Function

    ''' <summary>
    ''' 执行查询操作，无参
    ''' </summary>
    ''' <param name="cmdText">需要执行语句一般是sql语句,也有存储过程</param>
    ''' <param name=" cmdType">判断sql语句的类型一般都不是存储过程</param>
    ''' <returns>dataTable,查询到的表格</returns>
    ''' <remarks></remarks>
    Public Function ExecSelectNo(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal paras As SqlParameter()) As DataTable

        Dim sqlAdapter As SqlDataAdapter

        Dim ds As New DataSet

        '将传入的值，分别为cmd的属性赋值

        cmd.CommandText = cmdText
        cmd.CommandType = cmdType  '设置一个值解释cmdtext
        cmd.Connection = conn  '设置连接，全局变量

        sqlAdapter = New SqlDataAdapter(cmd) '实例化adapter

        Try
            sqlAdapter.Fill(ds)  '用adapter将dataset填充
            Return ds.Tables(0)   'datatable为dataset的第一个表
        Catch ex As Exception
            Return Nothing
        Finally

            Call CloseCmd(cmd)
        End Try

    End Function


#Region "关闭命令，关闭连接"
    Public Sub CloseCmd(ByVal cmd As SqlCommand)
        If Not IsNothing(cmd) Then '判断是否为空
            cmd.Dispose() '销毁
            cmd = Nothing
        End If
    End Sub

    Public Sub CloseConnection(ByVal conn As SqlConnection)
        If Not IsNothing(conn.State <> ConnectionState.Closed) Then
            conn.Close()
            conn = Nothing
        End If
    End Sub
#End Region

End Class