diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index db17417..064b0d7 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -176,6 +176,7 @@ + @@ -209,6 +210,11 @@ + + True + True + FinalIndexDataSet.xsd + frmAbout.vb @@ -465,6 +471,17 @@ DD_DMSLiteDataSet.xsd + + FinalIndexDataSet.xsd + + + Designer + MSDataSetGenerator + FinalIndexDataSet.Designer.vb + + + FinalIndexDataSet.xsd + MyApplicationCodeGenerator diff --git a/app/DD_PM_WINDREAM/FinalIndexDataSet.Designer.vb b/app/DD_PM_WINDREAM/FinalIndexDataSet.Designer.vb new file mode 100644 index 0000000..43b56b8 --- /dev/null +++ b/app/DD_PM_WINDREAM/FinalIndexDataSet.Designer.vb @@ -0,0 +1,1719 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class FinalIndexDataSet + Inherits Global.System.Data.DataSet + + Private tableTBPM_PROFILE_FINAL_INDEXING As TBPM_PROFILE_FINAL_INDEXINGDataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("TBPM_PROFILE_FINAL_INDEXING")) Is Nothing) Then + MyBase.Tables.Add(New TBPM_PROFILE_FINAL_INDEXINGDataTable(ds.Tables("TBPM_PROFILE_FINAL_INDEXING"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property TBPM_PROFILE_FINAL_INDEXING() As TBPM_PROFILE_FINAL_INDEXINGDataTable + Get + Return Me.tableTBPM_PROFILE_FINAL_INDEXING + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As FinalIndexDataSet = CType(MyBase.Clone,FinalIndexDataSet) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("TBPM_PROFILE_FINAL_INDEXING")) Is Nothing) Then + MyBase.Tables.Add(New TBPM_PROFILE_FINAL_INDEXINGDataTable(ds.Tables("TBPM_PROFILE_FINAL_INDEXING"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableTBPM_PROFILE_FINAL_INDEXING = CType(MyBase.Tables("TBPM_PROFILE_FINAL_INDEXING"),TBPM_PROFILE_FINAL_INDEXINGDataTable) + If (initTable = true) Then + If (Not (Me.tableTBPM_PROFILE_FINAL_INDEXING) Is Nothing) Then + Me.tableTBPM_PROFILE_FINAL_INDEXING.InitVars + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "FinalIndexDataSet" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/FinalIndexDataSet.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableTBPM_PROFILE_FINAL_INDEXING = New TBPM_PROFILE_FINAL_INDEXINGDataTable() + MyBase.Tables.Add(Me.tableTBPM_PROFILE_FINAL_INDEXING) + End Sub + + _ + Private Function ShouldSerializeTBPM_PROFILE_FINAL_INDEXING() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As FinalIndexDataSet = New FinalIndexDataSet() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBPM_PROFILE_FINAL_INDEXINGDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPM_PROFILE_FINAL_INDEXINGRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnPROFIL_ID As Global.System.Data.DataColumn + + Private columnCONNECTION_ID As Global.System.Data.DataColumn + + Private columnSQL_COMMAND As Global.System.Data.DataColumn + + Private columnINDEXNAME As Global.System.Data.DataColumn + + Private columnVALUE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnDESCRIPTION As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnPROPERTY1 As Global.System.Data.DataColumn + + Private columnPREVENT_DUPLICATES As Global.System.Data.DataColumn + + Private columnALLOW_NEW_VALUES As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPM_PROFILE_FINAL_INDEXING" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property PROFIL_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROFIL_ID + End Get + End Property + + _ + Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONNECTION_ID + End Get + End Property + + _ + Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_COMMAND + End Get + End Property + + _ + Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnINDEXNAME + End Get + End Property + + _ + Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVALUE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDESCRIPTION + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property PROPERTY1Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROPERTY1 + End Get + End Property + + _ + Public ReadOnly Property PREVENT_DUPLICATESColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPREVENT_DUPLICATES + End Get + End Property + + _ + Public ReadOnly Property ALLOW_NEW_VALUESColumn() As Global.System.Data.DataColumn + Get + Return Me.columnALLOW_NEW_VALUES + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_PROFILE_FINAL_INDEXINGRow + Get + Return CType(Me.Rows(index),TBPM_PROFILE_FINAL_INDEXINGRow) + End Get + End Property + + _ + Public Event TBPM_PROFILE_FINAL_INDEXINGRowChanging As TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler + + _ + Public Event TBPM_PROFILE_FINAL_INDEXINGRowChanged As TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler + + _ + Public Event TBPM_PROFILE_FINAL_INDEXINGRowDeleting As TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler + + _ + Public Event TBPM_PROFILE_FINAL_INDEXINGRowDeleted As TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler + + _ + Public Overloads Sub AddTBPM_PROFILE_FINAL_INDEXINGRow(ByVal row As TBPM_PROFILE_FINAL_INDEXINGRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPM_PROFILE_FINAL_INDEXINGRow(ByVal PROFIL_ID As Integer, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String, 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 DESCRIPTION As String, ByVal ACTIVE As Boolean, ByVal PROPERTY1 As String, ByVal PREVENT_DUPLICATES As Boolean, ByVal ALLOW_NEW_VALUES 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() {Nothing, PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DESCRIPTION, ACTIVE, PROPERTY1, PREVENT_DUPLICATES, ALLOW_NEW_VALUES} + rowTBPM_PROFILE_FINAL_INDEXINGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPM_PROFILE_FINAL_INDEXINGRow) + Return rowTBPM_PROFILE_FINAL_INDEXINGRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPM_PROFILE_FINAL_INDEXINGRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_PROFILE_FINAL_INDEXINGRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPM_PROFILE_FINAL_INDEXINGDataTable = CType(MyBase.Clone,TBPM_PROFILE_FINAL_INDEXINGDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPM_PROFILE_FINAL_INDEXINGDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPROFIL_ID = MyBase.Columns("PROFIL_ID") + Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") + Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") + Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") + Me.columnVALUE = MyBase.Columns("VALUE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnPROPERTY1 = MyBase.Columns("PROPERTY1") + Me.columnPREVENT_DUPLICATES = MyBase.Columns("PREVENT_DUPLICATES") + Me.columnALLOW_NEW_VALUES = MyBase.Columns("ALLOW_NEW_VALUES") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPROFIL_ID = New Global.System.Data.DataColumn("PROFIL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFIL_ID) + Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + 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.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnINDEXNAME) + Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVALUE) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + 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.columnPROPERTY1 = New Global.System.Data.DataColumn("PROPERTY1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROPERTY1) + Me.columnPREVENT_DUPLICATES = New Global.System.Data.DataColumn("PREVENT_DUPLICATES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPREVENT_DUPLICATES) + Me.columnALLOW_NEW_VALUES = New Global.System.Data.DataColumn("ALLOW_NEW_VALUES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnALLOW_NEW_VALUES) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnPROFIL_ID.AllowDBNull = false + Me.columnCONNECTION_ID.AllowDBNull = false + Me.columnSQL_COMMAND.AllowDBNull = false + Me.columnSQL_COMMAND.MaxLength = 2147483647 + Me.columnINDEXNAME.AllowDBNull = false + Me.columnINDEXNAME.MaxLength = 100 + Me.columnVALUE.AllowDBNull = false + Me.columnVALUE.MaxLength = 100 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 30 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 30 + Me.columnDESCRIPTION.AllowDBNull = false + Me.columnDESCRIPTION.MaxLength = 2147483647 + Me.columnACTIVE.AllowDBNull = false + Me.columnPROPERTY1.MaxLength = 50 + Me.columnPREVENT_DUPLICATES.AllowDBNull = false + Me.columnALLOW_NEW_VALUES.AllowDBNull = false + End Sub + + _ + Public Function NewTBPM_PROFILE_FINAL_INDEXINGRow() As TBPM_PROFILE_FINAL_INDEXINGRow + Return CType(Me.NewRow,TBPM_PROFILE_FINAL_INDEXINGRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPM_PROFILE_FINAL_INDEXINGRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPM_PROFILE_FINAL_INDEXINGRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPM_PROFILE_FINAL_INDEXINGRowChangedEvent) Is Nothing) Then + RaiseEvent TBPM_PROFILE_FINAL_INDEXINGRowChanged(Me, New TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent(CType(e.Row,TBPM_PROFILE_FINAL_INDEXINGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPM_PROFILE_FINAL_INDEXINGRowChangingEvent) Is Nothing) Then + RaiseEvent TBPM_PROFILE_FINAL_INDEXINGRowChanging(Me, New TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent(CType(e.Row,TBPM_PROFILE_FINAL_INDEXINGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPM_PROFILE_FINAL_INDEXINGRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPM_PROFILE_FINAL_INDEXINGRowDeleted(Me, New TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent(CType(e.Row,TBPM_PROFILE_FINAL_INDEXINGRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPM_PROFILE_FINAL_INDEXINGRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPM_PROFILE_FINAL_INDEXINGRowDeleting(Me, New TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent(CType(e.Row,TBPM_PROFILE_FINAL_INDEXINGRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPM_PROFILE_FINAL_INDEXINGRow(ByVal row As TBPM_PROFILE_FINAL_INDEXINGRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As FinalIndexDataSet = New FinalIndexDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBPM_PROFILE_FINAL_INDEXINGDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPM_PROFILE_FINAL_INDEXINGRow + Inherits Global.System.Data.DataRow + + Private tableTBPM_PROFILE_FINAL_INDEXING As TBPM_PROFILE_FINAL_INDEXINGDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPM_PROFILE_FINAL_INDEXING = CType(Me.Table,TBPM_PROFILE_FINAL_INDEXINGDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.GUIDColumn) = value + End Set + End Property + + _ + Public Property PROFIL_ID() As Integer + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PROFIL_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PROFIL_IDColumn) = value + End Set + End Property + + _ + Public Property CONNECTION_ID() As Short + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CONNECTION_IDColumn),Short) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CONNECTION_IDColumn) = value + End Set + End Property + + _ + Public Property SQL_COMMAND() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.SQL_COMMANDColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.SQL_COMMANDColumn) = value + End Set + End Property + + _ + Public Property INDEXNAME() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.INDEXNAMEColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.INDEXNAMEColumn) = value + End Set + End Property + + _ + Public Property VALUE() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.VALUEColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.VALUEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHENColumn),Date) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_PROFILE_FINAL_INDEXING ist DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_PROFILE_FINAL_INDEXING ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property DESCRIPTION() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property PROPERTY1() As String + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PROPERTY1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PROPERTY1 in Tabelle TBPM_PROFILE_FINAL_INDEXING ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PROPERTY1Column) = value + End Set + End Property + + _ + Public Property PREVENT_DUPLICATES() As Boolean + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PREVENT_DUPLICATESColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PREVENT_DUPLICATESColumn) = value + End Set + End Property + + _ + Public Property ALLOW_NEW_VALUES() As Boolean + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUESColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUESColumn) = value + End Set + End Property + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPROPERTY1Null() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.PROPERTY1Column) + End Function + + _ + Public Sub SetPROPERTY1Null() + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PROPERTY1Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPM_PROFILE_FINAL_INDEXINGRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPM_PROFILE_FINAL_INDEXINGRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPM_PROFILE_FINAL_INDEXINGRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace FinalIndexDataSetTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPM_PROFILE_FINAL_INDEXINGTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBPM_PROFILE_FINAL_INDEXING" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PROFIL_ID", "PROFIL_ID") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") + tableMapping.ColumnMappings.Add("VALUE", "VALUE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("PROPERTY1", "PROPERTY1") + tableMapping.ColumnMappings.Add("PREVENT_DUPLICATES", "PREVENT_DUPLICATES") + tableMapping.ColumnMappings.Add("ALLOW_NEW_VALUES", "ALLOW_NEW_VALUES") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFILE_FINAL_INDEXING.PROFI"& _ + "L_ID, TBPM_PROFILE_FINAL_INDEXING.CONNECTION_ID, TBPM_PROFILE_FINAL_INDEXING.SQL"& _ + "_COMMAND, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM"& _ + "_PROFILE_FINAL_INDEXING.VALUE, TBPM_PROFILE_FINAL_INDEXING.ADDED_WHO, TBPM_PROFI"& _ + "LE_FINAL_INDEXING.ADDED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE_FINAL_INDE"& _ + "XING.CHANGED_WHO, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_I"& _ + "NDEXING.DESCRIPTION, TBPM_PROFILE_FINAL_INDEXING.ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBPM_PROFILE_FINAL_INDEXING.PROPERTY1, TBPM_PROFILE_FINAL_INDEXING.PREVENT_D"& _ + "UPLICATES, TBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PR"& _ + "OFILE_FINAL_INDEXING INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPM_PROFILE ON TBPM_P"& _ + "ROFILE_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() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ + "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT @NEW_PROFIL"& _ + "_ID AS Expr1, INDEXNAME, VALUE, @User AS Expr2, CONNECTION_ID, SQL_COMMAND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM"& _ + " TBPM_PROFILE_FINAL_INDEXING AS TBPM_PROFILE_FINAL_INDEXING_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (PROFIL_ID = @Copy_Profil_ID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NEW_PROFIL_ID", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@User", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Copy_Profil_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "DELETE FROM TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @guid)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).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, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "INSERT INTO TBPM_PROFILE_FINAL_INDEXING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, IND"& _ + "EXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID"& _ + ",@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMAND)" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).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._commandCollection(3).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._commandCollection(3).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, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable, ByVal NAME As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(NAME,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal NAME As String) As FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(NAME,String) + End If + Dim dataTable As FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable = New FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXINGDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function CopyFinalIndex(ByVal NEW_PROFIL_ID As String, ByVal User As String, ByVal Copy_Profil_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (NEW_PROFIL_ID Is Nothing) Then + Throw New Global.System.ArgumentNullException("NEW_PROFIL_ID") + Else + command.Parameters(0).Value = CType(NEW_PROFIL_ID,String) + End If + If (User Is Nothing) Then + Throw New Global.System.ArgumentNullException("User") + Else + command.Parameters(1).Value = CType(User,String) + End If + command.Parameters(2).Value = CType(Copy_Profil_ID,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 + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function DeleteFinalIndex(ByVal guid As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + command.Parameters(0).Value = CType(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 + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function InsertFinalIndex(ByVal PROFIL_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal ADDED_WHO As String, ByVal CONNECTION_ID As Short, ByVal SQL_COMMAND As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + command.Parameters(0).Value = CType(PROFIL_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") + Else + command.Parameters(1).Value = CType(INDEXNAME,String) + End If + If (VALUE Is Nothing) Then + Throw New Global.System.ArgumentNullException("VALUE") + Else + command.Parameters(2).Value = CType(VALUE,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + command.Parameters(3).Value = CType(ADDED_WHO,String) + End If + command.Parameters(4).Value = CType(CONNECTION_ID,Short) + If (SQL_COMMAND Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_COMMAND") + Else + command.Parameters(5).Value = CType(SQL_COMMAND,String) + End If + 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 + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As FinalIndexDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As FinalIndexDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As FinalIndexDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As FinalIndexDataSet) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ + "t.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/app/DD_PM_WINDREAM/FinalIndexDataSet.xsc b/app/DD_PM_WINDREAM/FinalIndexDataSet.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/app/DD_PM_WINDREAM/FinalIndexDataSet.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/FinalIndexDataSet.xsd b/app/DD_PM_WINDREAM/FinalIndexDataSet.xsd new file mode 100644 index 0000000..29f5cfd --- /dev/null +++ b/app/DD_PM_WINDREAM/FinalIndexDataSet.xsd @@ -0,0 +1,171 @@ + + + + + + + + + + + + + + + SELECT TBPM_PROFILE_FINAL_INDEXING.GUID, TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID, TBPM_PROFILE_FINAL_INDEXING.CONNECTION_ID, TBPM_PROFILE_FINAL_INDEXING.SQL_COMMAND, + TBPM_PROFILE_FINAL_INDEXING.INDEXNAME, TBPM_PROFILE_FINAL_INDEXING.VALUE, TBPM_PROFILE_FINAL_INDEXING.ADDED_WHO, TBPM_PROFILE_FINAL_INDEXING.ADDED_WHEN, + TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHO, TBPM_PROFILE_FINAL_INDEXING.CHANGED_WHEN, TBPM_PROFILE_FINAL_INDEXING.DESCRIPTION, TBPM_PROFILE_FINAL_INDEXING.ACTIVE, + TBPM_PROFILE_FINAL_INDEXING.PROPERTY1, TBPM_PROFILE_FINAL_INDEXING.PREVENT_DUPLICATES, TBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUES +FROM TBPM_PROFILE_FINAL_INDEXING INNER JOIN + TBPM_PROFILE ON TBPM_PROFILE_FINAL_INDEXING.PROFIL_ID = TBPM_PROFILE.GUID +WHERE (TBPM_PROFILE.NAME = @NAME) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO TBPM_PROFILE_FINAL_INDEXING + (PROFIL_ID, INDEXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND) +SELECT @NEW_PROFIL_ID AS Expr1, INDEXNAME, VALUE, @User AS Expr2, CONNECTION_ID, SQL_COMMAND +FROM TBPM_PROFILE_FINAL_INDEXING AS TBPM_PROFILE_FINAL_INDEXING_1 +WHERE (PROFIL_ID = @Copy_Profil_ID) + + + + + + + + + + + + DELETE FROM TBPM_PROFILE_FINAL_INDEXING +WHERE (GUID = @guid) + + + + + + + + + + INSERT INTO TBPM_PROFILE_FINAL_INDEXING + (PROFIL_ID, INDEXNAME, VALUE, ADDED_WHO, CONNECTION_ID, SQL_COMMAND) +VALUES (@PROFIL_ID,@INDEXNAME,@VALUE,@ADDED_WHO,@CONNECTION_ID,@SQL_COMMAND) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/FinalIndexDataSet.xss b/app/DD_PM_WINDREAM/FinalIndexDataSet.xss new file mode 100644 index 0000000..57bc861 --- /dev/null +++ b/app/DD_PM_WINDREAM/FinalIndexDataSet.xss @@ -0,0 +1,12 @@ + + + + + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb index 45678fc..dc2bbb6 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb @@ -22,6 +22,7 @@ Partial Class frmAdministration 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() Dim GUIDLabel As System.Windows.Forms.Label Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdministration)) Dim NAMELabel As System.Windows.Forms.Label @@ -48,10 +49,10 @@ Partial Class frmAdministration Dim VEKTOR_DELIMITERLabel As System.Windows.Forms.Label Dim WORK_HISTORY_ENTRYLabel As System.Windows.Forms.Label Dim SQL_VIEWLabel As System.Windows.Forms.Label - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.SplitContainer_Profilzuordnung2 = New System.Windows.Forms.SplitContainer() Me.gridAssignedUsers = New DevExpress.XtraGrid.GridControl() - Me.TBPROFILE_USERBindingSource = New System.Windows.Forms.BindingSource() + Me.TBPROFILE_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() Me.viewAssignedUsers = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colPRENAME1 = New DevExpress.XtraGrid.Columns.GridColumn() @@ -63,7 +64,7 @@ Partial Class frmAdministration Me.Panel1 = New System.Windows.Forms.Panel() Me.Label20 = New System.Windows.Forms.Label() Me.gridAvailableUsers = New DevExpress.XtraGrid.GridControl() - Me.FNPM_GET_FREE_USER_FOR_PROFILEBindingSource = New System.Windows.Forms.BindingSource() + Me.FNPM_GET_FREE_USER_FOR_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.viewAvailableUsers = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colPRENAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME2 = New DevExpress.XtraGrid.Columns.GridColumn() @@ -75,22 +76,22 @@ Partial Class frmAdministration Me.Label19 = New System.Windows.Forms.Label() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.gridAssignedGroups = New DevExpress.XtraGrid.GridControl() - Me.TBPROFILE_GROUPBindingSource = New System.Windows.Forms.BindingSource() + Me.TBPROFILE_GROUPBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.viewAssignedGroups = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colNAME5 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colCOMMENT1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.Panel3 = New System.Windows.Forms.Panel() Me.Label22 = New System.Windows.Forms.Label() Me.gridAvailableGroups = New DevExpress.XtraGrid.GridControl() - Me.TBDD_GROUPSBindingSource = New System.Windows.Forms.BindingSource() + Me.TBDD_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.viewAvailableGroups = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colNAME4 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colCOMMENT = New DevExpress.XtraGrid.Columns.GridColumn() Me.Panel4 = New System.Windows.Forms.Panel() Me.Label23 = New System.Windows.Forms.Label() - Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource() + Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() - Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource() + Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() @@ -102,7 +103,7 @@ Partial Class frmAdministration Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.VWPM_PROFILE_USERBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() - Me.TBPM_PROFILEBindingNavigator = New System.Windows.Forms.BindingNavigator() + Me.TBPM_PROFILEBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.tstrpbtn_add = New System.Windows.Forms.ToolStripButton() Me.tstrlblSave = New System.Windows.Forms.ToolStripLabel() Me.btnRefreshProfiles = New System.Windows.Forms.ToolStripButton() @@ -121,7 +122,7 @@ Partial Class frmAdministration Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.Label1 = New System.Windows.Forms.Label() Me.cmbType = New System.Windows.Forms.ComboBox() - Me.TBPM_TYPEBindingSource = New System.Windows.Forms.BindingSource() + Me.TBPM_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.MOVE2FOLDERTextBox = New System.Windows.Forms.TextBox() Me.btnmovetoFolderDialog = New System.Windows.Forms.Button() @@ -157,18 +158,10 @@ Partial Class frmAdministration Me.TabPage11 = New System.Windows.Forms.TabPage() Me.Panel5 = New System.Windows.Forms.Panel() Me.gridFinalIndex = New DevExpress.XtraGrid.GridControl() - Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource() + Me.FinalIndexDataSet = New DD_PM_WINDREAM.FinalIndexDataSet() Me.viewFinalIndex = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colINDEXNAME = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colVALUE = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colSQL_COMMAND = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colCHANGED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colCHANGED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() Me.PropertyGrid1 = New System.Windows.Forms.PropertyGrid() - Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator() + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorCountItem1 = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorMoveFirstItem1 = New System.Windows.Forms.ToolStripButton() @@ -205,7 +198,7 @@ Partial Class frmAdministration Me.btnUserManager = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.VEKTOR_DELIMITERTextBox = New System.Windows.Forms.TextBox() - Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource() + Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.btnConnections = New System.Windows.Forms.Button() Me.btnopen_SQLAdmin = New System.Windows.Forms.Button() Me.EMAIL_ACTIVECheckBox = New System.Windows.Forms.CheckBox() @@ -233,8 +226,8 @@ Partial Class frmAdministration Me.DataGridViewTextBoxColumn23 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn24 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn25 = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.TBPM_ERROR_LOGBindingSource = New System.Windows.Forms.BindingSource() - Me.TBPM_ERROR_LOGBindingNavigator = New System.Windows.Forms.BindingNavigator() + Me.TBPM_ERROR_LOGBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPM_ERROR_LOGBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorCountItem3 = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorDeleteItem1 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveFirstItem3 = New System.Windows.Forms.ToolStripButton() @@ -245,8 +238,8 @@ Partial Class frmAdministration Me.BindingNavigatorMoveNextItem3 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveLastItem3 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorSeparator11 = New System.Windows.Forms.ToolStripSeparator() - Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource() - Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource() + Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.tstrpinfo = New System.Windows.Forms.ToolStripStatusLabel() Me.TBPROFILE_USERTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter() @@ -254,15 +247,31 @@ Partial Class frmAdministration Me.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() Me.pnlMain = New System.Windows.Forms.Panel() Me.TBPM_ERROR_LOGTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_ERROR_LOGTableAdapter() - Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter() - Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource() + Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter() Me.TBDD_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() Me.TBDD_GROUPSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GROUPSTableAdapter() Me.TBPROFILE_GROUPTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPROFILE_GROUPTableAdapter() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter() + Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() + Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPROFIL_ID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCONNECTION_ID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSQL_COMMAND = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colINDEXNAME = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colVALUE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCHANGED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCHANGED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDESCRIPTION1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colACTIVE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPROPERTY1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPREVENT_DUPLICATES = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colALLOW_NEW_VALUES = New DevExpress.XtraGrid.Columns.GridColumn() GUIDLabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label() DESCRIPTIONLabel = New System.Windows.Forms.Label() @@ -333,7 +342,7 @@ Partial Class frmAdministration Me.TabPage11.SuspendLayout() Me.Panel5.SuspendLayout() CType(Me.gridFinalIndex, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.FinalIndexDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.viewFinalIndex, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() Me.BindingNavigator1.SuspendLayout() @@ -363,6 +372,7 @@ Partial Class frmAdministration Me.StatusStrip1.SuspendLayout() Me.pnlMain.SuspendLayout() CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'GUIDLabel @@ -1298,14 +1308,14 @@ Partial Class frmAdministration Me.gridFinalIndex.Name = "gridFinalIndex" Me.gridFinalIndex.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewFinalIndex}) ' - 'TBPM_PROFILE_FINAL_INDEXINGBindingSource + 'FinalIndexDataSet ' - Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource.DataMember = "TBPM_PROFILE_FINAL_INDEXING" - Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource.DataSource = Me.DD_DMSLiteDataSet + Me.FinalIndexDataSet.DataSetName = "FinalIndexDataSet" + Me.FinalIndexDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' 'viewFinalIndex ' - Me.viewFinalIndex.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colINDEXNAME, Me.colVALUE, Me.colSQL_COMMAND, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colCHANGED_WHO, Me.colCHANGED_WHEN}) + Me.viewFinalIndex.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colPROFIL_ID, Me.colCONNECTION_ID, Me.colINDEXNAME, Me.colVALUE, Me.colSQL_COMMAND, Me.colPREVENT_DUPLICATES, Me.colALLOW_NEW_VALUES, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colCHANGED_WHO, Me.colCHANGED_WHEN, Me.colDESCRIPTION1, Me.colACTIVE, Me.colPROPERTY1}) Me.viewFinalIndex.DetailHeight = 295 Me.viewFinalIndex.GridControl = Me.gridFinalIndex Me.viewFinalIndex.Name = "viewFinalIndex" @@ -1313,62 +1323,6 @@ Partial Class frmAdministration Me.viewFinalIndex.OptionsBehavior.ReadOnly = True Me.viewFinalIndex.OptionsView.ShowGroupPanel = False ' - 'colGUID - ' - resources.ApplyResources(Me.colGUID, "colGUID") - Me.colGUID.FieldName = "GUID" - Me.colGUID.MinWidth = 16 - Me.colGUID.Name = "colGUID" - ' - 'colINDEXNAME - ' - resources.ApplyResources(Me.colINDEXNAME, "colINDEXNAME") - Me.colINDEXNAME.FieldName = "INDEXNAME" - Me.colINDEXNAME.MinWidth = 16 - Me.colINDEXNAME.Name = "colINDEXNAME" - ' - 'colVALUE - ' - resources.ApplyResources(Me.colVALUE, "colVALUE") - Me.colVALUE.FieldName = "VALUE" - Me.colVALUE.MinWidth = 16 - Me.colVALUE.Name = "colVALUE" - ' - 'colSQL_COMMAND - ' - resources.ApplyResources(Me.colSQL_COMMAND, "colSQL_COMMAND") - Me.colSQL_COMMAND.FieldName = "SQL_COMMAND" - Me.colSQL_COMMAND.MinWidth = 16 - Me.colSQL_COMMAND.Name = "colSQL_COMMAND" - ' - 'colADDED_WHO - ' - resources.ApplyResources(Me.colADDED_WHO, "colADDED_WHO") - Me.colADDED_WHO.FieldName = "ADDED_WHO" - Me.colADDED_WHO.MinWidth = 16 - Me.colADDED_WHO.Name = "colADDED_WHO" - ' - 'colADDED_WHEN - ' - resources.ApplyResources(Me.colADDED_WHEN, "colADDED_WHEN") - Me.colADDED_WHEN.FieldName = "ADDED_WHEN" - Me.colADDED_WHEN.MinWidth = 16 - Me.colADDED_WHEN.Name = "colADDED_WHEN" - ' - 'colCHANGED_WHO - ' - resources.ApplyResources(Me.colCHANGED_WHO, "colCHANGED_WHO") - Me.colCHANGED_WHO.FieldName = "CHANGED_WHO" - Me.colCHANGED_WHO.MinWidth = 16 - Me.colCHANGED_WHO.Name = "colCHANGED_WHO" - ' - 'colCHANGED_WHEN - ' - resources.ApplyResources(Me.colCHANGED_WHEN, "colCHANGED_WHEN") - Me.colCHANGED_WHEN.FieldName = "CHANGED_WHEN" - Me.colCHANGED_WHEN.MinWidth = 16 - Me.colCHANGED_WHEN.Name = "colCHANGED_WHEN" - ' 'PropertyGrid1 ' resources.ApplyResources(Me.PropertyGrid1, "PropertyGrid1") @@ -1809,8 +1763,8 @@ Partial Class frmAdministration 'TBPM_ERROR_LOGDataGridView ' Me.TBPM_ERROR_LOGDataGridView.AllowUserToAddRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan - Me.TBPM_ERROR_LOGDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle6.BackColor = System.Drawing.Color.Cyan + Me.TBPM_ERROR_LOGDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 Me.TBPM_ERROR_LOGDataGridView.AutoGenerateColumns = False Me.TBPM_ERROR_LOGDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.TBPM_ERROR_LOGDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn17, Me.DataGridViewTextBoxColumn22, Me.DataGridViewTextBoxColumn23, Me.DataGridViewTextBoxColumn24, Me.DataGridViewTextBoxColumn25}) @@ -1975,10 +1929,6 @@ Partial Class frmAdministration ' Me.TBPM_ERROR_LOGTableAdapter.ClearBeforeFill = True ' - 'TBPM_PROFILE_FINAL_INDEXINGTableAdapter - ' - Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True - ' 'TBPM_PROFILE_CONTROLSTableAdapter ' Me.TBPM_PROFILE_CONTROLSTableAdapter.ClearBeforeFill = True @@ -2012,6 +1962,99 @@ Partial Class frmAdministration ' Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.ClearBeforeFill = True ' + 'TBPM_PROFILE_FINAL_INDEXINGTableAdapter + ' + Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True + ' + 'TBPM_PROFILE_FINAL_INDEXINGBindingSource + ' + Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource.DataMember = "TBPM_PROFILE_FINAL_INDEXING" + Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource.DataSource = Me.FinalIndexDataSet + ' + 'colGUID + ' + Me.colGUID.FieldName = "GUID" + Me.colGUID.Name = "colGUID" + ' + 'colPROFIL_ID + ' + Me.colPROFIL_ID.FieldName = "PROFIL_ID" + Me.colPROFIL_ID.Name = "colPROFIL_ID" + ' + 'colCONNECTION_ID + ' + Me.colCONNECTION_ID.FieldName = "CONNECTION_ID" + Me.colCONNECTION_ID.Name = "colCONNECTION_ID" + ' + 'colSQL_COMMAND + ' + resources.ApplyResources(Me.colSQL_COMMAND, "colSQL_COMMAND") + Me.colSQL_COMMAND.FieldName = "SQL_COMMAND" + Me.colSQL_COMMAND.Name = "colSQL_COMMAND" + ' + 'colINDEXNAME + ' + resources.ApplyResources(Me.colINDEXNAME, "colINDEXNAME") + Me.colINDEXNAME.FieldName = "INDEXNAME" + Me.colINDEXNAME.Name = "colINDEXNAME" + ' + 'colVALUE + ' + resources.ApplyResources(Me.colVALUE, "colVALUE") + Me.colVALUE.FieldName = "VALUE" + Me.colVALUE.Name = "colVALUE" + ' + 'colADDED_WHO + ' + resources.ApplyResources(Me.colADDED_WHO, "colADDED_WHO") + Me.colADDED_WHO.FieldName = "ADDED_WHO" + Me.colADDED_WHO.Name = "colADDED_WHO" + ' + 'colADDED_WHEN + ' + resources.ApplyResources(Me.colADDED_WHEN, "colADDED_WHEN") + Me.colADDED_WHEN.FieldName = "ADDED_WHEN" + Me.colADDED_WHEN.Name = "colADDED_WHEN" + ' + 'colCHANGED_WHO + ' + resources.ApplyResources(Me.colCHANGED_WHO, "colCHANGED_WHO") + Me.colCHANGED_WHO.FieldName = "CHANGED_WHO" + Me.colCHANGED_WHO.Name = "colCHANGED_WHO" + ' + 'colCHANGED_WHEN + ' + resources.ApplyResources(Me.colCHANGED_WHEN, "colCHANGED_WHEN") + Me.colCHANGED_WHEN.FieldName = "CHANGED_WHEN" + Me.colCHANGED_WHEN.Name = "colCHANGED_WHEN" + ' + 'colDESCRIPTION1 + ' + Me.colDESCRIPTION1.FieldName = "DESCRIPTION" + Me.colDESCRIPTION1.Name = "colDESCRIPTION1" + ' + 'colACTIVE + ' + Me.colACTIVE.FieldName = "ACTIVE" + Me.colACTIVE.Name = "colACTIVE" + ' + 'colPROPERTY1 + ' + Me.colPROPERTY1.FieldName = "PROPERTY1" + Me.colPROPERTY1.Name = "colPROPERTY1" + ' + 'colPREVENT_DUPLICATES + ' + resources.ApplyResources(Me.colPREVENT_DUPLICATES, "colPREVENT_DUPLICATES") + Me.colPREVENT_DUPLICATES.FieldName = "PREVENT_DUPLICATES" + Me.colPREVENT_DUPLICATES.Name = "colPREVENT_DUPLICATES" + ' + 'colALLOW_NEW_VALUES + ' + resources.ApplyResources(Me.colALLOW_NEW_VALUES, "colALLOW_NEW_VALUES") + Me.colALLOW_NEW_VALUES.FieldName = "ALLOW_NEW_VALUES" + Me.colALLOW_NEW_VALUES.Name = "colALLOW_NEW_VALUES" + ' 'frmAdministration ' resources.ApplyResources(Me, "$this") @@ -2071,7 +2114,7 @@ Partial Class frmAdministration Me.TabPage11.PerformLayout() Me.Panel5.ResumeLayout(False) CType(Me.gridFinalIndex, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.FinalIndexDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.viewFinalIndex, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() Me.BindingNavigator1.ResumeLayout(False) @@ -2109,6 +2152,7 @@ Partial Class frmAdministration Me.StatusStrip1.PerformLayout() Me.pnlMain.ResumeLayout(False) CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -2203,8 +2247,6 @@ Partial Class frmAdministration Friend WithEvents TabPage6 As System.Windows.Forms.TabPage Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label - Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator Friend WithEvents tsbtnProfilkopieren As System.Windows.Forms.ToolStripButton Friend WithEvents TBPM_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource @@ -2315,17 +2357,27 @@ Partial Class frmAdministration Friend WithEvents PropertyGrid1 As PropertyGrid Friend WithEvents tsBtnSave As ToolStripButton Friend WithEvents Panel5 As Panel + Friend WithEvents ToolStripButton5 As ToolStripButton + Friend WithEvents tsBtnCancel As ToolStripButton + Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILEBindingSource As BindingSource + Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILETableAdapter As DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter + Friend WithEvents tsbtnDeleteProfileData As ToolStripButton + Friend WithEvents FinalIndexDataSet As FinalIndexDataSet + Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGTableAdapter As FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter + Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGBindingSource As BindingSource + Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPROFIL_ID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCONNECTION_ID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSQL_COMMAND As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colINDEXNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colVALUE As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colADDED_WHO As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colCHANGED_WHO As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colCHANGED_WHEN As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colSQL_COMMAND As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents ToolStripButton5 As ToolStripButton - Friend WithEvents tsBtnCancel As ToolStripButton - Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILEBindingSource As BindingSource - Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILETableAdapter As DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter - Friend WithEvents tsbtnDeleteProfileData As ToolStripButton + Friend WithEvents colDESCRIPTION1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colACTIVE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPROPERTY1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPREVENT_DUPLICATES As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colALLOW_NEW_VALUES As DevExpress.XtraGrid.Columns.GridColumn End Class diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index d7cb4b4..cdf2a75 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -163,7 +163,7 @@ True - 17, 95 + 327, 95 206, 17 @@ -264,24 +264,6 @@ 0 - - Left - - - 0, 0 - - - 194, 25 - - - 0 - - - Zugeordnete Benutzer: - - - MiddleLeft - Label20 @@ -334,7 +316,7 @@ True - 985, 212 + 542, 212 Fill @@ -432,24 +414,6 @@ 0 - - Left - - - 0, 0 - - - 194, 25 - - - 0 - - - Verfügbare Benutzer: - - - MiddleLeft - Label19 @@ -519,6 +483,69 @@ 0 + + 206, 17 + + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Benutzer: + + + MiddleLeft + + + Label20 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 0 + + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Benutzer: + + + MiddleLeft + + + Label19 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel2 + + + 0 + Fill @@ -532,7 +559,7 @@ True - 225, 212 + 1161, 173 Fill @@ -582,27 +609,6 @@ 0 - - Left - - - NoControl - - - 0, 0 - - - 194, 25 - - - 0 - - - Zugeordnete Gruppen: - - - MiddleLeft - Label22 @@ -655,7 +661,7 @@ True - 1138, 173 + 739, 173 Fill @@ -705,27 +711,6 @@ 0 - - Left - - - NoControl - - - 0, 0 - - - 194, 25 - - - 0 - - - Verfügbare Gruppen: - - - MiddleLeft - Label23 @@ -795,6 +780,72 @@ 0 + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Gruppen: + + + MiddleLeft + + + Label22 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel3 + + + 0 + + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Gruppen: + + + MiddleLeft + + + Label23 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel4 + + + 0 + False @@ -1863,6 +1914,57 @@ der Wertänderungen nutzen wollen: 10 + + FINAL_PROFILECheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox4 + + + 0 + + + FINAL_TEXTTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox4 + + + 2 + + + Tahoma, 9.75pt + + + 280, 151 + + + 420, 100 + + + 75 + + + Alternativer Abschlusstext: + + + GroupBox4 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 13 + Tahoma, 9.75pt @@ -1914,32 +2016,56 @@ der Wertänderungen nutzen wollen: 2 - + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 0 + + + cmbType + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 1 + + Tahoma, 9.75pt - - 280, 151 + + 280, 257 - - 420, 100 + + 420, 71 - - 75 + + 74 - - Alternativer Abschlusstext: + + Type: - - GroupBox4 + + GroupBox2 - + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + TabPage5 - - 13 + + 17 True @@ -1998,32 +2124,59 @@ der Wertänderungen nutzen wollen: 1 - - Tahoma, 9.75pt + + 17, 56 + + + MOVE2FOLDERTextBox - - 280, 257 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 420, 71 + + GroupBox3 - - 74 + + 0 - - Type: + + btnmovetoFolderDialog - - GroupBox2 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + + GroupBox3 + + + 1 + + + Segoe UI, 8.25pt, style=Bold + + + 9, 23 + + + 1007, 57 + + + 73 + + + Wählen Sie hier einen Ordner in windream, in welchen die Datei, nach erfolgreicher Indexierung verschoben werden soll: + + + GroupBox3 + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage5 + + TabPage11 - - 17 + + 3 Segoe UI, 9pt @@ -2076,33 +2229,6 @@ der Wertänderungen nutzen wollen: 1 - - Segoe UI, 8.25pt, style=Bold - - - 9, 23 - - - 1007, 57 - - - 73 - - - Wählen Sie hier einen Ordner in windream, in welchen die Datei, nach erfolgreicher Indexierung verschoben werden soll: - - - GroupBox3 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 3 - Tahoma, 9.75pt @@ -2442,45 +2568,6 @@ der Wertänderungen nutzen wollen: True - - 6, 12 - - - Cyan - - - Fuchsia - - - Profil-Name - - - True - - - 0 - - - 129 - - - Titel - - - True - - - 1 - - - 58 - - - 268, 367 - - - 84 - GridControl1 @@ -2493,15 +2580,6 @@ der Wertänderungen nutzen wollen: 0 - - 715, 248 - - - 230, 24 - - - 83 - cmbLOGIndex @@ -2514,15 +2592,6 @@ der Wertänderungen nutzen wollen: 1 - - 715, 186 - - - 230, 24 - - - 81 - PM_VEKTOR_INDEXComboBox @@ -2535,21 +2604,6 @@ der Wertänderungen nutzen wollen: 3 - - Tahoma, 9.75pt - - - 715, 31 - - - 238, 24 - - - 78 - - - Neueste Dokumente zuerst anzeigen - SORT_BY_LATESTCheckBox @@ -2596,7 +2650,10 @@ der Wertänderungen nutzen wollen: True - 245, 134 + 625, 253 + + + 1202, 212 Fill @@ -2604,12 +2661,6 @@ der Wertänderungen nutzen wollen: 0, 0 - - Id - - - 58 - Windream Index @@ -2619,9 +2670,6 @@ der Wertänderungen nutzen wollen: 0 - - 58 - Fester Wert @@ -2631,9 +2679,6 @@ der Wertänderungen nutzen wollen: 1 - - 58 - SQL Befehl @@ -2641,10 +2686,13 @@ der Wertänderungen nutzen wollen: True - 2 + 0 - - 58 + + Doppelte Werte vermeiden + + + Neue Werte erlauben Hinzugefügt Wer @@ -2655,9 +2703,6 @@ der Wertänderungen nutzen wollen: 3 - - 58 - Hinzugefügt Wann @@ -2667,9 +2712,6 @@ der Wertänderungen nutzen wollen: 4 - - 58 - Geändert Wer @@ -2679,9 +2721,6 @@ der Wertänderungen nutzen wollen: 5 - - 58 - Geändert Wann @@ -2691,9 +2730,6 @@ der Wertänderungen nutzen wollen: 6 - - 58 - 906, 269 @@ -2764,7 +2800,7 @@ der Wertänderungen nutzen wollen: 0 - 831, 212 + 388, 212 True @@ -3082,18 +3118,6 @@ der Wertänderungen nutzen wollen: True - - 291, 336 - - - 260, 24 - - - 11 - - - ANNOTATE WORK HISTORY ENTRY - ANNOTATE_WORK_HISTORY_ENTRYCheckBox @@ -3106,18 +3130,6 @@ der Wertänderungen nutzen wollen: 0 - - 9, 336 - - - 292, 24 - - - 9 - - - ANNOTATE ALL WORK_HISTORY_ENTRIES - ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox @@ -3130,21 +3142,6 @@ der Wertänderungen nutzen wollen: 1 - - Tahoma, 9pt - - - 9, 67 - - - True - - - 1198, 234 - - - 7 - SQL_VIEWTextBox @@ -3157,15 +3154,6 @@ der Wertänderungen nutzen wollen: 3 - - 9, 22 - - - 1198, 23 - - - 1 - WORK_HISTORY_ENTRYTextBox @@ -3304,6 +3292,525 @@ der Wertänderungen nutzen wollen: 0 + + SplitContainerProfilzuordnung + + + System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 0 + + + 4, 25 + + + 3, 3, 3, 3 + + + 1272, 592 + + + 1 + + + Profilzuordnung + + + TabPage2 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 1 + + + btnUserManager + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 0 + + + Button2 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 1 + + + VEKTOR_DELIMITERTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 3 + + + btnConnections + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 4 + + + btnopen_SQLAdmin + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 5 + + + EMAIL_ACTIVECheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 6 + + + grpbxEmail + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 7 + + + btnlicensemanager_open + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 8 + + + INTERVALL_CKECK_NO_OF_FILESNumericUpDown + + + System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 10 + + + Label3 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 11 + + + GEAENDERTWERTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 13 + + + GEAENDERTWANNTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 15 + + + btnSaveKonfig + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 16 + + + 4, 25 + + + 3, 3, 3, 3 + + + 1272, 592 + + + 2 + + + Grundeinstellungen + + + TabPage3 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 2 + + + 1092, 56 + + + TBPM_ERROR_LOGDataGridView + + + System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage4 + + + 0 + + + TBPM_ERROR_LOGBindingNavigator + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage4 + + + 1 + + + 4, 25 + + + 3, 3, 3, 3 + + + 1272, 592 + + + 3 + + + Log + + + TabPage4 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 3 + + + Fill + + + 0, 0 + + + 1280, 621 + + + 3 + + + TabControl1 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlMain + + + 0 + + + 6, 12 + + + Cyan + + + Fuchsia + + + Profil-Name + + + True + + + 0 + + + 129 + + + Titel + + + True + + + 1 + + + 58 + + + 268, 367 + + + 84 + + + GridControl1 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TabPage5 + + + 0 + + + 715, 248 + + + 230, 24 + + + 83 + + + cmbLOGIndex + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 1 + + + 715, 186 + + + 230, 24 + + + 81 + + + PM_VEKTOR_INDEXComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 3 + + + Tahoma, 9.75pt + + + 715, 31 + + + 238, 24 + + + 78 + + + Neueste Dokumente zuerst anzeigen + + + SORT_BY_LATESTCheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + + 6 + + + 1202, 212 + + + 291, 336 + + + 260, 24 + + + 11 + + + ANNOTATE WORK HISTORY ENTRY + + + ANNOTATE_WORK_HISTORY_ENTRYCheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage12 + + + 0 + + + 9, 336 + + + 292, 24 + + + 9 + + + ANNOTATE ALL WORK_HISTORY_ENTRIES + + + ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage12 + + + 1 + + + Tahoma, 9pt + + + 9, 67 + + + True + + + 1198, 234 + + + 7 + + + SQL_VIEWTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage12 + + + 3 + + + 9, 22 + + + 1198, 23 + + + 1 + + + WORK_HISTORY_ENTRYTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage12 + + + 5 + Fill @@ -3400,21 +3907,6 @@ der Wertänderungen nutzen wollen: 0 - - 4, 25 - - - 3, 3, 3, 3 - - - 907, 557 - - - 0 - - - Benutzer - TabPage7 @@ -3427,21 +3919,6 @@ der Wertänderungen nutzen wollen: 0 - - 4, 25 - - - 3, 3, 3, 3 - - - 907, 557 - - - 1 - - - Gruppen - TabPage8 @@ -3511,31 +3988,58 @@ der Wertänderungen nutzen wollen: 0 - + 4, 25 - + 3, 3, 3, 3 - - 1272, 592 + + 907, 557 - - 1 + + 0 - - Profilzuordnung + + Benutzer - - TabPage2 + + TabPage7 - + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabControl1 + + TabControl3 - + + 0 + + + 4, 25 + + + 3, 3, 3, 3 + + + 907, 557 + + + 1 + + + Gruppen + + + TabPage8 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl3 + + 1 @@ -3602,7 +4106,7 @@ der Wertänderungen nutzen wollen: 1 - 457, 95 + 767, 95 182, 61 @@ -3625,6 +4129,9 @@ der Wertänderungen nutzen wollen: 3 + + 767, 95 + MiddleLeft @@ -3709,6 +4216,177 @@ der Wertänderungen nutzen wollen: 6 + + GroupBox5 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpbxEmail + + + 0 + + + EMAIL_REMINDER_FOOTERTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpbxEmail + + + 2 + + + EMAIL_REMINDER_HEADERTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpbxEmail + + + 4 + + + EMAIL_PWTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpbxEmail + + + 6 + + + EMAIL_USERTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpbxEmail + + + 8 + + + EMAIL_SMTPTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpbxEmail + + + 10 + + + EMAIL_FROMTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpbxEmail + + + 12 + + + False + + + 21, 90 + + + 622, 324 + + + 1 + + + E-Mail Konfiguration + + + grpbxEmail + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 7 + + + txtemailEmpfaenger + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + + + 0 + + + Label8 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + + + 1 + + + btnTest_Email + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + + + 2 + + + 307, 23 + + + 303, 87 + + + 21 + + + Email testen + + + GroupBox5 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpbxEmail + + + 0 + 112, 19 @@ -3790,30 +4468,6 @@ der Wertänderungen nutzen wollen: 2 - - 307, 23 - - - 303, 87 - - - 21 - - - Email testen - - - GroupBox5 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxEmail - - - 0 - 10, 258 @@ -3946,33 +4600,6 @@ der Wertänderungen nutzen wollen: 12 - - False - - - 21, 90 - - - 622, 324 - - - 1 - - - E-Mail Konfiguration - - - grpbxEmail - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 7 - MiddleLeft @@ -4123,33 +4750,6 @@ der Wertänderungen nutzen wollen: 16 - - 4, 25 - - - 3, 3, 3, 3 - - - 1272, 592 - - - 2 - - - Grundeinstellungen - - - TabPage3 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 2 - ID @@ -4166,7 +4766,7 @@ der Wertänderungen nutzen wollen: Wann - 1094, 95 + 17, 134 Fill @@ -4349,72 +4949,15 @@ der Wertänderungen nutzen wollen: 1 - - 4, 25 - - - 3, 3, 3, 3 - - - 1272, 592 - - - 3 - - - Log - - - TabPage4 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 3 - - - Fill - - - 0, 0 - - - 1280, 621 - - - 3 - - - TabControl1 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - pnlMain - - - 0 - - 502, 173 + 257, 173 - 860, 134 + 479, 134 - 977, 95 + 1287, 95 - - 20, 20 - - - False - 0, 621 @@ -4439,14 +4982,20 @@ der Wertänderungen nutzen wollen: 1 + + 20, 20 + + + False + - 240, 95 + 550, 95 17, 17 - 720, 95 + 1030, 95 Fill @@ -4473,40 +5022,40 @@ der Wertänderungen nutzen wollen: 0 - 17, 134 - - - 555, 134 + 251, 134 - 1139, 134 + 758, 134 - 17, 173 + 1031, 134 - 262, 173 + 17, 173 - 746, 173 + 501, 173 - 17, 212 + 953, 173 - 460, 212 + 17, 212 - 689, 212 + 246, 212 - 17, 251 + 875, 212 + + + 312, 251 True - 185 + 184 7, 16 @@ -4942,11 +5491,11 @@ der Wertänderungen nutzen wollen: DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - TBPM_PROFILE_FINAL_INDEXINGBindingSource + + FinalIndexDataSet - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DD_PM_WINDREAM.FinalIndexDataSet, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null viewFinalIndex @@ -4954,54 +5503,6 @@ der Wertänderungen nutzen wollen: DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - colGUID - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colINDEXNAME - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colVALUE - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colSQL_COMMAND - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colADDED_WHO - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colADDED_WHEN - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colCHANGED_WHO - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colCHANGED_WHEN - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - BindingNavigatorAddNewItem @@ -5248,12 +5749,6 @@ der Wertänderungen nutzen wollen: DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_ERROR_LOGTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - TBPM_PROFILE_FINAL_INDEXINGTableAdapter - - - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - TBPM_PROFILE_CONTROLSTableAdapter @@ -5302,6 +5797,108 @@ der Wertänderungen nutzen wollen: DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + TBPM_PROFILE_FINAL_INDEXINGTableAdapter + + + DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + TBPM_PROFILE_FINAL_INDEXINGBindingSource + + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + colGUID + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colPROFIL_ID + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colCONNECTION_ID + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colSQL_COMMAND + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colINDEXNAME + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colVALUE + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colADDED_WHO + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colADDED_WHEN + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colCHANGED_WHO + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colCHANGED_WHEN + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colDESCRIPTION1 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colACTIVE + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colPROPERTY1 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colPREVENT_DUPLICATES + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colALLOW_NEW_VALUES + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + frmAdministration diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb index c561431..78ff6ef 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.vb @@ -409,13 +409,12 @@ Public Class frmAdministration Try 'Me.lblSaveFinalIndex.Visible = False If formloaded = False Then Exit Sub - If PROFILGUIDTextBox.Text <> String.Empty Then - Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING, PROFILGUIDTextBox.Text) + If NAMETextBox.Text <> String.Empty Then + TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING, NAMETextBox.Text) End If - Catch ex As System.Exception + Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Refresh_Final_indexe:") End Try - End Sub Private Sub TabControl2_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles tabctrl_Profilkonfig.SelectedIndexChanged @@ -635,7 +634,7 @@ Public Class frmAdministration _sql = _sql.Replace("@User", Environment.UserName) _sql = _sql.Replace("@Copy_profilId", PROFILGUIDTextBox.Text) - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdInsert_Copy(NewGUID, Environment.UserName, PROFILGUIDTextBox.Text) + TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CopyFinalIndex(NewGUID, Environment.UserName, PROFILGUIDTextBox.Text) 'TBPM_PROFILE_CONTROLSTableAdapter.cmdInsertCopy(NewGUID, Environment.UserName, PROFILGUIDTextBox.Text) Execute_SQL(_sql) MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich kopiert!", MsgBoxStyle.Information, "Erfolgsmeldung") @@ -673,7 +672,7 @@ Public Class frmAdministration ClassDatabase.Execute_non_Query(del) TBPM_ERROR_LOGTableAdapter.DeletePROFIL(profileID) TBPM_PROFILE_FILESTableAdapter.cmdDeleteProfilData(profileID) - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdDelete_ProfilID(profileID) + TBPM_PROFILE_FINAL_INDEXINGTableAdapter.DeleteFinalIndex(profileID) TBPM_PROFILE_CONTROLSTableAdapter.cmdDeleteProfil(profileID) TBPROFILE_USERTableAdapter.cmdDeleteAllForProfile(profileID) TBPROFILE_GROUPTableAdapter.CmdDeleteAllForProfile(profileID) @@ -1130,7 +1129,7 @@ Public Class frmAdministration If Not IsNothing(row) Then If MsgBox("Wollen Sie den Index wirklich löschen?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question) = MsgBoxResult.Yes Then - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdDelete(row.Item("GUID")) + TBPM_PROFILE_FINAL_INDEXINGTableAdapter.DeleteFinalIndex(row.Item("GUID")) Refresh_Final_indexe() MsgBox("Index erfolgreich gelöscht!", MsgBoxStyle.Information, "Hinweis:") diff --git a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb index ea736e0..1338adf 100644 --- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb +++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.Designer.vb @@ -27,8 +27,6 @@ Partial Class frmSQL_DESIGNER Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSQL_DESIGNER)) Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() - Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TBDD_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -59,7 +57,6 @@ Partial Class frmSQL_DESIGNER Me.Label3 = New System.Windows.Forms.Label() Me.btnAddUser = New System.Windows.Forms.Button() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).BeginInit() @@ -70,15 +67,6 @@ Partial Class frmSQL_DESIGNER Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' - 'TBPM_PROFILE_FINAL_INDEXINGBindingSource - ' - Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource.DataMember = "TBPM_PROFILE_FINAL_INDEXING" - Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource.DataSource = Me.DD_DMSLiteDataSet - ' - 'TBPM_PROFILE_FINAL_INDEXINGTableAdapter - ' - Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True - ' 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False @@ -90,7 +78,6 @@ Partial Class frmSQL_DESIGNER Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing - Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete @@ -129,7 +116,6 @@ Partial Class frmSQL_DESIGNER ' 'cmbConnection ' - Me.cmbConnection.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, "CONNECTION_ID", True)) Me.cmbConnection.DataSource = Me.TBDD_CONNECTIONBindingSource Me.cmbConnection.DisplayMember = "BEZEICHNUNG" Me.cmbConnection.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -147,7 +133,6 @@ Partial Class frmSQL_DESIGNER Me.SQL_COMMANDTextBox.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.SQL_COMMANDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, "SQL_COMMAND", True)) Me.SQL_COMMANDTextBox.Font = New System.Drawing.Font("Courier New", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.SQL_COMMANDTextBox.Location = New System.Drawing.Point(15, 125) Me.SQL_COMMANDTextBox.Multiline = True @@ -419,7 +404,6 @@ Partial Class frmSQL_DESIGNER Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "SQL - Designer" CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).EndInit() @@ -428,8 +412,6 @@ Partial Class frmSQL_DESIGNER End Sub Friend WithEvents DD_DMSLiteDataSet As DD_PM_WINDREAM.DD_DMSLiteDataSet - Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource diff --git a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.resx b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.resx index 9259dee..3f1fc5a 100644 --- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.resx +++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.resx @@ -120,12 +120,6 @@ 255, 17 - - 417, 17 - - - 727, 17 - 1032, 17 diff --git a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb index cc0fc77..6410ec1 100644 --- a/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb +++ b/app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb @@ -28,7 +28,6 @@ Public Class frmSQL_DESIGNER Private Sub TBPM_PROFILE_FINAL_INDEXINGBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Validate() - TBPM_PROFILE_FINAL_INDEXINGBindingSource.EndEdit() TableAdapterManager.UpdateAll(Me.DD_DMSLiteDataSet) End Sub @@ -37,7 +36,6 @@ Public Class frmSQL_DESIGNER lblSaveFinalIndex.Visible = False TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION) - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = CONNECTION_STRING CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_UEBERPRUEFUNG,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_CONTROLS T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_CONTROL_ID), True) diff --git a/app/DD_PM_WINDREAM/frmValidator.Designer.vb b/app/DD_PM_WINDREAM/frmValidator.Designer.vb index fdb5aad..e674e51 100644 --- a/app/DD_PM_WINDREAM/frmValidator.Designer.vb +++ b/app/DD_PM_WINDREAM/frmValidator.Designer.vb @@ -49,7 +49,6 @@ Partial Class frmValidator Me.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter() Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter() - Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() Me.VWPM_CONTROL_INDEXBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.VWPM_CONTROL_INDEXTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.VWPM_CONTROL_INDEXTableAdapter() @@ -57,7 +56,6 @@ Partial Class frmValidator Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -134,6 +132,9 @@ Partial Class frmValidator Me.ToolStripButtonJumpFile = New System.Windows.Forms.ToolStripButton() Me.ToolStripButtonDeleteFile = New System.Windows.Forms.ToolStripButton() Me.ToolStripButtonAnnotation = New System.Windows.Forms.ToolStripButton() + Me.FinalIndexDataSet = New DD_PM_WINDREAM.FinalIndexDataSet() + Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -146,7 +147,6 @@ Partial Class frmValidator CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -164,6 +164,8 @@ Partial Class frmValidator Me.SplitContainer1.SuspendLayout() Me.grpbxMailBody.SuspendLayout() Me.ToolStrip1.SuspendLayout() + CType(Me.FinalIndexDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'BarAndDockingController3 @@ -282,7 +284,6 @@ Partial Class frmValidator Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Me.TBPM_KONFIGURATIONTableAdapter Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Me.TBPM_PROFILE_CONTROLSTableAdapter Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Me.TBPM_PROFILE_FILESTableAdapter - Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter Me.TableAdapterManager.TBPM_PROFILETableAdapter = Me.TBPM_PROFILETableAdapter Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete @@ -311,10 +312,6 @@ Partial Class frmValidator ' Me.TBPM_PROFILE_FILESTableAdapter.ClearBeforeFill = True ' - 'TBPM_PROFILE_FINAL_INDEXINGTableAdapter - ' - Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True - ' 'TBPM_PROFILETableAdapter ' Me.TBPM_PROFILETableAdapter.ClearBeforeFill = True @@ -348,11 +345,6 @@ Partial Class frmValidator Me.TBPM_PROFILE_FILESBindingSource.DataMember = "TBPM_PROFILE_FILES" Me.TBPM_PROFILE_FILESBindingSource.DataSource = Me.DD_DMSLiteDataSet ' - 'TBPM_PROFILE_FINAL_INDEXINGBindingSource - ' - Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource.DataMember = "TBPM_PROFILE_FINAL_INDEXING" - Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource.DataSource = Me.DD_DMSLiteDataSet - ' 'TBPM_PROFILEBindingSource ' Me.TBPM_PROFILEBindingSource.DataMember = "TBPM_PROFILE" @@ -835,6 +827,20 @@ Partial Class frmValidator resources.ApplyResources(Me.ToolStripButtonAnnotation, "ToolStripButtonAnnotation") Me.ToolStripButtonAnnotation.Name = "ToolStripButtonAnnotation" ' + 'FinalIndexDataSet + ' + Me.FinalIndexDataSet.DataSetName = "FinalIndexDataSet" + Me.FinalIndexDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'TBPM_PROFILE_FINAL_INDEXINGBindingSource + ' + Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource.DataMember = "TBPM_PROFILE_FINAL_INDEXING" + Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource.DataSource = Me.FinalIndexDataSet + ' + 'TBPM_PROFILE_FINAL_INDEXINGTableAdapter + ' + Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True + ' 'frmValidator ' resources.ApplyResources(Me, "$this") @@ -861,7 +867,6 @@ Partial Class frmValidator CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_CONTROL_TABLEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() @@ -885,6 +890,8 @@ Partial Class frmValidator Me.grpbxMailBody.PerformLayout() Me.ToolStrip1.ResumeLayout(False) Me.ToolStrip1.PerformLayout() + CType(Me.FinalIndexDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -910,8 +917,6 @@ Partial Class frmValidator Friend WithEvents TBDD_CONNECTIONBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter Friend WithEvents TBPM_PROFILE_FILESBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter - Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_PROFILETableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter Friend WithEvents TBPM_PROFILEBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter @@ -999,4 +1004,7 @@ Partial Class frmValidator Friend WithEvents ToolStripButtonAnnotation As ToolStripButton Friend WithEvents DateiInfoToolStripMenuItem As ToolStripMenuItem Friend WithEvents RefreshAdditionalSearchToolStripMenuItem As ToolStripMenuItem + Friend WithEvents FinalIndexDataSet As FinalIndexDataSet + Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGBindingSource As BindingSource + Friend WithEvents TBPM_PROFILE_FINAL_INDEXINGTableAdapter As FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter End Class diff --git a/app/DD_PM_WINDREAM/frmValidator.resx b/app/DD_PM_WINDREAM/frmValidator.resx index 2a3817a..23c8aba 100644 --- a/app/DD_PM_WINDREAM/frmValidator.resx +++ b/app/DD_PM_WINDREAM/frmValidator.resx @@ -130,31 +130,6 @@ 608, 17 - - Segoe UI, 9pt, style=Bold - - - 22, 17 - - - sss - - - - False - - - 89, 17 - - - Anzahl Dateien: - - - 82, 17 - - - Document-ID: - 0, 621 @@ -165,6 +140,7 @@ 962, 22 + 4 @@ -183,43 +159,33 @@ 3 + + Segoe UI, 9pt, style=Bold + + + 22, 17 + + + sss + + + False + + + 89, 17 + + + Anzahl Dateien: + + + 82, 17 + + + Document-ID: + 790, 173 - - 206, 22 - - - Datei öffnen - - - 206, 22 - - - Datei-Info - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAANlJREFUOE+lkrsRgzAQRCmBEijBNZDTgwNqIacCQkIHFEAJJBRATkBGer6nQTYS - 4mffzBv9dhchKRKRvwhO3uHb8Wqe50R5KbKCcbJI9gNUFCtTWZaSpqkhyzIZx5GQSXmgOwqofHPf985O - 0B0FfMxgzbSE0Ud3OaAoChmGwZgZs64kwQBd4P+dALBmYB3tJmAxd03TOOY1nI1qtmdww8wtmKv0A1rf - zFjn11RK+B1wSAFzp8SLflNOAF/I89yY67o+NVN+wJMQdqJte2amnABbV4y2nIDfkOgNgPkt6Gl+jn4A - AAAASUVORK5CYII= - - - - 206, 22 - - - Dateieigenschaften - - - 206, 22 - - - Refresh AdditionalSearch - 207, 92 @@ -385,6 +351,40 @@ 0 + + 206, 22 + + + Datei öffnen + + + 206, 22 + + + Datei-Info + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAANlJREFUOE+lkrsRgzAQRCmBEijBNZDTgwNqIacCQkIHFEAJJBRATkBGer6nQTYS + 4mffzBv9dhchKRKRvwhO3uHb8Wqe50R5KbKCcbJI9gNUFCtTWZaSpqkhyzIZx5GQSXmgOwqofHPf985O + 0B0FfMxgzbSE0Ud3OaAoChmGwZgZs64kwQBd4P+dALBmYB3tJmAxd03TOOY1nI1qtmdww8wtmKv0A1rf + zFjn11RK+B1wSAFzp8SLflNOAF/I89yY67o+NVN+wJMQdqJte2amnABbV4y2nIDfkOgNgPkt6Gl+jn4A + AAAASUVORK5CYII= + + + + 206, 22 + + + Dateieigenschaften + + + 206, 22 + + + Refresh AdditionalSearch + 725, 17 @@ -409,9 +409,6 @@ 1017, 95 - - 327, 134 - 844, 134 @@ -433,9 +430,6 @@ 772, 95 - - 17, 134 - 632, 134 @@ -545,7 +539,7 @@ True - 170 + 383 7, 17 @@ -559,33 +553,6 @@ Segoe UI, 9.75pt - - Magenta - - - 165, 22 - - - Datei überspringen (F4) - - - Magenta - - - 106, 22 - - - Datei löschen - - - Magenta - - - 105, 22 - - - Annotationen - 0, 0 @@ -628,21 +595,9 @@ 0 - - Fill - - - 3, 21 - - - 20, 20 - - - 194, 54 - - - 2 - + + 165, 212 + WebBrowser @@ -655,27 +610,6 @@ 0 - - 165, 212 - - - 120, 17 - - - ToolStripStatusLabel1 - - - 3, 75 - - - 194, 22 - - - 0 - - - StatusStrip3 - StatusStrip3 @@ -712,21 +646,6 @@ 0 - - Fill - - - Segoe UI, 9.75pt, style=Italic - - - 3, 21 - - - 194, 25 - - - 0 - txtBetreff @@ -1422,12 +1341,6 @@ DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - TBPM_PROFILE_FINAL_INDEXINGTableAdapter - - - DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - TBPM_PROFILETableAdapter @@ -1470,12 +1383,6 @@ System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TBPM_PROFILE_FINAL_INDEXINGBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - TBPM_PROFILEBindingSource @@ -1842,6 +1749,24 @@ System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + FinalIndexDataSet + + + DD_PM_WINDREAM.FinalIndexDataSet, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + TBPM_PROFILE_FINAL_INDEXINGBindingSource + + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TBPM_PROFILE_FINAL_INDEXINGTableAdapter + + + DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter, FinalIndexDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + frmValidator @@ -1872,24 +1797,6 @@ 947, 173 - - Segoe UI Semibold, 9pt, style=Bold, Italic - - - 139, 16 - - - ToolStripStatusLabel1 - - - Magenta - - - 153, 20 - - - Seitenansicht Minimal - 0, 340 @@ -1959,10 +1866,151 @@ 1 + + Segoe UI Semibold, 9pt, style=Bold, Italic + + + 139, 16 + + + ToolStripStatusLabel1 + + + Magenta + + + 153, 20 + + + Seitenansicht Minimal + 1064, 173 17, 212 + + Fill + + + 3, 21 + + + 20, 20 + + + 194, 54 + + + 2 + + + WebBrowser + + + System.Windows.Forms.WebBrowser, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpbxMailBody + + + 0 + + + 165, 212 + + + 3, 75 + + + 194, 22 + + + 0 + + + StatusStrip3 + + + StatusStrip3 + + + System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpbxMailBody + + + 1 + + + 120, 17 + + + ToolStripStatusLabel1 + + + Fill + + + Segoe UI, 9.75pt, style=Italic + + + 3, 21 + + + 194, 25 + + + 0 + + + txtBetreff + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpBetreff + + + 0 + + + Magenta + + + 165, 22 + + + Datei überspringen (F4) + + + Magenta + + + 106, 22 + + + Datei löschen + + + Magenta + + + 105, 22 + + + Annotationen + + + 389, 212 + + + 538, 212 + + + 848, 212 + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 1b81b7e..ff5a4bb 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -2412,8 +2412,8 @@ LOGGER.Error(ex) 'If ClassFinalizeDoc.Write_Final_Metadata(aktivesDokument) = False Then ' _error = True 'End If - Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName) - Dim dtfinal As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING + Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(Me.FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName) + Dim dtfinal As DataTable = FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING If dtfinal.Rows.Count > 0 Then 'Jetzt finale Indexe setzen LOGGER.Debug(" >> Finale(r) Index(e) für Dok: " & aktivesDokument.aName & " soll gesetzt werden", False)