Initial commit

ColdAbgleich/.svn/pristine/ee/ee0c41c778d107524907fcef13583056fab8d674.svn-base

@@ -0,0 +1,69 @@
+Imports System.Xml
+Imports System.IO
+Imports System.Reflection
+
+Public Class Parameters
+    Dim sconnectionstringEDOKA As String
+    Property ConnectionStringEDOKA() As String
+        Get
+            Return sconnectionstringEDOKA
+        End Get
+        Set(ByVal value As String)
+            sconnectionstringEDOKA = value
+        End Set
+    End Property
+    Dim sconnectionstringEDOKA_HOST As String
+    Property ConnectionStringEDOKA_HOST() As String
+        Get
+            Return sconnectionstringEDOKA_HOST
+        End Get
+        Set(ByVal value As String)
+            sconnectionstringEDOKA_HOST = value
+        End Set
+    End Property
+    Dim sconnectionstringEDOKA_ZV As String
+    Property ConnectionStringEDOKA_ZV() As String
+        Get
+            Return sconnectionstringEDOKA_ZV
+        End Get
+        Set(ByVal value As String)
+            sconnectionstringEDOKA_ZV = value
+        End Set
+    End Property
+    Dim sconnectionstringColdabgleich As String
+    Property ConnectionStringColdabgleich() As String
+        Get
+            Return sconnectionstringColdabgleich
+        End Get
+        Set(ByVal value As String)
+            sconnectionstringColdabgleich = value
+        End Set
+    End Property
+
+    Dim sscriptpath As String
+    Property ScriptPath() As String
+        Get
+            Return sscriptpath
+        End Get
+        Set(ByVal value As String)
+            sscriptpath = value
+        End Set
+    End Property
+
+
+    Dim xmldoc As New XmlDocument
+
+    Public Sub New()
+        xmldoc.Load(Me.ApplicationPath + "Parameters.xml")
+        Me.ConnectionStringEDOKA = xmldoc.SelectSingleNode("/Configuration/SQLConnEDOKA").InnerText
+        Me.ConnectionStringEDOKA_HOST = xmldoc.SelectSingleNode("/Configuration/SQLConnHOST").InnerText
+        Me.ConnectionStringEDOKA_ZV = xmldoc.SelectSingleNode("/Configuration/SQLConnZV").InnerText
+        Me.ConnectionStringcoldabgleich = xmldoc.SelectSingleNode("/Configuration/SQLConnColdabgleich").InnerText
+        Me.ScriptPath = xmldoc.SelectSingleNode("/Configuration/Scriptpath").InnerText
+    End Sub
+
+    Public Function ApplicationPath() As String
+        Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
+    End Function
+
+End Class

ColdAbgleich/.svn/pristine/ee/ee980338808d81e6fbfa0c4be0b4d5e1f3db3ba9.svn-base

@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.296
+'
+'     Ä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", "10.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
+    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.Loader.My.MySettings
+            Get
+                Return Global.Loader.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace