diff --git a/app/DD_PM_WINDREAM/ClassControlCreator.vb b/app/DD_PM_WINDREAM/ClassControlCreator.vb index 7d90f5b..3802867 100644 --- a/app/DD_PM_WINDREAM/ClassControlCreator.vb +++ b/app/DD_PM_WINDREAM/ClassControlCreator.vb @@ -6,6 +6,7 @@ Imports DevExpress.XtraEditors.Controls Imports DevExpress.XtraEditors.NavigatorButtons Imports DevExpress.XtraEditors.Repository Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Columns Imports DevExpress.XtraGrid.Views.Base Imports DevExpress.XtraGrid.Views.Grid Imports DigitalData.Controls.LookupGrid @@ -418,7 +419,7 @@ Public Class ClassControlCreator If Not designMode Then oView.OptionsBehavior.Editable = Not row.Item("READ_ONLY") oView.OptionsBehavior.ReadOnly = row.Item("READ_ONLY") - ocontrol.UseEmbeddedNavigator = Not row.Item("READ_ONLY") + oControl.UseEmbeddedNavigator = Not row.Item("READ_ONLY") If row.Item("VKT_ADD_ITEM") = True Then oView.OptionsBehavior.AllowAddRows = DefaultBoolean.True @@ -486,75 +487,70 @@ Public Class ClassControlCreator oControl.DataSource = oDatatable oControl.RefreshDataSource() oControl.ForceInitialize() - 'Try - ' For Each oRow As DataRow In DT_MY_COLUMNS.Rows - ' Dim o = oRow.Item("SPALTENNAME") - ' Dim p = oRow.Item("SPALTENBREITE") - ' Dim ocount = oView.Columns.Count - ' If oRow.Item("FORMATSTRING") <> String.Empty Then - ' Select Case oRow.Item("FORMATSTRING") - ' Case "c2" - ' Dim colModelPrice As Columns.GridColumn = oView.Columns(oRow.Item("SPALTENNAME")) - ' colModelPrice.DisplayFormat.FormatType = FormatType.Numeric - ' colModelPrice.DisplayFormat.FormatString = "c2" - - ' End Select - ' End If - ' ' oGridView.Columns(oRow.Item("SPALTENNAME")).Width = oRow.Item("SPALTENBREITE") - ' Next - 'Catch ex As Exception - - 'End Try - AddHandler oView.CellValueChanged, AddressOf HandleCellValueChanged AddHandler oView.CustomRowCellEdit, Sub(sender As Object, e As CustomRowCellEditEventArgs) For Each oRow As DataRow In DT_MY_COLUMNS.Rows If oRow.Item("SPALTENNAME") = e.Column.FieldName Then - If GridTables.ContainsKey(e.Column.FieldName) Then Dim oComboboxDataTable As DataTable = GridTables.Item(e.Column.FieldName) - Dim oEditor As New RepositoryItemComboBox() - Dim oItems As New List(Of String) - AddHandler oEditor.Validating, Sub(_sender As ComboBoxEdit, _e As CancelEventArgs) - If oItems.Contains(_sender.EditValue) Then - _e.Cancel = False - Else - _e.Cancel = True - End If + If oRow.Item("ADVANCED_LOOKUP") Then + Dim oEditor = New RepositoryItemLookupControl3() - End Sub - For Each oRow2 As DataRow In oComboboxDataTable.Rows - Dim oValue = oRow2.Item(0) + oEditor.DataSource = oComboboxDataTable + oEditor.DisplayMember = oComboboxDataTable.Columns.Item(0).ColumnName + oEditor.ValueMember = oComboboxDataTable.Columns.Item(0).ColumnName - Try - oValue &= $" | {oRow2.Item(1)}" - Catch ex As Exception - End Try + e.RepositoryItem = oEditor + Else + Dim oEditor = New RepositoryItemComboBox() + Dim oItems As New List(Of String) - oEditor.Items.Add(oValue) - oItems.Add(oValue) - Next + AddHandler oEditor.Validating, Sub(_sender As ComboBoxEdit, _e As CancelEventArgs) + If oItems.Contains(_sender.EditValue) Then + _e.Cancel = False + Else + _e.Cancel = True + End If - e.RepositoryItem = oEditor + End Sub + For Each oRow2 As DataRow In oComboboxDataTable.Rows + Dim oValue = oRow2.Item(0) + Try + oValue &= $" | {oRow2.Item(1)}" + Catch ex As Exception + End Try + + oEditor.Items.Add(oValue) + oItems.Add(oValue) + Next + + e.RepositoryItem = oEditor + End If End If End If Next End Sub + AddHandler oView.ValidateRow, Sub(sender As Object, e As ValidateRowEventArgs) + Dim oRow As DataRowView = DirectCast(e.Row, DataRowView) + For Each oCol As DataColumn In oRow.DataView.Table.Columns + Dim oColumn As DataRow = (From r As DataRow In DT_MY_COLUMNS.Rows + Where r.Item("SPALTENNAME") = oCol.ColumnName + Select r).FirstOrDefault() - AddHandler oView.CellValueChanged, Sub(sender As Object, e As CellValueChangedEventArgs) - Dim oValue = e.Value.ToString() - Dim oView2 As GridView = TryCast(sender, GridView) + Dim oIsRequired = oColumn.Item("VALIDATION") + Dim oValue = oRow.Item(oCol.ColumnName) - - If oValue.Contains(" | ") Then - oValue = oValue.Split(" | ").ToList().Item(0) - oView2.SetRowCellValue(e.RowHandle, e.Column, oValue) - End If - End Sub + If oIsRequired And (oValue Is Nothing OrElse oValue.ToString = "") Then + e.Valid = False + e.ErrorText = $"Spalte {oColumn.Item("SPALTEN_HEADER")} muss ausgefüllt werden!" + Exit For + End If + Next + End Sub Return oControl End Function @@ -566,11 +562,15 @@ Public Class ClassControlCreator Dim oCurrentDatasource As DataTable = oCurrentControl.DataSource Dim oColumn = oCurrentDatasource.Columns.Item(e.Column.FieldName) - Dim foo = 1 + Dim oValue = e.Value.ToString() + Dim oView2 As GridView = TryCast(sender, GridView) + + If oValue.Contains(" | ") Then + oValue = oValue.Split(" | ").ToList().Item(0) + oView2.SetRowCellValue(e.RowHandle, e.Column, oValue) + End If End Function - - Public Shared Function CreateExistingLine(row As DataRow, designMode As Boolean) As LineLabel Dim control As LineLabel = CreateBaseControl(New LineLabel(), row, designMode) control.Text = "------------------------------" diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb index befb2ec..79381fc 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb @@ -5371,6 +5371,12 @@ Partial Public Class DD_DMSLiteDataSet Private columnREGEX_MESSAGE_DE As Global.System.Data.DataColumn + Private columnSEQUENCE As Global.System.Data.DataColumn + + Private columnDEFAULT_VALUE As Global.System.Data.DataColumn + + Private columnADVANCED_LOOKUP As Global.System.Data.DataColumn + _ Public Sub New() @@ -5550,6 +5556,30 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property + _ + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSEQUENCE + End Get + End Property + + _ + Public ReadOnly Property DEFAULT_VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEFAULT_VALUE + End Get + End Property + + _ + Public ReadOnly Property ADVANCED_LOOKUPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADVANCED_LOOKUP + End Get + End Property + _ @@ -5604,9 +5634,12 @@ Partial Public Class DD_DMSLiteDataSet ByVal CHANGED_WHEN As Date, _ ByVal REGEX_MATCH As String, _ ByVal REGEX_MESSAGE_EN As String, _ - ByVal REGEX_MESSAGE_DE As String) As TBPM_CONTROL_TABLERow + ByVal REGEX_MESSAGE_DE As String, _ + ByVal SEQUENCE As Integer, _ + ByVal DEFAULT_VALUE As String, _ + ByVal ADVANCED_LOOKUP As Boolean) As TBPM_CONTROL_TABLERow Dim rowTBPM_CONTROL_TABLERow As TBPM_CONTROL_TABLERow = CType(Me.NewRow,TBPM_CONTROL_TABLERow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, REGEX_MATCH, REGEX_MESSAGE_EN, REGEX_MESSAGE_DE} + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, REGEX_MATCH, REGEX_MESSAGE_EN, REGEX_MESSAGE_DE, SEQUENCE, DEFAULT_VALUE, ADVANCED_LOOKUP} If (Not (parentTBPM_PROFILE_CONTROLSRowByFK_TBPM_CONTROL_TABLE_CONTROL1) Is Nothing) Then columnValuesArray(1) = parentTBPM_PROFILE_CONTROLSRowByFK_TBPM_CONTROL_TABLE_CONTROL1(0) End If @@ -5656,6 +5689,9 @@ Partial Public Class DD_DMSLiteDataSet Me.columnREGEX_MATCH = MyBase.Columns("REGEX_MATCH") Me.columnREGEX_MESSAGE_EN = MyBase.Columns("REGEX_MESSAGE_EN") Me.columnREGEX_MESSAGE_DE = MyBase.Columns("REGEX_MESSAGE_DE") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnDEFAULT_VALUE = MyBase.Columns("DEFAULT_VALUE") + Me.columnADVANCED_LOOKUP = MyBase.Columns("ADVANCED_LOOKUP") End Sub _ + Public Property SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.SEQUENCEColumn),Integer) + End Get + Set + Me(Me.tableTBPM_CONTROL_TABLE.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property DEFAULT_VALUE() As String + Get + Try + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.DEFAULT_VALUEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DEFAULT_VALUE in Tabelle TBPM_CONTROL_TABLE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_CONTROL_TABLE.DEFAULT_VALUEColumn) = value + End Set + End Property + + _ + Public Property ADVANCED_LOOKUP() As Boolean + Get + Return CType(Me(Me.tableTBPM_CONTROL_TABLE.ADVANCED_LOOKUPColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_CONTROL_TABLE.ADVANCED_LOOKUPColumn) = value + End Set + End Property + _ Public Property TBPM_PROFILE_CONTROLSRow() As TBPM_PROFILE_CONTROLSRow @@ -12902,6 +12984,18 @@ Partial Public Class DD_DMSLiteDataSet Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPM_CONTROL_TABLE.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub + + _ + Public Function IsDEFAULT_VALUENull() As Boolean + Return Me.IsNull(Me.tableTBPM_CONTROL_TABLE.DEFAULT_VALUEColumn) + End Function + + _ + Public Sub SetDEFAULT_VALUENull() + Me(Me.tableTBPM_CONTROL_TABLE.DEFAULT_VALUEColumn) = Global.System.Convert.DBNull + End Sub End Class ''' @@ -21083,12 +21177,15 @@ Namespace DD_DMSLiteDataSetTableAdapters tableMapping.ColumnMappings.Add("REGEX_MATCH", "REGEX_MATCH") tableMapping.ColumnMappings.Add("REGEX_MESSAGE_EN", "REGEX_MESSAGE_EN") tableMapping.ColumnMappings.Add("REGEX_MESSAGE_DE", "REGEX_MESSAGE_DE") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("DEFAULT_VALUE", "DEFAULT_VALUE") + tableMapping.ColumnMappings.Add("ADVANCED_LOOKUP", "ADVANCED_LOOKUP") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPM_CONTROL_TABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @COLUMNID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPM_CONTROL_TABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMNID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPM_CONTROL_TABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONTROL_ID, SPALTENNAME"& _ @@ -21096,7 +21193,8 @@ Namespace DD_DMSLiteDataSetTableAdapters "NAME,@SPALTEN_HEADER,@SPALTENBREITE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONTROL_ID, SPAL"& _ "TENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, "& _ "SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHAN"& _ - "GED_WHEN FROM TBPM_CONTROL_TABLE WHERE (GUID = SCOPE_IDENTITY())" + "GED_WHEN, REGEX_MATCH, REGEX_MESSAGE_EN, REGEX_MESSAGE_DE, SEQUENCE, DEFAULT_VAL"& _ + "UE, ADVANCED_LOOKUP FROM TBPM_CONTROL_TABLE WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTENNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -21105,63 +21203,43 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPM_CONTROL_TABLE] SET [CONTROL_ID] = @CONTROL_ID, [SPALTENNAME] = @SPAL"& _ - "TENNAME, [SPALTEN_HEADER] = @SPALTEN_HEADER, [SPALTENBREITE] = @SPALTENBREITE, ["& _ - "VALIDATION] = @VALIDATION, [CHOICE_LIST] = @CHOICE_LIST, [CONNECTION_ID] = @CONN"& _ - "ECTION_ID, [SQL_COMMAND] = @SQL_COMMAND, [READ_ONLY] = @READ_ONLY, [LOAD_IDX_VAL"& _ - "UE] = @LOAD_IDX_VALUE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CH"& _ - "ANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Orig"& _ - "inal_GUID) AND ([CONTROL_ID] = @Original_CONTROL_ID) AND ([SPALTENNAME] = @Origi"& _ - "nal_SPALTENNAME) AND ([SPALTEN_HEADER] = @Original_SPALTEN_HEADER) AND ([SPALTEN"& _ - "BREITE] = @Original_SPALTENBREITE) AND ([VALIDATION] = @Original_VALIDATION) AND"& _ - " ((@IsNull_CHOICE_LIST = 1 AND [CHOICE_LIST] IS NULL) OR ([CHOICE_LIST] = @Origi"& _ - "nal_CHOICE_LIST)) AND ((@IsNull_CONNECTION_ID = 1 AND [CONNECTION_ID] IS NULL) O"& _ - "R ([CONNECTION_ID] = @Original_CONNECTION_ID)) AND ((@IsNull_SQL_COMMAND = 1 AND"& _ - " [SQL_COMMAND] IS NULL) OR ([SQL_COMMAND] = @Original_SQL_COMMAND)) AND ([READ_O"& _ - "NLY] = @Original_READ_ONLY) AND ([LOAD_IDX_VALUE] = @Original_LOAD_IDX_VALUE) AN"& _ - "D ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) "& _ - "AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Or"& _ - "iginal_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) "& _ - "OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONTROL_ID, SPALTE"& _ - "NNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQ"& _ - "L_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ - "D_WHEN FROM TBPM_CONTROL_TABLE WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPM_CONTROL_TABLE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONTROL_ID = @CONTROL_ID, SPA"& _ + "LTENNAME = @SPALTENNAME, SPALTEN_HEADER = @SPALTEN_HEADER, SPALTENBREITE = @SPAL"& _ + "TENBREITE, VALIDATION = @VALIDATION, CHOICE_LIST = @CHOICE_LIST, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " CONNECTION_ID = @CONNECTION_ID, SQL_COMMAND = @SQL_COMMAND, READ_ONL"& _ + "Y = @READ_ONLY, LOAD_IDX_VALUE = @LOAD_IDX_VALUE, ADDED_WHO = @ADDED_WHO, ADDED_"& _ + "WHEN = @ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHANGED_WHO, CHANG"& _ + "ED_WHEN = @CHANGED_WHEN, REGEX_MATCH = @REGEX_MATCH, REGEX_MESSAGE_EN = @REGEX_M"& _ + "ESSAGE_EN, REGEX_MESSAGE_DE = @REGEX_MESSAGE_DE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEQU"& _ + "ENCE = @SEQUENCE, DEFAULT_VALUE = @DEFAULT_VALUE, ADVANCED_LOOKUP = @ADVANCED_LO"& _ + "OKUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONTROL_ID, SPALTENNA"& _ + "ME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_C"& _ + "OMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_W"& _ + "HEN, REGEX_MATCH, REGEX_MESSAGE_EN, REGEX_MESSAGE_DE, SEQUENCE, DEFAULT_VALUE, A"& _ + "DVANCED_LOOKUP FROM TBPM_CONTROL_TABLE WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTENNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTEN_HEADER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTEN_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTENBREITE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENBREITE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALIDATION", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHOICE_LIST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@READ_ONLY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_IDX_VALUE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_IDX_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONTROL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SPALTENNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SPALTEN_HEADER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTEN_HEADER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SPALTENBREITE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENBREITE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VALIDATION", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHOICE_LIST", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHOICE_LIST", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CONNECTION_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_COMMAND", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_READ_ONLY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOAD_IDX_VALUE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_IDX_VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTENNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTEN_HEADER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTEN_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SPALTENBREITE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SPALTENBREITE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALIDATION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHOICE_LIST", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHOICE_LIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@READ_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "READ_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_IDX_VALUE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_IDX_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_MATCH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MATCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_MESSAGE_EN", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MESSAGE_EN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_MESSAGE_DE", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_MESSAGE_DE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT_VALUE", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADVANCED_LOOKUP", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADVANCED_LOOKUP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Delete(ByVal COLUMNID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(COLUMNID,Integer) + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -21415,21 +21497,13 @@ Namespace DD_DMSLiteDataSetTableAdapters ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal REGEX_MATCH As String, _ + ByVal REGEX_MESSAGE_EN As String, _ + ByVal REGEX_MESSAGE_DE As String, _ + ByVal SEQUENCE As Integer, _ + ByVal DEFAULT_VALUE As String, _ + ByVal ADVANCED_LOOKUP As Boolean, _ ByVal Original_GUID As Integer, _ - ByVal Original_CONTROL_ID As Integer, _ - ByVal Original_SPALTENNAME As String, _ - ByVal Original_SPALTEN_HEADER As String, _ - ByVal Original_SPALTENBREITE As Integer, _ - ByVal Original_VALIDATION As Boolean, _ - ByVal Original_CHOICE_LIST As String, _ - ByVal Original_CONNECTION_ID As Global.System.Nullable(Of Short), _ - ByVal Original_SQL_COMMAND As String, _ - ByVal Original_READ_ONLY As Boolean, _ - ByVal Original_LOAD_IDX_VALUE As Boolean, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) If (SPALTENNAME Is Nothing) Then @@ -21477,64 +21551,30 @@ Namespace DD_DMSLiteDataSetTableAdapters Else Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CONTROL_ID,Integer) - If (Original_SPALTENNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_SPALTENNAME") + If (REGEX_MATCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX_MATCH") Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_SPALTENNAME,String) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(REGEX_MATCH,String) End If - If (Original_SPALTEN_HEADER Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_SPALTEN_HEADER") + If (REGEX_MESSAGE_EN Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX_MESSAGE_EN") Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_SPALTEN_HEADER,String) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(REGEX_MESSAGE_EN,String) End If - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_SPALTENBREITE,Integer) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_VALIDATION,Boolean) - If (Original_CHOICE_LIST Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + If (REGEX_MESSAGE_DE Is Nothing) Then + Throw New Global.System.ArgumentNullException("REGEX_MESSAGE_DE") Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHOICE_LIST,String) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(REGEX_MESSAGE_DE,String) End If - If (Original_CONNECTION_ID.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CONNECTION_ID.Value,Short) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(SEQUENCE,Integer) + If (DEFAULT_VALUE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(DEFAULT_VALUE,String) End If - If (Original_SQL_COMMAND Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_SQL_COMMAND,String) - End If - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_READ_ONLY,Boolean) - Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_LOAD_IDX_VALUE,Boolean) - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_ADDED_WHEN,Date) - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(34).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(ADVANCED_LOOKUP,Boolean) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -21550,47 +21590,10 @@ Namespace DD_DMSLiteDataSetTableAdapters End Try End Function - _ - Public Overloads Overridable Function Update( _ - ByVal CONTROL_ID As Integer, _ - ByVal SPALTENNAME As String, _ - ByVal SPALTEN_HEADER As String, _ - ByVal SPALTENBREITE As Integer, _ - ByVal VALIDATION As Boolean, _ - ByVal CHOICE_LIST As String, _ - ByVal CONNECTION_ID As Global.System.Nullable(Of Short), _ - ByVal SQL_COMMAND As String, _ - ByVal READ_ONLY As Boolean, _ - ByVal LOAD_IDX_VALUE As Boolean, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_CONTROL_ID As Integer, _ - ByVal Original_SPALTENNAME As String, _ - ByVal Original_SPALTEN_HEADER As String, _ - ByVal Original_SPALTENBREITE As Integer, _ - ByVal Original_VALIDATION As Boolean, _ - ByVal Original_CHOICE_LIST As String, _ - ByVal Original_CONNECTION_ID As Global.System.Nullable(Of Short), _ - ByVal Original_SQL_COMMAND As String, _ - ByVal Original_READ_ONLY As Boolean, _ - ByVal Original_LOAD_IDX_VALUE As Boolean, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_CONTROL_ID, Original_SPALTENNAME, Original_SPALTEN_HEADER, Original_SPALTENBREITE, Original_VALIDATION, Original_CHOICE_LIST, Original_CONNECTION_ID, Original_SQL_COMMAND, Original_READ_ONLY, Original_LOAD_IDX_VALUE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) - End Function - _ - Public Overloads Overridable Function cmdUpdate(ByVal SPALTENNAME As String, ByVal SPALTEN_HEADER As String, ByVal SPALTENBREITE As Integer, ByVal VALIDATION As Boolean, ByVal READ_ONLY As Boolean, ByVal LOAD_IDX_VALUE As Boolean, ByVal CHANGED_WHO As String, ByVal REGEX_MATCH As String, ByVal REGEX_MESSAGE_EN As String, ByVal REGEX_MESSAGE_DE As String, ByVal Original_GUID As Integer) As Integer + Public Overloads Overridable Function cmdUpdate(ByVal SPALTENNAME As String, ByVal SPALTEN_HEADER As String, ByVal SPALTENBREITE As Integer, ByVal VALIDATION As Boolean, ByVal READ_ONLY As Boolean, ByVal LOAD_IDX_VALUE As Boolean, ByVal CHANGED_WHO As String, ByVal REGEX_MATCH As String, ByVal REGEX_MESSAGE_EN As String, ByVal REGEX_MESSAGE_DE As String, ByVal DEFAULT_VALUE As String, ByVal SEQUENCE As Integer, ByVal ADVANCED_LOOKUP As Boolean, ByVal Original_GUID As Integer) As Object Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) If (SPALTENNAME Is Nothing) Then Throw New Global.System.ArgumentNullException("SPALTENNAME") @@ -21626,21 +21629,33 @@ Namespace DD_DMSLiteDataSetTableAdapters Else command.Parameters(9).Value = CType(REGEX_MESSAGE_DE,String) End If - command.Parameters(10).Value = CType(Original_GUID,Integer) + If (DEFAULT_VALUE Is Nothing) Then + command.Parameters(10).Value = Global.System.DBNull.Value + Else + command.Parameters(10).Value = CType(DEFAULT_VALUE,String) + End If + command.Parameters(11).Value = CType(SEQUENCE,Integer) + command.Parameters(12).Value = CType(ADVANCED_LOOKUP,Boolean) + command.Parameters(13).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then command.Connection.Open End If - Dim returnValue As Integer + Dim returnValue As Object Try - returnValue = command.ExecuteNonQuery + returnValue = command.ExecuteScalar Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then command.Connection.Close End If End Try - Return returnValue + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,Object) + End If End Function DELETE FROM TBPM_CONTROL_TABLE -WHERE (GUID = @COLUMNID) +WHERE (GUID = @Original_GUID) - + @@ -1272,7 +1272,7 @@ WHERE (GUID = @COLUMNID) INSERT INTO TBPM_CONTROL_TABLE (CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, ADDED_WHO) VALUES (@CONTROL_ID,@SPALTENNAME,@SPALTEN_HEADER,@SPALTENBREITE,@ADDED_WHO); -SELECT GUID, CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPM_CONTROL_TABLE WHERE (GUID = SCOPE_IDENTITY()) +SELECT GUID, CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, REGEX_MATCH, REGEX_MESSAGE_EN, REGEX_MESSAGE_DE, SEQUENCE, DEFAULT_VALUE, ADVANCED_LOOKUP FROM TBPM_CONTROL_TABLE WHERE (GUID = SCOPE_IDENTITY()) @@ -1285,7 +1285,7 @@ SELECT GUID, CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, SELECT GUID, CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, - CHANGED_WHEN, REGEX_MATCH, REGEX_MESSAGE_EN, REGEX_MESSAGE_DE + CHANGED_WHEN, REGEX_MATCH, REGEX_MESSAGE_EN, REGEX_MESSAGE_DE, SEQUENCE, DEFAULT_VALUE, ADVANCED_LOOKUP FROM TBPM_CONTROL_TABLE WHERE (CONTROL_ID = @CONTROL_ID) @@ -1295,44 +1295,36 @@ WHERE (CONTROL_ID = @CONTROL_ID) - UPDATE [TBPM_CONTROL_TABLE] SET [CONTROL_ID] = @CONTROL_ID, [SPALTENNAME] = @SPALTENNAME, [SPALTEN_HEADER] = @SPALTEN_HEADER, [SPALTENBREITE] = @SPALTENBREITE, [VALIDATION] = @VALIDATION, [CHOICE_LIST] = @CHOICE_LIST, [CONNECTION_ID] = @CONNECTION_ID, [SQL_COMMAND] = @SQL_COMMAND, [READ_ONLY] = @READ_ONLY, [LOAD_IDX_VALUE] = @LOAD_IDX_VALUE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([CONTROL_ID] = @Original_CONTROL_ID) AND ([SPALTENNAME] = @Original_SPALTENNAME) AND ([SPALTEN_HEADER] = @Original_SPALTEN_HEADER) AND ([SPALTENBREITE] = @Original_SPALTENBREITE) AND ([VALIDATION] = @Original_VALIDATION) AND ((@IsNull_CHOICE_LIST = 1 AND [CHOICE_LIST] IS NULL) OR ([CHOICE_LIST] = @Original_CHOICE_LIST)) AND ((@IsNull_CONNECTION_ID = 1 AND [CONNECTION_ID] IS NULL) OR ([CONNECTION_ID] = @Original_CONNECTION_ID)) AND ((@IsNull_SQL_COMMAND = 1 AND [SQL_COMMAND] IS NULL) OR ([SQL_COMMAND] = @Original_SQL_COMMAND)) AND ([READ_ONLY] = @Original_READ_ONLY) AND ([LOAD_IDX_VALUE] = @Original_LOAD_IDX_VALUE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))); -SELECT GUID, CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPM_CONTROL_TABLE WHERE (GUID = @GUID) + UPDATE TBPM_CONTROL_TABLE +SET CONTROL_ID = @CONTROL_ID, SPALTENNAME = @SPALTENNAME, SPALTEN_HEADER = @SPALTEN_HEADER, SPALTENBREITE = @SPALTENBREITE, VALIDATION = @VALIDATION, CHOICE_LIST = @CHOICE_LIST, + CONNECTION_ID = @CONNECTION_ID, SQL_COMMAND = @SQL_COMMAND, READ_ONLY = @READ_ONLY, LOAD_IDX_VALUE = @LOAD_IDX_VALUE, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADDED_WHEN, + CHANGED_WHO = @CHANGED_WHO, CHANGED_WHEN = @CHANGED_WHEN, REGEX_MATCH = @REGEX_MATCH, REGEX_MESSAGE_EN = @REGEX_MESSAGE_EN, REGEX_MESSAGE_DE = @REGEX_MESSAGE_DE, + SEQUENCE = @SEQUENCE, DEFAULT_VALUE = @DEFAULT_VALUE, ADVANCED_LOOKUP = @ADVANCED_LOOKUP +WHERE (GUID = @Original_GUID); +SELECT GUID, CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, REGEX_MATCH, REGEX_MESSAGE_EN, REGEX_MESSAGE_DE, SEQUENCE, DEFAULT_VALUE, ADVANCED_LOOKUP FROM TBPM_CONTROL_TABLE WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + @@ -1357,14 +1349,17 @@ SELECT GUID, CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, + + + - + UPDATE TBPM_CONTROL_TABLE SET SPALTENNAME = @SPALTENNAME, SPALTEN_HEADER = @SPALTEN_HEADER, SPALTENBREITE = @SPALTENBREITE, VALIDATION = @VALIDATION, READ_ONLY = @READ_ONLY, LOAD_IDX_VALUE = @LOAD_IDX_VALUE, - CHANGED_WHO = @CHANGED_WHO, REGEX_MATCH = @REGEX_MATCH, REGEX_MESSAGE_EN = @REGEX_MESSAGE_EN, REGEX_MESSAGE_DE = @REGEX_MESSAGE_DE + CHANGED_WHO = @CHANGED_WHO, REGEX_MATCH = @REGEX_MATCH, REGEX_MESSAGE_EN = @REGEX_MESSAGE_EN, REGEX_MESSAGE_DE = @REGEX_MESSAGE_DE, DEFAULT_VALUE = @DEFAULT_VALUE, SEQUENCE = @SEQUENCE, ADVANCED_LOOKUP = @ADVANCED_LOOKUP WHERE (GUID = @Original_GUID) @@ -1377,31 +1372,13 @@ WHERE (GUID = @Original_GUID) - + + + + - - - UPDATE TBPM_CONTROL_TABLE -SET SPALTENNAME = @SPALTENNAME, SPALTEN_HEADER = @SPALTEN_HEADER, SPALTENBREITE = @SPALTENBREITE, VALIDATION = @VALIDATION, CHOICE_LIST = @CHOICE_LIST, - CONNECTION_ID = @CONNECTION_ID, SQL_COMMAND = @SQL_COMMAND, READ_ONLY = @READ_ONLY, LOAD_IDX_VALUE = @LOAD_IDX_VALUE, CHANGED_WHO = @CHANGED_WHO -WHERE (GUID = @Original_GUID) - - - - - - - - - - - - - - - @@ -1417,20 +1394,15 @@ WHERE (CONTROL_ID = @CONTROL_ID) - SELECT GUID, CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, - CHANGED_WHEN, REGEX_MATCH, REGEX_MESSAGE_EN, REGEX_MESSAGE_DE -FROM TBPM_CONTROL_TABLE + SELECT ADDED_WHEN, ADDED_WHO, ADVANCED_LOOKUP, CHANGED_WHEN, CHANGED_WHO, CHOICE_LIST, CONNECTION_ID, CONTROL_ID, DEFAULT_VALUE, GUID, LOAD_IDX_VALUE, READ_ONLY, REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, SEQUENCE, SPALTENBREITE, SPALTENNAME, SPALTEN_HEADER, SQL_COMMAND, VALIDATION FROM TBPM_CONTROL_TABLE - + - SELECT GUID, CONTROL_ID, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, - CHANGED_WHEN, REGEX_MATCH, REGEX_MESSAGE_EN, REGEX_MESSAGE_DE -FROM TBPM_CONTROL_TABLE -WHERE (GUID = @GUID) + SELECT ADDED_WHEN, ADDED_WHO, ADVANCED_LOOKUP, CHANGED_WHEN, CHANGED_WHO, CHOICE_LIST, CONNECTION_ID, CONTROL_ID, DEFAULT_VALUE, GUID, LOAD_IDX_VALUE, READ_ONLY, REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, SEQUENCE, SPALTENBREITE, SPALTENNAME, SPALTEN_HEADER, SQL_COMMAND, VALIDATION FROM TBPM_CONTROL_TABLE WHERE (GUID = @GUID) @@ -1993,7 +1965,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -2055,7 +2027,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -2151,7 +2123,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -2216,7 +2188,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -2246,7 +2218,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -2269,7 +2241,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -2343,7 +2315,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -2392,7 +2364,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -2407,7 +2379,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -2480,7 +2452,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -2531,7 +2503,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -2678,7 +2650,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -2753,10 +2725,19 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME + + + + + + + + + - + @@ -2797,7 +2778,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -2835,7 +2816,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -2892,7 +2873,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -2950,7 +2931,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -3051,7 +3032,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -3104,7 +3085,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -3120,7 +3101,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -3136,7 +3117,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - + @@ -3331,9 +3312,9 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME - - - + + + \ 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 d7c680f..256d413 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss @@ -4,32 +4,32 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - + + + + + + + + + + - - - - - - - - - - + + + + + + + + + + - + 1249 @@ -41,7 +41,7 @@ - + 141 @@ -57,7 +57,7 @@ - + 963 diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index 2c821d9..19204fb 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -890,6 +890,8 @@ + + diff --git a/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb b/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb index fb62af3..1d78755 100644 --- a/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb +++ b/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb @@ -390,6 +390,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property delete() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("delete", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -740,6 +750,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ DevExpress.Utils.Svg.SvgImage. + ''' + Friend ReadOnly Property markcomplete() As DevExpress.Utils.Svg.SvgImage + Get + Dim obj As Object = ResourceManager.GetObject("markcomplete", resourceCulture) + Return CType(obj,DevExpress.Utils.Svg.SvgImage) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/app/DD_PM_WINDREAM/My Project/Resources.resx b/app/DD_PM_WINDREAM/My Project/Resources.resx index 106e0ca..acb4378 100644 --- a/app/DD_PM_WINDREAM/My Project/Resources.resx +++ b/app/DD_PM_WINDREAM/My Project/Resources.resx @@ -124,11 +124,8 @@ ..\Resources\asterisk_yellow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\flag_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Security_Lock.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a ..\Resources\hide_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -184,18 +181,12 @@ ..\Resources\Settings.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Security_Lock.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - ..\Resources\application_form_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Label_684.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\delete_12x12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\table_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -223,6 +214,9 @@ ..\Resources\information.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\markcomplete.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -277,12 +271,18 @@ ..\Resources\properties_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Security_Unlock.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ..\Resources\bullet_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\book_open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -310,11 +310,14 @@ ..\Resources\puzzle2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ampel-gelb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\dtp.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\book_open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\delete_12x12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Nextrequest_10302.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -358,8 +361,8 @@ ..\Resources\ID_FILE_PAGE_SETUP.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\shape_square_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\flag_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -394,6 +397,9 @@ ..\Resources\doc_text_image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\shape_square_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -403,8 +409,8 @@ ..\Resources\Link_5762.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\ampel-gelb.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\WorkItem_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -442,7 +448,7 @@ ..\Resources\user_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Security_Unlock.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ..\Resources\delete.svg;DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/Resources/delete.svg b/app/DD_PM_WINDREAM/Resources/delete.svg new file mode 100644 index 0000000..41674ad --- /dev/null +++ b/app/DD_PM_WINDREAM/Resources/delete.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/Resources/markcomplete.svg b/app/DD_PM_WINDREAM/Resources/markcomplete.svg new file mode 100644 index 0000000..6a4b15a --- /dev/null +++ b/app/DD_PM_WINDREAM/Resources/markcomplete.svg @@ -0,0 +1,19 @@ + + + + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmControl_Detail.Designer.vb b/app/DD_PM_WINDREAM/frmControl_Detail.Designer.vb index ea379c4..aefae30 100644 --- a/app/DD_PM_WINDREAM/frmControl_Detail.Designer.vb +++ b/app/DD_PM_WINDREAM/frmControl_Detail.Designer.vb @@ -1,6 +1,6 @@  _ Partial Class frmControl_Detail - Inherits System.Windows.Forms.Form + Inherits DevExpress.XtraBars.Ribbon.RibbonForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. _ @@ -23,114 +23,105 @@ Partial Class frmControl_Detail _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim SPALTENNAMELabel As System.Windows.Forms.Label Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmControl_Detail)) - Dim SPALTEN_HEADERLabel As System.Windows.Forms.Label - Dim SPALTENBREITELabel As System.Windows.Forms.Label - Dim GUIDLabel As System.Windows.Forms.Label - Dim Label1 As System.Windows.Forms.Label - Dim Label2 As System.Windows.Forms.Label - Dim ADDED_WHOLabel As System.Windows.Forms.Label - Dim ADDED_WHENLabel As System.Windows.Forms.Label - Dim CHANGED_WHOLabel As System.Windows.Forms.Label - Dim CHANGED_WHENLabel As System.Windows.Forms.Label - Dim SQL_COMMANDLabel As System.Windows.Forms.Label - Me.SPALTENNAMETextBox = New System.Windows.Forms.TextBox() Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet() - Me.SPALTEN_HEADERTextBox = New System.Windows.Forms.TextBox() - Me.SPALTENBREITETextBox = New System.Windows.Forms.TextBox() - Me.GUIDTextBox = New System.Windows.Forms.TextBox() - Me.READ_ONLYCheckBox = New System.Windows.Forms.CheckBox() - Me.LOAD_IDX_VALUECheckBox = New System.Windows.Forms.CheckBox() - Me.btnSave = New System.Windows.Forms.Button() - Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() - Me.tslblAenderungen = New System.Windows.Forms.ToolStripStatusLabel() - Me.btnDelete = New System.Windows.Forms.Button() - Me.REGEX_MATCHTextBox = New System.Windows.Forms.TextBox() - Me.Button1 = New System.Windows.Forms.Button() Me.TBPM_CONTROL_TABLETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter() Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() - Me.REGEX_MESSAGE_DETextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() - Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() - Me.SQL_COMMANDTextBox = New System.Windows.Forms.TextBox() - Me.CONNECTION_IDTextBox = New System.Windows.Forms.TextBox() - Me.btnSQLEdit = New System.Windows.Forms.Button() - SPALTENNAMELabel = New System.Windows.Forms.Label() - SPALTEN_HEADERLabel = New System.Windows.Forms.Label() - SPALTENBREITELabel = New System.Windows.Forms.Label() - GUIDLabel = New System.Windows.Forms.Label() - Label1 = New System.Windows.Forms.Label() - Label2 = New System.Windows.Forms.Label() - ADDED_WHOLabel = New System.Windows.Forms.Label() - ADDED_WHENLabel = New System.Windows.Forms.Label() - CHANGED_WHOLabel = New System.Windows.Forms.Label() - CHANGED_WHENLabel = New System.Windows.Forms.Label() - SQL_COMMANDLabel = New System.Windows.Forms.Label() + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem() + Me.tslblAenderungen = New DevExpress.XtraBars.BarStaticItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl() + Me.GUIDTextBox = New DevExpress.XtraEditors.TextEdit() + Me.SPALTENNAMETextBox = New DevExpress.XtraEditors.TextEdit() + Me.SPALTEN_HEADERTextBox = New DevExpress.XtraEditors.TextEdit() + Me.SPALTENBREITETextBox = New DevExpress.XtraEditors.SpinEdit() + Me.REGEX_MATCHTextBox = New DevExpress.XtraEditors.TextEdit() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.REGEX_MESSAGE_DETextBox = New DevExpress.XtraEditors.TextEdit() + Me.SQL_COMMANDTextBox = New DevExpress.XtraEditors.TextEdit() + Me.SimpleButton2 = New DevExpress.XtraEditors.SimpleButton() + Me.TextEdit7 = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit8 = New DevExpress.XtraEditors.TextEdit() + Me.CHANGED_WHOTextBox = New DevExpress.XtraEditors.TextEdit() + Me.TextEdit10 = New DevExpress.XtraEditors.TextEdit() + Me.READ_ONLYCheckBox = New DevExpress.XtraEditors.CheckEdit() + Me.LOAD_IDX_VALUECheckBox = New DevExpress.XtraEditors.CheckEdit() + Me.VALIDATIONCheckbox = New DevExpress.XtraEditors.CheckEdit() + Me.ADVANCED_LOOKUPCheckbox = New DevExpress.XtraEditors.CheckEdit() + Me.DEFAULTVALUETextBox = New DevExpress.XtraEditors.TextEdit() + Me.SEQUENCETextBox = New DevExpress.XtraEditors.SpinEdit() + Me.Root = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem6 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem8 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem7 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem9 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem10 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem12 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem11 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem13 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup() + Me.LayoutControlItem16 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem14 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem15 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem17 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem18 = New DevExpress.XtraLayout.LayoutControlItem() + Me.LayoutControlItem19 = New DevExpress.XtraLayout.LayoutControlItem() CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() - Me.StatusStrip1.SuspendLayout() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LayoutControl1.SuspendLayout() + CType(Me.GUIDTextBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SPALTENNAMETextBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SPALTEN_HEADERTextBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SPALTENBREITETextBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.REGEX_MATCHTextBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.REGEX_MESSAGE_DETextBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SQL_COMMANDTextBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.CHANGED_WHOTextBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TextEdit10.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.READ_ONLYCheckBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LOAD_IDX_VALUECheckBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VALIDATIONCheckbox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ADVANCED_LOOKUPCheckbox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DEFAULTVALUETextBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SEQUENCETextBox.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' - 'SPALTENNAMELabel - ' - resources.ApplyResources(SPALTENNAMELabel, "SPALTENNAMELabel") - SPALTENNAMELabel.Name = "SPALTENNAMELabel" - ' - 'SPALTEN_HEADERLabel - ' - resources.ApplyResources(SPALTEN_HEADERLabel, "SPALTEN_HEADERLabel") - SPALTEN_HEADERLabel.Name = "SPALTEN_HEADERLabel" - ' - 'SPALTENBREITELabel - ' - resources.ApplyResources(SPALTENBREITELabel, "SPALTENBREITELabel") - SPALTENBREITELabel.Name = "SPALTENBREITELabel" - ' - 'GUIDLabel - ' - resources.ApplyResources(GUIDLabel, "GUIDLabel") - GUIDLabel.Name = "GUIDLabel" - ' - 'Label1 - ' - resources.ApplyResources(Label1, "Label1") - Label1.Name = "Label1" - ' - 'Label2 - ' - resources.ApplyResources(Label2, "Label2") - Label2.Name = "Label2" - ' - 'ADDED_WHOLabel - ' - resources.ApplyResources(ADDED_WHOLabel, "ADDED_WHOLabel") - ADDED_WHOLabel.Name = "ADDED_WHOLabel" - ' - 'ADDED_WHENLabel - ' - resources.ApplyResources(ADDED_WHENLabel, "ADDED_WHENLabel") - ADDED_WHENLabel.Name = "ADDED_WHENLabel" - ' - 'CHANGED_WHOLabel - ' - resources.ApplyResources(CHANGED_WHOLabel, "CHANGED_WHOLabel") - CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" - ' - 'CHANGED_WHENLabel - ' - resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel") - CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" - ' - 'SPALTENNAMETextBox - ' - Me.SPALTENNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "SPALTENNAME", True)) - resources.ApplyResources(Me.SPALTENNAMETextBox, "SPALTENNAMETextBox") - Me.SPALTENNAMETextBox.Name = "SPALTENNAMETextBox" - ' 'TBPM_CONTROL_TABLEBindingSource ' Me.TBPM_CONTROL_TABLEBindingSource.DataMember = "TBPM_CONTROL_TABLE" @@ -141,77 +132,6 @@ Partial Class frmControl_Detail Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' - 'SPALTEN_HEADERTextBox - ' - Me.SPALTEN_HEADERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "SPALTEN_HEADER", True)) - resources.ApplyResources(Me.SPALTEN_HEADERTextBox, "SPALTEN_HEADERTextBox") - Me.SPALTEN_HEADERTextBox.Name = "SPALTEN_HEADERTextBox" - ' - 'SPALTENBREITETextBox - ' - Me.SPALTENBREITETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "SPALTENBREITE", True)) - resources.ApplyResources(Me.SPALTENBREITETextBox, "SPALTENBREITETextBox") - Me.SPALTENBREITETextBox.Name = "SPALTENBREITETextBox" - ' - 'GUIDTextBox - ' - Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "GUID", True)) - resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox") - Me.GUIDTextBox.Name = "GUIDTextBox" - Me.GUIDTextBox.ReadOnly = True - ' - 'READ_ONLYCheckBox - ' - Me.READ_ONLYCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_CONTROL_TABLEBindingSource, "READ_ONLY", True)) - resources.ApplyResources(Me.READ_ONLYCheckBox, "READ_ONLYCheckBox") - Me.READ_ONLYCheckBox.Name = "READ_ONLYCheckBox" - Me.READ_ONLYCheckBox.UseVisualStyleBackColor = True - ' - 'LOAD_IDX_VALUECheckBox - ' - Me.LOAD_IDX_VALUECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_CONTROL_TABLEBindingSource, "LOAD_IDX_VALUE", True)) - resources.ApplyResources(Me.LOAD_IDX_VALUECheckBox, "LOAD_IDX_VALUECheckBox") - Me.LOAD_IDX_VALUECheckBox.Name = "LOAD_IDX_VALUECheckBox" - Me.LOAD_IDX_VALUECheckBox.UseVisualStyleBackColor = True - ' - 'btnSave - ' - Me.btnSave.Image = Global.DD_ProcessManager.My.Resources.Resources.save - resources.ApplyResources(Me.btnSave, "btnSave") - Me.btnSave.Name = "btnSave" - Me.btnSave.UseVisualStyleBackColor = True - ' - 'StatusStrip1 - ' - Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblAenderungen}) - resources.ApplyResources(Me.StatusStrip1, "StatusStrip1") - Me.StatusStrip1.Name = "StatusStrip1" - ' - 'tslblAenderungen - ' - Me.tslblAenderungen.Image = Global.DD_ProcessManager.My.Resources.Resources.flag_red - Me.tslblAenderungen.Name = "tslblAenderungen" - resources.ApplyResources(Me.tslblAenderungen, "tslblAenderungen") - ' - 'btnDelete - ' - Me.btnDelete.Image = Global.DD_ProcessManager.My.Resources.Resources.cancel - resources.ApplyResources(Me.btnDelete, "btnDelete") - Me.btnDelete.Name = "btnDelete" - Me.btnDelete.UseVisualStyleBackColor = True - ' - 'REGEX_MATCHTextBox - ' - Me.REGEX_MATCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "REGEX_MATCH", True)) - resources.ApplyResources(Me.REGEX_MATCHTextBox, "REGEX_MATCHTextBox") - Me.REGEX_MATCHTextBox.Name = "REGEX_MATCHTextBox" - ' - 'Button1 - ' - resources.ApplyResources(Me.Button1, "Button1") - Me.Button1.Name = "Button1" - Me.Button1.UseVisualStyleBackColor = True - ' 'TBPM_CONTROL_TABLETableAdapter ' Me.TBPM_CONTROL_TABLETableAdapter.ClearBeforeFill = True @@ -233,109 +153,510 @@ Partial Class frmControl_Detail Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' + 'RibbonControl1 + ' + Me.RibbonControl1.CommandLayout = DevExpress.XtraBars.Ribbon.CommandLayout.Simplified + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.tslblAenderungen}) + resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") + Me.RibbonControl1.MaxItemId = 5 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] + Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide + Me.RibbonControl1.ShowToolbarCustomizeItem = False + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + Me.RibbonControl1.Toolbar.ShowCustomizeItem = False + ' + 'BarButtonItem1 + ' + resources.ApplyResources(Me.BarButtonItem1, "BarButtonItem1") + Me.BarButtonItem1.Id = 1 + Me.BarButtonItem1.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.markcomplete + Me.BarButtonItem1.Name = "BarButtonItem1" + ' + 'BarButtonItem2 + ' + resources.ApplyResources(Me.BarButtonItem2, "BarButtonItem2") + Me.BarButtonItem2.Id = 2 + Me.BarButtonItem2.ImageOptions.SvgImage = Global.DD_ProcessManager.My.Resources.Resources.delete + Me.BarButtonItem2.Name = "BarButtonItem2" + ' + 'tslblAenderungen + ' + resources.ApplyResources(Me.tslblAenderungen, "tslblAenderungen") + Me.tslblAenderungen.Id = 4 + Me.tslblAenderungen.Name = "tslblAenderungen" + Me.tslblAenderungen.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1}) + Me.RibbonPage1.Name = "RibbonPage1" + resources.ApplyResources(Me.RibbonPage1, "RibbonPage1") + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem2) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + resources.ApplyResources(Me.RibbonPageGroup1, "RibbonPageGroup1") + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.tslblAenderungen) + resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1") + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + resources.ApplyResources(Me.RibbonPage2, "RibbonPage2") + ' + 'LayoutControl1 + ' + Me.LayoutControl1.Controls.Add(Me.GUIDTextBox) + Me.LayoutControl1.Controls.Add(Me.SPALTENNAMETextBox) + Me.LayoutControl1.Controls.Add(Me.SPALTEN_HEADERTextBox) + Me.LayoutControl1.Controls.Add(Me.SPALTENBREITETextBox) + Me.LayoutControl1.Controls.Add(Me.REGEX_MATCHTextBox) + Me.LayoutControl1.Controls.Add(Me.SimpleButton1) + Me.LayoutControl1.Controls.Add(Me.REGEX_MESSAGE_DETextBox) + Me.LayoutControl1.Controls.Add(Me.SQL_COMMANDTextBox) + Me.LayoutControl1.Controls.Add(Me.SimpleButton2) + Me.LayoutControl1.Controls.Add(Me.TextEdit7) + Me.LayoutControl1.Controls.Add(Me.TextEdit8) + Me.LayoutControl1.Controls.Add(Me.CHANGED_WHOTextBox) + Me.LayoutControl1.Controls.Add(Me.TextEdit10) + Me.LayoutControl1.Controls.Add(Me.READ_ONLYCheckBox) + Me.LayoutControl1.Controls.Add(Me.LOAD_IDX_VALUECheckBox) + Me.LayoutControl1.Controls.Add(Me.VALIDATIONCheckbox) + Me.LayoutControl1.Controls.Add(Me.ADVANCED_LOOKUPCheckbox) + Me.LayoutControl1.Controls.Add(Me.DEFAULTVALUETextBox) + Me.LayoutControl1.Controls.Add(Me.SEQUENCETextBox) + resources.ApplyResources(Me.LayoutControl1, "LayoutControl1") + Me.LayoutControl1.Name = "LayoutControl1" + Me.LayoutControl1.Root = Me.Root + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBPM_CONTROL_TABLEBindingSource, "GUID", True)) + resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox") + Me.GUIDTextBox.MenuManager = Me.RibbonControl1 + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.Properties.ReadOnly = True + Me.GUIDTextBox.StyleController = Me.LayoutControl1 + ' + 'SPALTENNAMETextBox + ' + Me.SPALTENNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBPM_CONTROL_TABLEBindingSource, "SPALTENNAME", True)) + resources.ApplyResources(Me.SPALTENNAMETextBox, "SPALTENNAMETextBox") + Me.SPALTENNAMETextBox.MenuManager = Me.RibbonControl1 + Me.SPALTENNAMETextBox.Name = "SPALTENNAMETextBox" + Me.SPALTENNAMETextBox.StyleController = Me.LayoutControl1 + ' + 'SPALTEN_HEADERTextBox + ' + Me.SPALTEN_HEADERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBPM_CONTROL_TABLEBindingSource, "SPALTEN_HEADER", True)) + resources.ApplyResources(Me.SPALTEN_HEADERTextBox, "SPALTEN_HEADERTextBox") + Me.SPALTEN_HEADERTextBox.MenuManager = Me.RibbonControl1 + Me.SPALTEN_HEADERTextBox.Name = "SPALTEN_HEADERTextBox" + Me.SPALTEN_HEADERTextBox.StyleController = Me.LayoutControl1 + ' + 'SPALTENBREITETextBox + ' + Me.SPALTENBREITETextBox.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBPM_CONTROL_TABLEBindingSource, "SPALTENBREITE", True)) + resources.ApplyResources(Me.SPALTENBREITETextBox, "SPALTENBREITETextBox") + Me.SPALTENBREITETextBox.MenuManager = Me.RibbonControl1 + Me.SPALTENBREITETextBox.Name = "SPALTENBREITETextBox" + Me.SPALTENBREITETextBox.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("SPALTENBREITETextBox.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) + Me.SPALTENBREITETextBox.StyleController = Me.LayoutControl1 + ' + 'REGEX_MATCHTextBox + ' + Me.REGEX_MATCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBPM_CONTROL_TABLEBindingSource, "REGEX_MATCH", True)) + resources.ApplyResources(Me.REGEX_MATCHTextBox, "REGEX_MATCHTextBox") + Me.REGEX_MATCHTextBox.MenuManager = Me.RibbonControl1 + Me.REGEX_MATCHTextBox.Name = "REGEX_MATCHTextBox" + Me.REGEX_MATCHTextBox.StyleController = Me.LayoutControl1 + ' + 'SimpleButton1 + ' + resources.ApplyResources(Me.SimpleButton1, "SimpleButton1") + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.StyleController = Me.LayoutControl1 + ' 'REGEX_MESSAGE_DETextBox ' - Me.REGEX_MESSAGE_DETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "REGEX_MESSAGE_DE", True)) + Me.REGEX_MESSAGE_DETextBox.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBPM_CONTROL_TABLEBindingSource, "REGEX_MESSAGE_DE", True)) resources.ApplyResources(Me.REGEX_MESSAGE_DETextBox, "REGEX_MESSAGE_DETextBox") + Me.REGEX_MESSAGE_DETextBox.MenuManager = Me.RibbonControl1 Me.REGEX_MESSAGE_DETextBox.Name = "REGEX_MESSAGE_DETextBox" - ' - 'ADDED_WHOTextBox - ' - Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "ADDED_WHO", True)) - resources.ApplyResources(Me.ADDED_WHOTextBox, "ADDED_WHOTextBox") - Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" - Me.ADDED_WHOTextBox.ReadOnly = True - ' - 'ADDED_WHENTextBox - ' - Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "ADDED_WHEN", True)) - resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox") - Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" - Me.ADDED_WHENTextBox.ReadOnly = True - ' - 'CHANGED_WHOTextBox - ' - Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "CHANGED_WHO", True)) - resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox") - Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" - Me.CHANGED_WHOTextBox.ReadOnly = True - ' - 'CHANGED_WHENTextBox - ' - Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "CHANGED_WHEN", True)) - resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox") - Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" - Me.CHANGED_WHENTextBox.ReadOnly = True - ' - 'SQL_COMMANDLabel - ' - resources.ApplyResources(SQL_COMMANDLabel, "SQL_COMMANDLabel") - SQL_COMMANDLabel.Name = "SQL_COMMANDLabel" + Me.REGEX_MESSAGE_DETextBox.StyleController = Me.LayoutControl1 ' 'SQL_COMMANDTextBox ' - Me.SQL_COMMANDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "SQL_COMMAND", True)) + Me.SQL_COMMANDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBPM_CONTROL_TABLEBindingSource, "SQL_COMMAND", True)) resources.ApplyResources(Me.SQL_COMMANDTextBox, "SQL_COMMANDTextBox") + Me.SQL_COMMANDTextBox.MenuManager = Me.RibbonControl1 Me.SQL_COMMANDTextBox.Name = "SQL_COMMANDTextBox" - Me.SQL_COMMANDTextBox.ReadOnly = True + Me.SQL_COMMANDTextBox.StyleController = Me.LayoutControl1 ' - 'CONNECTION_IDTextBox + 'SimpleButton2 ' - Me.CONNECTION_IDTextBox.BorderStyle = System.Windows.Forms.BorderStyle.None - Me.CONNECTION_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONTROL_TABLEBindingSource, "CONNECTION_ID", True)) - Me.CONNECTION_IDTextBox.ForeColor = System.Drawing.SystemColors.Control - resources.ApplyResources(Me.CONNECTION_IDTextBox, "CONNECTION_IDTextBox") - Me.CONNECTION_IDTextBox.Name = "CONNECTION_IDTextBox" - Me.CONNECTION_IDTextBox.ReadOnly = True + resources.ApplyResources(Me.SimpleButton2, "SimpleButton2") + Me.SimpleButton2.Name = "SimpleButton2" + Me.SimpleButton2.StyleController = Me.LayoutControl1 ' - 'btnSQLEdit + 'TextEdit7 ' - resources.ApplyResources(Me.btnSQLEdit, "btnSQLEdit") - Me.btnSQLEdit.Name = "btnSQLEdit" - Me.btnSQLEdit.UseVisualStyleBackColor = True + Me.TextEdit7.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBPM_CONTROL_TABLEBindingSource, "ADDED_WHO", True)) + resources.ApplyResources(Me.TextEdit7, "TextEdit7") + Me.TextEdit7.MenuManager = Me.RibbonControl1 + Me.TextEdit7.Name = "TextEdit7" + Me.TextEdit7.Properties.ReadOnly = True + Me.TextEdit7.StyleController = Me.LayoutControl1 + ' + 'TextEdit8 + ' + Me.TextEdit8.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBPM_CONTROL_TABLEBindingSource, "ADDED_WHEN", True)) + resources.ApplyResources(Me.TextEdit8, "TextEdit8") + Me.TextEdit8.MenuManager = Me.RibbonControl1 + Me.TextEdit8.Name = "TextEdit8" + Me.TextEdit8.Properties.ReadOnly = True + Me.TextEdit8.StyleController = Me.LayoutControl1 + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBPM_CONTROL_TABLEBindingSource, "CHANGED_WHO", True)) + resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox") + Me.CHANGED_WHOTextBox.MenuManager = Me.RibbonControl1 + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.Properties.ReadOnly = True + Me.CHANGED_WHOTextBox.StyleController = Me.LayoutControl1 + ' + 'TextEdit10 + ' + Me.TextEdit10.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBPM_CONTROL_TABLEBindingSource, "CHANGED_WHEN", True)) + resources.ApplyResources(Me.TextEdit10, "TextEdit10") + Me.TextEdit10.MenuManager = Me.RibbonControl1 + Me.TextEdit10.Name = "TextEdit10" + Me.TextEdit10.Properties.ReadOnly = True + Me.TextEdit10.StyleController = Me.LayoutControl1 + ' + 'READ_ONLYCheckBox + ' + Me.READ_ONLYCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBPM_CONTROL_TABLEBindingSource, "READ_ONLY", True)) + resources.ApplyResources(Me.READ_ONLYCheckBox, "READ_ONLYCheckBox") + Me.READ_ONLYCheckBox.MenuManager = Me.RibbonControl1 + Me.READ_ONLYCheckBox.Name = "READ_ONLYCheckBox" + Me.READ_ONLYCheckBox.Properties.Caption = resources.GetString("READ_ONLYCheckBox.Properties.Caption") + Me.READ_ONLYCheckBox.StyleController = Me.LayoutControl1 + ' + 'LOAD_IDX_VALUECheckBox + ' + Me.LOAD_IDX_VALUECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBPM_CONTROL_TABLEBindingSource, "LOAD_IDX_VALUE", True)) + resources.ApplyResources(Me.LOAD_IDX_VALUECheckBox, "LOAD_IDX_VALUECheckBox") + Me.LOAD_IDX_VALUECheckBox.MenuManager = Me.RibbonControl1 + Me.LOAD_IDX_VALUECheckBox.Name = "LOAD_IDX_VALUECheckBox" + Me.LOAD_IDX_VALUECheckBox.Properties.Caption = resources.GetString("LOAD_IDX_VALUECheckBox.Properties.Caption") + Me.LOAD_IDX_VALUECheckBox.StyleController = Me.LayoutControl1 + ' + 'VALIDATIONCheckbox + ' + Me.VALIDATIONCheckbox.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBPM_CONTROL_TABLEBindingSource, "VALIDATION", True)) + resources.ApplyResources(Me.VALIDATIONCheckbox, "VALIDATIONCheckbox") + Me.VALIDATIONCheckbox.MenuManager = Me.RibbonControl1 + Me.VALIDATIONCheckbox.Name = "VALIDATIONCheckbox" + Me.VALIDATIONCheckbox.Properties.Caption = resources.GetString("VALIDATIONCheckbox.Properties.Caption") + Me.VALIDATIONCheckbox.StyleController = Me.LayoutControl1 + ' + 'ADVANCED_LOOKUPCheckbox + ' + Me.ADVANCED_LOOKUPCheckbox.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBPM_CONTROL_TABLEBindingSource, "ADVANCED_LOOKUP", True)) + resources.ApplyResources(Me.ADVANCED_LOOKUPCheckbox, "ADVANCED_LOOKUPCheckbox") + Me.ADVANCED_LOOKUPCheckbox.MenuManager = Me.RibbonControl1 + Me.ADVANCED_LOOKUPCheckbox.Name = "ADVANCED_LOOKUPCheckbox" + Me.ADVANCED_LOOKUPCheckbox.Properties.Caption = resources.GetString("ADVANCED_LOOKUPCheckbox.Properties.Caption") + Me.ADVANCED_LOOKUPCheckbox.StyleController = Me.LayoutControl1 + ' + 'DEFAULTVALUETextBox + ' + Me.DEFAULTVALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBPM_CONTROL_TABLEBindingSource, "DEFAULT_VALUE", True)) + resources.ApplyResources(Me.DEFAULTVALUETextBox, "DEFAULTVALUETextBox") + Me.DEFAULTVALUETextBox.MenuManager = Me.RibbonControl1 + Me.DEFAULTVALUETextBox.Name = "DEFAULTVALUETextBox" + Me.DEFAULTVALUETextBox.StyleController = Me.LayoutControl1 + ' + 'SEQUENCETextBox + ' + Me.SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBPM_CONTROL_TABLEBindingSource, "SEQUENCE", True)) + resources.ApplyResources(Me.SEQUENCETextBox, "SEQUENCETextBox") + Me.SEQUENCETextBox.MenuManager = Me.RibbonControl1 + Me.SEQUENCETextBox.Name = "SEQUENCETextBox" + Me.SEQUENCETextBox.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("SEQUENCETextBox.Properties.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) + Me.SEQUENCETextBox.StyleController = Me.LayoutControl1 + ' + 'Root + ' + Me.Root.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True] + Me.Root.GroupBordersVisible = False + Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem1, Me.LayoutControlItem2, Me.LayoutControlItem3, Me.LayoutControlItem4, Me.LayoutControlItem5, Me.LayoutControlItem6, Me.LayoutControlItem8, Me.LayoutControlItem7, Me.LayoutControlItem9, Me.LayoutControlItem10, Me.LayoutControlItem12, Me.LayoutControlItem11, Me.LayoutControlItem13, Me.LayoutControlGroup1, Me.LayoutControlItem18, Me.LayoutControlItem19}) + Me.Root.Name = "Root" + Me.Root.Size = New System.Drawing.Size(533, 600) + Me.Root.TextVisible = False + ' + 'LayoutControlItem1 + ' + Me.LayoutControlItem1.Control = Me.GUIDTextBox + Me.LayoutControlItem1.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem1.Name = "LayoutControlItem1" + Me.LayoutControlItem1.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem1.Size = New System.Drawing.Size(513, 40) + resources.ApplyResources(Me.LayoutControlItem1, "LayoutControlItem1") + Me.LayoutControlItem1.TextSize = New System.Drawing.Size(103, 13) + ' + 'LayoutControlItem2 + ' + Me.LayoutControlItem2.Control = Me.SPALTENNAMETextBox + Me.LayoutControlItem2.Location = New System.Drawing.Point(0, 40) + Me.LayoutControlItem2.Name = "LayoutControlItem2" + Me.LayoutControlItem2.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem2.Size = New System.Drawing.Size(513, 40) + resources.ApplyResources(Me.LayoutControlItem2, "LayoutControlItem2") + Me.LayoutControlItem2.TextSize = New System.Drawing.Size(103, 13) + ' + 'LayoutControlItem3 + ' + Me.LayoutControlItem3.Control = Me.SPALTEN_HEADERTextBox + Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 80) + Me.LayoutControlItem3.Name = "LayoutControlItem3" + Me.LayoutControlItem3.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem3.Size = New System.Drawing.Size(513, 40) + resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3") + Me.LayoutControlItem3.TextSize = New System.Drawing.Size(103, 13) + ' + 'LayoutControlItem4 + ' + Me.LayoutControlItem4.Control = Me.SPALTENBREITETextBox + Me.LayoutControlItem4.Location = New System.Drawing.Point(0, 120) + Me.LayoutControlItem4.Name = "LayoutControlItem4" + Me.LayoutControlItem4.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem4.Size = New System.Drawing.Size(256, 40) + resources.ApplyResources(Me.LayoutControlItem4, "LayoutControlItem4") + Me.LayoutControlItem4.TextSize = New System.Drawing.Size(103, 13) + ' + 'LayoutControlItem5 + ' + Me.LayoutControlItem5.Control = Me.REGEX_MATCHTextBox + Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 160) + Me.LayoutControlItem5.Name = "LayoutControlItem5" + Me.LayoutControlItem5.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem5.Size = New System.Drawing.Size(438, 46) + resources.ApplyResources(Me.LayoutControlItem5, "LayoutControlItem5") + Me.LayoutControlItem5.TextSize = New System.Drawing.Size(103, 13) + ' + 'LayoutControlItem6 + ' + Me.LayoutControlItem6.Control = Me.SimpleButton1 + Me.LayoutControlItem6.Location = New System.Drawing.Point(438, 160) + Me.LayoutControlItem6.Name = "LayoutControlItem6" + Me.LayoutControlItem6.Size = New System.Drawing.Size(75, 46) + Me.LayoutControlItem6.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem6.TextVisible = False + ' + 'LayoutControlItem8 + ' + Me.LayoutControlItem8.Control = Me.SQL_COMMANDTextBox + Me.LayoutControlItem8.Location = New System.Drawing.Point(0, 246) + Me.LayoutControlItem8.Name = "LayoutControlItem8" + Me.LayoutControlItem8.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem8.Size = New System.Drawing.Size(438, 46) + resources.ApplyResources(Me.LayoutControlItem8, "LayoutControlItem8") + Me.LayoutControlItem8.TextSize = New System.Drawing.Size(103, 13) + ' + 'LayoutControlItem7 + ' + Me.LayoutControlItem7.Control = Me.REGEX_MESSAGE_DETextBox + Me.LayoutControlItem7.Location = New System.Drawing.Point(0, 206) + Me.LayoutControlItem7.Name = "LayoutControlItem7" + Me.LayoutControlItem7.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem7.Size = New System.Drawing.Size(513, 40) + resources.ApplyResources(Me.LayoutControlItem7, "LayoutControlItem7") + Me.LayoutControlItem7.TextSize = New System.Drawing.Size(103, 13) + ' + 'LayoutControlItem9 + ' + Me.LayoutControlItem9.Control = Me.SimpleButton2 + Me.LayoutControlItem9.Location = New System.Drawing.Point(438, 246) + Me.LayoutControlItem9.Name = "LayoutControlItem9" + Me.LayoutControlItem9.Size = New System.Drawing.Size(75, 46) + Me.LayoutControlItem9.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem9.TextVisible = False + ' + 'LayoutControlItem10 + ' + Me.LayoutControlItem10.Control = Me.TextEdit7 + Me.LayoutControlItem10.Location = New System.Drawing.Point(0, 332) + Me.LayoutControlItem10.Name = "LayoutControlItem10" + Me.LayoutControlItem10.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem10.Size = New System.Drawing.Size(256, 40) + resources.ApplyResources(Me.LayoutControlItem10, "LayoutControlItem10") + Me.LayoutControlItem10.TextSize = New System.Drawing.Size(103, 13) + ' + 'LayoutControlItem12 + ' + Me.LayoutControlItem12.Control = Me.CHANGED_WHOTextBox + Me.LayoutControlItem12.Location = New System.Drawing.Point(0, 372) + Me.LayoutControlItem12.Name = "LayoutControlItem12" + Me.LayoutControlItem12.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem12.Size = New System.Drawing.Size(256, 40) + resources.ApplyResources(Me.LayoutControlItem12, "LayoutControlItem12") + Me.LayoutControlItem12.TextSize = New System.Drawing.Size(103, 13) + ' + 'LayoutControlItem11 + ' + Me.LayoutControlItem11.Control = Me.TextEdit8 + Me.LayoutControlItem11.Location = New System.Drawing.Point(256, 332) + Me.LayoutControlItem11.Name = "LayoutControlItem11" + Me.LayoutControlItem11.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem11.Size = New System.Drawing.Size(257, 40) + resources.ApplyResources(Me.LayoutControlItem11, "LayoutControlItem11") + Me.LayoutControlItem11.TextSize = New System.Drawing.Size(103, 13) + ' + 'LayoutControlItem13 + ' + Me.LayoutControlItem13.Control = Me.TextEdit10 + Me.LayoutControlItem13.Location = New System.Drawing.Point(256, 372) + Me.LayoutControlItem13.Name = "LayoutControlItem13" + Me.LayoutControlItem13.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem13.Size = New System.Drawing.Size(257, 40) + resources.ApplyResources(Me.LayoutControlItem13, "LayoutControlItem13") + Me.LayoutControlItem13.TextSize = New System.Drawing.Size(103, 13) + ' + 'LayoutControlGroup1 + ' + Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlItem16, Me.LayoutControlItem14, Me.LayoutControlItem15, Me.LayoutControlItem17}) + Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 412) + Me.LayoutControlGroup1.Name = "LayoutControlGroup1" + Me.LayoutControlGroup1.Size = New System.Drawing.Size(513, 168) + resources.ApplyResources(Me.LayoutControlGroup1, "LayoutControlGroup1") + ' + 'LayoutControlItem16 + ' + Me.LayoutControlItem16.Control = Me.VALIDATIONCheckbox + Me.LayoutControlItem16.Location = New System.Drawing.Point(0, 0) + Me.LayoutControlItem16.Name = "LayoutControlItem16" + Me.LayoutControlItem16.Size = New System.Drawing.Size(489, 23) + Me.LayoutControlItem16.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem16.TextVisible = False + ' + 'LayoutControlItem14 + ' + Me.LayoutControlItem14.Control = Me.READ_ONLYCheckBox + Me.LayoutControlItem14.Location = New System.Drawing.Point(0, 23) + Me.LayoutControlItem14.Name = "LayoutControlItem14" + Me.LayoutControlItem14.Size = New System.Drawing.Size(489, 23) + Me.LayoutControlItem14.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem14.TextVisible = False + ' + 'LayoutControlItem15 + ' + Me.LayoutControlItem15.Control = Me.LOAD_IDX_VALUECheckBox + Me.LayoutControlItem15.Location = New System.Drawing.Point(0, 46) + Me.LayoutControlItem15.Name = "LayoutControlItem15" + Me.LayoutControlItem15.Size = New System.Drawing.Size(489, 23) + Me.LayoutControlItem15.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem15.TextVisible = False + ' + 'LayoutControlItem17 + ' + Me.LayoutControlItem17.Control = Me.ADVANCED_LOOKUPCheckbox + Me.LayoutControlItem17.Location = New System.Drawing.Point(0, 69) + Me.LayoutControlItem17.Name = "LayoutControlItem17" + Me.LayoutControlItem17.Size = New System.Drawing.Size(489, 56) + Me.LayoutControlItem17.TextSize = New System.Drawing.Size(0, 0) + Me.LayoutControlItem17.TextVisible = False + ' + 'LayoutControlItem18 + ' + Me.LayoutControlItem18.Control = Me.DEFAULTVALUETextBox + Me.LayoutControlItem18.Location = New System.Drawing.Point(0, 292) + Me.LayoutControlItem18.Name = "LayoutControlItem18" + Me.LayoutControlItem18.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem18.Size = New System.Drawing.Size(513, 40) + resources.ApplyResources(Me.LayoutControlItem18, "LayoutControlItem18") + Me.LayoutControlItem18.TextSize = New System.Drawing.Size(103, 13) + ' + 'LayoutControlItem19 + ' + Me.LayoutControlItem19.Control = Me.SEQUENCETextBox + Me.LayoutControlItem19.Location = New System.Drawing.Point(256, 120) + Me.LayoutControlItem19.Name = "LayoutControlItem19" + Me.LayoutControlItem19.Padding = New DevExpress.XtraLayout.Utils.Padding(10, 10, 10, 10) + Me.LayoutControlItem19.Size = New System.Drawing.Size(257, 40) + resources.ApplyResources(Me.LayoutControlItem19, "LayoutControlItem19") + Me.LayoutControlItem19.TextSize = New System.Drawing.Size(103, 13) ' 'frmControl_Detail ' + Me.Appearance.Options.UseFont = True resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.Controls.Add(Me.btnSQLEdit) - Me.Controls.Add(Me.CONNECTION_IDTextBox) - Me.Controls.Add(SQL_COMMANDLabel) - Me.Controls.Add(Me.SQL_COMMANDTextBox) - Me.Controls.Add(CHANGED_WHENLabel) - Me.Controls.Add(Me.CHANGED_WHENTextBox) - Me.Controls.Add(CHANGED_WHOLabel) - Me.Controls.Add(Me.CHANGED_WHOTextBox) - Me.Controls.Add(ADDED_WHENLabel) - Me.Controls.Add(Me.ADDED_WHENTextBox) - Me.Controls.Add(ADDED_WHOLabel) - Me.Controls.Add(Me.ADDED_WHOTextBox) - Me.Controls.Add(Me.Button1) - Me.Controls.Add(Me.StatusStrip1) - Me.Controls.Add(Me.btnDelete) - Me.Controls.Add(Me.btnSave) - Me.Controls.Add(Me.LOAD_IDX_VALUECheckBox) - Me.Controls.Add(Me.READ_ONLYCheckBox) - Me.Controls.Add(GUIDLabel) - Me.Controls.Add(Me.GUIDTextBox) - Me.Controls.Add(Label2) - Me.Controls.Add(Label1) - Me.Controls.Add(SPALTENBREITELabel) - Me.Controls.Add(Me.REGEX_MESSAGE_DETextBox) - Me.Controls.Add(Me.REGEX_MATCHTextBox) - Me.Controls.Add(Me.SPALTENBREITETextBox) - Me.Controls.Add(SPALTEN_HEADERLabel) - Me.Controls.Add(Me.SPALTEN_HEADERTextBox) - Me.Controls.Add(SPALTENNAMELabel) - Me.Controls.Add(Me.SPALTENNAMETextBox) + Me.Controls.Add(Me.LayoutControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.IconOptions.ShowIcon = False Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "frmControl_Detail" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 Me.TopMost = True CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() - Me.StatusStrip1.ResumeLayout(False) - Me.StatusStrip1.PerformLayout() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.LayoutControl1.ResumeLayout(False) + CType(Me.GUIDTextBox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SPALTENNAMETextBox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SPALTEN_HEADERTextBox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SPALTENBREITETextBox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.REGEX_MATCHTextBox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.REGEX_MESSAGE_DETextBox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SQL_COMMANDTextBox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit7.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit8.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.CHANGED_WHOTextBox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TextEdit10.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.READ_ONLYCheckBox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LOAD_IDX_VALUECheckBox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VALIDATIONCheckbox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ADVANCED_LOOKUPCheckbox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DEFAULTVALUETextBox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SEQUENCETextBox.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Root, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem8, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem9, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem10, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem12, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem11, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem13, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem16, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem15, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem17, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem18, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LayoutControlItem19, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout @@ -344,24 +665,53 @@ End Sub Friend WithEvents TBPM_CONTROL_TABLEBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_CONTROL_TABLETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_CONTROL_TABLETableAdapter Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager - Friend WithEvents SPALTENNAMETextBox As System.Windows.Forms.TextBox - Friend WithEvents SPALTEN_HEADERTextBox As System.Windows.Forms.TextBox - Friend WithEvents SPALTENBREITETextBox As System.Windows.Forms.TextBox - Friend WithEvents GUIDTextBox As System.Windows.Forms.TextBox - Friend WithEvents READ_ONLYCheckBox As System.Windows.Forms.CheckBox - Friend WithEvents LOAD_IDX_VALUECheckBox As System.Windows.Forms.CheckBox - Friend WithEvents btnSave As System.Windows.Forms.Button - Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip - Friend WithEvents tslblAenderungen As System.Windows.Forms.ToolStripStatusLabel - Friend WithEvents btnDelete As Button - Friend WithEvents REGEX_MATCHTextBox As TextBox - Friend WithEvents Button1 As Button - Friend WithEvents REGEX_MESSAGE_DETextBox As TextBox - Friend WithEvents ADDED_WHOTextBox As TextBox - Friend WithEvents ADDED_WHENTextBox As TextBox - Friend WithEvents CHANGED_WHOTextBox As TextBox - Friend WithEvents CHANGED_WHENTextBox As TextBox - Friend WithEvents SQL_COMMANDTextBox As TextBox - Friend WithEvents CONNECTION_IDTextBox As TextBox - Friend WithEvents btnSQLEdit As Button + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents tslblAenderungen As DevExpress.XtraBars.BarStaticItem + Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl + Friend WithEvents GUIDTextBox As DevExpress.XtraEditors.TextEdit + Friend WithEvents SPALTENNAMETextBox As DevExpress.XtraEditors.TextEdit + Friend WithEvents SPALTEN_HEADERTextBox As DevExpress.XtraEditors.TextEdit + Friend WithEvents SPALTENBREITETextBox As DevExpress.XtraEditors.SpinEdit + Friend WithEvents REGEX_MATCHTextBox As DevExpress.XtraEditors.TextEdit + Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents REGEX_MESSAGE_DETextBox As DevExpress.XtraEditors.TextEdit + Friend WithEvents SQL_COMMANDTextBox As DevExpress.XtraEditors.TextEdit + Friend WithEvents SimpleButton2 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents TextEdit7 As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit8 As DevExpress.XtraEditors.TextEdit + Friend WithEvents CHANGED_WHOTextBox As DevExpress.XtraEditors.TextEdit + Friend WithEvents TextEdit10 As DevExpress.XtraEditors.TextEdit + Friend WithEvents Root As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem6 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem8 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem7 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem9 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem10 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem12 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem11 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem13 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents READ_ONLYCheckBox As DevExpress.XtraEditors.CheckEdit + Friend WithEvents LOAD_IDX_VALUECheckBox As DevExpress.XtraEditors.CheckEdit + Friend WithEvents LayoutControlItem14 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem15 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents VALIDATIONCheckbox As DevExpress.XtraEditors.CheckEdit + Friend WithEvents ADVANCED_LOOKUPCheckbox As DevExpress.XtraEditors.CheckEdit + Friend WithEvents DEFAULTVALUETextBox As DevExpress.XtraEditors.TextEdit + Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup + Friend WithEvents LayoutControlItem16 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem17 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents LayoutControlItem18 As DevExpress.XtraLayout.LayoutControlItem + Friend WithEvents SEQUENCETextBox As DevExpress.XtraEditors.SpinEdit + Friend WithEvents LayoutControlItem19 As DevExpress.XtraLayout.LayoutControlItem End Class diff --git a/app/DD_PM_WINDREAM/frmControl_Detail.resx b/app/DD_PM_WINDREAM/frmControl_Detail.resx index ad9c7bb..86fb494 100644 --- a/app/DD_PM_WINDREAM/frmControl_Detail.resx +++ b/app/DD_PM_WINDREAM/frmControl_Detail.resx @@ -117,835 +117,581 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - False - - - - True - - - - NoControl - - - - 12, 51 - - - 117, 13 - - - 2 - - - Spaltenname (intern): - - - SPALTENNAMELabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 28 - - - False - - - True - - - NoControl - - - 12, 92 - - - 67, 13 - - - 3 - - - Überschrift: - - - SPALTEN_HEADERLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 26 - - - False - - - True - - - NoControl - - - 12, 133 - - - 40, 13 - - - 4 - - - Breite: - - - SPALTENBREITELabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 22 - - - False - - - True - - - NoControl - - - 12, 9 - - - 21, 13 - - - 6 - - - ID: - - - GUIDLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 18 - - - False - - - True - - - NoControl - - - 12, 174 - - - 41, 13 - - - 4 - - - Regex: - - - Label1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 21 - - - False - - - True - - - NoControl - - - 12, 219 - - - 93, 13 - - - 4 - - - Regex Nachricht: - - - Label2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 20 - - - False - - - True - - - 12, 313 - - - 99, 13 - - - 22 - - - Hinzugefügt Wer: - - - ADDED_WHOLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 10 - - - False - - - True - - - 12, 341 - - - 109, 13 - - - 23 - - - Hinzugefügt Wann: - - - ADDED_WHENLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 8 - - - False - - - True - - - 12, 369 - - - 82, 13 - - - 24 - - - Geändert Wer: - - - CHANGED_WHOLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 6 - - - False - - - True - - - 12, 397 - - - 92, 13 - - - 25 - - - Geändert Wann: - - - CHANGED_WHENLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 4 - - - 179, 17 - - - 15, 67 - - - 311, 22 - - - 3 - - - SPALTENNAMETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 29 - 179, 17 17, 17 - - 17, 17 - - - 15, 108 - - - 311, 22 - - - 4 - - - SPALTEN_HEADERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 27 - - - 15, 149 - - - 81, 22 - - - 5 - - - SPALTENBREITETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 25 - - - 15, 25 - - - 61, 22 - - - 7 - - - GUIDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 19 - - - NoControl - - - 8, 439 - - - 87, 24 - - - 9 - - - Read Only - - - READ_ONLYCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 17 - - - NoControl - - - 101, 439 - - - 120, 24 - - - 11 - - - lade Indexdaten - - - LOAD_IDX_VALUECheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 16 - - - MiddleLeft - - - NoControl - - - 160, 469 - - - 159, 32 - - - 12 - - - Speichern - - - MiddleRight - - - btnSave - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 15 - - - 1021, 17 - - - 153, 17 - - - Änderungen gespeichert - - - False - - - 0, 509 - - - 366, 22 - - - 21 - - - StatusStrip1 - - - StatusStrip1 - - - System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 13 - - - MiddleLeft - - - NoControl - - - 5, 469 - - - 149, 32 - - - 12 - - - Löschen - - - MiddleRight - - - btnDelete - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 14 - - - 15, 190 - - - 311, 22 - - - 5 - - - REGEX_MATCHTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 24 - - - NoControl - - - 327, 190 - - - 30, 22 - - - 22 - - - ... - - - Button1 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 12 - 440, 17 695, 17 + + Speichern + + + Löschen + + + tslblAenderungen + + + + 0, 0 + + + RibbonPageGroup1 + + + RibbonPage1 + + + 533, 62 + + + 0, 662 + + + 533, 21 + + + RibbonStatusBar1 + + + DevExpress.XtraBars.Ribbon.RibbonStatusBar, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 1 + + + RibbonControl1 + + + DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 2 + + + RibbonPage2 + + + 126, 20 + + + 387, 20 + + + + 4 + + + GUIDTextBox + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 4 + + + 126, 60 + + + 387, 20 + + + 5 + + + SPALTENNAMETextBox + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 5 + + + 126, 100 + + + 387, 20 + + + 6 + + + SPALTEN_HEADERTextBox + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 6 + + + 0 + + + 126, 140 + + + + Combo + + + 130, 20 + + + 7 + + + SPALTENBREITETextBox + + + DevExpress.XtraEditors.SpinEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 7 + + + 126, 180 + + + 312, 20 + + + 8 + + + REGEX_MATCHTextBox + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 8 + + + 450, 172 + + + + 10, 10, 10, 10 + + + 10, 10, 10, 10 + + + 71, 42 + + + 9 + + + ... + + + SimpleButton1 + + + DevExpress.XtraEditors.SimpleButton, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 9 + - 15, 235 + 126, 226 - 311, 22 + 387, 20 - 5 + 10 REGEX_MESSAGE_DETextBox - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - $this + LayoutControl1 - 23 - - - 127, 310 - - - 192, 22 - - - 23 - - - ADDED_WHOTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 11 - - - 127, 338 - - - 192, 22 - - - 24 - - - ADDED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 9 - - - 127, 366 - - - 192, 22 - - - 25 - - - CHANGED_WHOTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 7 - - - 127, 394 - - - 192, 22 - - - 26 - - - CHANGED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 5 - - - False - - - True - - - 12, 260 - - - 85, 13 - - - 26 - - - SQL-Command: - - - SQL_COMMANDLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 2 + 10 - 15, 276 + 126, 266 - 311, 22 + 312, 20 - 27 + 11 SQL_COMMANDTextBox - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - $this + LayoutControl1 - 3 + 11 - - 327, 258 + + 450, 258 - - 100, 15 + + 10, 10, 10, 10 - - 29 + + 71, 42 - - CONNECTION_IDTextBox + + 12 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 1 - - - NoControl - - - 327, 276 - - - 30, 22 - - - 30 - - + ... - - btnSQLEdit + + SimpleButton2 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DevExpress.XtraEditors.SimpleButton, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - + + LayoutControl1 + + + 12 + + + 126, 352 + + + 130, 20 + + + 13 + + + TextEdit7 + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 13 + + + 382, 352 + + + 131, 20 + + + 14 + + + TextEdit8 + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 14 + + + 126, 392 + + + 130, 20 + + + 15 + + + CHANGED_WHOTextBox + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 15 + + + 382, 392 + + + 131, 20 + + + 16 + + + TextEdit10 + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 16 + + + 24, 478 + + + Read Only + + + 485, 19 + + + 17 + + + READ_ONLYCheckBox + + + DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 17 + + + 24, 501 + + + Lade Indexdaten + + + 485, 19 + + + 18 + + + LOAD_IDX_VALUECheckBox + + + DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 18 + + + 24, 455 + + + Muss ausgefüllt werden + + + 485, 19 + + + 19 + + + VALIDATIONCheckbox + + + DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 19 + + + 24, 524 + + + Erweitertes Auswahl Control (für lange Listen) + + + 485, 19 + + + 20 + + + ADVANCED_LOOKUPCheckbox + + + DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 20 + + + 126, 312 + + + 387, 20 + + + 21 + + + DEFAULTVALUETextBox + + + DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 21 + + + 0 + + + 382, 140 + + + Combo + + + 131, 20 + + + 22 + + + SEQUENCETextBox + + + DevExpress.XtraEditors.SpinEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControl1 + + + 22 + + + Fill + + + 0, 62 + + + ID + + + Spaltenname (Intern) + + + Überschrift + + + Spaltenbreite + + + Regular Expression + + + SQL Abfrage + + + Regex Nachricht + + + Hinzugefügt Wer + + + Geändert Wer + + + Hinzugefügt Wann + + + Geändert Wann + + + Einstellungen + + + Default Wert + + + Reihenfolge + + + 533, 600 + + + 33 + + + LayoutControl1 + + + LayoutControl1 + + + DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + $this - + 0 @@ -955,7 +701,7 @@ 6, 13 - 366, 531 + 533, 683 Segoe UI, 8.25pt @@ -975,12 +721,6 @@ DD_ProcessManager.DD_DMSLiteDataSet, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - tslblAenderungen - - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - TBPM_CONTROL_TABLETableAdapter @@ -993,10 +733,172 @@ DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + BarButtonItem1 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem2 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + tslblAenderungen + + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPage1 + + + DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPageGroup1 + + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RibbonPage2 + + + DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + Root + + + DevExpress.XtraLayout.LayoutControlGroup, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem1 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem2 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem3 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem4 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem5 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem6 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem8 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem7 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem9 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem10 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem12 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem11 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem13 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlGroup1 + + + DevExpress.XtraLayout.LayoutControlGroup, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem16 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem14 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem15 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem17 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem18 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LayoutControlItem19 + + + DevExpress.XtraLayout.LayoutControlItem, DevExpress.XtraLayout.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + frmControl_Detail - System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + DevExpress.XtraBars.Ribbon.RibbonForm, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmControl_Detail.vb b/app/DD_PM_WINDREAM/frmControl_Detail.vb index bd72e80..35e0e23 100644 --- a/app/DD_PM_WINDREAM/frmControl_Detail.vb +++ b/app/DD_PM_WINDREAM/frmControl_Detail.vb @@ -17,23 +17,33 @@ Public Class frmControl_Detail End Try End Function - - Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click - Save_Data - - End Sub Sub Save_Data() Try TBPM_CONTROL_TABLEBindingSource.EndEdit() If DD_DMSLiteDataSet.TBPM_CONTROL_TABLE.GetChanges Is Nothing = False Then Me.CHANGED_WHOTextBox.Text = USER_USERNAME TBPM_CONTROL_TABLEBindingSource.EndEdit() - TBPM_CONTROL_TABLETableAdapter.cmdUpdate(SPALTENNAMETextBox.Text, SPALTEN_HEADERTextBox.Text, SPALTENBREITETextBox.Text, True, READ_ONLYCheckBox.Checked, LOAD_IDX_VALUECheckBox.Checked, CHANGED_WHOTextBox.Text, REGEX_MATCHTextBox.Text, REGEX_MESSAGE_DETextBox.Text, REGEX_MESSAGE_DETextBox.Text, GUIDTextBox.Text) - tslblAenderungen.Visible = True - tslblAenderungen.Text = "Änderungen gespeichert - " & Now + TBPM_CONTROL_TABLETableAdapter.cmdUpdate( + SPALTENNAMETextBox.Text, + SPALTEN_HEADERTextBox.Text, + SPALTENBREITETextBox.Text, + VALIDATIONCheckbox.Checked, + READ_ONLYCheckBox.Checked, + LOAD_IDX_VALUECheckBox.Checked, + CHANGED_WHOTextBox.Text, + REGEX_MATCHTextBox.Text, + REGEX_MESSAGE_DETextBox.Text, + REGEX_MESSAGE_DETextBox.Text, + DEFAULTVALUETextBox.Text, + SEQUENCETextBox.Text, + ADVANCED_LOOKUPCheckbox.Checked, + GUIDTextBox.Text + ) + tslblAenderungen.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + tslblAenderungen.Caption = "Änderungen gespeichert - " & Now FillData(GUIDTextBox.Text) Else - tslblAenderungen.Visible = False + tslblAenderungen.Visibility = DevExpress.XtraBars.BarItemVisibility.Never End If Catch ex As Exception LOGGER.Error(ex) @@ -41,18 +51,6 @@ Public Class frmControl_Detail End Try End Sub - Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click - Try - If MessageBox.Show("Wollen Sie diese Spalte wirklich löschen?", "Spalte löschen", MessageBoxButtons.YesNo) = DialogResult.Yes Then - TBPM_CONTROL_TABLETableAdapter.Delete(GUIDTextBox.Text) - Close() - End If - Catch ex As Exception - LOGGER.Error(ex) - MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Löschen:") - End Try - End Sub - Private Sub frmControl_Detail_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing My.Settings.frmTableColumns_Position = Me.Location End Sub @@ -72,7 +70,7 @@ Public Class frmControl_Detail End Sub - Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Private Sub Button1_Click(sender As Object, e As EventArgs) Dim oForm As New frmRegexEditor() oForm.RegexString = REGEX_MATCHTextBox.Text @@ -82,7 +80,7 @@ Public Class frmControl_Detail End If End Sub - Private Sub btnSQLEdit_Click(sender As Object, e As EventArgs) Handles btnSQLEdit.Click + Private Sub btnSQLEdit_Click(sender As Object, e As EventArgs) Dim oldSQL = SQL_COMMANDTextBox.Text CURRENT_DESIGN_TYPE = "SQL_SOURCE_TABLE_COLUMN" CURRENT_INDEX_ID = GUIDTextBox.Text @@ -96,8 +94,56 @@ Public Class frmControl_Detail Dim oUpdate As String = $"Update TBPM_CONTROL_TABLE SET CHANGED_WHO = '{USER_USERNAME}', SQL_COMMAND = '{oForm.SQLCommand.Replace("'", "''")}' , CONNECTION_ID = {oForm.ConnectionID} WHERE GUID = {GUIDTextBox.Text}" If ClassDatabase.Execute_non_Query(oUpdate) = True Then - tslblAenderungen.Visible = True - tslblAenderungen.Text = "Changes saved - " & Now + tslblAenderungen.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + tslblAenderungen.Caption = "Changes saved - " & Now + End If + + End If + End If + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + Save_Data() + End Sub + + Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick + Try + If MessageBox.Show("Wollen Sie diese Spalte wirklich löschen?", "Spalte löschen", MessageBoxButtons.YesNo) = DialogResult.Yes Then + TBPM_CONTROL_TABLETableAdapter.Delete(GUIDTextBox.Text) + Close() + End If + Catch ex As Exception + LOGGER.Error(ex) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Löschen:") + End Try + End Sub + + Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click + Dim oForm As New frmRegexEditor() + oForm.RegexString = REGEX_MATCHTextBox.Text + + Dim oResult = oForm.ShowDialog() + If oResult = DialogResult.OK Then + REGEX_MATCHTextBox.Text = oForm.RegexString + End If + End Sub + + Private Sub SimpleButton2_Click(sender As Object, e As EventArgs) Handles SimpleButton2.Click + Dim oldSQL = SQL_COMMANDTextBox.Text + CURRENT_DESIGN_TYPE = "SQL_SOURCE_TABLE_COLUMN" + CURRENT_INDEX_ID = GUIDTextBox.Text + Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL} + oForm.TopMost = True + Dim oResult = oForm.ShowDialog() + oForm.BringToFront() + + If oResult = DialogResult.OK Then + If oldSQL <> oForm.SQLCommand Then + Dim oUpdate As String = $"Update TBPM_CONTROL_TABLE SET CHANGED_WHO = '{USER_USERNAME}', SQL_COMMAND = '{oForm.SQLCommand.Replace("'", "''")}' + , CONNECTION_ID = {oForm.ConnectionID} WHERE GUID = {GUIDTextBox.Text}" + If ClassDatabase.Execute_non_Query(oUpdate) = True Then + tslblAenderungen.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + tslblAenderungen.Caption = "Changes saved - " & Now End If End If diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 86a757f..a64e078 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -81,31 +81,6 @@ Public Class frmValidator Private ControlHandleStarted As Boolean = False - ' - 'Public Shared Function SetForegroundWindow(ByVal hwnd As IntPtr) As Boolean - 'End Function - 'Function set_foreground() - ' Try - ' Dim hwnd As IntPtr - ' Dim prc() As Process = Process.GetProcessesByName("DD_ProcessManager") - - ' If Not prc Is Nothing AndAlso Not prc.Length = 0 Then - ' hwnd = prc(0).MainWindowHandle - ' SetForegroundWindow(hwnd) - ' Else - ' prc = Process.GetProcessesByName("DD_ProcessManager.vshost") - ' If Not prc Is Nothing AndAlso Not prc.Length = 0 Then - ' hwnd = prc(0).MainWindowHandle - ' SetForegroundWindow(hwnd) - ' End If - - ' End If - ' Catch ex As Exception - ' LOGGER.Error(ex) - ' MsgBox("ERror in set_foreground: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "") - ' End Try - - 'End Function Private Sub frmValidation_Load(sender As Object, e As System.EventArgs) Handles Me.Load Try LOGGER.Debug("###frmValidation_Load###") @@ -685,118 +660,6 @@ Public Class frmValidator MsgBox("Error in LoadSQLData: " & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) End Try End Sub - 'Sub LoadSQLData2(control As Control, controlId As Integer) - ' Try - ' If TypeOf control Is Label Then Exit Sub - ' LOGGER.Debug($"in LoadSQLData2 for ControlID [{controlId}]...") - ' Dim oSql As String = $"SELECT GUID,NAME, CONNECTION_ID, SQL_UEBERPRUEFUNG FROM TBPM_PROFILE_CONTROLS WHERE GUID = {controlId} AND PROFIL_ID = {CURRENT_ProfilGUID} AND LEN(ISNULL(SQL_UEBERPRUEFUNG,'')) > 0 AND CTRL_TYPE <> 'BUTTON'" - ' ' And SQL_UEBERPRUEFUNG Not Like '%#WMI#%' AND SQL_UEBERPRUEFUNG NOT LIKE '%#CTRL#%' - ' Dim oDTforControl As DataTable = ClassDatabase.Return_Datatable(oSql) - - - ' If IsNothing(oDTforControl) Then Exit Sub - ' If oDTforControl.Rows.Count = 0 Then Exit Sub - - ' For Each row As DataRow In oDTforControl.Rows - ' Dim oControlName As String = row.Item("NAME") - ' Dim oControlID As String = row.Item("GUID") - ' If IsDBNull(row.Item("CONNECTION_ID")) Then - ' LOGGER.Info($"No CONNECTION_ID for SQL-Data - oGUID: {oControlID}") - ' Continue For - ' End If - ' If IsDBNull(row.Item("SQL_UEBERPRUEFUNG")) Then Continue For - - ' Dim oSqlStatement As String = row.Item("SQL_UEBERPRUEFUNG") - ' Dim oConnectionId As Integer = row.Item("CONNECTION_ID") - ' oSql = clsPatterns.ReplaceAllValues(oSqlStatement, pnldesigner, True) - - ' If clsPatterns.HasComplexPatterns(oSqlStatement) Then - ' LOGGER.Warn($"Unexpected error LoadSQLData2 - sql Statement still has complex patterns! [{oSql}]") - ' Continue For - ' End If - ' 'sql = ClassPatterns.ReplaceInternalValues(sqlStatement) - ' oDTforControl = ClassDatabase.Return_Datatable_ConId(oSql, oConnectionId) - - ' If IsNothing(oDTforControl) Then - ' MsgBox($"SQL-Query for control {control.Name} is invalid.", MsgBoxStyle.OkOnly, ADDITIONAL_TITLE) - ' Exit Sub - ' End If - ' Dim oValue - - ' If TypeOf control Is TextBox Then - ' Try - ' Dim firstRow As DataRow = oDTforControl.Rows(0) - - ' Dim value = firstRow.Item(0) - - ' control.Text = value - ' oValue = value - ' Catch ex As Exception - ' LOGGER.Error(ex) - ' clsLogger.Add("Error in LoadSimpleData for TextBox: " & ex.Message) - ' End Try - ' ElseIf TypeOf control Is ComboBox Then - ' Try - ' Dim oMyComboBox As ComboBox = control - ' Dim oselectedIndex = oMyComboBox.SelectedIndex - ' LOGGER.Debug($"oMyComboBox {oMyComboBox.Name} - Saving selected index {oselectedIndex}") - ' Dim list As New List(Of String) - - ' For Each _row As DataRow In oDTforControl.Rows - ' list.Add(_row.Item(0)) - ' Next - - ' oMyComboBox.DataSource = list - ' oMyComboBox.SelectedIndex = oselectedIndex - - ' Catch ex As Exception - ' LOGGER.Error(ex) - ' clsLogger.Add("Error in LoadSimpleData for Combobox: " & ex.Message) - ' End Try - ' ElseIf TypeOf control Is LookupControl3 Then - ' Try - ' Dim lookup As LookupControl3 = control - - ' lookup.DataSource = oDTforControl - ' Catch ex As Exception - ' LOGGER.Error(ex) - ' clsLogger.Add("Error in LoadSimpleData for LookupControl3: " & ex.Message) - ' End Try - ' ElseIf TypeOf control Is GridControl Then - ' Try - ' Dim dataGridView As GridControl = control - ' Dim oDataSource As DataTable = dataGridView.DataSource - - ' If oDataSource Is Nothing OrElse oDataSource.Rows.Count = 0 Then - ' 'dataGridView.DataSource = dt - - ' Dim oDatatable As DataTable = oDTforControl.Clone() - - ' For Each oColumn As DataColumn In oDatatable.Columns - ' If oDataSource.Columns(oColumn.ColumnName) Is Nothing Then - ' 'oDataSource.Columns.Add(oColumn) - ' oDataSource.Columns.Add(oColumn.ColumnName, oColumn.DataType) - ' End If - ' Next - - ' For Each oRow As DataRow In oDTforControl.Rows - ' oDataSource.ImportRow(oRow) - ' Next - - ' dataGridView.DataSource = oDataSource - ' End If - ' Catch ex As Exception - ' LOGGER.Error(ex) - ' clsLogger.Add("Error in LoadSimpleData for DataGridView: " & ex.Message) - ' End Try - ' End If - ' Next - ' Catch ex As Exception - ' LOGGER.Error(ex) - ' MsgBox("Error in LoadSQLData2: " & ex.Message, MsgBoxStyle.Critical, ADDITIONAL_TITLE) - ' clsLogger.Add("Error in LoadSQLData2: " & ex.Message) - ' End Try - 'End Sub Private Function PreventNulletc(myObject As Object) If IsDBNull(myObject) Then Return String.Empty @@ -5444,7 +5307,7 @@ Public Class frmValidator Sub SetStatusLabel(infotext As String, Optional pColor As String = "") bsiInformation.Caption = infotext & " " & Now.ToString If pColor <> String.Empty Then - bsiInformation.ItemAppearance.Normal.BackColor = System.Drawing.Color.FromName(pColor) + bsiInformation.ItemAppearance.Normal.BackColor = Color.FromName(pColor) Else bsiInformation.ItemAppearance.Normal.BackColor = Color.Transparent End If