dbfielddescription.vb

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

Public Class dbFieldDescription
    '字段物理名称
    Dim fieldSqlName As String
    '字段意义
    Dim fieldChiName As String
    '字段数据类型
    Dim fieldType As Integer
    '存储codeDescription
    Dim codes As New ArrayList
    '代码项
    Dim code As Integer
    '代码表名称
    Dim codeTable As String
    '设置代码集
    Public Function setCodes(ByVal parcodes As ArrayList)
        Me.codes = parcodes
    End Function
    '获取代码集
    Public Function getCodes() As ArrayList
        Return codes
    End Function
    '设置代码项
    Public Function setCode(ByVal parCode As Integer)
        Me.code = parCode
    End Function
    '获取代码项
    Public Function getCode() As Integer
        Return code
    End Function
    '设置代码表名称
    Public Function setCodeTable(ByVal parCodetable As String)
        Me.codeTable = parCodetable
    End Function
    '获取代码表名称
    Public Function getCodeTable() As String
        Return codeTable
    End Function
    '设置字段类型
    Public Function setFieldType(ByVal type As Integer)
        Me.fieldType = type
    End Function
    '获取字段类型
    Public Function getFieldType() As Integer
        Return fieldType
    End Function
    '设置字段物理名称
    Public Function setFieldSqlName(ByVal name As String)
        Me.fieldSqlName = name
    End Function
    '获取字段物理名称
    Public Function getFieldSqlName() As String
        Return fieldSqlName
    End Function
    '设置字段意义
    Public Function setFieldChiName(ByVal name As String)
        Me.fieldChiName = name
    End Function
    '获取字段意义
    Public Function getFieldChiName() As String
        Return fieldChiName
    End Function
End Class