VB.NET+三层 机房收费系统之组合查询

分类：VB作者：佚名

关系组合查询已经用去了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 + "不能为空！","温馨提示")
                    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 + "不能为空！","温馨提示")
                    MsgBox(control.Tag.ToString + "不能为空！","温馨提示")
                    control.Focus()
                    Return True
                    Exit Function
                End If
            ElseIf TypeOf control Is ComboBox Then '判断控件是不是组合框  
                If control.Text.Trim = "" Then
                    'MsgBox(control.Tag.ToString + "不能为空！","温馨提示")
                    MsgBox("不能为空！","温馨提示")

                    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：建立一个视图，直接调就行了。

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。

相关推荐

VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 -------------------------------- 数字类型的格式化 --------------------------------     固定格式参数：     General Number 普通数字，如可以用来去掉千位分隔号     format$("100,1
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTime 竟然结果和系统设置的区域语言的日期和时间格式相关。意思是尽管你用诸如 Format(Now, "MM/dd/yyyy")，如果系统的设置格式区域语言的日期和时间格式分隔符是"-",那他还会显示为 MM-dd-yyyy     只有拼凑： <%response.write
VB.net 捕获项目全局异常
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘全局错误处理，新的解决方案直接添加本ApplicationEvents.vb 到工程即可 ‘添加后还需要一个From用来显示错误。如果到这步还不会则需要先打好基础啦 ‘======================================================== ‘以下事件
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，看来我以前没有认真去找这个方法呀。 https://blog.csdn.net/chzjxgd/article/details/6176325 金蝶K3 BOS的插件官方是用VB6编写的，如果  能用.Net下的语言工具开发BOS插件是一件很愉快的事情，其中缘由不言而喻，而本文则是个人首创，实现在了用V
vb，wps，excel 分裂
Sub 分列() ‘以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, tmpStr As String, s As String Dim x As Integer, y As Integer, subStr As String If MsgBox("确定要分列处理吗？请确定分列的数据会覆盖它后面的单元格！", _
VB文件 hash 查看器
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) 2 Dim path As String, hash As String 3 For Each fil
VB.NET MYSQL DataGridView 增删改查INSERT,SELECT,UPDATE,DELETE
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS Dim conString As String = "Server=localhost;Database=net2;Uid=root;Pwd=123456;" Dim con As New MySqlConnection
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Dim Sql As String Dim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim S As String   S = "Provider=OraOLEDB.Oracl
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class Form1 Dim A(254) As String    Function ping(ByVal IP As Integer) As String Dim IPAddress As String IPAddress = "10.0.
VB等待进程结束
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5494084 Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Pr
vb中去掉string数组的一部分
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时候所有的验证信息都存放在一个数组里 Dim CheckUserInfo() As String ={UserBirthday, SecEmail, UserMob, UserSex, RealNameFirst, RealName, CheckCardID, CheckCardType, Contactemail
VB如何连接SQL Server数据库
在VB6.0中，数据访问接口有三种： 1、ActiveX数据对象（ADO） 2、远程数据对象（RDO） 3、数据访问对象（DAO） 1.使用ADO（ActiveX Data Objec，ActiveX数据对象）连接SQL Server 1）使用ADO控件连接 使用ADO控件的ConnectionString属性就可以连接SQL Server，该属性包含一个由分号分隔的argument=value语
Visual Basic 6.0VB6.0详细安装过程
注：大家如果没有VB6.0的安装文件，可自行百度一下下载，一般文件大小在200M左右的均为完整版的软件，可以使用。   特别提示：安装此软件的时候最好退出360杀毒软件（包括360安全卫士，电脑管家等，如果电脑上有这些软件的话），因为现如今的360杀毒软件直接会对VB6.0软件误报，这样的话就可能会在安装过程中被误报阻止而导致安装失败，或者是安装后缺乏很多必须的组件（其它的杀毒软件或安全卫士之类的
使用VB6读取数据库资源并发送邮件原创
Private Sub Form_Load() Call conndb End Sub Private Function conndb() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strCn, sql As String Dim db_host As String Dim db_user As String
POS VB
  PPSM06S70:  Add  moddate  EDITSPRINTJOB:  MAX(TO_CHAR(ETRN.MODDATE, ‘yyyy/mm/dd/HH24:MI AM‘)) ACTUAL_SHIPDATE   4.Test Scenario (1) ：Query SQL Test DN:8016578337 SELECT CTRN.TKCTID TRUCK_ID,        
vb.net 水晶報表CrystalReport 動態設定資料庫來源
  沒有出現CrystalReportViewer時,須安裝CRforVS_13_0. 新增1個數據集,新增1個數據表,添加二列,列名要和資料庫名一樣. 修改目標Framework 修改app.config, <startup >改成<startup useLegacyV2RuntimeActivationPolicy ="true">  CrystalReport1.rpt增加數據庫專家 在表單
VB.net 与线程
Imports System.Threading Imports System Public Class Form1 Dim th1, th2 As Thread Public Sub Method1() Dim i As Integer For i = 1 To 100 If Me.Label1.BackColor =
vb.net Process32First和Module32First
Friend Const PROCESS_ALL_ACCESS = &H1F0FFF = 2035711 Friend Const PROCESS_VM_READ = &H10 Friend Const PROCESS_VM_WRITE = &H20 Friend Const PAGE_READONLY = &H2 Friend Const PAGE_READWRITE = &H4 Friend
vb.net 分割byte数组的方法SplitBytes
以下代码随手写的 并没有大量测试 效率也有待提升 如果需要C#的请自行转换 Function SplitBytes(Data As Byte(), Delimiter As Byte()) As List(Of Byte()) Dim i = 0 Dim List As New List(Of Byte()) Dim bytes As New
VB.NET连接SQL_Server实例
Imports System.Data.SqlClient Public Class Form1 REM Public conn1 As SqlConnection = New SqlConnection("server=.; Integrated Security=False;Initial Catalog= mydatabase1; User ID= sa;password")
pythonJavaScriptjavaHTMLPHPreactjsC#AndroidCSSNode.jssqlrpython-3.xMysqLjQueryc++pandasFlutterangularIOSdjangolinuxswifttypescript路由器JSON路由器设置无线路由器h3c华三华三路由器设置华三路由器电脑软件教程arraysdocker软件图文教程Cvue.jslaravelspring-boot