s_forms.vb

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

Public Class S_Forms
    Private _FormID As Integer
    Private _FormTypeID As Integer
    Private _flModuleID As Integer
    Private _Name As String
    Private _HeaderName As String
    Private _HeaderKey As String
    Private _DetailName As String
    Private _DetailKey As String
    Private _Text As String
    Private _Width As Integer
    Private _Height As Integer
    Private _WindowState As Integer
    Private _BorderStyle As Integer
    Private _MaximizeBox As Boolean
    Private _MinimumSize As Boolean
    Private _ShowMode As Integer
    Private _ToolID As Integer
    Private _MenuID As Integer
    Private _LoadXmlForm As Boolean
    Private _XmlForm As String
    Private _MultiSelect As Boolean



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

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


    Public Property FormTypeID() As Integer
        Get
            Return _FormTypeID
        End Get

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


    Public Property FlModuleID() As Integer
        Get
            Return _flModuleID
        End Get

        Set(ByVal value As Integer)
            _flModuleID = 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 HeaderName() As String
        Get
            Return _HeaderName
        End Get

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


    Public Property HeaderKey() As String
        Get
            Return _HeaderKey
        End Get

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


    Public Property DetailName() As String
        Get
            Return _DetailName
        End Get

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


    Public Property DetailKey() As String
        Get
            Return _DetailKey
        End Get

        Set(ByVal value As String)
            _DetailKey = 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 WindowState() As Integer
        Get
            Return _WindowState
        End Get

        Set(ByVal value As Integer)
            _WindowState = 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 MaximizeBox() As Boolean
        Get
            Return _MaximizeBox
        End Get

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


    Public Property MinimumSize() As Boolean
        Get
            Return _MinimumSize
        End Get

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


    Public Property ShowMode() As Integer
        Get
            Return _ShowMode
        End Get

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

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


    Public Property LoadXmlForm() As Boolean
        Get
            Return _LoadXmlForm
        End Get

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


    Public Property XmlForm() As String
        Get
            Return _XmlForm
        End Get

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


    Public Property MultiSelect() As Boolean
        Get
            Return _MultiSelect
        End Get

        Set(ByVal value As Boolean)
            _MultiSelect = value
        End Set
    End Property
End Class