AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj 03.04 kampf mit net framework

Browse Source
This commit is contained in:
Digital Data 2017-04-03 13:01:57 +02:00
parent cb12278936
commit e24ce1d4bd
26 changed files with 1247 additions and 196 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.vs/ProjectSettings.json Normal file
View File

@ -0,0 +1,3 @@
{
"CurrentProjectSetting": null
}

8
.vs/VSWorkspaceState.json Normal file
View File

@ -0,0 +1,8 @@
{
"ExpandedNodes": [
"",
"\\app"
],
"SelectedNode": "\\app\\DD-Record-Organizer.sln",
"PreviewInSolutionExplorer": false
}

BIN
.vs/slnx.sqlite Normal file
View File

Binary file not shown.

1020
app/.vs/config/applicationhost.config Normal file
View File

File diff suppressed because it is too large Load Diff

32
app/DD-Record-Organizer/App.config
View File

@ -1,20 +1,18 @@
<?xml version="1.0" encoding="utf-8" ?> <?xml version="1.0" encoding="utf-8"?>
<configuration> <configuration>
<configSections> <configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" > <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="DD_Record_Organizer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" /> <section name="DD_Record_Organizer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
</sectionGroup> </sectionGroup>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" > <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="DD_Record_Organizer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" /> <section name="DD_Record_Organizer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false"/>
</sectionGroup> </sectionGroup>
</configSections> </configSections>
<connectionStrings> <connectionStrings>
<add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString" <add name="DD_Record_Organizer.My.MySettings.DD_DMSConnectionString" connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=ddd" providerName="System.Data.SqlClient"/>
connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=ddd"
providerName="System.Data.SqlClient" />
</connectionStrings> </connectionStrings>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.1" /> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2"/>
</startup> </startup>
<userSettings> <userSettings>
<DD_Record_Organizer.My.MySettings> <DD_Record_Organizer.My.MySettings>
@ -25,19 +23,19 @@
<value>*.*</value> <value>*.*</value>
</setting> </setting>
<setting name="WD_ENTITYIMP_IMPPATH" serializeAs="String"> <setting name="WD_ENTITYIMP_IMPPATH" serializeAs="String">
<value /> <value/>
</setting> </setting>
<setting name="WD_ENTITYIMP_TARGETPATH" serializeAs="String"> <setting name="WD_ENTITYIMP_TARGETPATH" serializeAs="String">
<value /> <value/>
</setting> </setting>
<setting name="WD_ENTITYIMP_SAFETYPATH" serializeAs="String"> <setting name="WD_ENTITYIMP_SAFETYPATH" serializeAs="String">
<value /> <value/>
</setting> </setting>
<setting name="WD_ENTITYIMP_OBJECTTYPE" serializeAs="String"> <setting name="WD_ENTITYIMP_OBJECTTYPE" serializeAs="String">
<value /> <value/>
</setting> </setting>
<setting name="WD_INDEXDOKART_SAVE" serializeAs="String"> <setting name="WD_INDEXDOKART_SAVE" serializeAs="String">
<value /> <value/>
</setting> </setting>
<setting name="User_Calendar_isChild" serializeAs="String"> <setting name="User_Calendar_isChild" serializeAs="String">
<value>True</value> <value>True</value>
@ -52,13 +50,13 @@
<value>False</value> <value>False</value>
</setting> </setting>
<setting name="TBPMO_RIGHT_GROUPDataGridView" serializeAs="String"> <setting name="TBPMO_RIGHT_GROUPDataGridView" serializeAs="String">
<value /> <value/>
</setting> </setting>
<setting name="frmRecordViewSplitter" serializeAs="String"> <setting name="frmRecordViewSplitter" serializeAs="String">
<value>332</value> <value>332</value>
</setting> </setting>
<setting name="TBPMO_RIGHT_USERDataGridView" serializeAs="String"> <setting name="TBPMO_RIGHT_USERDataGridView" serializeAs="String">
<value /> <value/>
</setting> </setting>
</DD_Record_Organizer.My.MySettings> </DD_Record_Organizer.My.MySettings>
</userSettings> </userSettings>
@ -69,4 +67,4 @@
</setting> </setting>
</DD_Record_Organizer.My.MySettings> </DD_Record_Organizer.My.MySettings>
</applicationSettings> </applicationSettings>
</configuration> </configuration>

2
app/DD-Record-Organizer/ClassControlCommandsUI.vb
View File

