s_datasource.vb

通版开发平台

Imports System.Data.SqlClient
Imports System.Data.SqlTypes

Public Class S_DataSource
    Private _DataSourceID As Integer
    Private _FormID As Integer
    Private _fcTabName As String
    Private _KeyField As String
    Private _SelectedSql As String
    Private _FromSql As String
    Private _WhereSql As String
    Private _OrderBySql As String
    Private _GroupBySql As String
    Private _HavingSql As String
    Private _TopSelectedRecords As Integer
    Private _InitWhereSql As String
    Private _fbLoad As Boolean


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

        Set(ByVal value As Integer)
            _DataSourceID = 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 FcTabName() As String
        Get
            Return _fcTabName
        End Get

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


    Public Property KeyField() As String
        Get
            Return _KeyField
        End Get

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


    Public Property SelectedSql() As String
        Get
            Return _SelectedSql
        End Get

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


    Public Property FromSql() As String
        Get
            Return _FromSql
        End Get

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


    Public Property WhereSql() As String
        Get
            Return _WhereSql
        End Get

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


    Public Property OrderBySql() As String
        Get
            Return _OrderBySql
        End Get

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


    Public Property GroupBySql() As String
        Get
            Return _GroupBySql
        End Get

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


    Public Property HavingSql() As String
        Get
            Return _HavingSql
        End Get

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


    Public Property TopSelectedRecords() As Integer
        Get
            Return _TopSelectedRecords
        End Get

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


    Public Property InitWhereSql() As String
        Get
            Return _InitWhereSql
        End Get

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


    Public Property FbLoad() As Boolean
        Get
            Return _fbLoad
        End Get

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