vb.net机房收费系统之组合查询

2022-11-15 17:52:39

我个人一直认为，组合查询是机房收费系统的一个难点，尤其是用到三层之后，如果要为组合查询中的每一个查询建立一个显然是太麻烦了。

下面介绍一下我的方法，对大家起个参考作用。

我将该表中可输入的内容定义为一个类，这样调用一次B层和D层就可以了完成查询了。

我以学生上机记录查询为例

vb.net机房收费系统之组合查询

1、UI层

Public Class FrmQuerryRecALLStuUP

    Protected Overrides Sub cmdQuerry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Try

            myGrid.Columns.Clear()

            myGrid.Columns.Add("卡号", "卡号")

            myGrid.Columns.Add("学号", "学号")

            myGrid.Columns.Add("学生姓名", "学生姓名")

            myGrid.Columns.Add("性别", "性别")

            myGrid.Columns.Add("上机日期", "上机日期")

            myGrid.Columns.Add("上机时间", "上机时间")

            myGrid.Columns.Add("上机日期", "下机日期")

            myGrid.Columns.Add("下机日期", "下机时间")

            myGrid.Columns.Add("消费金额", "消费金额")

            ' myGrid.Columns.Add("操作员", "操作员")

            '''''''''''''''将组合框中内容传递到UQuery参数''''''''''''''''''

            Dim UQuery As New Entity.Entity_QueryCompositon

            UQuery.Combine1 = Trim(cobCombine1.Text)

            UQuery.Combine2 = Trim(cobCombine2.Text)

            UQuery.FiledName1 = Trim(cobFild1.Text)

            UQuery.FiledName2 = Trim(cobFild2.Text)

            UQuery.FiledName3 = Trim(cobFild3.Text)

            UQuery.Operator1 = Trim(cobOperator1.Text)

            UQuery.Operator2 = Trim(cobOperator2.Text)

            UQuery.Operator3 = Trim(cobOperator3.Text)

            UQuery.QueryContent1 = Trim(TextBox1.Text)

            UQuery.QueryContent2 = Trim(TextBox2.Text)

            UQuery.QueryContent3 = Trim(TextBox3.Text)

            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

            Dim BQuerry As New BLL.BLL_QuerryCompositon

            Dim BIsEmpty As String

            BIsEmpty = BQuerry.isEmpty(UQuery)  '判断是否为空

            If BQuerry.QuerryOK = False Then    '如果判断失败，则退出

                Exit Sub

            End If

            Dim BModifyFild As New Entity.Entity_QueryCompositon

            BModifyFild = BQuerry.ModifyFild(UQuery)    '将汉字转换为计算机能识别的语言

            Dim table As New DataTable

            table = BQuerry.QuerryStuUp(BModifyFild)

            If table.Rows.Count <= 0 Then

                MsgBox("没有记录")

            Else

                For i = 0 To table.Rows.Count - 1 '将dt表中的内容显示在DataGridView中  ’这种方式显示部分

                    myGrid.Rows.Add()

                    myGrid.Rows(i).Cells(0).Value = table.Rows(i)(0) '卡号

                    myGrid.Rows(i).Cells(1).Value = table.Rows(i)(1) '学号

                    myGrid.Rows(i).Cells(2).Value = table.Rows(i)(2) '学生姓名

                    myGrid.Rows(i).Cells(3).Value = table.Rows(i)(4) '性别

                    myGrid.Rows(i).Cells(4).Value = table.Rows(i)(5) '上机日期

                    myGrid.Rows(i).Cells(5).Value = table.Rows(i)(6) '上机时间

                    myGrid.Rows(i).Cells(6).Value = table.Rows(i)(7) '下机日期

                    myGrid.Rows(i).Cells(7).Value = table.Rows(i)(8) '下机时间

                    myGrid.Rows(i).Cells(8).Value = table.Rows(i)(10) '消费金额

                    '  myGrid.Rows(i).Cells(9).Value = table.Rows(i)(9) '操作员

                Next i

                myGrid.Rows(0).Selected = False

            End If

        Catch ex As Exception

            MsgBox(ex.Message, vbOKOnly, "警告！")

        End Try

    End Sub

    Protected Overrides Sub cmdOut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Dim grd = daochu(myGrid)

    End Sub

    Private Sub FrmQuerryRecALLStuUP_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        cobFild1.Items.Add("卡号")

        cobFild1.Items.Add("学号")

        cobFild1.Items.Add("姓名")

        cobFild1.Items.Add("性别")

        cobFild1.Items.Add("上机日期")

        cobFild1.Items.Add("上机时间")

        cobFild1.Items.Add("下机日期")

        cobFild1.Items.Add("下机时间")

        cobFild1.Items.Add("消费金额")

        cobFild2.Items.Add("卡号")

        cobFild2.Items.Add("学号")

        cobFild2.Items.Add("姓名")

        cobFild2.Items.Add("性别")

        cobFild2.Items.Add("上机日期")

        cobFild2.Items.Add("上机时间")

        cobFild2.Items.Add("下机日期")

        cobFild2.Items.Add("下机时间")

        cobFild2.Items.Add("消费金额")

        cobFild3.Items.Add("卡号")

        cobFild3.Items.Add("学号")

        cobFild3.Items.Add("姓名")

        cobFild3.Items.Add("性别")

        cobFild3.Items.Add("上机日期")

        cobFild3.Items.Add("上机时间")

        cobFild3.Items.Add("下机日期")

        cobFild3.Items.Add("下机时间")

        cobFild3.Items.Add("消费金额")

    End Sub

End Class

2、B层

'/*************************************************

'作者：金福林

'小组: 无

'说明：组合框B层

'创建日期：2014/5/5 20:10:13

'版本号：1.1.0

'**********************************************/ 

Public Class BLL_QuerryCompositon

    Implements IDAL.IDAL_QuerryCompositon

    Public QuerryOK As Boolean = False

    Public Function CombineString(ByVal QuerryCompositon As Entity.Entity_QueryCompositon) As String

    End Function

    Public Function isEmpty(ByVal QuerryCompositon As Entity.Entity_QueryCompositon) As String

        If QuerryCompositon.FiledName1 = "" Then

            MsgBox("字段名不能为空，请重新输入", vbOKOnly, "警告！")

            Exit Function

        End If

        If QuerryCompositon.Operator1 = "" Then

            MsgBox("操作符不能为空，请重新输入", vbOKOnly, "警告！")

            Exit Function

        End If

        If QuerryCompositon.QueryContent1 = "" Then

            MsgBox("查询内容不能为空，请重新输入", vbOKOnly, "警告！")

            Exit Function

        End If

        If QuerryCompositon.QueryContent1.Length > 11 Then

            MsgBox("您对查询内容一输入的字符串过长，请重新输入", vbOKOnly, "警告！")

            Exit Function

        End If

        If QuerryCompositon.Combine1 <> "" Then     '如果组合关系不为空

            If QuerryCompositon.FiledName2 = "" Then

                MsgBox("当存在组合关系时，字段名不能为空，请重新输入", vbOKOnly, "警告！")

                Exit Function

            End If

            If QuerryCompositon.Operator2 = "" Then

                MsgBox("当存在组合关系时，操作符不能为空，请重新输入", vbOKOnly, "警告！")

                Exit Function

            End If

            If QuerryCompositon.QueryContent2 = "" Then

                MsgBox("当存在组合关系时，查询内容不能为空，请重新输入", vbOKOnly, "警告！")

                Exit Function

            End If

            If QuerryCompositon.QueryContent2.Length > 11 Then

                MsgBox("您对查询内容二输入的字符串过长，请重新输入", vbOKOnly, "警告！")

                Exit Function

            End If

        End If

        If QuerryCompositon.Combine2 <> "" Then     '如果组合关系不为空

            If QuerryCompositon.FiledName3 = "" Then

                MsgBox("当存在组合关系时，字段名不能为空，请重新输入", vbOKOnly, "警告！")

                Exit Function

            End If

            If QuerryCompositon.Operator3 = "" Then

                MsgBox("当存在组合关系时，操作符不能为空，请重新输入", vbOKOnly, "警告！")

                Exit Function

            End If

            If QuerryCompositon.QueryContent3 = "" Then

                MsgBox("当存在组合关系时，查询内容不能为空，请重新输入", vbOKOnly, "警告！")

                Exit Function

            End If

            If QuerryCompositon.QueryContent2.Length > 11 Then

                MsgBox("您对查询内容三输入的字符串过长，请重新输入", vbOKOnly, "警告！")

                Exit Function

            End If

        End If

        QuerryOK = True

    End Function

    Public Function ModifyFild(ByVal QUerryCompositon As Entity.Entity_QueryCompositon) As Entity.Entity_QueryCompositon

        Dim tempString As String

        Dim CombineString As New Entity.Entity_QueryCompositon

        Select Case QUerryCompositon.FiledName1

            ''''''''''''''学生信息维护的字段修改''''''''''''''''''''''''''

            Case "学号"

                tempString = "studentNo"

            Case "卡号"

                tempString = "cardno"

            Case "性别"

                tempString = "sex"

            Case "年级"

                tempString = "grade"

            Case "班级"

                tempString = "class"

            Case "姓名"

                tempString = "studentName"

            Case "余额"

                tempString = "cash"

                ''''''''''''学生上机记录的字段更改'''''''''''''''''

            Case "上机日期"

                tempString = "ondate"

            Case "上机时间"

                tempString = "ontime"

            Case "下机日期"

                tempString = "offdate"

            Case "下机时间"

                tempString = "offtime"

            Case "消费金额"

                tempString = "consume"

                ''''''''''''''操作员工作记录字段''''''''''''''''''''''

            Case "教师"

                tempString = "UserID"

            Case "级别"

                tempString = "Level"

            Case "注册日期"

                tempString = "LoginDate"

            Case "注册时间"

                tempString = "LoginTime"

            Case "注销日期"

                tempString = "LogoutDate"

            Case "注销时间"

                tempString = "LogoutTime"

            Case "机器名"

                tempString = "computer"

            Case Else

                tempString = ""

        End Select

        CombineString.FiledName1 = tempString   '修改第一个字符串的名称

        Select Case QUerryCompositon.FiledName2

            Case "学号"

                tempString = "studentNo"

            Case "卡号"

                tempString = "cardno"

            Case "性别"

                tempString = "sex"

            Case "年级"

                tempString = "grade"

            Case "班级"

                tempString = "class"

            Case "姓名"

                tempString = "studentName"

            Case "余额"

                tempString = "cash"

                ''''''''''''学生上机记录的字段更改'''''''''''''''''

            Case "上机日期"

                tempString = "ondate"

            Case "上机时间"

                tempString = "ontime"

            Case "下机日期"

                tempString = "offdate"

            Case "下机时间"

                tempString = "offtime"

            Case "消费金额"

                tempString = "consume"

                ''''''''''''''操作员工作记录字段''''''''''''''''''''''

            Case "教师"

                tempString = "UserID"

            Case "级别"

                tempString = "Level"

            Case "注册日期"

                tempString = "LoginDate"

            Case "注册时间"

                tempString = "LoginTime"

            Case "注销日期"

                tempString = "LogoutDate"

            Case "注销时间"

                tempString = "LogoutTime"

            Case "机器名"

                tempString = "computer"

            Case Else

                tempString = ""

        End Select

        CombineString.FiledName2 = tempString

        Select Case QUerryCompositon.FiledName3

            Case "学号"

                tempString = "studentNo"

            Case "卡号"

                tempString = "cardno"

            Case "性别"

                tempString = "sex"

            Case "年级"

                tempString = "grade"

            Case "班级"

                tempString = "class"

            Case "姓名"

                tempString = "studentName"

            Case "余额"

                tempString = "cash"

                ''''''''''''学生上机记录的字段更改'''''''''''''''''

            Case "上机日期"

                tempString = "ondate"

            Case "上机时间"

                tempString = "ontime"

            Case "下机日期"

                tempString = "offdate"

            Case "下机时间"

                tempString = "offtime"

            Case "消费金额"

                tempString = "consume"

                ''''''''''''''操作员工作记录字段''''''''''''''''''''''

            Case "教师"

                tempString = "UserID"

            Case "级别"

                tempString = "Level"

            Case "注册日期"

                tempString = "LoginDate"

            Case "注册时间"

                tempString = "LoginTime"

            Case "注销日期"

                tempString = "LogoutDate"

            Case "注销时间"

                tempString = "LogoutTime"

            Case "机器名"

                tempString = "computer"

            Case Else

                tempString = ""

        End Select

        CombineString.FiledName3 = tempString

        Select Case QUerryCompositon.Combine1

            Case "与"

                tempString = "and"

            Case "或"

                tempString = "or"

            Case Else

                tempString = ""

        End Select

        CombineString.Combine1 = tempString

        Select Case QUerryCompositon.Combine2

            Case "与"

                tempString = "and"

            Case "或"

                tempString = "or"

            Case Else

                tempString = ""

        End Select

        CombineString.Combine2 = tempString

        'Select Case QUerryCompositon.Operator1

        '    Case "="

        '        tempString = "like"

        '        CombineString.Operator1 = tempString

        '    Case Else

        '        tempString = ""

        '        CombineString.Operator1 = QUerryCompositon.Operator1

        'End Select

        'Select Case QUerryCompositon.Operator2

        '    Case "="

        '        tempString = "like"

        '        CombineString.Operator2 = tempString

        '    Case Else

        '        tempString = ""

        '        CombineString.Operator2 = QUerryCompositon.Operator2

        'End Select

        'Select Case QUerryCompositon.Operator3

        '    Case "="

        '        tempString = "like"

        '        CombineString.Operator3 = tempString

        '    Case Else

        '        tempString = ""

        '        CombineString.Operator3 = QUerryCompositon.Operator3

        'End Select

        '''''''将未替换的字符仍然保留为原来字符'''''''''''''''''''''''

        CombineString.QueryContent1 = QUerryCompositon.QueryContent1

        CombineString.QueryContent2 = QUerryCompositon.QueryContent2

        CombineString.QueryContent3 = QUerryCompositon.QueryContent3

        CombineString.Operator1 = QUerryCompositon.Operator1

        CombineString.Operator2 = QUerryCompositon.Operator2

        CombineString.Operator3 = QUerryCompositon.Operator3

        Return CombineString

    End Function

    Public Function QuerryOperator(ByVal QuerryCompositon As Entity.Entity_QueryCompositon) As System.Data.DataTable Implements IDAL.IDAL_QuerryCompositon.QuerryOperator

        Dim DQueryOperator As New DAL.DAL_QuerryCompositon

        Dim table As New DataTable

        table = DQueryOperator.QuerryOperator(QuerryCompositon)

        Return table

    End Function

    Public Function QuerryStuInfo(ByVal QuerryCompositon As Entity.Entity_QueryCompositon) As System.Data.DataTable Implements IDAL.IDAL_QuerryCompositon.QuerryStuInfo

        Dim DQueryStu As New DAL.DAL_QuerryCompositon

        Dim table As New DataTable

        table = DQueryStu.QuerryStuInfo(QuerryCompositon)

        Return table

    End Function

    Public Function QuerryStuUp(ByVal QuerryCompositon As Entity.Entity_QueryCompositon) As System.Data.DataTable Implements IDAL.IDAL_QuerryCompositon.QuerryStuUp

        Dim DQueryStuUP As New DAL.DAL_QuerryCompositon

        Dim table As New DataTable

        table = DQueryStuUP.QuerryStuUp(QuerryCompositon)

        Return table

    End Function

