jj: first pass of final index redesign

This commit is contained in:
Jonathan Jenne
2018-06-21 15:26:17 +02:00
parent fc8631bad8
commit c38e20170b
12 changed files with 1373 additions and 806 deletions

View File

@@ -886,6 +886,10 @@ Partial Public Class DD_DMSLiteDataSet
Private columnSQL_COMMAND As Global.System.Data.DataColumn
Private columnDESCRIPTION As Global.System.Data.DataColumn
Private columnACTIVE As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New()
@@ -993,6 +997,22 @@ Partial Public Class DD_DMSLiteDataSet
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDESCRIPTION
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnACTIVE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
@@ -1030,9 +1050,9 @@ Partial Public Class DD_DMSLiteDataSet
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overloads Function AddTBPM_PROFILE_FINAL_INDEXINGRow(ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String) As TBPM_PROFILE_FINAL_INDEXINGRow
Public Overloads Function AddTBPM_PROFILE_FINAL_INDEXINGRow(ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String, ByVal DESCRIPTION As String, ByVal ACTIVE As Boolean) As TBPM_PROFILE_FINAL_INDEXINGRow
Dim rowTBPM_PROFILE_FINAL_INDEXINGRow As TBPM_PROFILE_FINAL_INDEXINGRow = CType(Me.NewRow,TBPM_PROFILE_FINAL_INDEXINGRow)
Dim columnValuesArray() As Object = New Object() {INDEXNAME, VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Nothing, CONNECTION_ID, SQL_COMMAND}
Dim columnValuesArray() As Object = New Object() {INDEXNAME, VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Nothing, CONNECTION_ID, SQL_COMMAND, DESCRIPTION, ACTIVE}
rowTBPM_PROFILE_FINAL_INDEXINGRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBPM_PROFILE_FINAL_INDEXINGRow)
Return rowTBPM_PROFILE_FINAL_INDEXINGRow
@@ -1070,6 +1090,8 @@ Partial Public Class DD_DMSLiteDataSet
Me.columnGUID = MyBase.Columns("GUID")
Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID")
Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND")
Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION")
Me.columnACTIVE = MyBase.Columns("ACTIVE")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -1093,6 +1115,10 @@ Partial Public Class DD_DMSLiteDataSet
MyBase.Columns.Add(Me.columnCONNECTION_ID)
Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSQL_COMMAND)
Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDESCRIPTION)
Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnACTIVE)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnINDEXNAME.AllowDBNull = false
Me.columnINDEXNAME.MaxLength = 100
@@ -1111,6 +1137,10 @@ Partial Public Class DD_DMSLiteDataSet
Me.columnSQL_COMMAND.AllowDBNull = false
Me.columnSQL_COMMAND.DefaultValue = CType("",String)
Me.columnSQL_COMMAND.MaxLength = 2147483647
Me.columnDESCRIPTION.AllowDBNull = false
Me.columnDESCRIPTION.DefaultValue = CType("",String)
Me.columnDESCRIPTION.MaxLength = 2147483647
Me.columnACTIVE.DefaultValue = CType(true,Boolean)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -8220,6 +8250,32 @@ Partial Public Class DD_DMSLiteDataSet
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property DESCRIPTION() As String
Get
Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn),String)
End Get
Set
Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property ACTIVE() As Boolean
Get
Try
Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn),Boolean)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ACTIVE in Tabelle TBPM_PROFILE_FINAL_INDEXING ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsCHANGED_WHONull() As Boolean
@@ -8243,6 +8299,18 @@ Partial Public Class DD_DMSLiteDataSet
Public Sub SetCHANGED_WHENNull()
Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsACTIVENull() As Boolean
Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetACTIVENull()
Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
@@ -13104,6 +13172,8 @@ Namespace DD_DMSLiteDataSetTableAdapters
tableMapping.ColumnMappings.Add("GUID", "GUID")
tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID")
tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND")
tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION")
tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
@@ -13142,9 +13212,10 @@ Namespace DD_DMSLiteDataSetTableAdapters
"WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHO, TBPM_P"& _
"ROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFI"& _
"LE_FINAL_INDEXING.CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_I"& _
"NDEXING.SQL_COMMAND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TB"& _
"PM_PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPM_PROFILE.NAME = @name)"
"NDEXING.SQL_COMMAND, TBPM_PROFILE_FINAL_INDEXING.DESCRIPTION, TBPM_PROFILE_FINAL"& _
"_INDEXING.ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_"& _
"PROFILE.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPM_PROFILE.NAME = @name)"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@name", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()