querydescription.vb

vb.net写的图书管理系统,功能完备,能正常使用,可用于二次开发.

Public Class QueryDescription
    '数据表意义
    Dim chiTable As String
    '数据表名称
    Dim sqlTable As String
    '字段意义
    Dim chiField As String
    '字段名称
    Dim sqlField As String
    '操作符意义
    Dim chiOper As String
    '操作符
    Dim sqlOper As String
    '查询值意义
    Dim chiValue As String
    '查询值
    Dim sqlValue As String
    '字段类型
    Dim fieldType As Integer
    '左括号个数
    Dim leftBracket As Integer
    '右括号个数
    Dim rightBracket As Integer
    '逻辑操作意义
    Dim chiRelation As String
    '逻辑操作符号
    Dim sqlRelation As String
    '设置逻辑操作意义
    Public Function setChiRelation(ByVal relation As String)
        Me.chiRelation = relation
    End Function
    '获取逻辑操作意义
    Public Function getChiRelation()
        Return chiRelation
    End Function
    '设置逻辑操作符号
    Public Function setSqlRelation(ByVal relation As String)
        Me.sqlRelation = relation
    End Function
    '获取逻辑操作符号
    Public Function getSqlRelation()
        Return sqlRelation
    End Function
    '实例化
    Public Sub New()
        Me.leftBracket = 0
        Me.rightBracket = 0
    End Sub
    '设置数据表名称
    Public Function setsqlTable(ByVal par As String)
        Me.sqlTable = par
    End Function
    '获取数据表名称
    Public Function getsqlTable()
        Return sqlTable
    End Function
    '设置字段类型
    Public Function setFieldType(ByVal par As Integer)
        Me.fieldType = par
    End Function
    '获取字段类型
    Public Function getFieldType() As Integer
        Return fieldType
    End Function
    '设置操作符
    Public Function setsqlOper(ByVal par As String)
        Me.sqlOper = par
    End Function
    '获取操作符
    Public Function getsqlOper() As String
        Return sqlOper
    End Function
    '获取右括号个数
    Public Function getrightBracket() As Integer
        Return rightBracket
    End Function
    '设置右括号个数
    Public Function setrightBracket()
        Me.rightBracket = Me.rightBracket + 1
    End Function
    '获取左括号个数
    Public Function getleftBracket() As Integer
        Return leftBracket
    End Function
    '设置左括号个数
    Public Function setleftBracket()
        Me.leftBracket = Me.leftBracket + 1
    End Function
    '获取查询值
    Public Function getsqlValue() As String
        Return sqlValue
    End Function
    '设置查询值
    Public Function setsqlValue(ByVal par As String)
        Me.sqlValue = par
    End Function
    '获取查询值意义
    Public Function getchiValue() As String
        Return chiValue
    End Function
    '设置查询值意义
    Public Function setchiValue(ByVal par As String)
        Me.chiValue = par
    End Function
    '获取操作符名称
    Public Function getchiOper() As String
        Return chiOper
    End Function
    '设置操作符名称
    Public Function setchiOper(ByVal par As String)
        Me.chiOper = par
    End Function
    '获取数据表意义
    Public Function getchiTable() As String
        Return chiTable
    End Function
    '设置数据表意义
    Public Function setchiTable(ByVal par As String)
        Me.chiTable = par
    End Function
    '获取字段名称
    Public Function getsqlField() As String
        Return sqlField
    End Function
    '设置字段名成
    Public Function setsqlField(ByVal par As String)
        Me.sqlField = par
    End Function
    '获取字段意义
    Public Function getchiField() As String
        Return chiField
    End Function
    '设置字段意义
    Public Function setchiField(ByVal par As String)
        Me.chiField = par
    End Function
End Class