End Class

3、D层

'/*************************************************

'作者：金福林

'小组: 无

'说明：组合查询D层

'创建日期：2014/5/5 21:02:58

'版本号：1.1.0

'**********************************************/ 

Public Class DAL_QuerryCompositon

    Implements IDAL.IDAL_QuerryCompositon

    Public Function QuerryOperator(ByVal QuerryCompositon As Entity.Entity_QueryCompositon) As System.Data.DataTable Implements IDAL.IDAL_QuerryCompositon.QuerryOperator

        Dim strcon As String

        Dim sqlHelper As New SqlHelper

        If QuerryCompositon.Combine1 = "" Then '如果第一个组合框为空

            strcon = "select * from worklog_Info where " & QuerryCompositon.FiledName1 & " " & QuerryCompositon.Operator1 _

                & "'" & QuerryCompositon.QueryContent1 & "'"

        Else

            If QuerryCompositon.Combine2 = "" Then  '如果第一个不为空，第二个组合框为空

                strcon = "select * from worklog_Info where " & QuerryCompositon.FiledName1 & " " & QuerryCompositon.Operator1 _

                    & "'" & QuerryCompositon.QueryContent1 & "'  " & QuerryCompositon.Combine1 & "  " & QuerryCompositon.FiledName2 _

                    & " " & QuerryCompositon.Operator2 & "'" & QuerryCompositon.QueryContent2 & "'"

            Else    '如果两个组合框都不为空

                strcon = "select * from worklog_Info where " & QuerryCompositon.FiledName1 & " " & QuerryCompositon.Operator1 _

                   & "'" & QuerryCompositon.QueryContent1 & "' " & QuerryCompositon.Combine1 & "  " & QuerryCompositon.FiledName2 _

                   & " " & QuerryCompositon.Operator2 & "'" & QuerryCompositon.QueryContent2 & "' " & QuerryCompositon.Combine2 _

                   & "  " & QuerryCompositon.FiledName3 & " " & QuerryCompositon.Operator3 & "'" & QuerryCompositon.QueryContent3 & "'"

            End If

        End If

        Return sqlHelper.ExecSelect(strcon, CommandType.Text)

    End Function

    Public Function QuerryStuInfo(ByVal QuerryCompositon As Entity.Entity_QueryCompositon) As System.Data.DataTable Implements IDAL.IDAL_QuerryCompositon.QuerryStuInfo

        Dim strcon As String

        Dim sqlHelper As New SqlHelper

        If QuerryCompositon.Combine1 = "" Then '如果第一个组合框为空

            strcon = "select * from student_Info where " & QuerryCompositon.FiledName1 & "  " & QuerryCompositon.Operator1 _

                & "'" & QuerryCompositon.QueryContent1 & "'"

        Else

            If QuerryCompositon.Combine2 = "" Then  '如果第一个不为空，第二个组合框为空

                strcon = "select * from student_Info where " & QuerryCompositon.FiledName1 & "  " & QuerryCompositon.Operator1 _

                    & "'" & QuerryCompositon.QueryContent1 & "'  " & QuerryCompositon.Combine1 & "  " & QuerryCompositon.FiledName2 _

                    & "  " & QuerryCompositon.Operator2 & "'" & QuerryCompositon.QueryContent2 & "'"

            Else    '如果两个组合框都不为空

                strcon = "select * from student_Info where " & QuerryCompositon.FiledName1 & "  " & QuerryCompositon.Operator1 _

                   & "'" & QuerryCompositon.QueryContent1 & "' " & QuerryCompositon.Combine1 & "  " & QuerryCompositon.FiledName2 _

                   & "  " & QuerryCompositon.Operator2 & "'" & QuerryCompositon.QueryContent2 & "' " & QuerryCompositon.Combine2 _

                   & "  " & QuerryCompositon.FiledName3 & "  " & QuerryCompositon.Operator3 & "'" & QuerryCompositon.QueryContent3 & "'"

            End If

        End If

        Return sqlHelper.ExecSelect(strcon, CommandType.Text)

    End Function

    Public Function QuerryStuUp(ByVal QuerryCompositon As Entity.Entity_QueryCompositon) As System.Data.DataTable Implements IDAL.IDAL_QuerryCompositon.QuerryStuUp

        Dim strcon As String

        Dim sqlHelper As New SqlHelper

        If QuerryCompositon.Combine1 = "" Then '如果第一个组合框为空

            strcon = "select * from Line_Info where " & QuerryCompositon.FiledName1 & "  " & QuerryCompositon.Operator1 _

                & "'" & QuerryCompositon.QueryContent1 & "'"

        Else

            If QuerryCompositon.Combine2 = "" Then  '如果第一个不为空，第二个组合框为空

                strcon = "select * from Line_Info where " & QuerryCompositon.FiledName1 & "  " & QuerryCompositon.Operator1 _

                    & "'" & QuerryCompositon.QueryContent1 & "'  " & QuerryCompositon.Combine1 & "  " & QuerryCompositon.FiledName2 _

                    & "  " & QuerryCompositon.Operator2 & "'" & QuerryCompositon.QueryContent2 & "'"

            Else    '如果两个组合框都不为空

                strcon = "select * from Line_Info where " & QuerryCompositon.FiledName1 & "  " & QuerryCompositon.Operator1 _

                   & "'" & QuerryCompositon.QueryContent1 & "' " & QuerryCompositon.Combine1 & "  " & QuerryCompositon.FiledName2 _

                   & "  " & QuerryCompositon.Operator2 & "'" & QuerryCompositon.QueryContent2 & "' " & QuerryCompositon.Combine2 _

                   & "  " & QuerryCompositon.FiledName3 & "  " & QuerryCompositon.Operator3 & "'" & QuerryCompositon.QueryContent3 & "'"

            End If

        End If

        Return sqlHelper.ExecSelect(strcon, CommandType.Text)

    End Function

