codedescription.vb

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

Public Class codeDescription
    '代码值
    Dim CodeID As String
    '代码内容
    Dim CodeExp As String
    '设置代码值
    Public Function setCodeID(ByVal ID As String)
        Me.CodeID = ID
    End Function
    '获取代码值
    Public Function getCodeID() As String
        Return CodeID
    End Function
    '设置代码内容
    Public Function setCodeExp(ByVal exp As String)
        Me.CodeExp = exp
    End Function
    '获取代码内容
    Public Function getCodeExp() As String
        Return CodeExp
    End Function
End Class