2. 程式人生 > >VB.NET+三層 機房收費系統之組合查詢

VB.NET+三層 機房收費系統之組合查詢

阿新 • • 發佈：2018-12-31

  關係組合查詢已經用去了4天的時間，每天都在痛苦中煎熬，絞盡腦汁，一句程式碼都要瞪大眼睛看好長時間，有時候，因為兩句話顛倒了，就nothing了；有時候，因為table怎樣能夠轉換成實體型別，將自己困住了，一想就是半天。狀況不斷呀，看了很多師哥師姐們的程式碼，他們分享著自己的程式碼，為了給大家一點東西，給拿出自己給大家分享，期望大家能給點意見。

 步驟：

 （1）、首先建立實體，實體是用來儲存變數的。

 （2）、建立B層，B層除了有呼叫D層的函式，同時，它也有將漢字轉換為sql中的欄位的功能。

 （3）、建立D層，D層中我呼叫的是檢視，應為我把學生表和卡表分開了（這個不打緊），如果你可以只查詢一張表，直接用查詢表就行了；如果用的資料不單單在一張表上的時候，可以試試用檢視，很簡單的。

 （4）、建立U層，U層中主要是檢查格式是否正確（主要是有沒有空的，在程式碼中有詳細說明，看程式碼中的註釋就明白了）。

  三層設計：

  U層設計：

  這裡我為什麼先寫U層呢？不應該先寫實體（E）層嗎？其實我就是先寫的U層，因為我也不知道，我用到了那些實體，它不光光包含了資料庫中的表的欄位，還有一些其他的引數。

  U層的介面設計：


  U層的程式碼：

Imports System.Data.SqlClient
Imports System.Windows.Forms
Public Class FrmOperStuInfo

    Private Sub btnQurry_Click(sender As Object, e As EventArgs) Handles btnQurry.Click
        '----------------------------------------------------------------
        '第一行查詢不能為空，黨第一行為空的話，後面的條件都不能有內容，
        '當第一個組合框不為空是，第二行不能為空。同時，如果第一個組合框為空時，第二個組合框不能有內容
        '當第二個組合框不為空時，第三行不能為空。
        '-----------------------------------------------------------------

        Dim QueryStudent As New Entity.QueryStudentEntity    '這個實體是用來傳實體的
        Dim QueryStudentBLL As New BLL.QurryStudentBLL
        Dim controlArray(2) As Control
        Dim table As System.Data.DataTable  '接收實體的，但用的不是entity型別的，傳回的是datatable，因為dataGirdView用的會比較舒服
        Dim sqlstring As String 'sql的查詢語句
        Dim relation1 As String
        Dim relation2 As String

        Try
            controlArray(0) = combofield1 '第一行
            controlArray(1) = Combochar1
            controlArray(2) = TextBox1
            QueryStudent.Field1 = QueryStudentBLL.ChangeField(combofield1.Text)
            sqlstring = "SELECT * FROM V_QueryStudent WHERE " & QueryStudent.Field1 & Combochar1.Text & "'" & TextBox1.Text & "'"    '當只有第一行有東西的時候


            If CommonFunction.IsSomeEmptyText(controlArray) Then   '輸入為空
                Exit Sub
            End If

            If Comborela1.Text.Trim <> "" Then    '第一個組合框不為空的時候
                controlArray(0) = Combofield2 '第二行
                controlArray(1) = Combochar2
                controlArray(2) = TextBox2
                QueryStudent.Field2 = QueryStudentBLL.ChangeField(Combofield2.Text)
                relation1 = QueryStudentBLL.ChangeRelation(Comborela1.Text)
                sqlstring = sqlstring & " " & relation1 & " " & QueryStudent.Field2 & Combochar2.Text & TextBox2.Text    '當只有第一行有東西的時候


                If CommonFunction.IsSomeEmptyText(controlArray) Then
                    Exit Sub
                End If

                If Comborela2.Text.Trim <> "" Then '第二個組合框不為空的時候，第三行也一定不能為空
                    controlArray(0) = Combofield3 '第二行
                    controlArray(1) = Combochar3
                    controlArray(2) = TextBox3
                    QueryStudent.Field3 = QueryStudentBLL.ChangeField(Combofield3.Text)
                    relation2 = QueryStudentBLL.ChangeRelation(Comborela2.Text)
                    sqlstring = sqlstring & " " & relation2 & " " & QueryStudent.Field3 & Combochar3.Text & TextBox3.Text    '當只有第一行有東西的時候


                    If CommonFunction.IsSomeEmptyText(controlArray) Then
                        Exit Sub
                    End If
                End If
            Else
                Comborela2.Text = "" '第一個組合框為空的時候，第二個組合框一定為空
            End If

            QueryStudent.Field1 = combofield1.Text  '往實體中傳參用的
            QueryStudent.Field2 = Combofield2.Text
            QueryStudent.Field3 = Combofield3.Text

            QueryStudent.Char1 = Combochar1.Text
            QueryStudent.Char2 = Combochar2.Text
            QueryStudent.Char3 = Combochar3.Text

            QueryStudent.Relation1 = Comborela1.Text
            QueryStudent.Relation2 = Comborela2.Text

            QueryStudent.Content1 = TextBox1.Text
            QueryStudent.Content2 = TextBox2.Text
            QueryStudent.Content3 = TextBox3.Text
            QueryStudent.sqlstring = sqlstring '將字串也要傳給它

            table = QueryStudentBLL.QueryStudent(QueryStudent) '接收返回值的table型別的

            DataGridView1.DataSource = table '繫結

        Catch ex As Exception
            MsgBox(ex.Message)

        End Try

    End Sub

  公共函式： 
