s_displaycolumns.vb

通版开发平台

Public Class S_DisplayColumns
    Private _ColumnID As Integer
    Private _ComponentID As Integer
    Private _TableName As String
    Private _FieldName As String
    Private _Caption As String
    Private _ReadOnly As Boolean
    Private _Visible As Boolean
    Private _VisibleIndex As Integer
    Private _Width As Integer
    Private _Fixed As Integer
    Private _AllowEdit As Boolean
    Private _AllowFocus As Boolean
    Private _ShowButtonMode As Integer
    Private _DataMember As String
    Private _DisplayMember As String
    Private _ValueMember As String
    Private _ColumnEditID As Integer
    Private _FormID As Integer
    Private _flMulColumnID As Integer
    Private _flSummaryTypeID As Integer
    Private _flFormatID As Integer
    Private _flExpressionID As Integer
    Private _IsDefault As Boolean
    Private _IsSaveDefault As Boolean
    Private _DefaultValueID As Integer
    Private _DefaultValue As String
    Private _IsCalculate As Boolean
    Private _SqlCommandID As Integer
    Private _IsAddNew As Boolean
    Private _Modifiable As Boolean
    Private _flMessageID As Integer
    Private _IsNulLable As Boolean
    Private _IsFilter 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 ColumnID() As Integer
        Get
            Return _ColumnID
        End Get

        Set(ByVal value As Integer)
            _ColumnID = 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 TableName() As String
        Get
            Return _TableName
        End Get

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


    Public Property FieldName() As String
        Get
            Return _FieldName
        End Get

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


    Public Property Caption() As String
        Get
            Return _Caption
        End Get

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

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


    Public Property Fixed() As Integer
        Get
            Return _Fixed
        End Get

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


    Public Property AllowEdit() As Boolean
        Get
            Return _AllowEdit
        End Get

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


    Public Property AllowFocus() As Boolean
        Get
            Return _AllowFocus
        End Get

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


    Public Property ShowButtonMode() As Integer
        Get
            Return _ShowButtonMode
        End Get

        Set(ByVal value As Integer)
            _ShowButtonMode = 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 ColumnEditID() As Integer
        Get
            Return _ColumnEditID
        End Get

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

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


    Public Property FlSummaryTypeID() As Integer
        Get
            Return _flSummaryTypeID
        End Get

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


    Public Property FlFormatID() As Integer
        Get
            Return _flFormatID
        End Get

        Set(ByVal value As Integer)
            _flFormatID = 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 IsSaveDefault() As Boolean
        Get
            Return _IsSaveDefault
        End Get

        Set(ByVal value As Boolean)
            _IsSaveDefault = 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 DefaultValue() As String
        Get
            Return _DefaultValue
        End Get

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


    Public Property IsCalculate() As Boolean
        Get
            Return _IsCalculate
        End Get

        Set(ByVal value As Boolean)
            _IsCalculate = 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 IsAddNew() As Boolean
        Get
            Return _IsAddNew
        End Get

        Set(ByVal value As Boolean)
            _IsAddNew = 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 FlMessageID() As Integer
        Get
            Return _flMessageID
        End Get

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


    Public Property IsNulLable() As Boolean
        Get
            Return _IsNulLable
        End Get

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


    Public Property IsFilter() As Boolean
        Get
            Return _IsFilter
        End Get

        Set(ByVal value As Boolean)
            _IsFilter = 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