2. 程式人生 > >機房收費重構（四）-SqlHelper

機房收費重構（四）-SqlHelper

阿新 • • 發佈：2019-02-16

      最近由於學校專業課考試，導致上一篇的一些部落格沒有及時補上，讓讀者久等了，下面來說說關於DAL中一個模板吧-SqlHelper。

     在敲機房收費中，有好多都是重複的訪問資料庫這些操作，這樣我們可以將這些步驟抽象出來，命名為SqlHelper。在任何時候想到抽象和封裝。面向物件的思想深入骨髓。

     在SQLHelper中主要有四類，分別是：
        不帶引數的sql增刪改語句或儲存過程（無返回行或值）
        帶引數的sql增刪改語句或儲存過程（無返回行或值）
        不帶引數的sql查詢語句或儲存過程，返回DataTable結果集（有返回行或值）
        帶引數的sql查詢語句或儲存過程，返回DataTable結果集（有返回行或值）

     好了廢話少說，直接上程式碼模板了。

     1. 首先要通過配置檔案獲得字串

<span style="font-size:14px">Imports System.Data.SqlClient
Imports System.Configuration        '新增對配置檔案的引用
Public Class SqlHelper

    '通過配置檔案獲取連線字串並賦值給所宣告的變數strConnection
    Dim strConnection As String = ConfigurationManager.AppSettings("strSqlConnection")

    Dim conn As SqlConnection = New SqlConnection(strConnection)                    '設定連線 
    Dim cmd As New SqlCommand                                                       '宣告SqlCommand類變數cmd</span>
     2.提取重複的程式碼： 
<span style="font-size:14px">    ''' <summary>
    ''' 關閉連線
    ''' </summary>
    ''' <param name="conn">需要關閉的連線</param>
    ''' <remarks></remarks>
    Private 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>
    Private Sub CloseCmd(ByVal cmd As SqlCommand)
        '如果沒有關閉，則關閉命令
        If Not IsNothing(cmd) Then
            cmd.Dispose()
            cmd = Nothing
        End If
    End Sub</span>
    3.具體操作。分別是有參增刪改、無參增刪改、有參查詢、無參查詢。
<span style="font-size:14px">    ''' <summary>
    ''' 關閉命令
    ''' </summary>
    ''' <param name="cmd">需要關閉的命令</param>
    ''' <remarks></remarks>
    Private Sub CloseCmd(ByVal cmd As SqlCommand)
        '如果沒有關閉，則關閉命令
        If Not IsNothing(cmd) Then
            cmd.Dispose()
            cmd = Nothing
        End If
    End Sub
    ''' <summary>  
    ''' 有引數的 增刪改 操作
    ''' </summary>  
    ''' <param name="cmdText">需要執行的命令</param>  
    ''' <param name="cmdType">所執行命令的型別，一般是Sql語句,也有可能是儲存過程，或表</param>  
    ''' <param name="sqlParams">引數陣列</param>  
    ''' <returns>返回執行 增刪改 語句受影響的行數，為Integer型別</returns>  
    Public Function ExecAddDelUpdate(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal sqlParams As SqlParameter()) As Integer

        '將傳入的值,分別為cmd的屬性賦值  
        cmd.Parameters.AddRange(sqlParams)      '將引數傳入  
        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                            '如果出錯,返回0  
        Finally
            Call CloseConn(conn)                '關閉連線
            Call CloseCmd(cmd)                  '關閉連線
        End Try

    End Function




    ''' <summary>
    ''' 無引數的 增刪改 操作
    ''' </summary>
    ''' <param name="cmdText">需要執行的命令</param>
    ''' <param name="cmdType">所執行命令的型別，一般是Sql語句,也有可能是儲存過程，或表</param>
    ''' <returns>返回執行 增刪改 語句受影響的行數，為Integer型別</returns>
    Public Function ExecAddDelUpdate(ByVal cmdText As String, ByVal cmdType As CommandType) As Integer

        '將傳入的引數，分別為cmd的屬性賦值
        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                            '如果出錯,返回0  
        Finally
            Call CloseConn(conn)                '關閉連線
            Call CloseCmd(cmd)                  '關閉連線
        End Try

    End Function




    ''' <summary>
    ''' 有引數的 查詢 操作
    ''' </summary>
    ''' <param name="cmdText">需要執行的命令</param>  
    ''' <param name="cmdType">所執行命令的型別，一般是Sql語句,也有可能是儲存過程，或表</param>  
    ''' <param name="sqlParams">引數陣列</param>  
    ''' <returns>返回執行 查詢 得到的結果,為DataTable型別</returns>  
    Public Function ExecSelect(ByVal cmdText As String, ByVal cmdType As CommandType, ByVal sqlParams As SqlParameter()) As DataTable

        Dim sqlAdapter As SqlDataAdapter        '宣告介面卡
        Dim dt As New DataTable                 '宣告資料表
        Dim ds As New DataSet                   '宣告資料快取

        '將傳入的值,分別為cmd的屬性賦值  
        cmd.Parameters.AddRange(sqlParams)      '將引數傳入  
        cmd.CommandType = cmdType               '設定一個值,解釋cmdText  
        cmd.Connection = conn                   '設定連線  
        cmd.CommandText = cmdText               '設定查詢的語句  

        sqlAdapter = New SqlDataAdapter(cmd)    '例項化介面卡

        '執行操作
        Try
            sqlAdapter.Fill(ds)                 '用介面卡對ds進行填充
            dt = ds.Tables(0)                   '返回資料集的第一個表
            cmd.Parameters.Clear()              '清除引數
        Catch ex As Exception
            MsgBox("查詢失敗", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "警告")
        Finally
            Call CloseConn(conn)                '關閉連線
            Call CloseCmd(cmd)                  '關閉連線
        End Try
        Return dt

    End Function




    ''' <summary>
    ''' 無引數的 查詢 操作,返回值為DataTable型別
    ''' </summary>
    ''' <param name="cmdText">需要執行的命令</param>  
    ''' <param name="cmdType">所執行命令的型別，一般是Sql語句,也有可能是儲存過程，或表</param>  
    ''' <returns>返回執行 查詢 得到的結果,為DataTable型別</returns>  
    Public Function ExecSelect(ByVal cmdText As String, ByVal cmdType As CommandType) As DataTable

        Dim sqlAdapter As SqlDataAdapter        '宣告介面卡
        Dim dt As New DataTable                 '宣告資料表
        Dim ds As New DataSet                   '宣告資料快取

        '將傳入的值,分別為cmd的屬性賦值  
        cmd.CommandType = cmdType               '設定一個值,解釋cmdText  
        cmd.Connection = conn                   '設定連線  
        cmd.CommandText = cmdText               '設定查詢的語句  

        sqlAdapter = New SqlDataAdapter(cmd)    '例項化介面卡

        '執行操作
        Try
            sqlAdapter.Fill(ds)                 '用介面卡對ds進行填充
            dt = ds.Tables(0)                   '返回資料集的第一個表
        Catch ex As Exception
            MsgBox("查詢失敗", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "警告")
        Finally
            Call CloseConn(conn)                '關閉連線
            Call CloseCmd(cmd)                  '關閉連線
        End Try
        Return dt

    End Function

