dbsetdescription.vb

来自「图书管理系统 书籍的管理应用 源码可以直接用」· VB 代码 · 共 42 行

Public Class dbSetDescription
    Dim setID As String
    '表意义
    Dim setChiName As String
    '表名
    Dim setSqlName As String
    '存储dbFieldDescription
    Dim Fields As New ArrayList
    '设置ID
    Public Function setSetID(ByVal id As String)
        Me.setID = id
    End Function
    '获取ID
    Public Function getSetID() As String
        Return setID
    End Function
    '设置字段集
    Public Function setFields(ByVal parfields As ArrayList)
        Me.Fields = parfields
    End Function
    '获取字段集
    Public Function getFields() As ArrayList
        Return Fields
    End Function
    '设置数据表意义
    Public Function setSetChiName(ByVal name As String)
        Me.setChiName = name
    End Function
    '获取数据表意义
    Public Function getSetChiName() As String
        Return setChiName
    End Function
    '设置数据表物理名称
    Public Function setSetSqlName(ByVal name As String)
        Me.setSqlName = name
    End Function
    '获取数据表物理名称
    Public Function getSetSqlName()
        Return setSqlName
    End Function
End Class