s_component.vb

通版开发平台

Public Class S_Component
    Private _ComponentID As Integer
    Private _FormID As Integer
    Private _ContID As Integer
    Private _PageTypeID As Integer
    Private _Name As String
    Private _ParentName As String
    Private _Text As String
    Private _Width As Integer
    Private _Height As Integer
    Private _BorderStyle As Integer
    Private _BackColor As Integer
    Private _ForeColor As Integer
    Private _Enabled As Boolean
    Private _Visible As Boolean
    Private _VisibleIndex As Integer
    Private __ReadOnly As Boolean
    Private _TabStop As Boolean
    Private _TabIndex As Integer
    Private _DataSourceID As Integer
    Private _DataMember As String
    Private _DisplayMember As String
    Private _ValueMember As String
    Private _MenuID As Integer
    Private _flMulColumnID As Integer
    Private _LocationX As Integer
    Private _LocationY As Integer
    Private _ItemX As Integer
    Private _ItemY As Integer
    Private _TextWidth As Integer
    Private _TextHeight As Integer
    Private _MaxTextWidth As Integer
    Private _MaxTextHeight As Integer
    Private _MinTextWidth As Integer
    Private _MinTextHeight As Integer
    Private _TextVisible As Boolean
    Private _DefaultValueID As Integer
    Private _SqlCommandID As Integer
    Private _SelectFormID As Integer
    Private _IsOnly As Boolean
    Private _IsEmpty As Boolean
    Private _OnlyMsg As String
    Private _EmptyMsg As String
    Private _Modifiable As Boolean
    Private _DefaultValue As String
    Private _CheckSelectBill As Boolean
    Private _flExpressionID As Integer
    Private _IsDefault As Boolean
    Private _datafiledName As String
    Private _RelationTableName As String




    Public Property [ReadOnly]() As Boolean
        Get
            Return __ReadOnly
        End Get
        Set(ByVal value As Boolean)
            __ReadOnly = value
        End Set
    End Property

    Public Property ComponentID() As Integer
        Get
            Return _ComponentID
        End Get

        Set(ByVal value As Integer)
            _ComponentID = 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 ContID() As Integer
        Get
            Return _ContID
        End Get

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


    Public Property PageTypeID() As Integer
        Get
            Return _PageTypeID
        End Get

        Set(ByVal value As Integer)
            _PageTypeID = 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 ParentName() As String
        Get
            Return _ParentName
        End Get

        Set(ByVal value As String)
            _ParentName = 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 Width() As Integer
        Get
            Return _Width
        End Get

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


    Public Property Height() As Integer
        Get
            Return _Height
        End Get

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


    Public Property BorderStyle() As Integer
        Get
            Return _BorderStyle
        End Get

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


    Public Property BackColor() As Integer
        Get
            Return _BackColor
        End Get

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


    Public Property ForeColor() As Integer
        Get
            Return _ForeColor
        End Get

        Set(ByVal value As Integer)
            _ForeColor = 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 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 TabStop() As Boolean
        Get
            Return _TabStop
        End Get

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


    Public Property TabIndex() As Integer
        Get
            Return _TabIndex
        End Get

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


    Public Property DataSourceID() As Integer
        Get
            Return _DataSourceID
        End Get

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


    Public Property DataMember() As String
        Get
            Return _DataMember
        End Get

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


    Public Property DisplayMember() As String
        Get
            Return _DisplayMember
        End Get

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


    Public Property ValueMember() As String
        Get
            Return _ValueMember
        End Get

        Set(ByVal value As String)
            _ValueMember = 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 FlMulColumnID() As Integer
        Get
            Return _flMulColumnID
        End Get

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


    Public Property LocationX() As Integer
        Get
            Return _LocationX
        End Get

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


    Public Property LocationY() As Integer
        Get
            Return _LocationY
        End Get

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


    Public Property ItemX() As Integer
        Get
            Return _ItemX
        End Get

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


    Public Property ItemY() As Integer
        Get
            Return _ItemY
        End Get

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


    Public Property TextWidth() As Integer
        Get
            Return _TextWidth
        End Get

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


    Public Property TextHeight() As Integer
        Get
            Return _TextHeight
        End Get

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


    Public Property MaxTextWidth() As Integer
        Get
            Return _MaxTextWidth
        End Get

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


    Public Property MaxTextHeight() As Integer
        Get
            Return _MaxTextHeight
        End Get

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


    Public Property MinTextWidth() As Integer
        Get
            Return _MinTextWidth
        End Get

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


    Public Property MinTextHeight() As Integer
        Get
            Return _MinTextHeight
        End Get

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


    Public Property TextVisible() As Boolean
        Get
            Return _TextVisible
        End Get

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


    Public Property DefaultValueID() As Integer
        Get
            Return _DefaultValueID
        End Get

        Set(ByVal value As Integer)
            _DefaultValueID = 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 SelectFormID() As Integer
        Get
            Return _SelectFormID
        End Get

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


    Public Property IsOnly() As Boolean
        Get
            Return _IsOnly
        End Get

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


    Public Property IsEmpty() As Boolean
        Get
            Return _IsEmpty
        End Get

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


    Public Property OnlyMsg() As String
        Get
            Return _OnlyMsg
        End Get

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


    Public Property EmptyMsg() As String
        Get
            Return _EmptyMsg
        End Get

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


    Public Property Modifiable() As Boolean
        Get
            Return _Modifiable
        End Get

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


    Public Property DefaultValue() As String
        Get
            Return _DefaultValue
        End Get

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


    Public Property CheckSelectBill() As Boolean
        Get
            Return _CheckSelectBill
        End Get

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


    Public Property FlExpressionID() As Integer
        Get
            Return _flExpressionID
        End Get

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


    Public Property IsDefault() As Boolean
        Get
            Return _IsDefault
        End Get

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


    Public Property DatafiledName() As String
        Get
            Return _datafiledName
        End Get

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


    Public Property RelationTableName() As String
        Get
            Return _RelationTableName
        End Get

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