End Class</span>
      在今後的機房收費，我想都會用到這個步驟，大家不會每次訪問資料庫的總是重複的寫那麼查詢資料庫的程式碼吧，從SqlHelper中我們可以學到面向物件的思想，以後在今後的程式設計中要注意會使用模板。這樣精簡程式碼，提高程式碼利用率。

相關推薦

機房收費重構（四）-SqlHelper

      最近由於學校專業課考試，導致上一篇的一些部落格沒有及時補上，讓讀者久等了，下面來說說關於DAL中一個模板吧-SqlHelper。      在敲機房收費中，有好多都是重複的訪問資料庫這些操作，這樣我們可以將這些步驟抽象出來，命名為SqlHelper。在任何時候想

機房收費系統（四）---組合查詢

  涉及的窗體有學生基本資訊維護，學生上機記錄查詢，學生上機統計查詢初次見到組合查詢介面，有種似曾相識的感覺。沒錯，我們在學生資訊管理系統裡面見過類似的。也可以說我們已經接觸過組合查詢了。不同的是這次的組合查詢要多一點，相對來講複雜一點。今天我就用學生基本資訊維

機房收費系統（四）-結賬

【前言】 在寫結賬程式碼之前，我們要明白結賬的含義和思路。 含義：是誰來結賬？結的是誰的賬？這是必須弄明白的。 結賬：是管理員來結賬，管理員結的是操作員的賬。 之前總是聽別人說結賬是個難點，所以心裡有點抵觸，並且不想去做，感覺自己不會做，弄不明白。只有做過之後才

機房收費系統（二）項目開發計劃

tro 外部 程序語言 友好 知識 add sql 數據庫 名稱 項目開發計劃 1引言 1.1編寫目的 主要對開發機房收費系統的費用、時間、進度、人員組織、硬件設備的配置、開發環境和執行環境的配置進行說明。為開發的下一步做準備。預期讀者是系統分析員和開發者。

機房收費系統（三）-組合查詢

【前言】 一拖再拖，組合查詢終於做完了，並且弄明白了其中的含義。下面就以操作員的工作記錄窗體為例，來總結一下組合查詢吧！ 【內容】 組合查詢： 第一行（可單獨查詢）即為第一個條件，第二行為第二個條件，第三行為第三個條件。利用“組合關係”控制元件將條件連線起來，進行組合查詢。 導圖 這張

機房收費系統（二）-上下機

【前言】 開始做機房時間也不短了，也看了不少大佬的部落格，但是真的是每個人有每個人的思路，所以我也有了自己的思路。剛開始的時候沒有什麼思路，不知道如何下手，只有靜下心來，一點點往下走，才能理清自己的思路。有些地方可能還存在不足，望指點。 【內容】 上機和下機導圖 上機程式碼 Priv