End Class

4、实体层

'/*************************************************   

'作者：金福林

'小组: 无

'说明：用于组合查询的类 

'创建日期：2014/5/5 20:01:08  

'版本号：1.1.0  

'**********************************************/ 

Public Class Entity_QueryCompositon

    Private e_FiledName1 As String '字段1  

    Public Property FiledName1 As String

        Get

            Return Me.e_FiledName1

        End Get

        Set(ByVal value As String)

            Me.e_FiledName1 = value

        End Set

    End Property

    Private e_FiledName2 As String '字段名2  

    Public Property FiledName2 As String

        Get

            Return Me.e_FiledName2

        End Get

        Set(ByVal value As String)

            Me.e_FiledName2 = value

        End Set

    End Property

    Private e_FiledName3 As String '字段名3  

    Public Property FiledName3 As String

        Get

            Return Me.e_FiledName3

        End Get

        Set(ByVal value As String)

            Me.e_FiledName3 = value

        End Set

    End Property

    Private e_Operator1 As String '操作符1  

    Public Property Operator1 As String

        Get

            Return Me.e_Operator1

        End Get

        Set(ByVal value As String)

            Me.e_Operator1 = value

        End Set

    End Property

    Private e_Operator2 As String '操作符2  

    Public Property Operator2 As String

        Get

            Return Me.e_Operator2

        End Get

        Set(ByVal value As String)

            Me.e_Operator2 = value

        End Set

    End Property

    Private e_Operator3 As String '操作符3  

    Public Property Operator3 As String

        Get

            Return Me.e_Operator3

        End Get

        Set(ByVal value As String)

            Me.e_Operator3 = value

        End Set

    End Property

    Private e_QueryContent1 As String '查询内容1  

    Public Property QueryContent1 As String

        Get

            Return Me.e_QueryContent1

        End Get

        Set(ByVal value As String)

            Me.e_QueryContent1 = value

        End Set

    End Property

    Private e_QueryContent2 As String '查询内容2  

    Public Property QueryContent2 As String

        Get

            Return Me.e_QueryContent2

        End Get

        Set(ByVal value As String)

            Me.e_QueryContent2 = value

        End Set

    End Property

    Private e_QueryContent3 As String '查询内容3  

    Public Property QueryContent3 As String

        Get

            Return Me.e_QueryContent3

        End Get

        Set(ByVal value As String)

            Me.e_QueryContent3 = value

        End Set

    End Property

    Private e_CompositionRelation1 As String '组合关系1  

    Public Property Combine1 As String

        Get

            Return Me.e_CompositionRelation1

        End Get

        Set(ByVal value As String)

            Me.e_CompositionRelation1 = value

        End Set

    End Property

    Private e_CompositionRelation2 As String '组合关系2  

    Public Property Combine2 As String

        Get

            Return Me.e_CompositionRelation2

        End Get

        Set(ByVal value As String)

            Me.e_CompositionRelation2 = value

        End Set

    End Property

End Class

5、接口层

Imports Entity

Public Interface IDAL_QuerryCompositon

    '  Function isEmpty(ByVal QuerryCompositon As Entity_QueryCompositon) As String

    ' Function CombineString(ByVal QuerryCompositon As Entity_QueryCompositon) As String

    ' Function ModifyFild(ByVal QUerryCompositon As Entity_QueryCompositon) As Entity_QueryCompositon

    Function QuerryStuInfo(ByVal QuerryCompositon As Entity_QueryCompositon) As DataTable

    Function QuerryStuUp(ByVal QuerryCompositon As Entity_QueryCompositon) As DataTable

    Function QuerryOperator(ByVal QuerryCompositon As Entity_QueryCompositon) As DataTable

End Interface

6、sqlhelper类在我上篇博客中已经写到

http://blog.csdn.net/jinfulin/article/details/25072239

对于这么多代码，可能大家第一次看有点头大，大家主要看实体层和D层，不要照搬，领会思想，理解了之后就会觉得很简单了。

上一篇：Android学习总结——TextView跑马灯效果


下一篇：PTF在PET上印刷線路的注意事項