机房重构之开篇

左手的ㄟ右手 2022-07-29 09:24 226阅读 0赞

# 前言： #

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

# UML图： #

![Center][]

基本的就是这样实现的，也可以把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

[Center]: /images/20220728/008574410f1843fe916620c6dd861423.png