Public Class CommonFunction
    Public Shared Function IsAllEmptyText(ByVal frm As Form) As Boolean
        Dim control As New Control

        For Each control In frm.Controls '遍歷窗體中所有的控制元件  
            'MsgBox(frm.Controls.Count)  
            If TypeOf control Is TextBox Then '判斷控制元件是不是文字框  
                If control.Text.Trim = "" Then '判斷文字框內容是否為空  
                    MsgBox(control.Tag.ToString + "不能為空！", vbOKOnly, "溫馨提示")
                    control.Focus()
                    Return True
                    Exit Function
                End If
            ElseIf TypeOf control Is ComboBox Then '判斷控制元件是不是組合框  
                If control.Text.Trim = "" Then
                    MsgBox(control.Tag.ToString + "不能為空！", vbOKOnly, "溫馨提示")
                    Return True
                    Exit Function
                End If
            End If
        Next

        Return False
    End Function


    ''' 判斷控制元件陣列中的控制元件的Text屬性是否為空,有空時返回true  
    
    Public Shared Function IsSomeEmptyText(ByVal arrayControl() As Control) As Boolean
        Dim control As New Control

        For Each control In arrayControl '遍歷陣列中所有元素  
            If TypeOf control Is TextBox Then '判斷控制元件是不是文字框  
                If control.Text.Trim = "" Then '判斷文字框內容是否為空  
                    'MsgBox(control.Tag.ToString + "不能為空！", vbOKOnly, "溫馨提示")
                    MsgBox(control.Tag.ToString + "不能為空！", vbOKOnly, "溫馨提示")
                    control.Focus()
                    Return True
                    Exit Function
                End If
            ElseIf TypeOf control Is ComboBox Then '判斷控制元件是不是組合框  
                If control.Text.Trim = "" Then
                    'MsgBox(control.Tag.ToString + "不能為空！", vbOKOnly, "溫馨提示")
                    MsgBox("不能為空！", vbOKOnly, "溫馨提示")

                    Return True
                    Exit Function
                End If
            End If
        Next

        Return False
    End Function
End Class

  上面是一個窗體，是用來呼叫B層，下面是一個類，是用來判斷格式（是否有本不該為空的控制元件）通俗的講。

  E層的程式碼：

Public Class QurryStudentBLL
    Public Function ChangeObject(ByVal qurryStudent As Entity.QueryStudentEntity) As Entity.QueryStudentEntity
        qurryStudent.Field1 = ChangeField(qurryStudent.Field1)
        qurryStudent.Field2 = ChangeField(qurryStudent.Field2)
        qurryStudent.Field3 = ChangeField(qurryStudent.Field3)
        '這裡的char 是不需要轉換的
        qurryStudent.Relation1 = ChangeRelation(qurryStudent.Relation1)
        qurryStudent.Relation2 = ChangeRelation(qurryStudent.Relation2)
        Return qurryStudent
    End Function

    Public Function ChangeField(ByVal strField As String) As String '轉換欄位
        Dim strFields As String = ""
        Select Case strField
            Case "卡號"
                strFields = "CardNo"
            Case "學號"
                strFields = "StudentNO"
            Case "姓名"
                strFields = "StudentName"
            Case "性別"
                strFields = "Sex"
            Case "系別"
                strFields = "Department"
            Case "年級"
                strFields = "Grade"
            Case "班級"
                strFields = "Class"
        End Select
        Return strFields
    End Function

    Public Function ChangeRelation(ByVal strRelation As String) As String '轉換組合符
        Dim strRelations As String = ""
        Select Case strRelation
            Case "與"
                strRelations = "AND"
            Case "或"
                strRelations = "OR"
            Case ""
                strRelations = ""     '這裡也可以給它賦一個空值
        End Select
        Return strRelations
    End Function

    Public Function QueryStudent(ByVal QueryStudentBLL As Entity.QueryStudentEntity) As System.Data.DataTable
        Dim queryStudentDAL As New DAL.StudentDAL
        Dim queryStudents As New System.Data.DataTable

        queryStudents = queryStudentDAL.QueryStudent(QueryStudentBLL)
        Return queryStudents

    End Function
End Class

  通過U層，就可以知道，B層裡面需要轉換的字元，以及呼叫D層的函式。 
    Function QueryStudent(ByVal queryStudent1 As Entity.QueryStudentEntity) As System.Data.DataTable
        Dim conn As SqlConnection = New SqlConnection(SqlUtil.connstring())                       '定義連線開啟資料庫，這裡也有另一種方法寫
        Dim sql As String
        sql = queryStudent1.sqlstring
        Dim cmd As SqlCommand = New SqlCommand(sql, conn)                              '定義資料庫命令
        'cmd.CommandText = sql        '儲存過程
        'cmd.CommandType = CommandType.Text
        Dim myAdapter As SqlDataAdapter = New SqlDataAdapter(cmd)


        Dim table As DataTable = New DataTable()  '要返回的是datatable型別的

        Try
            conn.Open()
            myAdapter.Fill(table)   'fill是用來將Adapter查詢到的檢視，放到table裡面



        Catch ex As Exception
            MsgBox(ex.Message)
        End Try


        Return table

    End Function
End Class
  好的，到了這裡就整個都寫完了。

  注意：

 （1）、DataTable這樣轉換為實體型別？答：不需要一個一個賦值，真的很麻煩，直接這樣就可以了//table = QueryStudentBLL.QueryStudent(QueryStudent) '接收返回值的table型別的//.

 （2）、如果我在SQL中用來了兩個表查詢，是不是建立兩個實體，兩個B層呀？答：不需要，方法1：建立一個實體，將兩個表所用到的欄位放到裡面，方法2：建立一個檢視，直接調就行了。

相關推薦

VB.NET+三層 機房收費系統之組合查詢

  關係組合查詢已經用去了4天的時間，每天都在痛苦中煎熬，絞盡腦汁，一句程式碼都要瞪大眼睛看好長時間，有時候，因為兩句話顛倒了，就nothing了；有時候，因為table怎樣能夠轉換成實體型別，將自己困住了，一想就是半天。狀況不斷呀，看了很多師哥師姐們的程式碼，他們分享著自

VB.NET版機房收費系統之組合查詢

    之前用VB做組合查詢的時候沒有認真的思考過，這次再做機房決心不能就這麼放過，今天就來說一說組合查詢。     首先做組合查詢，我用的是窗體的繼承，簡化了不少程式碼，大家也寫了很多窗體繼承的文章

機房收費系統之組合查詢（程式碼部分）

       最近的事情比較多，本該留出大塊時間整理組合查詢的程式碼部分，結果是分為一段一段的零散時間來整理的，最終整理的這些組合查詢程式碼可能還是有很多冗餘，本來不想拿出來的，但考慮到自己的不足就要展示給大家，這樣自己才能進步嘛，所以還是厚著臉皮把我冗餘的程式碼展示出來了，

機房收費系統之組合查詢

組合查詢不愧是機房三大難點之一，起初不知道如何組建查詢的關係就去找巨人去了，最後看到巨人們的總結，捋順了才明白，其實很簡單。 我們的欄位名選擇是漢字，要想在資料庫中查詢欄位，根本就不認識，這就需要我將漢字轉換為相應的字串，為了方便簡潔，定義一個函式，程式碼中的FiledNa

機房收費系統之組合查詢的發展過程

         下面說下我的組合查詢吧。          在組合查詢這，最早的想法是用structure，因為印象中有一種型別，是可以用int型別來訪問的，可是做的時候發現不是structure，

機房收費系統之—組合查詢

       在敲組合查詢的時候，我遇到了很多問題，比如說查詢的語法怎麼連線啊，怎麼讓控制元件中的文字資訊也就是說欄位名，組合關係對應資料庫表中的欄位哪？      也就是說我們要讓卡號=Cardno，讓姓名=StudentName ，這樣我們在查詢的時候才方便了，反成不能

機房收費系統之組合查詢的傳參問題

         我的機房收費系統中，我研究最多的就是這個組合查詢了，因為第一次做的時候，沒有做出來這樣的組合查詢，而是省時做了點簡單的查詢。這篇我想說一下我的傳參問題。           最開始的

機房收費系統 之 組合查詢BUG

宣告：以下內容只對在學生上機記錄查詢（組合查詢）只查詢已下機記錄，操作員工作記錄（組合查詢）只查詢已登出記錄的同學適用！        說是BUG，其實這也不是一個BUG，只是一個不小心容易犯的錯誤，

機房收費系統之餘額查詢

                  機房收費系統中有幾個窗體用到查詢。     查詢需要解決2個問題：     1、卡號已註冊，即存在該怎樣做        2、卡號未註冊，即不存在該怎樣做    

【機房收費系統】——組合查詢

在機房收費系統中，其中的組合查詢僅僅在剛開始的時候構思了一點自己的想 法，但是並沒用付諸於行動，去嘗試自己的是否正確，而是選擇了去看之前看 到的一篇關於組合查詢的部落格，說起來有些愧疚的啊。還好的是當我理清思路 之後剩下的組合查詢都是自己的寫的了。

第一次【機房收費系統】——組合查詢

 機房收費系統中共有三個窗體用到了組合查詢，其也算是三大難點之一，我做的流程就是先根據源系統備好框架，然後再去網上看相關的部落格，這麼一來二往，多看幾遍也漸漸懂得了其中的一些“套路”。組合查詢，顧名思義大於等於一的行資料進行查詢，下面我以學生基本資訊維護的窗體為

【第一次機房收費系統】組合查詢

所有的偉大隻源於一個勇敢地開始。 組合查詢之前以為很難，但是真正去開始敲了，你就會發現並不難。敲完了第一個，基本上就算是敲完了。 這是機房收費系統裡面組合查詢的標準樣式，之所以叫組合查詢，是因為我們要將若干個條件選擇出來之後組合在一起來查詢。首先，組合查

VB.NET版機房收費系統之檢視

這次.NET版機房收費系統資料庫設計遵循了三正規化，變動最大的就是實現了學生和卡的分離，這樣避免了非關鍵字對關鍵字的傳遞依賴，卡表中的卡號在學生表中作為一個外來鍵，同樣將卡和學生聯絡起來，不過這樣分離

機房收費系統之結尾

分享一下我老師大神的人工智慧教程！零基礎，通俗易懂！http://blog.csdn.net/jiangjunshow 也歡迎大家轉載本篇文章。分享知識，造福人民，實現我們中華民族偉大復興！        

機房收費系統之總結篇

      歷時兩個月的機房收費系統終於結束咯，感覺機房收費系統在學生管理系統的基礎上又提升了一個等級，學生管理系統是照著原始碼敲的，而機房收費系統除了Excel的匯出，報表的生成，模組是參照原始碼學習的，其他都是自己一個一個敲出來的，感覺還是很充實的，這兩個月都做了哪

機房收費系統之細化篇（跨日期下機，MDI窗體的運用，MDI主窗體與子窗體的互動）

      最近在細化機房收費系統時，發現在下機窗體出現了很多消費時間為負值的情況，有時還會彈出Bug，仔細一看原來是跨日期的消費時間問題，那麼如何設定跨日期的下機呢？在機房收費系統中的MDI 窗體如何運用呢？下面就這兩個問題進行梳理分享。 一、跨日期的下機 核

機房收費系統之手動下機（獲取時間差、更新資料庫資料、判斷時間差）

        下機窗體的梳理著實耗費了不少時間，的確是一個費腦細胞的活兒，不過過程也是挺享受的，那個專注力、那個廢寢忘食的勁頭兒少有吖^_^ 一、下機窗體的流程圖（如有不對的地方還望各位大神給予指導^_^）： 二、錯誤集（本窗體中的大錯誤並不是很多，都是以前遇到

機房收費系統之學生檢視上機記錄（MSHFlexGrid控制元件資料匯出Excel）

       這個窗體之所以可以順利的進行下去，全靠藉助於巨人的力量，站在了巨人的肩膀上前行，Excel的匯出還是很神奇的，讓我們一起來看一下吧^_^ 一、學生檢視上下機記錄窗體的流程圖 二、查詢集 ①、機房收費系統中Excel表如何匯出 ②、vb中DoEve

機房收費系統之收取金額查詢（TPicker控制元件時間段取值、SQL語句中單引號與雙引號區別）

        收取金額查詢窗體較組合查詢而言就是小菜一碟，但即便是內容較少也有其精華之處，現在分享一下我的學習過程吧^_^ 一、收取金額查詢窗體的流程圖： 二、問題集 這是什麼錯誤呢，為什麼會出現這個型別的錯誤？ 產生此問題的程式碼部分是什麼樣子的呢？ 以

機房收費系統之學生基本資訊維護

前言 該窗體功能是實現查詢學生的資訊，並可給予修改的許可權。其中包含兩個重大部分，一是組合查詢，二是修改；其中修改又涉及到了修改學生資訊窗體，此窗體中取消修改嘗試了很多方法，最後選取比較簡單的方法，這個窗體不難。最重要的莫過於組合查詢：組合查詢我使用的方法是一行一行的查，因為對於我目前的