mysettings.vb

wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重推荐,电子书,电子书下载

'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by a tool.
'     Runtime Version:2.0.40607.42
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </autogenerated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On



Partial NotInheritable Class MySettings
    Inherits System.Configuration.ApplicationSettingsBase
    
    Private Shared m_Value As MySettings
    
    Private Shared m_SyncObject As Object = New Object
    
    <System.Diagnostics.DebuggerNonUserCode()>  _
    Public Shared ReadOnly Property Value() As MySettings
        Get
            If (MySettings.m_Value Is Nothing) Then
                System.Threading.Monitor.Enter(MySettings.m_SyncObject)
                If (MySettings.m_Value Is Nothing) Then
                    Try 
                        MySettings.m_Value = New MySettings
                    Finally
                        System.Threading.Monitor.Exit(MySettings.m_SyncObject)
                    End Try
                End If
            End If
            Return MySettings.m_Value
        End Get
    End Property
    
    <System.Diagnostics.DebuggerNonUserCode(),  _
     System.Configuration.SpecialSetting(System.Configuration.SpecialSetting.ConnectionString),  _
     System.Configuration.ApplicationScopedSettingAttribute(),  _
     System.Configuration.DefaultSettingValueAttribute("Server=OAKLEAF-MS16\SQLS2005;Integrated Security=True;Database=Northwind")>  _
    Public ReadOnly Property NorthwindConnection() As String
        Get
            Return CType(Me("NorthwindConnection"),String)
        End Get
    End Property
    
    <System.Diagnostics.DebuggerNonUserCode(),  _
     System.Configuration.ApplicationScopedSettingAttribute(),  _
     System.Configuration.DefaultSettingValueAttribute("True")>  _
    Public ReadOnly Property CleanTablesOnStart() As Boolean
        Get
            Return CType(Me("CleanTablesOnStart"),Boolean)
        End Get
    End Property
    
    <System.Diagnostics.DebuggerNonUserCode(),  _
     System.Configuration.ApplicationScopedSettingAttribute(),  _
     System.Configuration.DefaultSettingValueAttribute("False")>  _
    Public ReadOnly Property DropOrdersXmlOnStart() As Boolean
        Get
            Return CType(Me("DropOrdersXmlOnStart"),Boolean)
        End Get
    End Property
    
    <System.Diagnostics.DebuggerNonUserCode(),  _
     System.Configuration.ApplicationScopedSettingAttribute(),  _
     System.Configuration.DefaultSettingValueAttribute("True")>  _
    Public ReadOnly Property UpdateColumns() As Boolean
        Get
            Return CType(Me("UpdateColumns"),Boolean)
        End Get
    End Property
    
    <System.Diagnostics.DebuggerNonUserCode(),  _
     System.Configuration.ApplicationScopedSettingAttribute(),  _
     System.Configuration.DefaultSettingValueAttribute("False")>  _
    Public ReadOnly Property CheckCacheState() As Boolean
        Get
            Return CType(Me("CheckCacheState"),Boolean)
        End Get
    End Property
    
    <System.Diagnostics.DebuggerNonUserCode(),  _
     System.Configuration.ApplicationScopedSettingAttribute(),  _
     System.Configuration.DefaultSettingValueAttribute("False")>  _
    Public ReadOnly Property ClearQueryCache() As Boolean
        Get
            Return CType(Me("ClearQueryCache"),Boolean)
        End Get
    End Property
    
    <System.Diagnostics.DebuggerNonUserCode(),  _
     System.Configuration.ApplicationScopedSettingAttribute(),  _
     System.Configuration.DefaultSettingValueAttribute("True")>  _
    Public ReadOnly Property UseFlworForRandomIDs() As Boolean
        Get
            Return CType(Me("UseFlworForRandomIDs"),Boolean)
        End Get
    End Property
    
    <System.Diagnostics.DebuggerNonUserCode(),  _
     System.Configuration.ApplicationScopedSettingAttribute(),  _
     System.Configuration.DefaultSettingValueAttribute("True")>  _
    Public ReadOnly Property UseSingleExistsForTest() As Boolean
        Get
            Return CType(Me("UseSingleExistsForTest"),Boolean)
        End Get
    End Property
    
    <System.Diagnostics.DebuggerNonUserCode(),  _
     System.Configuration.ApplicationScopedSettingAttribute(),  _
     System.Configuration.DefaultSettingValueAttribute("True")>  _
    Public ReadOnly Property DisplayShowplanXML() As Boolean
        Get
            Return CType(Me("DisplayShowplanXML"),Boolean)
        End Get
    End Property
    
    <System.Diagnostics.DebuggerNonUserCode(),  _
     System.Configuration.ApplicationScopedSettingAttribute(),  _
     System.Configuration.DefaultSettingValueAttribute("False")>  _
    Public ReadOnly Property DisplayStatisticsXML() As Boolean
        Get
            Return CType(Me("DisplayStatisticsXML"),Boolean)
        End Get
    End Property
    
    <System.Diagnostics.DebuggerNonUserCode(),  _
     System.Configuration.ApplicationScopedSettingAttribute(),  _
     System.Configuration.DefaultSettingValueAttribute("True")>  _
    Public ReadOnly Property ExpandShowplanEntities() As Boolean
        Get
            Return CType(Me("ExpandShowplanEntities"),Boolean)
        End Get
    End Property
    
    <System.Diagnostics.DebuggerNonUserCode(),  _
     System.Configuration.ApplicationScopedSettingAttribute(),  _
     System.Configuration.DefaultSettingValueAttribute("True")>  _
    Public ReadOnly Property ShowplanInGrid() As Boolean
        Get
            Return CType(Me("ShowplanInGrid"),Boolean)
        End Get
    End Property
    
    <System.Diagnostics.DebuggerNonUserCode(),  _
     System.Configuration.ApplicationScopedSettingAttribute(),  _
     System.Configuration.DefaultSettingValueAttribute("True")>  _
    Public ReadOnly Property IncludeOpenReaderInTime() As Boolean
        Get
            Return CType(Me("IncludeOpenReaderInTime"),Boolean)
        End Get
    End Property
    
    <System.Diagnostics.DebuggerNonUserCode(),  _
     System.Configuration.ApplicationScopedSettingAttribute(),  _
     System.Configuration.DefaultSettingValueAttribute("True")>  _
    Public ReadOnly Property InsertShowplansInTable() As Boolean
        Get
            Return CType(Me("InsertShowplansInTable"),Boolean)
        End Get
    End Property
End Class

Namespace My
    
    <Microsoft.VisualBasic.HideModuleName()>  _
    Public Module MySettingsProperty
        
        <System.Diagnostics.DebuggerNonUserCode()>  _
        Friend ReadOnly Property Settings() As MySettings
            Get
                Return MySettings.Value
            End Get
        End Property
    End Module
End Namespace