shu/DPM_PADM
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update 20231016

Browse Source
This commit is contained in:
Stefan Hutter
2023-10-16 18:21:29 +02:00
parent e83b2e6f35
commit 376f51db74
442 changed files with 11311 additions and 7581 deletions
Download Patch File Download Diff File Expand all files Collapse all files

390
DPM2016/My Project/Settings.Designer.vb generated
View File

@@ -1,195 +1,195 @@
'------------------------------------------------------------------------------
' <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", "17.1.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 "Automatische My.Settings-Speicherfunktion"
#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(sender As Global.System.Object, 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("2")> _
Public Property LogLevel() As String
Get
Return CType(Me("LogLevel"),String)
End Get
Set
Me("LogLevel") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("h:\dpm\dmp1\dmp2")> _
Public Property TempPath() As String
Get
Return CType(Me("TempPath"),String)
End Get
Set
Me("TempPath") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("h:\dpm\docarchiv")> _
Public Property DocArchivPath() As String
Get
Return CType(Me("DocArchivPath"),String)
End Get
Set
Me("DocArchivPath") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstati"& _
"on id=;packet size=4096;user id=sa;password=*shu29")> _
Public Property ConnectionString() As String
Get
Return CType(Me("ConnectionString"),String)
End Get
Set
Me("ConnectionString") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=DPM_Mobile;persist security info=false;workstat"& _
"ion id=;packet size=4096;user id=sa;password=*shu29")> _
Public Property ConnectionStringMobie() As String
Get
Return CType(Me("ConnectionStringMobie"),String)
End Get
Set
Me("ConnectionStringMobie") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("BgWSbwCNM3pEiCxgIlDEyD7HFpUgKPeL8OPDqH9n")> _
Public Property APIKey() As String
Get
Return CType(Me("APIKey"),String)
End Get
Set
Me("APIKey") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Q.6qYq0_C+mGmymX")> _
Public Property IV() As String
Get
Return CType(Me("IV"),String)
End Get
Set
Me("IV") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("3hba8fOumOPrMG0.G?-mkF-scGOkPwyW")> _
Public Property SecretKey() As String
Get
Return CType(Me("SecretKey"),String)
End Get
Set
Me("SecretKey") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("http://192.168.111.67")> _
Public Property WebAPI() As String
Get
Return CType(Me("WebAPI"),String)
End Get
Set
Me("WebAPI") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("PADM")> _
Public Property SoftwareType() As String
Get
Return CType(Me("SoftwareType"),String)
End Get
Set
Me("SoftwareType") = 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.DPM2016.My.MySettings
Get
Return Global.DPM2016.My.MySettings.Default
End Get
End Property
End Module
End Namespace
'------------------------------------------------------------------------------
' <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", "17.5.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 "Automatische My.Settings-Speicherfunktion"
#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(sender As Global.System.Object, 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("2")> _
Public Property LogLevel() As String
Get
Return CType(Me("LogLevel"),String)
End Get
Set
Me("LogLevel") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("h:\dpm\dmp1\dmp2")> _
Public Property TempPath() As String
Get
Return CType(Me("TempPath"),String)
End Get
Set
Me("TempPath") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("h:\dpm\docarchiv")> _
Public Property DocArchivPath() As String
Get
Return CType(Me("DocArchivPath"),String)
End Get
Set
Me("DocArchivPath") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstati"& _
"on id=;packet size=4096;user id=sa;password=*shu29")> _
Public Property ConnectionString() As String
Get
Return CType(Me("ConnectionString"),String)
End Get
Set
Me("ConnectionString") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=DPM_Mobile;persist security info=false;workstat"& _
"ion id=;packet size=4096;user id=sa;password=*shu29")> _
Public Property ConnectionStringMobie() As String
Get
Return CType(Me("ConnectionStringMobie"),String)
End Get
Set
Me("ConnectionStringMobie") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("BgWSbwCNM3pEiCxgIlDEyD7HFpUgKPeL8OPDqH9n")> _
Public Property APIKey() As String
Get
Return CType(Me("APIKey"),String)
End Get
Set
Me("APIKey") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("Q.6qYq0_C+mGmymX")> _
Public Property IV() As String
Get
Return CType(Me("IV"),String)
End Get
Set
Me("IV") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("3hba8fOumOPrMG0.G?-mkF-scGOkPwyW")> _
Public Property SecretKey() As String
Get
Return CType(Me("SecretKey"),String)
End Get
Set
Me("SecretKey") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("http://192.168.111.67")> _
Public Property WebAPI() As String
Get
Return CType(Me("WebAPI"),String)
End Get
Set
Me("WebAPI") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("DPM")> _
Public Property SoftwareType() As String
Get
Return CType(Me("SoftwareType"),String)
End Get
Set
Me("SoftwareType") = 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.DPM2016.My.MySettings
Get
Return Global.DPM2016.My.MySettings.Default
End Get
End Property
End Module
End Namespace

