Initial commit

EDKB01DB2/Testprogramm/WindowsApplication1/My Project/Settings.Designer.vb

@@ -0,0 +1,196 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+        
+#Region "Funktion zum automatischen Speichern von My.Settings"
+#If _MyType = "WindowsForms" Then
+    Private Shared addedHandler As Boolean
+
+    Private Shared addedHandlerLockObject As New Object
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
+#End If
+#End Region
+        
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+                
+#If _MyType = "WindowsForms" Then
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("E:\Software-Projekte\EDOKA\batch\EDKB01DB2\EDKB01DB2\bin\Debug\edkb01db2.exe.conf"& _ 
+            "ig")>  _
+        Public Property ConfigFile() As String
+            Get
+                Return CType(Me("ConfigFile"),String)
+            End Get
+            Set
+                Me("ConfigFile") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("setting")>  _
+        Public Property Tablename() As String
+            Get
+                Return CType(Me("Tablename"),String)
+            End Get
+            Set
+                Me("Tablename") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("DB2Connection")>  _
+        Public Property Name() As String
+            Get
+                Return CType(Me("Name"),String)
+            End Get
+            Set
+                Me("Name") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Select * from odadm.thostindex")>  _
+        Public Property SQL1() As String
+            Get
+                Return CType(Me("SQL1"),String)
+            End Get
+            Set
+                Me("SQL1") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Select * from odadm.tblindex")>  _
+        Public Property SQL2() As String
+            Get
+                Return CType(Me("SQL2"),String)
+            End Get
+            Set
+                Me("SQL2") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Select * from odadm.tzvindex")>  _
+        Public Property SQL3() As String
+            Get
+                Return CType(Me("SQL3"),String)
+            End Get
+            Set
+                Me("SQL3") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Select nothing")>  _
+        Public Property SQL4() As String
+            Get
+                Return CType(Me("SQL4"),String)
+            End Get
+            Set
+                Me("SQL4") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=shu00;Initial Catalog=edoka_host;Persist Security Info=True;User ID=s"& _ 
+            "a;Password=*shu29")>  _
+        Public Property HostConnection() As String
+            Get
+                Return CType(Me("HostConnection"),String)
+            End Get
+            Set
+                Me("HostConnection") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("select dokumentid, pk from edoka_host.dbo.host_dokument_import where DokumentID='"& _ 
+            "&MailingID&'")>  _
+        Public Property SQL_HOST_Check_Dokumentid() As String
+            Get
+                Return CType(Me("SQL_HOST_Check_Dokumentid"),String)
+            End Get
+            Set
+                Me("SQL_HOST_Check_Dokumentid") = value
+            End Set
+        End Property
+
+        <Global.System.Configuration.UserScopedSettingAttribute(), _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
+         Global.System.Configuration.DefaultSettingValueAttribute("Select top 1 * from edoka_host.dbo.host_dokument_import where pk=-1")> _
+        Public Property SQL_Empty_HOST() As String
+            Get
+                Return CType(Me("SQL_Empty_HOST"), String)
+            End Get
+            Set(value As String)
+                Me("SQL_Empty_HOST") = value
+            End Set
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Module MySettingsProperty
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
+        Friend ReadOnly Property Settings() As Global._DB2_Test.My.MySettings
+            Get
+                Return Global._DB2_Test.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace