s_sqlcommand.vb

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

Public Class S_SqlCommand
    Private _SqlCommandID As Integer
    Private _CommandTypeID As Integer
    Private _CommandText As String
    Private _CommandName As String
    Private _fcUpdatesTable As String
    Private _fcUpdateField As String


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

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


    Public Property CommandTypeID() As Integer
        Get
            Return _CommandTypeID
        End Get

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


    Public Property CommandText() As String
        Get
            Return _CommandText
        End Get

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


    Public Property CommandName() As String
        Get
            Return _CommandName
        End Get

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


    Public Property FcUpdatesTable() As String
        Get
            Return _fcUpdatesTable
        End Get

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


    Public Property FcUpdateField() As String
        Get
            Return _fcUpdateField
        End Get

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