70
DPM2016/My Project/Settings.settings
View File

@@ -1,36 +1,36 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="LogLevel" Type="System.String" Scope="User">
<Value Profile="(Default)">2</Value>
</Setting>
<Setting Name="TempPath" Type="System.String" Scope="User">
<Value Profile="(Default)">h:\dpm\dmp1\dmp2</Value>
</Setting>
<Setting Name="DocArchivPath" Type="System.String" Scope="User">
<Value Profile="(Default)">h:\dpm\docarchiv</Value>
</Setting>
<Setting Name="ConnectionString" Type="System.String" Scope="User">
<Value Profile="(Default)">data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</Value>
</Setting>
<Setting Name="ConnectionStringMobie" Type="System.String" Scope="User">
<Value Profile="(Default)">data source=shu00;initial catalog=DPM_Mobile;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</Value>
</Setting>
<Setting Name="APIKey" Type="System.String" Scope="User">
<Value Profile="(Default)">BgWSbwCNM3pEiCxgIlDEyD7HFpUgKPeL8OPDqH9n</Value>
</Setting>
<Setting Name="IV" Type="System.String" Scope="User">
<Value Profile="(Default)">Q.6qYq0_C+mGmymX</Value>
</Setting>
<Setting Name="SecretKey" Type="System.String" Scope="User">
<Value Profile="(Default)">3hba8fOumOPrMG0.G?-mkF-scGOkPwyW</Value>
</Setting>
<Setting Name="WebAPI" Type="System.String" Scope="User">
<Value Profile="(Default)">http://192.168.111.67</Value>
</Setting>
<Setting Name="SoftwareType" Type="System.String" Scope="User">
<Value Profile="(Default)">PADM</Value>
</Setting>
</Settings>
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="LogLevel" Type="System.String" Scope="User">
<Value Profile="(Default)">2</Value>
</Setting>
<Setting Name="TempPath" Type="System.String" Scope="User">
<Value Profile="(Default)">h:\dpm\dmp1\dmp2</Value>
</Setting>
<Setting Name="DocArchivPath" Type="System.String" Scope="User">
<Value Profile="(Default)">h:\dpm\docarchiv</Value>
</Setting>
<Setting Name="ConnectionString" Type="System.String" Scope="User">
<Value Profile="(Default)">data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</Value>
</Setting>
<Setting Name="ConnectionStringMobie" Type="System.String" Scope="User">
<Value Profile="(Default)">data source=shu00;initial catalog=DPM_Mobile;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</Value>
</Setting>
<Setting Name="APIKey" Type="System.String" Scope="User">
<Value Profile="(Default)">BgWSbwCNM3pEiCxgIlDEyD7HFpUgKPeL8OPDqH9n</Value>
</Setting>
<Setting Name="IV" Type="System.String" Scope="User">
<Value Profile="(Default)">Q.6qYq0_C+mGmymX</Value>
</Setting>
<Setting Name="SecretKey" Type="System.String" Scope="User">
<Value Profile="(Default)">3hba8fOumOPrMG0.G?-mkF-scGOkPwyW</Value>
</Setting>
<Setting Name="WebAPI" Type="System.String" Scope="User">
<Value Profile="(Default)">http://192.168.111.67</Value>
</Setting>
<Setting Name="SoftwareType" Type="System.String" Scope="User">
<Value Profile="(Default)">DPM</Value>
</Setting>
</Settings>
</SettingsFile>