s_menuitem.vb

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

Imports System.Data.SqlTypes

Public Class S_MenuItem
    Private _ID As Integer
    Private _MenuID As Integer
    Private _Name As String
    Private _Text As String
    Private _Visible As Integer
    Private _VisibleIndex As Integer
    Private _Enable As Boolean
    Private _TypeID As Integer
    Private _ParentID As Integer
    Private _EventID As Integer
    Private _FormID As Integer
    Private _Icon As SqlBinary
    Private _ImageIndex As Integer
    Private _SqlCommandID 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 MenuID() As Integer
        Get
            Return _MenuID
        End Get

        Set(ByVal value As Integer)
            _MenuID = 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 Integer
        Get
            Return _Visible
        End Get

        Set(ByVal value As Integer)
            _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 Enable() As Boolean
        Get
            Return _Enable
        End Get

        Set(ByVal value As Boolean)
            _Enable = 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 System.Data.SqlTypes.SqlBinary
        Get
            Return _Icon
        End Get

        Set(ByVal value As System.Data.SqlTypes.SqlBinary)
            _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 SqlCommandID() As Integer
        Get
            Return _SqlCommandID
        End Get

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