@ -508,7 +508,7 @@ Public Class ClassControlCommandsUI
Continue For Continue For
End If End If
If TypeOf ctrl Is Windows.Forms.DataGridView Then If TypeOf ctrl Is System.Windows.Forms.DataGridView Then
Dim id As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id Dim id As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id
UpdateMultipleValues(id, RecordID, CONTROL_VALUE) UpdateMultipleValues(id, RecordID, CONTROL_VALUE)
Continue For Continue For

14
app/DD-Record-Organizer/ClassControlLoader.vb
View File

@ -14,7 +14,7 @@
' Return sqlCommand ' Return sqlCommand
'End Function 'End Function
Public Shared Function LoadAutoValue(control As Windows.Forms.Control, RecordId As Integer, ParentRecordId As Integer, entity_ID As Integer) Public Shared Function LoadAutoValue(control As System.Windows.Forms.Control, RecordId As Integer, ParentRecordId As Integer, entity_ID As Integer)
Try Try
Dim AutoValue As String = String.Empty Dim AutoValue As String = String.Empty
Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
@ -205,7 +205,7 @@
control.DataSource = dt control.DataSource = dt
End Sub End Sub
Overloads Shared Sub SetDataSource(control As Windows.Forms.DataGridView, dt As DataTable) Overloads Shared Sub SetDataSource(control As System.Windows.Forms.DataGridView, dt As DataTable)
control.DataSource = dt control.DataSource = dt
End Sub End Sub
@ -218,7 +218,7 @@
Public Class Label : Inherits _BaseControl Public Class Label : Inherits _BaseControl
Public Shared Sub LoadValue(control As Windows.Forms.Label, recordId As Integer, parentRecordId As Integer, value As String, entity_ID As Integer, Optional VARIABLE_VALUE As Boolean = False) Public Shared Sub LoadValue(control As System.Windows.Forms.Label, recordId As Integer, parentRecordId As Integer, value As String, entity_ID As Integer, Optional VARIABLE_VALUE As Boolean = False)
Dim Sql Dim Sql
Dim ControlId As Integer Dim ControlId As Integer
Try Try
@ -263,7 +263,7 @@
Public Class Checkbox : Inherits _BaseControl Public Class Checkbox : Inherits _BaseControl
Public Shared Sub LoadValue(control As Windows.Forms.CheckBox, value As String) Public Shared Sub LoadValue(control As System.Windows.Forms.CheckBox, value As String)
Try Try
Dim result As Boolean = False Dim result As Boolean = False
Boolean.TryParse(value, result) Boolean.TryParse(value, result)
@ -279,7 +279,7 @@
Public Class RadioButton : Inherits _BaseControl Public Class RadioButton : Inherits _BaseControl
Public Shared Sub LoadValue(control As Windows.Forms.RadioButton, value As String) Public Shared Sub LoadValue(control As System.Windows.Forms.RadioButton, value As String)
Try Try
Dim result As Boolean = False Dim result As Boolean = False
Boolean.TryParse(value, result) Boolean.TryParse(value, result)
@ -295,7 +295,7 @@
Public Class TextBox : Inherits _BaseControl Public Class TextBox : Inherits _BaseControl
Public Shared Sub LoadValue(control As Windows.Forms.TextBox, recordId As Integer, parentRecordId As Integer, value As String, entity_ID As Integer, Optional VARIABLE_VALUE As Boolean = False) Public Shared Sub LoadValue(control As System.Windows.Forms.TextBox, recordId As Integer, parentRecordId As Integer, value As String, entity_ID As Integer, Optional VARIABLE_VALUE As Boolean = False)
Try Try
Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id
If ControlId = 272 Then If ControlId = 272 Then
@ -509,7 +509,7 @@
Public Class DataGridView : Inherits _ListControl Public Class DataGridView : Inherits _ListControl
Public Shared Sub LoadValue(control As Windows.Forms.DataGridView, values As List(Of Object)) Public Shared Sub LoadValue(control As System.Windows.Forms.DataGridView, values As List(Of Object))
control.Rows.Clear() control.Rows.Clear()
For Each item In values For Each item In values
control.Rows.Add(item.ToString) control.Rows.Add(item.ToString)

4
app/DD-Record-Organizer/ClassCustomComboBox.vb
View File

