diff --git a/app/DD_PM_WINDREAM/ClassFinalIndex.vb b/app/DD_PM_WINDREAM/ClassFinalIndex.vb index 9beac2d..81900ff 100644 --- a/app/DD_PM_WINDREAM/ClassFinalIndex.vb +++ b/app/DD_PM_WINDREAM/ClassFinalIndex.vb @@ -1,3 +1,73 @@ Public Class ClassFinalIndex + Public Shared PREFIX_VECTOR = "[%VKT" + Public Shared Function GetValue(obj As Object, indexName As String, indcies As List(Of String), types As List(Of Integer), isVector As Boolean) + Try + Dim props As FinalIndexProperties = obj + Dim i As Integer = indcies.IndexOf(indexName) + Dim type As Integer = types.Item(i) + Dim value As String = "" + + If type = INDEX_TYPE_STRING Or type = INDEX_TYPE_VECTOR_STRING Then + value = props.StringValue + ElseIf type = INDEX_TYPE_INTEGER Or type = INDEX_TYPE_VECTOR_INTEGER Then + value = props.IntegerValue.ToString + ElseIf type = INDEX_TYPE_FLOAT Then + value = props.FloatValue.ToString + ElseIf type = INDEX_TYPE_BOOLEAN Or type = INDEX_TYPE_VECTOR_BOOLEAN Then + value = IIf(props.BoolValue, "1", "0") + End If + + If isVector Then + Return $"{PREFIX_VECTOR}{value}" + Else + Return value + End If + Catch ex As Exception + MsgBox($"Error in GetValue: {ex.Message}", MsgBoxStyle.Critical) + End Try + End Function + + Public Shared Function SetValue(value As String, obj As Object, indexName As String, indcies As List(Of String), types As List(Of Integer)) + Try + Dim props As FinalIndexProperties = obj + Dim i As Integer = indcies.IndexOf(indexName) + Dim type As Integer = types.Item(i) + Dim isVector = value.StartsWith(PREFIX_VECTOR) + + If type = INDEX_TYPE_STRING Or type = INDEX_TYPE_VECTOR_STRING Then + value = NotNull(value, "") + + props.StringValue = value + ElseIf type = INDEX_TYPE_INTEGER Or type = INDEX_TYPE_VECTOR_INTEGER Then + value = NotNull(Of Integer)(value, 0) + + If value = String.Empty Then + props.IntegerValue = 0 + Else + props.IntegerValue = Integer.Parse(value) + End If + ElseIf type = INDEX_TYPE_FLOAT Then + value = NotNull(Of Double)(value, 0) + + If value = String.Empty Then + props.FloatValue = 0 + Else + props.FloatValue = Double.Parse(value) + End If + ElseIf type = INDEX_TYPE_BOOLEAN Or type = INDEX_TYPE_VECTOR_BOOLEAN Then + value = NotNull(value, "False") + + If value = "1" Or value.ToLower = "true" Then + props.BoolValue = True + Else + props.BoolValue = False + End If + End If + + Return props + Catch ex As Exception + MsgBox($"Error in SetValue: {ex.Message}", MsgBoxStyle.Critical) + End Try + End Function End Class diff --git a/app/DD_PM_WINDREAM/ClassIndexListConverter.vb b/app/DD_PM_WINDREAM/ClassIndexListConverter.vb new file mode 100644 index 0000000..1a73736 --- /dev/null +++ b/app/DD_PM_WINDREAM/ClassIndexListConverter.vb @@ -0,0 +1,24 @@ +Imports System.ComponentModel +Imports System.Globalization + +Public Class IndexListConverter + Inherits TypeConverter + + Public Overrides Function GetStandardValuesSupported(context As ITypeDescriptorContext) As Boolean + Return True + End Function + + Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection + Dim indexList = DirectCast(context.Instance, FinalIndexProperties).Indicies + Dim values As New StandardValuesCollection(indexList) + Return values + End Function + + Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object + If IsNothing(value) Then + Return "" + Else + Return value.ToString() + End If + End Function +End Class diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb index 57d22ff..c75be0a 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb @@ -886,6 +886,10 @@ Partial Public Class DD_DMSLiteDataSet Private columnSQL_COMMAND As Global.System.Data.DataColumn + Private columnDESCRIPTION As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + _ Public Sub New() @@ -993,6 +997,22 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property + _ + Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDESCRIPTION + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + _ @@ -1030,9 +1050,9 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Overloads Function AddTBPM_PROFILE_FINAL_INDEXINGRow(ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String) As TBPM_PROFILE_FINAL_INDEXINGRow + Public Overloads Function AddTBPM_PROFILE_FINAL_INDEXINGRow(ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String, ByVal DESCRIPTION As String, ByVal ACTIVE As Boolean) As TBPM_PROFILE_FINAL_INDEXINGRow Dim rowTBPM_PROFILE_FINAL_INDEXINGRow As TBPM_PROFILE_FINAL_INDEXINGRow = CType(Me.NewRow,TBPM_PROFILE_FINAL_INDEXINGRow) - Dim columnValuesArray() As Object = New Object() {INDEXNAME, VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Nothing, CONNECTION_ID, SQL_COMMAND} + Dim columnValuesArray() As Object = New Object() {INDEXNAME, VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Nothing, CONNECTION_ID, SQL_COMMAND, DESCRIPTION, ACTIVE} rowTBPM_PROFILE_FINAL_INDEXINGRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPM_PROFILE_FINAL_INDEXINGRow) Return rowTBPM_PROFILE_FINAL_INDEXINGRow @@ -1070,6 +1090,8 @@ Partial Public Class DD_DMSLiteDataSet Me.columnGUID = MyBase.Columns("GUID") Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") + Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") + Me.columnACTIVE = MyBase.Columns("ACTIVE") End Sub _ + Public Property DESCRIPTION() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ACTIVE in Tabelle TBPM_PROFILE_FINAL_INDEXING ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn) = value + End Set + End Property + _ Public Function IsCHANGED_WHONull() As Boolean @@ -8243,6 +8299,18 @@ Partial Public Class DD_DMSLiteDataSet Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub + + _ + Public Function IsACTIVENull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn) + End Function + + _ + Public Sub SetACTIVENull() + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn) = Global.System.Convert.DBNull + End Sub End Class ''' @@ -13104,6 +13172,8 @@ Namespace DD_DMSLiteDataSetTableAdapters tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection @@ -13142,9 +13212,10 @@ Namespace DD_DMSLiteDataSetTableAdapters "WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHO, TBPM_P"& _ "ROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFI"& _ "LE_FINAL_INDEXING.CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_I"& _ - "NDEXING.SQL_COMMAND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TB"& _ - "PM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPM_PROFILE.NAME = @name)" + "NDEXING.SQL_COMMAND, TBPM_PROFILE_FINAL_INDEXING.DESCRIPTION, TBPM_PROFILE_FINAL"& _ + "_INDEXING.ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_"& _ + "PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPM_PROFILE.NAME = @name)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@name", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd index 401ec24..b0ef405 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd @@ -9,7 +9,7 @@ - + DELETE FROM TBPM_PROFILE_FINAL_INDEXING @@ -20,17 +20,17 @@ WHERE (GUID = @guid) - + INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, INDEXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND) VALUES (@PROFIL_ID,@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMAND) - - - - - - + + + + + + @@ -38,12 +38,12 @@ VALUES (@PROFIL_ID,@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMA SELECT TBPM_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM_PROFILE_FINAL_INDEXING.VALUE, TBPM_PROFILE_FINAL_INDEXING.ADDED_WHO, TBPM_PROFILE_FINAL_INDEXING.ADDED_WHEN, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHO, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFILE_FINAL_INDEXING.CONNECTION_ID, - TBPM_PROFILE_FINAL_INDEXING.SQL_COMMAND + TBPM_PROFILE_FINAL_INDEXING.SQL_COMMAND, TBPM_PROFILE_FINAL_INDEXING.DESCRIPTION, TBPM_PROFILE_FINAL_INDEXING.ACTIVE FROM TBPM_PROFILE_FINAL_INDEXING INNER JOIN TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID WHERE (TBPM_PROFILE.NAME = @name) - + @@ -59,6 +59,8 @@ WHERE (TBPM_PROFILE.NAME = @name) + + @@ -2024,7 +2026,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2066,10 +2068,18 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) + + + + + + + + - + @@ -2165,7 +2175,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2230,7 +2240,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2260,7 +2270,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2283,7 +2293,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2373,7 +2383,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2446,7 +2456,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2495,7 +2505,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2510,7 +2520,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2531,7 +2541,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2639,7 +2649,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2712,7 +2722,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2763,7 +2773,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2855,7 +2865,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2912,7 +2922,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -2953,7 +2963,7 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - + @@ -3069,11 +3079,11 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) - - - - - + + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss index cfb210b..3e417d5 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss @@ -6,7 +6,7 @@ --> - + diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index 7e79161..8ad9ca2 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -116,6 +116,9 @@ P:\Visual Studio Projekte\Bibliotheken\DLLLicenseManager.dll + + P:\Visual Studio Projekte\Bibliotheken\FormsUtils.dll + False P:\Visual Studio Projekte\Bibliotheken\MSG .NET\Bin\Independentsoft.Msg.dll @@ -158,6 +161,7 @@ + diff --git a/app/DD_PM_WINDREAM/ModuleControlProperties.vb b/app/DD_PM_WINDREAM/ModuleControlProperties.vb index eb92ca5..a11211e 100644 --- a/app/DD_PM_WINDREAM/ModuleControlProperties.vb +++ b/app/DD_PM_WINDREAM/ModuleControlProperties.vb @@ -206,31 +206,6 @@ Public Module ModuleControlProperties _default_value = value End Set End Property - - ''' - ''' Sorgt dafür, dass die Liste von Indicies aus dem gleichnamigen Feld ausgelesen wird - ''' - Public Class IndexListConverter - Inherits TypeConverter - - Public Overrides Function GetStandardValuesSupported(context As ITypeDescriptorContext) As Boolean - Return True - End Function - - Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection - Dim indexList = DirectCast(context.Instance, InputProperties).Indicies - Dim values As New StandardValuesCollection(indexList) - Return values - End Function - - Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object - If IsNothing(value) Then - Return "" - Else - Return value.ToString() - End If - End Function - End Class End Class Public Class TextboxProperties diff --git a/app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb b/app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb index 56cbb0e..f75b51c 100644 --- a/app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb +++ b/app/DD_PM_WINDREAM/ModuleFinalIndexProperties.vb @@ -1,14 +1,25 @@ Imports System.ComponentModel Imports System.Drawing.Design Imports System.Globalization +Imports FormsUtils Module ModuleFinalIndexProperties + Public Const INDEX_TYPE_STRING = 1 + Public Const INDEX_TYPE_INTEGER = 2 + Public Const INDEX_TYPE_FLOAT = 3 + Public Const INDEX_TYPE_BOOLEAN = 4 + Public Const INDEX_TYPE_DATE = 5 + Public Const INDEX_TYPE_VECTOR_INTEGER = 4107 + Public Const INDEX_TYPE_VECTOR_STRING = 4097 + Public Const INDEX_TYPE_VECTOR_BOOLEAN = 4100 + Public Const INDEX_TYPE_VECTOR_DATE = 4101 + Public Class FinalIndexProperties - + <[ReadOnly](True)> Public Property GUID As Integer - + <[ReadOnly](True)> Public Property ConnectionId As Integer @@ -20,51 +31,98 @@ Module ModuleFinalIndexProperties ''' ''' Eigenschaft, die den SQL Editor anzeigt ''' - + Public Property SQLCommand As SQLValue - - Public Property StaticValue As String - ''' - ''' Eigenschaft, die eine Liste von Indicies anzeigt - ''' + ' Eigenschaften für die verschiedenen Index-Typen + + + + Public Property StringValue As String + + + + + Public Property BoolValue As Boolean + + + + + Public Property FloatValue As Double + + + + + Public Property DateValue As Date + + + + + Public Property IntegerValue As Integer + Public Property IndexName As String Public Property VectorIndex As Boolean - ''' - ''' Diese Eigenschaft enthält die auswählbaren Indicies, die für das Control verfügbar sind. Wird nicht direkt angezeigt. - ''' + ' Eigenschaften für die Liste der Indicies Public Property Indicies As List(Of String) + + Public Property IndiciesType As List(Of Integer) + Public Sub MaybeSetReadOnly(attrs As PropertyAttributes) + Dim hasSQLValue As Boolean = (SQLCommand.Value <> String.Empty) + If hasSQLValue Then + attrs.IsReadOnly = True + Else + attrs.IsReadOnly = False + End If + End Sub - Public Class IndexListConverter - Inherits TypeConverter + Public Sub MaybeSetBrowsable(attrs As PropertyAttributes, indexType As Integer()) + Dim i As Integer = Indicies.IndexOf(IndexName) - Public Overrides Function GetStandardValuesSupported(context As ITypeDescriptorContext) As Boolean - Return True - End Function + ' IndexName wurde nicth gefunden oder ist leerer/ungültiger String + If i < 0 Then + attrs.IsBrowsable = False + Exit Sub + End If - Public Overrides Function GetStandardValues(context As ITypeDescriptorContext) As StandardValuesCollection - Dim indexList = DirectCast(context.Instance, FinalIndexProperties).Indicies - Dim values As New StandardValuesCollection(indexList) - Return values - End Function + Dim type As Integer = IndiciesType.Item(i) - Public Overrides Function ConvertTo(context As ITypeDescriptorContext, culture As CultureInfo, value As Object, destinationType As Type) As Object - If IsNothing(value) Then - Return "" - Else - Return value.ToString() - End If - End Function - End Class + If indexType.Contains(type) Then + attrs.IsBrowsable = True + Else + attrs.IsBrowsable = False + End If + End Sub + Public Sub IndexTypeBooleanProvider(attrs As PropertyAttributes) + MaybeSetBrowsable(attrs, {INDEX_TYPE_BOOLEAN, INDEX_TYPE_VECTOR_BOOLEAN}) + MaybeSetReadOnly(attrs) + End Sub + + Public Sub IndexTypeStringProvider(attrs As PropertyAttributes) + MaybeSetBrowsable(attrs, {INDEX_TYPE_STRING, INDEX_TYPE_VECTOR_STRING}) + MaybeSetReadOnly(attrs) + End Sub + + Public Sub IndexTypeFloatProvider(attrs As PropertyAttributes) + MaybeSetBrowsable(attrs, {INDEX_TYPE_FLOAT}) + MaybeSetReadOnly(attrs) + End Sub + + Public Sub IndexTypeIntegerProvider(attrs As PropertyAttributes) + MaybeSetBrowsable(attrs, {INDEX_TYPE_INTEGER, INDEX_TYPE_VECTOR_INTEGER}) + MaybeSetReadOnly(attrs) + End Sub + + Public Sub IndexTypeDateProvider(attrs As PropertyAttributes) + MaybeSetBrowsable(attrs, {INDEX_TYPE_DATE, INDEX_TYPE_VECTOR_DATE}) + MaybeSetReadOnly(attrs) + End Sub End Class - - End Module diff --git a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb index 1b8f19a..7ff5beb 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb @@ -49,7 +49,7 @@ Partial Class frmAdministration Dim VEKTOR_DELIMITERLabel As System.Windows.Forms.Label Dim WORK_HISTORY_ENTRYLabel As System.Windows.Forms.Label Dim SQL_VIEWLabel As System.Windows.Forms.Label - Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.SplitContainer_Profilzuordnung2 = New System.Windows.Forms.SplitContainer() Me.gridAssignedUsers = New DevExpress.XtraGrid.GridControl() Me.TBPROFILE_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -155,19 +155,23 @@ Partial Class frmAdministration Me.TabPage6 = New System.Windows.Forms.TabPage() Me.TabControl2 = New System.Windows.Forms.TabControl() Me.TabPage11 = New System.Windows.Forms.TabPage() + Me.Panel5 = New System.Windows.Forms.Panel() Me.gridFinalIndex = New DevExpress.XtraGrid.GridControl() Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.viewFinalIndex = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() Me.colINDEXNAME = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colVALUE = New DevExpress.XtraGrid.Columns.GridColumn() Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() Me.colCHANGED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() Me.colCHANGED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCONNECTION_ID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSQL_COMMAND = New DevExpress.XtraGrid.Columns.GridColumn() + Me.PropertyGrid1 = New System.Windows.Forms.PropertyGrid() Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorCountItem1 = New System.Windows.Forms.ToolStripLabel() - Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveFirstItem1 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMovePreviousItem1 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorSeparator3 = New System.Windows.Forms.ToolStripSeparator() @@ -176,8 +180,8 @@ Partial Class frmAdministration Me.BindingNavigatorMoveNextItem1 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveLastItem1 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton() - Me.PropertyGrid1 = New System.Windows.Forms.PropertyGrid() Me.Label13 = New System.Windows.Forms.Label() Me.TabControlFinalIndices = New System.Windows.Forms.TabControl() Me.TabPage9 = New System.Windows.Forms.TabPage() @@ -304,6 +308,7 @@ Partial Class frmAdministration Me.TBDD_GROUPSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GROUPSTableAdapter() Me.TBPROFILE_GROUPTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPROFILE_GROUPTableAdapter() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton() GUIDLabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label() DESCRIPTIONLabel = New System.Windows.Forms.Label() @@ -371,6 +376,7 @@ Partial Class frmAdministration Me.TabPage6.SuspendLayout() Me.TabControl2.SuspendLayout() Me.TabPage11.SuspendLayout() + Me.Panel5.SuspendLayout() CType(Me.gridFinalIndex, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.viewFinalIndex, System.ComponentModel.ISupportInitialize).BeginInit() @@ -824,7 +830,6 @@ Partial Class frmAdministration Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete @@ -1294,9 +1299,8 @@ Partial Class frmAdministration ' 'TabPage11 ' - Me.TabPage11.Controls.Add(Me.gridFinalIndex) + Me.TabPage11.Controls.Add(Me.Panel5) Me.TabPage11.Controls.Add(Me.BindingNavigator1) - Me.TabPage11.Controls.Add(Me.PropertyGrid1) Me.TabPage11.Controls.Add(Me.Label13) Me.TabPage11.Controls.Add(Me.GroupBox3) Me.TabPage11.Controls.Add(Me.TabControlFinalIndices) @@ -1308,6 +1312,13 @@ Partial Class frmAdministration Me.TabPage11.Name = "TabPage11" Me.TabPage11.UseVisualStyleBackColor = True ' + 'Panel5 + ' + Me.Panel5.Controls.Add(Me.gridFinalIndex) + Me.Panel5.Controls.Add(Me.PropertyGrid1) + resources.ApplyResources(Me.Panel5, "Panel5") + Me.Panel5.Name = "Panel5" + ' 'gridFinalIndex ' Me.gridFinalIndex.DataSource = Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource @@ -1323,25 +1334,25 @@ Partial Class frmAdministration ' 'viewFinalIndex ' - Me.viewFinalIndex.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colINDEXNAME, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colCHANGED_WHO, Me.colCHANGED_WHEN}) + Me.viewFinalIndex.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colINDEXNAME, Me.colVALUE, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colCHANGED_WHO, Me.colCHANGED_WHEN, Me.colGUID, Me.colCONNECTION_ID, Me.colSQL_COMMAND}) Me.viewFinalIndex.GridControl = Me.gridFinalIndex Me.viewFinalIndex.Name = "viewFinalIndex" Me.viewFinalIndex.OptionsBehavior.Editable = False Me.viewFinalIndex.OptionsBehavior.ReadOnly = True Me.viewFinalIndex.OptionsView.ShowGroupPanel = False ' - 'colGUID - ' - Me.colGUID.FieldName = "GUID" - Me.colGUID.Name = "colGUID" - resources.ApplyResources(Me.colGUID, "colGUID") - ' 'colINDEXNAME ' Me.colINDEXNAME.FieldName = "INDEXNAME" Me.colINDEXNAME.Name = "colINDEXNAME" resources.ApplyResources(Me.colINDEXNAME, "colINDEXNAME") ' + 'colVALUE + ' + Me.colVALUE.FieldName = "VALUE" + Me.colVALUE.Name = "colVALUE" + resources.ApplyResources(Me.colVALUE, "colVALUE") + ' 'colADDED_WHO ' Me.colADDED_WHO.FieldName = "ADDED_WHO" @@ -1366,14 +1377,38 @@ Partial Class frmAdministration Me.colCHANGED_WHEN.Name = "colCHANGED_WHEN" resources.ApplyResources(Me.colCHANGED_WHEN, "colCHANGED_WHEN") ' + 'colGUID + ' + Me.colGUID.FieldName = "GUID" + Me.colGUID.Name = "colGUID" + resources.ApplyResources(Me.colGUID, "colGUID") + ' + 'colCONNECTION_ID + ' + Me.colCONNECTION_ID.FieldName = "CONNECTION_ID" + Me.colCONNECTION_ID.Name = "colCONNECTION_ID" + resources.ApplyResources(Me.colCONNECTION_ID, "colCONNECTION_ID") + ' + 'colSQL_COMMAND + ' + Me.colSQL_COMMAND.FieldName = "SQL_COMMAND" + Me.colSQL_COMMAND.Name = "colSQL_COMMAND" + resources.ApplyResources(Me.colSQL_COMMAND, "colSQL_COMMAND") + ' + 'PropertyGrid1 + ' + resources.ApplyResources(Me.PropertyGrid1, "PropertyGrid1") + Me.PropertyGrid1.Name = "PropertyGrid1" + ' 'BindingNavigator1 ' Me.BindingNavigator1.AddNewItem = Me.BindingNavigatorAddNewItem Me.BindingNavigator1.BindingSource = Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem1 - Me.BindingNavigator1.DeleteItem = Me.BindingNavigatorDeleteItem + Me.BindingNavigator1.CountItemFormat = "von {0} finalen Indexen" + Me.BindingNavigator1.DeleteItem = Nothing resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1") - Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem1, Me.BindingNavigatorMovePreviousItem1, Me.BindingNavigatorSeparator3, Me.BindingNavigatorPositionItem1, Me.BindingNavigatorCountItem1, Me.BindingNavigatorSeparator4, Me.BindingNavigatorMoveNextItem1, Me.BindingNavigatorMoveLastItem1, Me.BindingNavigatorSeparator5, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.ToolStripButton4}) + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem1, Me.BindingNavigatorMovePreviousItem1, Me.BindingNavigatorSeparator3, Me.BindingNavigatorPositionItem1, Me.BindingNavigatorCountItem1, Me.BindingNavigatorSeparator4, Me.BindingNavigatorMoveNextItem1, Me.BindingNavigatorMoveLastItem1, Me.BindingNavigatorSeparator5, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.ToolStripButton4, Me.ToolStripButton5}) Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem1 Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem1 Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem1 @@ -1383,21 +1418,15 @@ Partial Class frmAdministration ' 'BindingNavigatorAddNewItem ' - Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem") + Me.BindingNavigatorAddNewItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.add Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem") ' 'BindingNavigatorCountItem1 ' Me.BindingNavigatorCountItem1.Name = "BindingNavigatorCountItem1" resources.ApplyResources(Me.BindingNavigatorCountItem1, "BindingNavigatorCountItem1") ' - 'BindingNavigatorDeleteItem - ' - Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - resources.ApplyResources(Me.BindingNavigatorDeleteItem, "BindingNavigatorDeleteItem") - Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" - ' 'BindingNavigatorMoveFirstItem1 ' Me.BindingNavigatorMoveFirstItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image @@ -1442,18 +1471,17 @@ Partial Class frmAdministration Me.BindingNavigatorSeparator5.Name = "BindingNavigatorSeparator5" resources.ApplyResources(Me.BindingNavigatorSeparator5, "BindingNavigatorSeparator5") ' + 'BindingNavigatorDeleteItem + ' + resources.ApplyResources(Me.BindingNavigatorDeleteItem, "BindingNavigatorDeleteItem") + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + ' 'ToolStripButton4 ' - Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.ToolStripButton4.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.save resources.ApplyResources(Me.ToolStripButton4, "ToolStripButton4") Me.ToolStripButton4.Name = "ToolStripButton4" ' - 'PropertyGrid1 - ' - resources.ApplyResources(Me.PropertyGrid1, "PropertyGrid1") - Me.PropertyGrid1.Name = "PropertyGrid1" - ' 'Label13 ' resources.ApplyResources(Me.Label13, "Label13") @@ -2116,8 +2144,8 @@ Partial Class frmAdministration 'TBPM_ERROR_LOGDataGridView ' Me.TBPM_ERROR_LOGDataGridView.AllowUserToAddRows = False - DataGridViewCellStyle3.BackColor = System.Drawing.Color.Cyan - Me.TBPM_ERROR_LOGDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle2.BackColor = System.Drawing.Color.Cyan + Me.TBPM_ERROR_LOGDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 Me.TBPM_ERROR_LOGDataGridView.AutoGenerateColumns = False Me.TBPM_ERROR_LOGDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.TBPM_ERROR_LOGDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn17, Me.DataGridViewTextBoxColumn22, Me.DataGridViewTextBoxColumn23, Me.DataGridViewTextBoxColumn24, Me.DataGridViewTextBoxColumn25}) @@ -2308,6 +2336,12 @@ Partial Class frmAdministration ' Me.OpenFileDialog1.FileName = "OpenFileDialog1" ' + 'ToolStripButton5 + ' + Me.ToolStripButton5.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xMD + resources.ApplyResources(Me.ToolStripButton5, "ToolStripButton5") + Me.ToolStripButton5.Name = "ToolStripButton5" + ' 'frmAdministration ' resources.ApplyResources(Me, "$this") @@ -2364,6 +2398,7 @@ Partial Class frmAdministration Me.TabControl2.ResumeLayout(False) Me.TabPage11.ResumeLayout(False) Me.TabPage11.PerformLayout() + Me.Panel5.ResumeLayout(False) CType(Me.gridFinalIndex, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.viewFinalIndex, System.ComponentModel.ISupportInitialize).EndInit() @@ -2652,12 +2687,6 @@ Partial Class frmAdministration Friend WithEvents OpenFileDialog1 As OpenFileDialog Friend WithEvents gridFinalIndex As DevExpress.XtraGrid.GridControl Friend WithEvents viewFinalIndex As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents colINDEXNAME As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colADDED_WHO As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colCHANGED_WHO As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colCHANGED_WHEN As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents BindingNavigator1 As BindingNavigator Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton Friend WithEvents BindingNavigatorCountItem1 As ToolStripLabel @@ -2672,4 +2701,15 @@ Partial Class frmAdministration Friend WithEvents BindingNavigatorSeparator5 As ToolStripSeparator Friend WithEvents PropertyGrid1 As PropertyGrid Friend WithEvents ToolStripButton4 As ToolStripButton + Friend WithEvents Panel5 As Panel + Friend WithEvents colINDEXNAME As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colVALUE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colADDED_WHO As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCHANGED_WHO As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCHANGED_WHEN As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCONNECTION_ID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSQL_COMMAND As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents ToolStripButton5 As ToolStripButton End Class diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index 685f26c..8930f3d 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -2107,7 +2107,7 @@ der Wertänderungen nutzen wollen: TabPage11 - 4 + 3 Segoe UI, 9pt @@ -2592,54 +2592,6 @@ der Wertänderungen nutzen wollen: True - - 245, 134 - - - 18, 169 - - - True - - - 0 - - - True - - - 1 - - - True - - - 2 - - - True - - - 3 - - - True - - - 4 - - - True - - - 5 - - - 632, 270 - - - 93 - gridFinalIndex @@ -2647,65 +2599,71 @@ der Wertänderungen nutzen wollen: DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - TabPage11 + Panel5 0 + + PropertyGrid1 + + + System.Windows.Forms.PropertyGrid, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel5 + + + 1 + + + Bottom + + + 3, 173 + + + 1229, 269 + + + 94 + + + Panel5 + + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage11 + + + 0 + 831, 212 - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC - pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ - Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ - /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA - zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ - IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E - rkJggg== - - True - 23, 22 + 112, 22 Neu hinzufügen + + 245, 134 + - 44, 22 + 127, 22 - von {0} + von {0} finalen Indexen Die Gesamtanzahl der Elemente. - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC - DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC - rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV - i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG - 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG - QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX - bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Löschen - None @@ -2809,20 +2767,50 @@ der Wertänderungen nutzen wollen: 6, 25 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + True + + + 71, 22 + + + Löschen + Magenta - 23, 22 + 79, 22 - ToolStripButton4 + Speichern + + + Magenta + + + 95, 22 + + + Aktualisieren - 682, 133 + 9, 133 - 287, 25 + 689, 25 92 @@ -2842,27 +2830,6 @@ der Wertänderungen nutzen wollen: 1 - - 1003, 5 - - - 226, 150 - - - 91 - - - PropertyGrid1 - - - System.Windows.Forms.PropertyGrid, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 2 - True @@ -2891,398 +2858,11 @@ der Wertänderungen nutzen wollen: TabPage11 - 3 + 2 Top, Bottom, Left, Right - - True - - - 193, 27 - - - 199, 20 - - - 87 - - - Wert in Vektorindex schreiben - - - CheckBoxPMVEKTOR - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 0 - - - True - - - 24, 135 - - - 45, 16 - - - 89 - - - Label4 - - - False - - - lblSaveFinalIndex - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 1 - - - True - - - 24, 3 - - - 89, 16 - - - 78 - - - Index wählen: - - - lblIndexPMVektor - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 2 - - - True - - - 7, 108 - - - 19, 16 - - - 86 - - - 3. - - - Label11 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 3 - - - 32, 50 - - - 160, 23 - - - 88 - - - False - - - txtBezeichner - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 4 - - - True - - - 7, 52 - - - 19, 16 - - - 85 - - - 2. - - - Label10 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 5 - - - 27, 27 - - - 160, 24 - - - 77 - - - cmbIndexe - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 6 - - - True - - - 7, 3 - - - 19, 16 - - - 84 - - - 1. - - - Label9 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 7 - - - True - - - 24, 52 - - - 21, 16 - - - 79 - - - sd - - - False - - - lblIndex - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 8 - - - btnStampDate - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grbxSystemStamps - - - 0 - - - btnStampUser - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grbxSystemStamps - - - 1 - - - 298, 52 - - - 153, 80 - - - 83 - - - System-Stamps - - - False - - - grbxSystemStamps - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 9 - - - 60, 72 - - - 100, 23 - - - 80 - - - False - - - txtindexwert_final - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 10 - - - MiddleLeft - - - 27, 101 - - - 136, 31 - - - 82 - - - Index einfügen - - - MiddleRight - - - btnInsert_FinalIndex - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 11 - - - True - - - 27, 79 - - - 15, 14 - - - 81 - - - False - - - chkbxfinalIndex - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 12 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1601, 708 - - - 0 - - - Fester Wert - TabPage9 @@ -3295,132 +2875,6 @@ der Wertänderungen nutzen wollen: 0 - - True - - - btnEditor - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 0 - - - Label15 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 1 - - - cmbIndexe2 - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 2 - - - btnSaveSQLCommand - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 3 - - - SQL_COMMANDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 4 - - - btnShowConnections - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 5 - - - Label14 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 6 - - - cmbConnection - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 7 - - - Label4 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 8 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1601, 708 - - - 1 - - - Dynamisches SQL - TabPage10 @@ -3437,10 +2891,10 @@ der Wertänderungen nutzen wollen: False - 668, 161 + 1104, 13 - 1609, 737 + 113, 70 90 @@ -3455,7 +2909,7 @@ der Wertänderungen nutzen wollen: TabPage11 - 5 + 4 True @@ -3485,7 +2939,7 @@ der Wertänderungen nutzen wollen: TabPage11 - 6 + 5 True @@ -3515,7 +2969,7 @@ der Wertänderungen nutzen wollen: TabPage11 - 7 + 6 765, 56 @@ -3684,7 +3138,7 @@ der Wertänderungen nutzen wollen: False - 7, 133 + 699, 100 568, 25 @@ -3705,7 +3159,7 @@ der Wertänderungen nutzen wollen: TabPage11 - 8 + 7 True @@ -3714,10 +3168,10 @@ der Wertänderungen nutzen wollen: Top, Bottom, Left - 9, 161 + 1031, 23 - 653, 755 + 67, 43 75 @@ -3732,7 +3186,7 @@ der Wertänderungen nutzen wollen: TabPage11 - 9 + 8 4, 25 @@ -4388,6 +3842,585 @@ der Wertänderungen nutzen wollen: 7 + + Fill + + + 0, 0 + + + True + + + 0 + + + True + + + 1 + + + True + + + 2 + + + True + + + 3 + + + True + + + 4 + + + True + + + 5 + + + True + + + 6 + + + True + + + 7 + + + True + + + 8 + + + 906, 269 + + + 93 + + + gridFinalIndex + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Panel5 + + + 0 + + + Right + + + False + + + 906, 0 + + + 323, 269 + + + 91 + + + PropertyGrid1 + + + System.Windows.Forms.PropertyGrid, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel5 + + + 1 + + + CheckBoxPMVEKTOR + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 0 + + + lblSaveFinalIndex + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 1 + + + lblIndexPMVektor + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 2 + + + Label11 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 3 + + + txtBezeichner + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 4 + + + Label10 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 5 + + + cmbIndexe + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 6 + + + Label9 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 7 + + + lblIndex + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 8 + + + grbxSystemStamps + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 9 + + + txtindexwert_final + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 10 + + + btnInsert_FinalIndex + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 11 + + + chkbxfinalIndex + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 12 + + + 4, 25 + + + 3, 3, 3, 3 + + + 105, 41 + + + 0 + + + Fester Wert + + + TabPage9 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControlFinalIndices + + + 0 + + + True + + + 193, 27 + + + 199, 20 + + + 87 + + + Wert in Vektorindex schreiben + + + CheckBoxPMVEKTOR + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 0 + + + True + + + 24, 135 + + + 45, 16 + + + 89 + + + Label4 + + + False + + + lblSaveFinalIndex + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 1 + + + True + + + 24, 3 + + + 89, 16 + + + 78 + + + Index wählen: + + + lblIndexPMVektor + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 2 + + + True + + + 7, 108 + + + 19, 16 + + + 86 + + + 3. + + + Label11 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 3 + + + 32, 50 + + + 160, 23 + + + 88 + + + False + + + txtBezeichner + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 4 + + + True + + + 7, 52 + + + 19, 16 + + + 85 + + + 2. + + + Label10 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 5 + + + 27, 27 + + + 160, 24 + + + 77 + + + cmbIndexe + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 6 + + + True + + + 7, 3 + + + 19, 16 + + + 84 + + + 1. + + + Label9 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 7 + + + True + + + 24, 52 + + + 21, 16 + + + 79 + + + sd + + + False + + + lblIndex + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 8 + + + btnStampDate + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbxSystemStamps + + + 0 + + + btnStampUser + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grbxSystemStamps + + + 1 + + + 298, 52 + + + 153, 80 + + + 83 + + + System-Stamps + + + False + + + grbxSystemStamps + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 9 + MiddleLeft @@ -4448,6 +4481,225 @@ der Wertänderungen nutzen wollen: 1 + + 60, 72 + + + 100, 23 + + + 80 + + + False + + + txtindexwert_final + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 10 + + + MiddleLeft + + + 27, 101 + + + 136, 31 + + + 82 + + + Index einfügen + + + MiddleRight + + + btnInsert_FinalIndex + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 11 + + + True + + + 27, 79 + + + 15, 14 + + + 81 + + + False + + + chkbxfinalIndex + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 12 + + + True + + + btnEditor + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage10 + + + 0 + + + Label15 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage10 + + + 1 + + + cmbIndexe2 + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage10 + + + 2 + + + btnSaveSQLCommand + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage10 + + + 3 + + + SQL_COMMANDTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage10 + + + 4 + + + btnShowConnections + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage10 + + + 5 + + + Label14 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage10 + + + 6 + + + cmbConnection + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage10 + + + 7 + + + Label4 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage10 + + + 8 + + + 4, 25 + + + 3, 3, 3, 3 + + + 105, 44 + + + 1 + + + Dynamisches SQL + + + TabPage10 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControlFinalIndices + + + 1 + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO @@ -6505,18 +6757,18 @@ der Wertänderungen nutzen wollen: DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - colGUID - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - colINDEXNAME DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + colVALUE + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + colADDED_WHO @@ -6541,6 +6793,24 @@ der Wertänderungen nutzen wollen: DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + colGUID + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colCONNECTION_ID + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colSQL_COMMAND + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + BindingNavigatorAddNewItem @@ -6553,12 +6823,6 @@ der Wertänderungen nutzen wollen: System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - BindingNavigatorDeleteItem - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - BindingNavigatorMoveFirstItem1 @@ -6607,6 +6871,12 @@ der Wertänderungen nutzen wollen: System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + BindingNavigatorDeleteItem + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + ToolStripButton4 @@ -6931,6 +7201,12 @@ der Wertänderungen nutzen wollen: System.Windows.Forms.OpenFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ToolStripButton5 + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + frmAdministration diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb index 5d21dd7..95ba555 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.vb @@ -13,7 +13,7 @@ Public Class frmAdministration Private INSERT_ACTIVE As Boolean = False Dim Windream_Indicies As List(Of String) - + Dim Windream_Indicies_Types As List(Of Integer) Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load formloaded = False @@ -68,7 +68,15 @@ Public Class frmAdministration Indexe_eintragen() Try - Windream_Indicies = _windreamPM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList() + If cmbObjekttypen.Text <> String.Empty Then + Windream_Indicies = _windreamPM.GetIndicesByObjecttype(cmbObjekttypen.Text).ToList() + Windream_Indicies_Types = New List(Of Integer) + + For Each i In Windream_Indicies + Dim type = _windreamPM.GetTypeOfIndex(i) + Windream_Indicies_Types.Add(type) + Next + End If Catch ex As Exception MsgBox("Fehler bei Indexe_eintragen: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") End Try @@ -985,11 +993,17 @@ Public Class frmAdministration Dim view As GridView = sender Dim focusedRow As DataRow = view.GetFocusedDataRow() + If IsNothing(focusedRow) Then + Exit Sub + End If + Dim guid As Integer = focusedRow.Item("GUID") - Dim index As String = focusedRow.Item("INDEXNAME") - Dim sqlCommand As String = focusedRow.Item("SQL_COMMAND") - Dim connectionId As Integer = focusedRow.Item("CONNECTION_ID") - Dim value As String = focusedRow.Item("VALUE") + Dim index As String = NotNull(focusedRow.Item("INDEXNAME"), Nothing) + Dim sqlCommand As String = NotNull(focusedRow.Item("SQL_COMMAND"), "") + Dim connectionId As Integer = NotNull(focusedRow.Item("CONNECTION_ID"), 0) + Dim value As String = NotNull(focusedRow.Item("VALUE"), "") + Dim active As Boolean = NotNull(focusedRow.Item("ACTIVE"), True) + Dim description As String = NotNull(focusedRow.Item("DESCRIPTION"), "") CURRENT_INDEX_ID = guid CURRENT_SQL_CON = connectionId @@ -997,12 +1011,22 @@ Public Class frmAdministration Dim obj As New FinalIndexProperties() obj.GUID = guid obj.IndexName = index - obj.StaticValue = value obj.SQLCommand = New SQLValue(sqlCommand) obj.ConnectionId = connectionId + obj.Description = description + obj.Active = active + obj.Indicies = Windream_Indicies + obj.IndiciesType = Windream_Indicies_Types + obj.IndexName = index + + ' Wenn eine neue Zeile hinzugefügt wird, auf StringValue setzen + If e.FocusedRowHandle <> GridControl.NewItemRowHandle Then + obj = ClassFinalIndex.SetValue(value, obj, index, Windream_Indicies, Windream_Indicies_Types) + End If PropertyGrid1.SelectedObject = obj + PropertyGrid1.Refresh() Catch ex As Exception MsgBox($"Error while loading Final Index properties: {ex.Message}") ClassLogger.Add($"Error while loading Final Index properties: {ex.Message}") @@ -1010,12 +1034,6 @@ Public Class frmAdministration End Sub Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click - Dim obj As New FinalIndexProperties() - obj.Indicies = Windream_Indicies - obj.SQLCommand = New SQLValue() - - PropertyGrid1.SelectedObject = obj - INSERT_ACTIVE = True End Sub @@ -1024,36 +1042,39 @@ Public Class frmAdministration Dim obj As FinalIndexProperties = PropertyGrid1.SelectedObject If Not IsNothing(obj) Then + + Dim value = ClassFinalIndex.GetValue(obj, obj.IndexName, Windream_Indicies, Windream_Indicies_Types, obj.VectorIndex) Dim guid = obj.GUID Dim profileId As Integer = PROFILGUIDTextBox.Text Dim connectionId As Integer = obj.ConnectionId Dim sqlCommand As String = obj.SQLCommand.Value.Replace("'", "''") Dim indexName As String = obj.IndexName - Dim value As String = obj.StaticValue + Dim isVectorIndex As Boolean = obj.VectorIndex Dim addedWho As String = Environment.UserName + Dim description As String = obj.Description + Dim active As Integer = IIf(obj.Active, 1, 0) If NotNull(indexName, "") = String.Empty Then - MsgBox("Das Feld Index muss ausgefüllt sein!", MsgBoxStyle.Exclamation) + MsgBox("Das Feld IndexName muss ausgefüllt sein!", MsgBoxStyle.Exclamation) Exit Sub End If If NotNull(sqlCommand, "") = String.Empty And NotNull(value, "") = String.Empty Then - MsgBox("Entweder SQL Command oder StaticValue müssen ausgefüllt sein!", MsgBoxStyle.Exclamation) + MsgBox("Entweder SQLCommand oder StaticValue müssen ausgefüllt sein!", MsgBoxStyle.Exclamation) Exit Sub End If - - If INSERT_ACTIVE = True Then - Dim sql As String = $"INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ADDED_WHO) - VALUES ({profileId}, {connectionId}, '{sqlCommand}', '{indexName}', '{value}', '{addedWho}')" + Dim sql As String = $"INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ACTIVE, ADDED_WHO) + VALUES ({profileId}, {connectionId}, '{sqlCommand}', '{indexName}', '{value}', {active}, '{addedWho}')" If ClassDatabase.Execute_non_Query(sql, True) Then INSERT_ACTIVE = False End If Else Dim sql As String = $"UPDATE TBPM_PROFILE_FINAL_INDEXING - SET CONNECTION_ID = {connectionId}, SQL_COMMAND = '{sqlCommand}', INDEXNAME = '{indexName}', CHANGED_WHO = '{addedWho}' + SET CONNECTION_ID = {connectionId}, SQL_COMMAND = '{sqlCommand}', INDEXNAME = '{indexName}', CHANGED_WHO = '{addedWho}', + VALUE = '{value}', ACTIVE = {active} WHERE GUID = {guid}" If ClassDatabase.Execute_non_Query(sql, True) Then @@ -1062,7 +1083,6 @@ Public Class frmAdministration End If Refresh_Final_indexe() - End If Catch ex As Exception MsgBox("Error while Saving Final Index: " & ex.Message, MsgBoxStyle.Critical) @@ -1075,12 +1095,32 @@ Public Class frmAdministration Dim obj As FinalIndexProperties = propertyGrid.SelectedObject If TypeOf (e.ChangedItem.Value) Is SQLValue Then + Dim value As SQLValue = e.ChangedItem.Value - obj.ConnectionId = CURRENT_SQL_CON - obj.StaticValue = "SQL-Command" - ElseIf e.ChangedItem.Label = "StaticValue" Then + If value.Value <> String.Empty Then + obj.ConnectionId = CURRENT_SQL_CON + obj = ClassFinalIndex.SetValue("", obj, obj.IndexName, Windream_Indicies, Windream_Indicies_Types) + End If - obj.SQLCommand.Value = String.Empty + propertyGrid.Refresh() + ElseIf e.ChangedItem.Label = "IndexName" Then + propertyGrid.Refresh() End If End Sub + + Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click + Dim selectedRowHandle = viewFinalIndex.GetSelectedRows().First() + Dim row As DataRow = viewFinalIndex.GetDataRow(selectedRowHandle) + + If Not IsNothing(row) Then + TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdDelete(row.Item("GUID")) + Refresh_Final_indexe() + + MsgBox("Index erfolgreich gelöscht!", MsgBoxStyle.Information, "Hinweis:") + End If + End Sub + + Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click + Refresh_Final_indexe() + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index 70eaede..236c653 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -801,7 +801,6 @@ Public Class frmMain Else CMFileStart.Enabled = True End If - End Select End Sub