s_tool.vb

来自「通版开发平台」· VB 代码 · 共 39 行

Public Class S_Tool
    Private _ToolID As Integer
    Private _ToolCode As String
    Private _ToolName As String


    Public Property ToolID() As Integer
        Get
            Return _ToolID
        End Get

        Set(ByVal value As Integer)
            _ToolID = value
        End Set
    End Property


    Public Property ToolCode() As String
        Get
            Return _ToolCode
        End Get

        Set(ByVal value As String)
            _ToolCode = value
        End Set
    End Property


    Public Property ToolName() As String
        Get
            Return _ToolName
        End Get

        Set(ByVal value As String)
            _ToolName = value
        End Set
    End Property
End Class