@ -1,10 +1,10 @@
Public Class CustomComboBox Public Class CustomComboBox
Inherits Windows.Forms.ComboBox Inherits ComboBox
Public Sub New() Public Sub New()
MyBase.New() MyBase.New()
DrawMode = Windows.Forms.DrawMode.OwnerDrawFixed DrawMode = DrawMode.OwnerDrawFixed
End Sub End Sub
'Protected Overrides Sub OnEnabledChanged(e As EventArgs) 'Protected Overrides Sub OnEnabledChanged(e As EventArgs)

40
app/DD-Record-Organizer/DD-Record-Organizer.vbproj
View File

@ -11,7 +11,7 @@
<AssemblyName>DD-Record-Organizer</AssemblyName> <AssemblyName>DD-Record-Organizer</AssemblyName>
<FileAlignment>512</FileAlignment> <FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType> <MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5.1</TargetFrameworkVersion> <TargetFrameworkVersion>v4.5.2</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects> <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<IsWebBootstrapper>false</IsWebBootstrapper> <IsWebBootstrapper>false</IsWebBootstrapper>
<PublishUrl>publish\</PublishUrl> <PublishUrl>publish\</PublishUrl>
@ -28,6 +28,7 @@
<ApplicationVersion>1.0.0.%2a</ApplicationVersion> <ApplicationVersion>1.0.0.%2a</ApplicationVersion>
<UseApplicationTrust>false</UseApplicationTrust> <UseApplicationTrust>false</UseApplicationTrust>
<BootstrapperEnabled>true</BootstrapperEnabled> <BootstrapperEnabled>true</BootstrapperEnabled>
<TargetFrameworkProfile />
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget> <PlatformTarget>AnyCPU</PlatformTarget>
@ -90,12 +91,21 @@
<Reference Include="DevExpress.BonusSkins.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.BonusSkins.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Charts.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Charts.v15.2.Core, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Charts.v15.2.Core.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Data.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.Data.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.Images.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Images.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<Reference Include="DevExpress.Map.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Images.v15.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Map.v15.2.Core, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Map.v15.2.Core.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Office.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.Office.v15.2.Core, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
@ -121,9 +131,18 @@
<Reference Include="DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.XtraCharts.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraCharts.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<Reference Include="DevExpress.XtraCharts.v15.2.UI, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <SpecificVersion>False</SpecificVersion>
<Reference Include="DevExpress.XtraCharts.v15.2.Wizard, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraCharts.v15.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraCharts.v15.2.UI, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraCharts.v15.2.UI.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraCharts.v15.2.Wizard, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraCharts.v15.2.Wizard.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
@ -133,7 +152,10 @@
<Reference Include="DevExpress.XtraLayout.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraLayout.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
<Reference Include="DevExpress.XtraMap.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraMap.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraMap.v15.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraNavBar.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL"> <Reference Include="DevExpress.XtraNavBar.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
</Reference> </Reference>
@ -171,7 +193,7 @@
<HintPath>..\..\lib\DLLLicenseManager.dll</HintPath> <HintPath>..\..\lib\DLLLicenseManager.dll</HintPath>
</Reference> </Reference>
<Reference Include="ERPConnect45"> <Reference Include="ERPConnect45">
<HintPath>D:\Programme\Sprachen\ERPConnect\ERPConnect45.dll</HintPath> <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\ERPConnect45.dll</HintPath>
</Reference> </Reference>
<Reference Include="Independentsoft.Msg"> <Reference Include="Independentsoft.Msg">
<HintPath>..\..\3rdparty\lib\MSG.NET\Independentsoft.Msg.dll</HintPath> <HintPath>..\..\3rdparty\lib\MSG.NET\Independentsoft.Msg.dll</HintPath>

2
app/DD-Record-Organizer/DD_DMSDataSetCalendar.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' Dieser Code wurde von einem Tool generiert. ' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.36366 ' Laufzeitversion:4.0.30319.42000
' '
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird. ' der Code erneut generiert wird.

2
app/DD-Record-Organizer/DD_DMSDataSetMenuDesigner.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' Dieser Code wurde von einem Tool generiert. ' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.36366 ' Laufzeitversion:4.0.30319.42000
' '
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird. ' der Code erneut generiert wird.

2
app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' Dieser Code wurde von einem Tool generiert. ' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.36366 ' Laufzeitversion:4.0.30319.42000
' '
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird. ' der Code erneut generiert wird.

