s_toolitem.vb

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

Public Class S_ToolItem
    Private _ID As Integer
    Private _ToolID As Integer
    Private _Name As String
    Private _Text As String
    Private _Visible As Boolean
    Private _VisibleIndex As Integer
    Private _Enabled As Boolean
    Private _TypeID As Integer
    Private _ParentID As Integer
    Private _EventID As Integer
    Private _FormID As Integer
    Private _Icon() As Byte
    Private _ImageIndex As Integer
    Private _State1 As Boolean
    Private _State2 As Boolean
    Private _State3 As Boolean
    Private _State4 As Boolean
    Private _SqlCommandID As Integer
    Private _AfterSqlCommandID As Integer


    Public Property ID() As Integer
        Get
            Return _ID
        End Get

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


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

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


    Public Property Name() As String
        Get
            Return _Name
        End Get

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


    Public Property Text() As String
        Get
            Return _Text
        End Get

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


    Public Property Visible() As Boolean
        Get
            Return _Visible
        End Get

        Set(ByVal value As Boolean)
            _Visible = value
        End Set
    End Property


    Public Property VisibleIndex() As Integer
        Get
            Return _VisibleIndex
        End Get

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


    Public Property Enabled() As Boolean
        Get
            Return _Enabled
        End Get

        Set(ByVal value As Boolean)
            _Enabled = value
        End Set
    End Property


    Public Property TypeID() As Integer
        Get
            Return _TypeID
        End Get

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


    Public Property ParentID() As Integer
        Get
            Return _ParentID
        End Get

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


    Public Property EventID() As Integer
        Get
            Return _EventID
        End Get

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


    Public Property FormID() As Integer
        Get
            Return _FormID
        End Get

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


    Public Property Icon() As Byte()
        Get
            Return _Icon
        End Get

        Set(ByVal value As Byte())
            _Icon = value
        End Set
    End Property


    Public Property ImageIndex() As Integer
        Get
            Return _ImageIndex
        End Get

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


    Public Property State1() As Boolean
        Get
            Return _State1
        End Get

        Set(ByVal value As Boolean)
            _State1 = value
        End Set
    End Property


    Public Property State2() As Boolean
        Get
            Return _State2
        End Get

        Set(ByVal value As Boolean)
            _State2 = value
        End Set
    End Property


    Public Property State3() As Boolean
        Get
            Return _State3
        End Get

        Set(ByVal value As Boolean)
            _State3 = value
        End Set
    End Property


    Public Property State4() As Boolean
        Get
            Return _State4
        End Get

        Set(ByVal value As Boolean)
            _State4 = value
        End Set
    End Property


    Public Property SqlCommandID() As Integer
        Get
            Return _SqlCommandID
        End Get

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


    Public Property AfterSqlCommandID() As Integer
        Get
            Return _AfterSqlCommandID
        End Get

        Set(ByVal value As Integer)
            _AfterSqlCommandID = value
        End Set
    End Property
End Class