機房收費系統（一）-命名規範

【前言】 命名規範至關重要，做好機房系統的第一步工作。 【內容】 1.主選單命名 一般使用者：GeneralUser 學生檢視餘額：StuInquiryBalanceMenu 學生檢視上機記錄：StuInquiryLineRecordMenu 學生充值記錄查詢：StuInquiryRec

機房收費系統（一）------登入&修改

前言 進行機房也有一段時間了，一直處於走迷宮的狀態不知從何入手。從生活中出發，我們在使用某個系統時，一般情況下最先進入該系統的登入頁面。現在輪到自己敲系統了，當然也是從登入開始啦。 正文 機房收費系統登入窗體的思路，和有原始碼的學生系統的思路是大同

機房收費系統（一）——組合查詢

對於敲完機房收費系統的我們對於組合查詢應該都不在陌生了吧。想想當時我在敲之前聽別人說它比較麻煩的時候，我足足停了兩天才開始對這部分下手。一下手就感覺我之前在學生資訊管理系統裡面見過啊（根據姓名、班級、

.NET重構（四）：窗體繼承+模板方法，完美實現組合查詢

導讀：在機房重構中，有好些個查詢都是大同小異，最為顯著的就是組合查詢了。怎樣給自己省事兒，相同的東西能不能重複利用，就成了一個現實的問題。第一遍做機房的時候，使用的更多的是：複製+貼上。學習了設計模式後，可以用模板方法解決。這篇文章，就通過窗體繼承和模板方法，實現組合查詢。

VB查詢資料庫之登陸窗體——機房收費總結（一）

    機房收費系統已經做了很長一段時間了，雖然到目前為止，仍然沒有結束，但已經結節尾聲了。我感覺現在有必要回首總結一下整個機房收費系統。     除了結賬做了一半，報表接觸一點之外，其他的都基本上差不多了。從做過的這些和正要做的來分析機房收費，我把他分成了幾個部分：查詢資

機房收費系統（三）—再看組合查詢

寫在前面： 組合查詢顧名思義是多條件查詢，關鍵就是確定在一定的條件下需要查詢與這個條件想對應的內容，確定好查詢內容之後，每一次查詢都是在上一個條件基礎上加一個條件的查詢。 下面就看一下機房中複合查詢

機房收費系統（七）——學生基本資訊維護

概述 學生基本資訊維護裡面所用到的知識點有查詢類，更準確的說是組合查詢。該知識點堪稱機房收費系統三大難點之一。那麼它的難到底難在哪裡？下面我們來逐一進行分析。 流程圖 通過上面兩張圖可以清晰的看到，查詢難在哪裡： 首先、我們需要進行判斷查詢是

機房收費系統（一）——退卡操作

在敲機房的時候，感覺退卡挺簡單的，很快的完成了。但是驗收的時候，它卻出問題了——該卡正在上機，可以退卡，但是卻沒有對下機進行處理。現在重新來實現這個功能，其實仍然也是很簡單的。 一、整理思路    

機房收費系統（三）——登入介面

概述 機房收費系統其實和學生資訊管理系統差不多，難度麼有增加多少。關鍵在於需要我們在敲程式碼之前把思路搞清楚，程式碼並不是什麼大事。這裡我就採用了畫流程圖的形式，把要實現的功能都畫出來，然後進行程式碼的編輯。下面就來分享我的思路和部分程式碼。 流程圖

機房收費系統（1）-註冊控制元件

根據師哥給的機房收費系統使用說明：在cmd命令中輸入“regsvr +路徑+控制元件名稱，相信大家在操作的時候都有如下試水。 看看犯的錯誤都覺得可笑，把”+“都給人家輸上了。圖中的錯誤提示框是最後一

機房收費系統（二）之下機退卡

今天我又回顧了一下 機房管理系統，看見了我熟悉的花費了我三天才敲好的窗體（當然想了兩天），然後今天我就來總結一下下機退卡吧！  第一句話是讓子窗體在父窗體中的圖片框裡顯示！ 其他的然後就是定義函式名

VB查詢資料庫之組合查詢——機房收費總結（二）

     在機房收費系統中，組合查詢用的還是挺多的，像上機狀態查詢窗體、學生上機統計資訊窗體、操作員工記錄窗體、基本資訊維護窗體。這其中，學生基本資訊維護窗體中的東西比較多，就以它為例子，說說組合查詢吧！      學生基本資訊維護窗體如圖所示：     先把程式碼放在

【機房重構】——增刪改查（四）

【查】 1.返回布林值，不需要知道表裡的內容，只判斷是否存在 UI層 Entity.UserInfo entity = new Entity.UserInfo(); entity.UserID = txtUserID.Text; Facade.LoginFacade facade =

機房收費（四）之結賬

前言            結賬也是一個相對複雜的窗體，結賬之前，我們需要明白結什麼賬？怎麼結賬？。。。在學習結賬的時候，我也遇到了很多問題，現在做一個簡單的總結。 結賬 準備工作1——選項卡控制元