6
app/DD-Record-Organizer/My Project/Application.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' Dieser Code wurde von einem Tool generiert. ' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.36366 ' Laufzeitversion:4.0.30319.42000
' '
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird. ' der Code erneut generiert wird.
@ -14,8 +14,8 @@ Option Explicit On
Namespace My Namespace My
'HINWEIS: Diese Datei wird automatisch generiert. Ändern Sie sie nicht direkt. Zum Ändern 'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten
' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer. ' oder in dieser Datei Buildfehler auftreten, wechseln Sie zum Projekt-Designer.
' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor. ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
' '

270
app/DD-Record-Organizer/My Project/Settings.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' Dieser Code wurde von einem Tool generiert. ' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.36366 ' Laufzeitversion:4.0.30319.42000
' '
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird. ' der Code erneut generiert wird.
@ -13,35 +13,35 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.0.1.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()), MySettings) Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funktion zum automatischen Speichern von My.Settings" #Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then #If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ <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) Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then If My.Application.SaveMySettingsOnExit Then
My.Settings.Save() My.Settings.Save()
End If End If
End Sub End Sub
#End If #End If
#End Region #End Region
Public Shared ReadOnly Property [Default]() As MySettings Public Shared ReadOnly Property [Default]() As MySettings
Get Get
#If _MyType = "WindowsForms" Then #If _MyType = "WindowsForms" Then
If Not addedHandler Then If Not addedHandler Then
SyncLock addedHandlerLockObject SyncLock addedHandlerLockObject
If Not addedHandler Then If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
@ -53,218 +53,218 @@ Namespace My
Return defaultInstance Return defaultInstance
End Get End Get
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _ Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security In" & _ Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security In"& _
"fo=True;User ID=sa;Password=ddd")> _ "fo=True;User ID=sa;Password=ddd")> _
Public ReadOnly Property DD_DMSConnectionString() As String Public ReadOnly Property DD_DMSConnectionString() As String
Get Get
Return CType(Me("DD_DMSConnectionString"), String) Return CType(Me("DD_DMSConnectionString"),String)
End Get End Get
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("*.db"), _ Global.System.Configuration.DefaultSettingValueAttribute("*.db"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property WD_ENTITYIMP_EXCLUDE() As String Public Property WD_ENTITYIMP_EXCLUDE() As String
Get Get
Return CType(Me("WD_ENTITYIMP_EXCLUDE"), String) Return CType(Me("WD_ENTITYIMP_EXCLUDE"),String)
End Get End Get
Set(value As String) Set
Me("WD_ENTITYIMP_EXCLUDE") = value Me("WD_ENTITYIMP_EXCLUDE") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("*.*"), _ Global.System.Configuration.DefaultSettingValueAttribute("*.*"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property WD_ENTITYIMP_FILTER() As String Public Property WD_ENTITYIMP_FILTER() As String
Get Get
Return CType(Me("WD_ENTITYIMP_FILTER"), String) Return CType(Me("WD_ENTITYIMP_FILTER"),String)
End Get End Get
Set(value As String) Set
Me("WD_ENTITYIMP_FILTER") = value Me("WD_ENTITYIMP_FILTER") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _ Global.System.Configuration.DefaultSettingValueAttribute(""), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property WD_ENTITYIMP_IMPPATH() As String Public Property WD_ENTITYIMP_IMPPATH() As String
Get Get
Return CType(Me("WD_ENTITYIMP_IMPPATH"), String) Return CType(Me("WD_ENTITYIMP_IMPPATH"),String)
End Get End Get
Set(value As String) Set
Me("WD_ENTITYIMP_IMPPATH") = value Me("WD_ENTITYIMP_IMPPATH") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _ Global.System.Configuration.DefaultSettingValueAttribute(""), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property WD_ENTITYIMP_TARGETPATH() As String Public Property WD_ENTITYIMP_TARGETPATH() As String
Get Get
Return CType(Me("WD_ENTITYIMP_TARGETPATH"), String) Return CType(Me("WD_ENTITYIMP_TARGETPATH"),String)
End Get End Get
Set(value As String) Set
Me("WD_ENTITYIMP_TARGETPATH") = value Me("WD_ENTITYIMP_TARGETPATH") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _ Global.System.Configuration.DefaultSettingValueAttribute(""), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property WD_ENTITYIMP_SAFETYPATH() As String Public Property WD_ENTITYIMP_SAFETYPATH() As String
Get Get
Return CType(Me("WD_ENTITYIMP_SAFETYPATH"), String) Return CType(Me("WD_ENTITYIMP_SAFETYPATH"),String)
End Get End Get
Set(value As String) Set
Me("WD_ENTITYIMP_SAFETYPATH") = value Me("WD_ENTITYIMP_SAFETYPATH") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _ Global.System.Configuration.DefaultSettingValueAttribute(""), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property WD_ENTITYIMP_OBJECTTYPE() As String Public Property WD_ENTITYIMP_OBJECTTYPE() As String
Get Get
Return CType(Me("WD_ENTITYIMP_OBJECTTYPE"), String) Return CType(Me("WD_ENTITYIMP_OBJECTTYPE"),String)
End Get End Get
Set(value As String) Set
Me("WD_ENTITYIMP_OBJECTTYPE") = value Me("WD_ENTITYIMP_OBJECTTYPE") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _ Global.System.Configuration.DefaultSettingValueAttribute(""), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property WD_INDEXDOKART_SAVE() As String Public Property WD_INDEXDOKART_SAVE() As String
Get Get
Return CType(Me("WD_INDEXDOKART_SAVE"), String) Return CType(Me("WD_INDEXDOKART_SAVE"),String)
End Get End Get
Set(value As String) Set
Me("WD_INDEXDOKART_SAVE") = value Me("WD_INDEXDOKART_SAVE") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True"), _ Global.System.Configuration.DefaultSettingValueAttribute("True"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property User_Calendar_isChild() As Boolean Public Property User_Calendar_isChild() As Boolean
Get Get
Return CType(Me("User_Calendar_isChild"), Boolean) Return CType(Me("User_Calendar_isChild"),Boolean)
End Get End Get
Set(value As Boolean) Set
Me("User_Calendar_isChild") = value Me("User_Calendar_isChild") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True"), _ Global.System.Configuration.DefaultSettingValueAttribute("True"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property User_DesignPanels_areChild() As Boolean Public Property User_DesignPanels_areChild() As Boolean
Get Get
Return CType(Me("User_DesignPanels_areChild"), Boolean) Return CType(Me("User_DesignPanels_areChild"),Boolean)
End Get End Get
Set(value As Boolean) Set
Me("User_DesignPanels_areChild") = value Me("User_DesignPanels_areChild") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("665"), _ Global.System.Configuration.DefaultSettingValueAttribute("665"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property Constructor_DetailsSplitter() As Integer Public Property Constructor_DetailsSplitter() As Integer
Get Get
Return CType(Me("Constructor_DetailsSplitter"), Integer) Return CType(Me("Constructor_DetailsSplitter"),Integer)
End Get End Get
Set(value As Integer) Set
Me("Constructor_DetailsSplitter") = value Me("Constructor_DetailsSplitter") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False"), _ Global.System.Configuration.DefaultSettingValueAttribute("False"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property User_InBoxScan_NotinFront() As Boolean Public Property User_InBoxScan_NotinFront() As Boolean
Get Get
Return CType(Me("User_InBoxScan_NotinFront"), Boolean) Return CType(Me("User_InBoxScan_NotinFront"),Boolean)
End Get End Get
Set(value As Boolean) Set
Me("User_InBoxScan_NotinFront") = value Me("User_InBoxScan_NotinFront") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _ Global.System.Configuration.DefaultSettingValueAttribute(""), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property TBPMO_RIGHT_GROUPDataGridView() As String Public Property TBPMO_RIGHT_GROUPDataGridView() As String
Get Get
Return CType(Me("TBPMO_RIGHT_GROUPDataGridView"), String) Return CType(Me("TBPMO_RIGHT_GROUPDataGridView"),String)
End Get End Get
Set(value As String) Set
Me("TBPMO_RIGHT_GROUPDataGridView") = value Me("TBPMO_RIGHT_GROUPDataGridView") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("332"), _ Global.System.Configuration.DefaultSettingValueAttribute("332"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property frmRecordViewSplitter() As Integer Public Property frmRecordViewSplitter() As Integer
Get Get
Return CType(Me("frmRecordViewSplitter"), Integer) Return CType(Me("frmRecordViewSplitter"),Integer)
End Get End Get
Set(value As Integer) Set
Me("frmRecordViewSplitter") = value Me("frmRecordViewSplitter") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _ Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property TBPMO_RIGHT_USERDataGridView() As String Public Property TBPMO_RIGHT_USERDataGridView() As String
Get Get
Return CType(Me("TBPMO_RIGHT_USERDataGridView"), String) Return CType(Me("TBPMO_RIGHT_USERDataGridView"),String)
End Get End Get
Set(value As String) Set
Me("TBPMO_RIGHT_USERDataGridView") = value Me("TBPMO_RIGHT_USERDataGridView") = value
End Set End Set
End Property End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _ <Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("sDigital Data - windream-Benutzer")> _ Global.System.Configuration.DefaultSettingValueAttribute("sDigital Data - windream-Benutzer")> _
Public ReadOnly Property windreamGruppe() As String Public ReadOnly Property windreamGruppe() As String
Get Get
Return CType(Me("windreamGruppe"), String) Return CType(Me("windreamGruppe"),String)
End Get End Get
End Property End Property
End Class End Class
End Namespace End Namespace
Namespace My Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _ <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.DD_Record_Organizer.My.MySettings Friend ReadOnly Property Settings() As Global.DD_Record_Organizer.My.MySettings
Get Get
Return Global.DD_Record_Organizer.My.MySettings.Default Return Global.DD_Record_Organizer.My.MySettings.Default

2
app/DD-Record-Organizer/Strings/ControlProperties.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' Dieser Code wurde von einem Tool generiert. ' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.36366 ' Laufzeitversion:4.0.30319.42000
' '
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird. ' der Code erneut generiert wird.

10
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@ -2687,9 +2687,9 @@ Public Class frmConstructor_Main
For Each Control As System.Windows.Forms.Control In controls For Each Control As System.Windows.Forms.Control In controls
Dim controlId As Integer = DirectCast(Control.Tag, ClassControlMetadata).Id Dim controlId As Integer = DirectCast(Control.Tag, ClassControlMetadata).Id
Select Case Control.GetType() Select Case Control.GetType()
Case GetType(Windows.Forms.GroupBox) Case GetType(System.Windows.Forms.GroupBox)
Lock_Record_Controls_Recursive(state, DirectCast(Control, GroupBox).Controls) Lock_Record_Controls_Recursive(state, DirectCast(Control, GroupBox).Controls)
Case GetType(Windows.Forms.TextBox) Case GetType(System.Windows.Forms.TextBox)
Dim txt As TextBox = CType(Control, TextBox) Dim txt As TextBox = CType(Control, TextBox)
txt.ReadOnly = CHECK_CONTROL_CONFIGURED_RO(controlId, state) txt.ReadOnly = CHECK_CONTROL_CONFIGURED_RO(controlId, state)
Case Else Case Else
@ -2713,7 +2713,7 @@ Public Class frmConstructor_Main
msg1 = "Unsaved changes" msg1 = "Unsaved changes"
End If End If
Dim result As DialogResult = MessageBox.Show(msg, msg1, MessageBoxButtons.YesNo, MessageBoxIcon.Question) Dim result As DialogResult = MessageBox.Show(msg, msg1, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = Windows.Forms.DialogResult.Yes Then If result = System.Windows.Forms.DialogResult.Yes Then
If CtrlCommandUI.IsInsert = True Then If CtrlCommandUI.IsInsert = True Then
EDIT_STATE = EditState.None EDIT_STATE = EditState.None
Lock_RecordControls(True) Lock_RecordControls(True)
@ -4809,13 +4809,13 @@ Public Class frmConstructor_Main
Try Try
Dim view As BaseView = CType(sender, BaseView) Dim view As BaseView = CType(sender, BaseView)
If e.Button = Windows.Forms.MouseButtons.Right Then If e.Button = System.Windows.Forms.MouseButtons.Right Then
GRIDRightMouse_Clicked = True GRIDRightMouse_Clicked = True
Else Else
GRIDRightMouse_Clicked = False GRIDRightMouse_Clicked = False
End If End If
Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y)) Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y))
If e.Button = Windows.Forms.MouseButtons.Left AndAlso hitInfo.InRow AndAlso hitInfo.HitTest <> GridHitTest.RowIndicator Then If e.Button = System.Windows.Forms.MouseButtons.Left AndAlso hitInfo.InRow AndAlso hitInfo.HitTest <> GridHitTest.RowIndicator Then
GRIDdownHitInfo = hitInfo GRIDdownHitInfo = hitInfo
End If End If
Catch ex As Exception Catch ex As Exception

4
app/DD-Record-Organizer/frmDiagrams.vb
View File

@ -261,7 +261,7 @@ Public Class frmDiagrams
End If End If
Dim successResult As DialogResult = MessageBox.Show(message, "Success", MessageBoxButtons.YesNo) Dim successResult As DialogResult = MessageBox.Show(message, "Success", MessageBoxButtons.YesNo)
If successResult = Windows.Forms.DialogResult.Yes Then If successResult = System.Windows.Forms.DialogResult.Yes Then
Process.Start(filepath) Process.Start(filepath)
End If End If
End Sub End Sub
@ -333,7 +333,7 @@ Public Class frmDiagrams
Dim result As DialogResult = saveDialog.ShowDialog() Dim result As DialogResult = saveDialog.ShowDialog()
If result = Windows.Forms.DialogResult.OK Then If result = System.Windows.Forms.DialogResult.OK Then
Dim filename As String = saveDialog.FileName Dim filename As String = saveDialog.FileName
Select Case ext Select Case ext

4
app/DD-Record-Organizer/frmGeodataNavigation.vb
View File

@ -312,7 +312,7 @@ Public Class frmGeodataNavigation
Dim frm As New frmGeodataSelect(point) Dim frm As New frmGeodataSelect(point)
Dim result = frm.ShowDialog() Dim result = frm.ShowDialog()
If result = Windows.Forms.DialogResult.OK Then If result = System.Windows.Forms.DialogResult.OK Then
Dim SelectedPoint As GeoPoint = frm.SelectedPoint Dim SelectedPoint As GeoPoint = frm.SelectedPoint
txtLat.Text = SelectedPoint.Latitude txtLat.Text = SelectedPoint.Latitude
@ -397,7 +397,7 @@ Public Class frmGeodataNavigation
Try Try
Dim result As DialogResult = MessageBox.Show("Wollen Sie die Koordinaten für diesen Datensatz löschen?", "Koordinaten löschen", MessageBoxButtons.YesNo, MessageBoxIcon.Question) Dim result As DialogResult = MessageBox.Show("Wollen Sie die Koordinaten für diesen Datensatz löschen?", "Koordinaten löschen", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = Windows.Forms.DialogResult.Yes Then If result = System.Windows.Forms.DialogResult.Yes Then
Dim currentRow As DataRowView = grvwMain.GetFocusedRow() Dim currentRow As DataRowView = grvwMain.GetFocusedRow()
Dim RecordId As Integer = currentRow.Item("Record-ID") Dim RecordId As Integer = currentRow.Item("Record-ID")
Dim sql = "DELETE FROM TBPMO_RECORD_GEODATA WHERE RECORD_ID = " & RecordId Dim sql = "DELETE FROM TBPMO_RECORD_GEODATA WHERE RECORD_ID = " & RecordId

4
app/DD-Record-Organizer/frmGeodataSelect.vb
View File

@ -63,7 +63,7 @@ Public Class frmGeodataSelect
End Sub End Sub
Private Sub MapControl1_Click(sender As Object, e As MouseEventArgs) Handles MapControl1.Click Private Sub MapControl1_Click(sender As Object, e As MouseEventArgs) Handles MapControl1.Click
If e.Button <> Windows.Forms.MouseButtons.Left Then If e.Button <> System.Windows.Forms.MouseButtons.Left Then
Exit Sub Exit Sub
End If End If
If _SelectActive = False Then If _SelectActive = False Then
@ -94,7 +94,7 @@ Public Class frmGeodataSelect
layout.PutValue("MapControlSelect_ZoomLevel", MapControl1.ZoomLevel) layout.PutValue("MapControlSelect_ZoomLevel", MapControl1.ZoomLevel)
Me.DialogResult = Windows.Forms.DialogResult.OK Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close() Me.Close()
End Sub End Sub

2
app/DD-Record-Organizer/frmLevel_Designer.vb
View File

@ -507,7 +507,7 @@
Private Sub Control_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown Private Sub Control_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
' Check to see if the correct button has been pressed ' Check to see if the correct button has been pressed
If e.Button = Windows.Forms.MouseButtons.Left Then If e.Button = System.Windows.Forms.MouseButtons.Left Then
DesignerCtrlBuilder.CurrentControl = sender DesignerCtrlBuilder.CurrentControl = sender
DesignerCtrlBuilder.BeginLocation = e.Location DesignerCtrlBuilder.BeginLocation = e.Location

2
app/DD-Record-Organizer/frmQuickStart_Images.vb
View File

@ -20,7 +20,7 @@
Private Sub btnSelectImage_Click(sender As Object, e As EventArgs) Handles btnSelectImage.Click Private Sub btnSelectImage_Click(sender As Object, e As EventArgs) Handles btnSelectImage.Click
OpenFileDialog1.Filter = "PNG Bilder|*.png" OpenFileDialog1.Filter = "PNG Bilder|*.png"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Dim path As String = OpenFileDialog1.FileName Dim path As String = OpenFileDialog1.FileName
pbNew.ImageLocation = path pbNew.ImageLocation = path
btnSaveImage.Enabled = True btnSaveImage.Enabled = True

2
app/DD-Record-Organizer/frmRecOrgConfig_Basic.vb
View File

@ -141,7 +141,7 @@ Public Class frmRecOrgConfig_Basic
Private Sub btnSelectBackground_Click(sender As Object, e As EventArgs) Handles btnSelectBackground.Click Private Sub btnSelectBackground_Click(sender As Object, e As EventArgs) Handles btnSelectBackground.Click
OpenFileDialog1.Filter = "PNG Bilder|*.png" OpenFileDialog1.Filter = "PNG Bilder|*.png"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Dim path As String = OpenFileDialog1.FileName Dim path As String = OpenFileDialog1.FileName
pbBackground.ImageLocation = path pbBackground.ImageLocation = path
btnsave.Enabled = True btnsave.Enabled = True

2
app/DD-Record-Organizer/frmStructureNodeConfig.vb
View File

@ -332,7 +332,7 @@
Private Sub btnSelectBackground_Click(sender As Object, e As EventArgs) Handles btnSelectBackground.Click Private Sub btnSelectBackground_Click(sender As Object, e As EventArgs) Handles btnSelectBackground.Click
Try Try
OpenFileDialog1.Filter = "PNG Bilder|*.png" OpenFileDialog1.Filter = "PNG Bilder|*.png"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
Dim path As String = OpenFileDialog1.FileName Dim path As String = OpenFileDialog1.FileName
pbBackground.ImageLocation = path pbBackground.ImageLocation = path
If Save_Config() = True Then If Save_Config() = True Then

2
app/DD-Record-Organizer/frmTask_Management.vb
View File

@ -215,7 +215,7 @@
'End Sub 'End Sub
Private Sub btncolordialog_Click(sender As Object, e As EventArgs) Handles btncolordialog.Click Private Sub btncolordialog_Click(sender As Object, e As EventArgs) Handles btncolordialog.Click
If ColorDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then If ColorDialog1.ShowDialog <> System.Windows.Forms.DialogResult.Cancel Then
Dim colour As Integer = ColorTranslator.ToWin32(ColorDialog1.Color) Dim colour As Integer = ColorTranslator.ToWin32(ColorDialog1.Color)
COLORTextBox.Text = colour COLORTextBox.Text = colour
COLORTextBox.BackColor = ColorDialog1.Color COLORTextBox.BackColor = ColorDialog1.Color

2
app/DD-Record-Organizer/frmTemplates.vb
View File

@ -113,7 +113,7 @@
Me.OpenFileDialog1.FileName = Me.TEMPLATE_PATHTextBox.Text Me.OpenFileDialog1.FileName = Me.TEMPLATE_PATHTextBox.Text
End If End If
If Me.OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then If Me.OpenFileDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK Then
Me.TEMPLATE_PATHTextBox.Text = Me.OpenFileDialog1.FileName Me.TEMPLATE_PATHTextBox.Text = Me.OpenFileDialog1.FileName
GetPatterns() GetPatterns()
End If End If

2
app/DD-Record-Organizer/frmWD_Import_Doc_Record.vb
View File

@ -106,7 +106,7 @@ Public Class frmWD_Import_Doc_Record
Me.dlgWindreamsuche.FileName = Me.WD_SEARCHTextBox.Text Me.dlgWindreamsuche.FileName = Me.WD_SEARCHTextBox.Text
End If End If
If Me.dlgWindreamsuche.ShowDialog = Windows.Forms.DialogResult.OK Then If Me.dlgWindreamsuche.ShowDialog = System.Windows.Forms.DialogResult.OK Then
Me.WD_SEARCHTextBox.Text = Me.dlgWindreamsuche.FileName Me.WD_SEARCHTextBox.Text = Me.dlgWindreamsuche.FileName
End If End If
End Sub End Sub