diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb index 85e41e7..3568c53 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb @@ -57,6 +57,8 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBDD_GROUPS As TBDD_GROUPSDataTable + Private tableTBPROFILE_GROUP As TBPROFILE_GROUPDataTable + Private tableTBWH_CONNECTION As TBWH_CONNECTIONDataTable Private relationFK_TBPM_ERROR_LOG_PROFILE1 As Global.System.Data.DataRelation @@ -146,6 +148,9 @@ Partial Public Class DD_DMSLiteDataSet If (Not (ds.Tables("TBDD_GROUPS")) Is Nothing) Then MyBase.Tables.Add(New TBDD_GROUPSDataTable(ds.Tables("TBDD_GROUPS"))) End If + If (Not (ds.Tables("TBPROFILE_GROUP")) Is Nothing) Then + MyBase.Tables.Add(New TBPROFILE_GROUPDataTable(ds.Tables("TBPROFILE_GROUP"))) + End If If (Not (ds.Tables("TBWH_CONNECTION")) Is Nothing) Then MyBase.Tables.Add(New TBWH_CONNECTIONDataTable(ds.Tables("TBWH_CONNECTION"))) End If @@ -326,6 +331,16 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property + _ + Public ReadOnly Property TBPROFILE_GROUP() As TBPROFILE_GROUPDataTable + Get + Return Me.tableTBPROFILE_GROUP + End Get + End Property + _ + Private Function ShouldSerializeTBPROFILE_GROUP() As Boolean + Return false + End Function + _ Private Function ShouldSerializeTBWH_CONNECTION() As Boolean @@ -857,6 +889,9 @@ Partial Public Class DD_DMSLiteDataSet _ Public Delegate Sub TBDD_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPSRowChangeEvent) + _ + Public Delegate Sub TBPROFILE_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPROFILE_GROUPRowChangeEvent) + _ Public Delegate Sub TBWH_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_CONNECTIONRowChangeEvent) @@ -4394,6 +4429,8 @@ Partial Public Class DD_DMSLiteDataSet Private columnADDED_WHEN As Global.System.Data.DataColumn + Private columnEMAIL As Global.System.Data.DataColumn + _ Public Sub New() @@ -4477,6 +4514,14 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property + _ + Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL + End Get + End Property + _ @@ -4514,9 +4559,9 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Overloads Function AddTBPROFILE_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBPROFILE_USERRow + Public Overloads Function AddTBPROFILE_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal EMAIL As String) As TBPROFILE_USERRow Dim rowTBPROFILE_USERRow As TBPROFILE_USERRow = CType(Me.NewRow,TBPROFILE_USERRow) - Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, ADDED_WHO, ADDED_WHEN} + Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, ADDED_WHO, ADDED_WHEN, EMAIL} rowTBPROFILE_USERRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPROFILE_USERRow) Return rowTBPROFILE_USERRow @@ -4551,6 +4596,7 @@ Partial Public Class DD_DMSLiteDataSet Me.columnUSERNAME = MyBase.Columns("USERNAME") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnEMAIL = MyBase.Columns("EMAIL") End Sub + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBPROFILE_GROUPDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPROFILE_GROUPRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnCOMMENT 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 + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPROFILE_GROUP" + 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 NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + 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 Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPROFILE_GROUPRow + Get + Return CType(Me.Rows(index),TBPROFILE_GROUPRow) + End Get + End Property + + _ + Public Event TBPROFILE_GROUPRowChanging As TBPROFILE_GROUPRowChangeEventHandler + + _ + Public Event TBPROFILE_GROUPRowChanged As TBPROFILE_GROUPRowChangeEventHandler + + _ + Public Event TBPROFILE_GROUPRowDeleting As TBPROFILE_GROUPRowChangeEventHandler + + _ + Public Event TBPROFILE_GROUPRowDeleted As TBPROFILE_GROUPRowChangeEventHandler + + _ + Public Overloads Sub AddTBPROFILE_GROUPRow(ByVal row As TBPROFILE_GROUPRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPROFILE_GROUPRow(ByVal NAME As String, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPROFILE_GROUPRow + Dim rowTBPROFILE_GROUPRow As TBPROFILE_GROUPRow = CType(Me.NewRow,TBPROFILE_GROUPRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPROFILE_GROUPRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPROFILE_GROUPRow) + Return rowTBPROFILE_GROUPRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPROFILE_GROUPRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPROFILE_GROUPRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPROFILE_GROUPDataTable = CType(MyBase.Clone,TBPROFILE_GROUPDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPROFILE_GROUPDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + 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") + 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.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + 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.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.columnNAME.MaxLength = 50 + Me.columnACTIVE.AllowDBNull = false + Me.columnCOMMENT.MaxLength = 200 + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPROFILE_GROUPRow() As TBPROFILE_GROUPRow + Return CType(Me.NewRow,TBPROFILE_GROUPRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPROFILE_GROUPRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPROFILE_GROUPRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPROFILE_GROUPRowChangedEvent) Is Nothing) Then + RaiseEvent TBPROFILE_GROUPRowChanged(Me, New TBPROFILE_GROUPRowChangeEvent(CType(e.Row,TBPROFILE_GROUPRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPROFILE_GROUPRowChangingEvent) Is Nothing) Then + RaiseEvent TBPROFILE_GROUPRowChanging(Me, New TBPROFILE_GROUPRowChangeEvent(CType(e.Row,TBPROFILE_GROUPRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPROFILE_GROUPRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPROFILE_GROUPRowDeleted(Me, New TBPROFILE_GROUPRowChangeEvent(CType(e.Row,TBPROFILE_GROUPRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPROFILE_GROUPRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPROFILE_GROUPRowDeleting(Me, New TBPROFILE_GROUPRowChangeEvent(CType(e.Row,TBPROFILE_GROUPRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPROFILE_GROUPRow(ByVal row As TBPROFILE_GROUPRow) + 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 DD_DMSLiteDataSet = New DD_DMSLiteDataSet() + 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 = "TBPROFILE_GROUPDataTable" + 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 the strongly named DataTable class. ''' @@ -10359,6 +10769,21 @@ Partial Public Class DD_DMSLiteDataSet End Set End Property + _ + Public Property EMAIL() As String + Get + Try + Return CType(Me(Me.tableTBPROFILE_USER.EMAILColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle TBPROFILE_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPROFILE_USER.EMAILColumn) = value + End Set + End Property + _ Public Function IsPRENAMENull() As Boolean @@ -10382,6 +10807,18 @@ Partial Public Class DD_DMSLiteDataSet Public Sub SetNAMENull() Me(Me.tableTBPROFILE_USER.NAMEColumn) = Global.System.Convert.DBNull End Sub + + _ + Public Function IsEMAILNull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_USER.EMAILColumn) + End Function + + _ + Public Sub SetEMAILNull() + Me(Me.tableTBPROFILE_USER.EMAILColumn) = Global.System.Convert.DBNull + End Sub End Class ''' @@ -12226,6 +12663,206 @@ Partial Public Class DD_DMSLiteDataSet End Sub End Class + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPROFILE_GROUPRow + Inherits Global.System.Data.DataRow + + Private tableTBPROFILE_GROUP As TBPROFILE_GROUPDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPROFILE_GROUP = CType(Me.Table,TBPROFILE_GROUPDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPROFILE_GROUP.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPROFILE_GROUP.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBPROFILE_GROUP.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBPROFILE_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPROFILE_GROUP.NAMEColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBPROFILE_GROUP.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBPROFILE_GROUP.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBPROFILE_GROUP.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPROFILE_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPROFILE_GROUP.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPROFILE_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPROFILE_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPROFILE_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPROFILE_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_GROUP.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBPROFILE_GROUP.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_GROUP.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBPROFILE_GROUP.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBPROFILE_GROUP.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPROFILE_GROUP.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPROFILE_GROUP.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPROFILE_GROUP.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + ''' '''Represents strongly named DataRow class. ''' @@ -13105,6 +13742,42 @@ Partial Public Class DD_DMSLiteDataSet End Property End Class + ''' + '''Row event argument class + ''' + _ + Public Class TBPROFILE_GROUPRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPROFILE_GROUPRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPROFILE_GROUPRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPROFILE_GROUPRow + 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 + ''' '''Row event argument class ''' @@ -16795,6 +17468,7 @@ Namespace DD_DMSLiteDataSetTableAdapters tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") Me._adapter.TableMappings.Add(tableMapping) End Sub @@ -16811,23 +17485,25 @@ Namespace DD_DMSLiteDataSetTableAdapters 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_USER.GUID, TBDD_USER.PRENAME, TBDD_USER.NAME, TBDD_USE"& _ - "R.USERNAME, TBPM_PROFILE_USER.ADDED_WHO, TBPM_PROFILE_USER.ADDED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBPM_PROFILE_USER INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER ON TBPM_"& _ - "PROFILE_USER.USER_ID = TBDD_USER.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPM_PROFILE_USER.PROFIL_ID"& _ - " = @profil_id)" + Me._commandCollection(0).CommandText = "SELECT TBDD_USER.GUID, TBDD_USER.PRENAME, TBDD_USER.NAME, TBDD_USER.USERNA"& _ + "ME, TBPM_PROFILE_USER.ADDED_WHO, TBPM_PROFILE_USER.ADDED_WHEN, TBDD_USER.EMAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "FROM TBPM_PROFILE_USER INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER"& _ + " ON TBPM_PROFILE_USER.USER_ID = TBDD_USER.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPM_PROFILE_USER."& _ + "PROFIL_ID = @profil_id)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).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(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "DELETE FROM TBPM_PROFILE_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" + Me._commandCollection(1).CommandText = "DELETE FROM TBPM_PROFILE_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFILE_ID) AND (USER_I"& _ + "D = @USER_ID)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, 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_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFIL_ID)" + Me._commandCollection(2).CommandText = "DELETE FROM TBPM_PROFILE_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFILE_ID)" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).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.Original, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", 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_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, USER_ID, ADDE"& _ @@ -16868,9 +17544,10 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _ - Public Overloads Overridable Function cmdDelete(ByVal ID As Integer) As Integer + Public Overloads Overridable Function CmdDelete(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(ID,Integer) + command.Parameters(0).Value = CType(PROFILE_ID,Integer) + command.Parameters(1).Value = CType(USER_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 @@ -16891,9 +17568,9 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _ - Public Overloads Overridable Function CmdDelete_ProfilID(ByVal PROFIL_ID As Integer) As Integer + Public Overloads Overridable Function cmdDeleteAllForProfile(ByVal PROFILE_ID As Integer) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - command.Parameters(0).Value = CType(PROFIL_ID,Integer) + command.Parameters(0).Value = CType(PROFILE_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 @@ -21162,6 +21839,288 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function End Class + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPROFILE_GROUPTableAdapter + 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 = "TBPROFILE_GROUP" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + 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") + 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 T1.GUID, T1.NAME, T1.ACTIVE, T1.COMMENT, T1.ADDED_WHO, T1.ADDED_WHE"& _ + "N, T1.CHANGED_WHO, T1.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_GROUP AS T INNE"& _ + "R JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_GROUPS AS T1 ON T.GROUP_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHER"& _ + "E (T.PROFIL_ID = @profil_id)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).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(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "DELETE FROM TBPM_PROFILE_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PROFIL_ID AND GROUP_ID"& _ + " = @GROUP_ID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).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.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, 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_GROUP WHERE PROFIL_ID = @PROFILE_ID" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", 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_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, GROUP_ID, AD"& _ + "DED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID,@GROUP_ID,@WHO)" + 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("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPROFILE_GROUPDataTable, ByVal profil_id As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(profil_id,Integer) + 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 profil_id As Integer) As DD_DMSLiteDataSet.TBPROFILE_GROUPDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(profil_id,Integer) + Dim dataTable As DD_DMSLiteDataSet.TBPROFILE_GROUPDataTable = New DD_DMSLiteDataSet.TBPROFILE_GROUPDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function CmdDelete(ByVal PROFIL_ID As Integer, ByVal GROUP_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(PROFIL_ID,Integer) + command.Parameters(1).Value = CType(GROUP_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 CmdDeleteAllForProfile(ByVal PROFILE_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + command.Parameters(0).Value = CType(PROFILE_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 CmdInsert(ByVal PROFIL_ID As Integer, ByVal GROUP_ID As Integer, ByVal WHO As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + command.Parameters(0).Value = CType(PROFIL_ID,Integer) + command.Parameters(1).Value = CType(GROUP_ID,Integer) + If (WHO Is Nothing) Then + command.Parameters(2).Value = Global.System.DBNull.Value + Else + command.Parameters(2).Value = CType(WHO,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 ''' @@ -21522,6 +22481,15 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If If (Not (Me._tBPM_FILES_USER_NOT_INDEXEDTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_FILES_USER_NOT_INDEXED.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -21576,15 +22544,6 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If Return result End Function @@ -21627,6 +22586,14 @@ Namespace DD_DMSLiteDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If If (Not (Me._tBPM_FILES_USER_NOT_INDEXEDTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_FILES_USER_NOT_INDEXED.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -21675,14 +22642,6 @@ Namespace DD_DMSLiteDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If Return result End Function @@ -21693,14 +22652,6 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DD_DMSLiteDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 - If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If If (Not (Me._tBPM_KONFIGURATIONTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -21749,6 +22700,14 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If + If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd index aa02fa4..e87546d 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd @@ -889,10 +889,10 @@ WHERE (GUID = @ID) - + - - SELECT TBPM_PROFILE_USER.GUID, TBDD_USER.PRENAME, TBDD_USER.NAME, TBDD_USER.USERNAME, TBPM_PROFILE_USER.ADDED_WHO, TBPM_PROFILE_USER.ADDED_WHEN + + SELECT TBDD_USER.GUID, TBDD_USER.PRENAME, TBDD_USER.NAME, TBDD_USER.USERNAME, TBPM_PROFILE_USER.ADDED_WHO, TBPM_PROFILE_USER.ADDED_WHEN, TBDD_USER.EMAIL FROM TBPM_PROFILE_USER INNER JOIN TBDD_USER ON TBPM_PROFILE_USER.USER_ID = TBDD_USER.GUID WHERE (TBPM_PROFILE_USER.PROFIL_ID = @profil_id) @@ -910,26 +910,28 @@ WHERE (TBPM_PROFILE_USER.PROFIL_ID = @profil_id) + - + DELETE FROM TBPM_PROFILE_USER -WHERE (GUID = @ID) +WHERE (PROFIL_ID = @PROFILE_ID) AND (USER_ID = @USER_ID) - + + - + DELETE FROM TBPM_PROFILE_USER -WHERE (PROFIL_ID = @PROFIL_ID) +WHERE (PROFIL_ID = @PROFILE_ID) - + @@ -1996,6 +1998,71 @@ WHERE (T.MODULE_ID = + + + + + + SELECT T1.GUID, T1.NAME, T1.ACTIVE, T1.COMMENT, T1.ADDED_WHO, T1.ADDED_WHEN, T1.CHANGED_WHO, T1.CHANGED_WHEN +FROM TBPM_PROFILE_GROUP AS T INNER JOIN + TBDD_GROUPS AS T1 ON T.GROUP_ID = T1.GUID +WHERE (T.PROFIL_ID = @profil_id) + + + + + + + + + + + + + + + + + + + + + + DELETE FROM TBPM_PROFILE_GROUP +WHERE (PROFIL_ID = @PROFIL_ID AND GROUP_ID = @GROUP_ID) + + + + + + + + + + + DELETE FROM TBPM_PROFILE_GROUP WHERE PROFIL_ID = @PROFILE_ID + + + + + + + + + + INSERT INTO TBPM_PROFILE_GROUP + (PROFIL_ID, GROUP_ID, ADDED_WHO) +VALUES (@PROFIL_ID,@GROUP_ID,@WHO) + + + + + + + + + + @@ -2548,6 +2615,13 @@ WHERE (T.MODULE_ID = + + + + + + + @@ -3009,6 +3083,44 @@ WHERE (T.MODULE_ID = + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -3084,6 +3196,10 @@ WHERE (T.MODULE_ID = + + + + diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss index 558c797..fa2a37d 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss @@ -4,28 +4,29 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + - + 461 @@ -37,7 +38,7 @@ - + 175 @@ -53,7 +54,7 @@ - + 515 @@ -65,7 +66,7 @@ - + 844 @@ -81,7 +82,7 @@ - + 141 diff --git a/app/DD_PM_WINDREAM/frmProfileDesigner.Designer.vb b/app/DD_PM_WINDREAM/frmProfileDesigner.Designer.vb index 058360f..2d7fece 100644 --- a/app/DD_PM_WINDREAM/frmProfileDesigner.Designer.vb +++ b/app/DD_PM_WINDREAM/frmProfileDesigner.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmProfileDesigner Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,7 +20,7 @@ Partial Class frmProfileDesigner 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. '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 @@ -49,56 +49,39 @@ Partial Class frmProfileDesigner 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 DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.SplitContainer_Profilzuordnung2 = New System.Windows.Forms.SplitContainer() Me.gridAssignedUsers = New DevExpress.XtraGrid.GridControl() Me.TBPROFILE_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() Me.viewAssignedUsers = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.colGUID2 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colPRENAME1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME3 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colUSERNAME1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colADDED_WHO1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colADDED_WHEN1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.Panel1 = New System.Windows.Forms.Panel() Me.Label20 = New System.Windows.Forms.Label() Me.gridAvailableUsers = New DevExpress.XtraGrid.GridControl() Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.viewAvailableUsers = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.colGUID1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colPRENAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME2 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colUSERNAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colEMAIL = 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.Panel2 = New System.Windows.Forms.Panel() 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.components) Me.viewAssignedGroups = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn6 = New DevExpress.XtraGrid.Columns.GridColumn() + 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.components) Me.viewAvailableGroups = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.GridColumn7 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn8 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn9 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn10 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn11 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn12 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn13 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn14 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.GridColumn15 = New DevExpress.XtraGrid.Columns.GridColumn() + 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.btnUserManager = New System.Windows.Forms.Button() @@ -250,7 +233,7 @@ Partial Class frmProfileDesigner Me.SplitContainerProfilzuordnung = New System.Windows.Forms.SplitContainer() Me.gridAvailableProfiles = New DevExpress.XtraGrid.GridControl() Me.viewAvailableProfiles = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colDESCRIPTION = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.Label21 = New System.Windows.Forms.Label() Me.TabControl3 = New System.Windows.Forms.TabControl() @@ -303,7 +286,7 @@ Partial Class frmProfileDesigner 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() - Me.TBPM_USERTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter() + Me.TBDD_USERTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter() 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() @@ -312,6 +295,9 @@ Partial Class frmProfileDesigner 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.colEMAIL1 = New DevExpress.XtraGrid.Columns.GridColumn() GUIDLabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label() DESCRIPTIONLabel = New System.Windows.Forms.Label() @@ -355,9 +341,11 @@ Partial Class frmProfileDesigner Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.SuspendLayout() CType(Me.gridAssignedGroups, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPROFILE_GROUPBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.viewAssignedGroups, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel3.SuspendLayout() CType(Me.gridAvailableGroups, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.viewAvailableGroups, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel4.SuspendLayout() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -461,7 +449,7 @@ Partial Class frmProfileDesigner ' 'viewAssignedUsers ' - Me.viewAssignedUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID2, Me.colPRENAME1, Me.colNAME3, Me.colUSERNAME1, Me.colADDED_WHO1, Me.colADDED_WHEN1}) + Me.viewAssignedUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPRENAME1, Me.colNAME3, Me.colUSERNAME1, Me.colEMAIL1}) Me.viewAssignedUsers.GridControl = Me.gridAssignedUsers Me.viewAssignedUsers.Name = "viewAssignedUsers" Me.viewAssignedUsers.OptionsBehavior.Editable = False @@ -469,41 +457,23 @@ Partial Class frmProfileDesigner Me.viewAssignedUsers.OptionsView.ShowAutoFilterRow = True Me.viewAssignedUsers.OptionsView.ShowGroupPanel = False ' - 'colGUID2 - ' - Me.colGUID2.FieldName = "GUID" - Me.colGUID2.Name = "colGUID2" - resources.ApplyResources(Me.colGUID2, "colGUID2") - ' 'colPRENAME1 ' + resources.ApplyResources(Me.colPRENAME1, "colPRENAME1") Me.colPRENAME1.FieldName = "PRENAME" Me.colPRENAME1.Name = "colPRENAME1" - resources.ApplyResources(Me.colPRENAME1, "colPRENAME1") ' 'colNAME3 ' + resources.ApplyResources(Me.colNAME3, "colNAME3") Me.colNAME3.FieldName = "NAME" Me.colNAME3.Name = "colNAME3" - resources.ApplyResources(Me.colNAME3, "colNAME3") ' 'colUSERNAME1 ' + resources.ApplyResources(Me.colUSERNAME1, "colUSERNAME1") Me.colUSERNAME1.FieldName = "USERNAME" Me.colUSERNAME1.Name = "colUSERNAME1" - resources.ApplyResources(Me.colUSERNAME1, "colUSERNAME1") - ' - 'colADDED_WHO1 - ' - Me.colADDED_WHO1.FieldName = "ADDED_WHO" - Me.colADDED_WHO1.Name = "colADDED_WHO1" - resources.ApplyResources(Me.colADDED_WHO1, "colADDED_WHO1") - ' - 'colADDED_WHEN1 - ' - Me.colADDED_WHEN1.FieldName = "ADDED_WHEN" - Me.colADDED_WHEN1.Name = "colADDED_WHEN1" - resources.ApplyResources(Me.colADDED_WHEN1, "colADDED_WHEN1") ' 'Panel1 ' @@ -532,7 +502,7 @@ Partial Class frmProfileDesigner ' 'viewAvailableUsers ' - Me.viewAvailableUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID1, Me.colPRENAME, Me.colNAME2, Me.colUSERNAME, Me.colEMAIL, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colCHANGED_WHO, Me.colCHANGED_WHEN}) + Me.viewAvailableUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPRENAME, Me.colNAME2, Me.colUSERNAME, Me.colEMAIL}) Me.viewAvailableUsers.GridControl = Me.gridAvailableUsers Me.viewAvailableUsers.Name = "viewAvailableUsers" Me.viewAvailableUsers.OptionsBehavior.Editable = False @@ -540,59 +510,29 @@ Partial Class frmProfileDesigner Me.viewAvailableUsers.OptionsView.ShowAutoFilterRow = True Me.viewAvailableUsers.OptionsView.ShowGroupPanel = False ' - 'colGUID1 - ' - Me.colGUID1.FieldName = "GUID" - Me.colGUID1.Name = "colGUID1" - resources.ApplyResources(Me.colGUID1, "colGUID1") - ' 'colPRENAME ' + resources.ApplyResources(Me.colPRENAME, "colPRENAME") Me.colPRENAME.FieldName = "PRENAME" Me.colPRENAME.Name = "colPRENAME" - resources.ApplyResources(Me.colPRENAME, "colPRENAME") ' 'colNAME2 ' + resources.ApplyResources(Me.colNAME2, "colNAME2") Me.colNAME2.FieldName = "NAME" Me.colNAME2.Name = "colNAME2" - resources.ApplyResources(Me.colNAME2, "colNAME2") ' 'colUSERNAME ' + resources.ApplyResources(Me.colUSERNAME, "colUSERNAME") Me.colUSERNAME.FieldName = "USERNAME" Me.colUSERNAME.Name = "colUSERNAME" - resources.ApplyResources(Me.colUSERNAME, "colUSERNAME") ' 'colEMAIL ' + resources.ApplyResources(Me.colEMAIL, "colEMAIL") Me.colEMAIL.FieldName = "EMAIL" Me.colEMAIL.Name = "colEMAIL" - resources.ApplyResources(Me.colEMAIL, "colEMAIL") - ' - 'colADDED_WHO - ' - Me.colADDED_WHO.FieldName = "ADDED_WHO" - Me.colADDED_WHO.Name = "colADDED_WHO" - resources.ApplyResources(Me.colADDED_WHO, "colADDED_WHO") - ' - 'colADDED_WHEN - ' - Me.colADDED_WHEN.FieldName = "ADDED_WHEN" - Me.colADDED_WHEN.Name = "colADDED_WHEN" - resources.ApplyResources(Me.colADDED_WHEN, "colADDED_WHEN") - ' - 'colCHANGED_WHO - ' - Me.colCHANGED_WHO.FieldName = "CHANGED_WHO" - Me.colCHANGED_WHO.Name = "colCHANGED_WHO" - resources.ApplyResources(Me.colCHANGED_WHO, "colCHANGED_WHO") - ' - 'colCHANGED_WHEN - ' - Me.colCHANGED_WHEN.FieldName = "CHANGED_WHEN" - Me.colCHANGED_WHEN.Name = "colCHANGED_WHEN" - resources.ApplyResources(Me.colCHANGED_WHEN, "colCHANGED_WHEN") ' 'Panel2 ' @@ -625,15 +565,20 @@ Partial Class frmProfileDesigner 'gridAssignedGroups ' Me.gridAssignedGroups.AllowDrop = True - Me.gridAssignedGroups.DataSource = Me.TBPROFILE_USERBindingSource + Me.gridAssignedGroups.DataSource = Me.TBPROFILE_GROUPBindingSource resources.ApplyResources(Me.gridAssignedGroups, "gridAssignedGroups") Me.gridAssignedGroups.MainView = Me.viewAssignedGroups Me.gridAssignedGroups.Name = "gridAssignedGroups" Me.gridAssignedGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAssignedGroups}) ' + 'TBPROFILE_GROUPBindingSource + ' + Me.TBPROFILE_GROUPBindingSource.DataMember = "TBPROFILE_GROUP" + Me.TBPROFILE_GROUPBindingSource.DataSource = Me.DD_DMSLiteDataSet + ' 'viewAssignedGroups ' - Me.viewAssignedGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4, Me.GridColumn5, Me.GridColumn6}) + Me.viewAssignedGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME5, Me.colCOMMENT1}) Me.viewAssignedGroups.GridControl = Me.gridAssignedGroups Me.viewAssignedGroups.Name = "viewAssignedGroups" Me.viewAssignedGroups.OptionsBehavior.Editable = False @@ -641,41 +586,17 @@ Partial Class frmProfileDesigner Me.viewAssignedGroups.OptionsView.ShowAutoFilterRow = True Me.viewAssignedGroups.OptionsView.ShowGroupPanel = False ' - 'GridColumn1 + 'colNAME5 ' - Me.GridColumn1.FieldName = "GUID" - Me.GridColumn1.Name = "GridColumn1" - resources.ApplyResources(Me.GridColumn1, "GridColumn1") + resources.ApplyResources(Me.colNAME5, "colNAME5") + Me.colNAME5.FieldName = "NAME" + Me.colNAME5.Name = "colNAME5" ' - 'GridColumn2 + 'colCOMMENT1 ' - Me.GridColumn2.FieldName = "PRENAME" - Me.GridColumn2.Name = "GridColumn2" - resources.ApplyResources(Me.GridColumn2, "GridColumn2") - ' - 'GridColumn3 - ' - Me.GridColumn3.FieldName = "NAME" - Me.GridColumn3.Name = "GridColumn3" - resources.ApplyResources(Me.GridColumn3, "GridColumn3") - ' - 'GridColumn4 - ' - Me.GridColumn4.FieldName = "USERNAME" - Me.GridColumn4.Name = "GridColumn4" - resources.ApplyResources(Me.GridColumn4, "GridColumn4") - ' - 'GridColumn5 - ' - Me.GridColumn5.FieldName = "ADDED_WHO" - Me.GridColumn5.Name = "GridColumn5" - resources.ApplyResources(Me.GridColumn5, "GridColumn5") - ' - 'GridColumn6 - ' - Me.GridColumn6.FieldName = "ADDED_WHEN" - Me.GridColumn6.Name = "GridColumn6" - resources.ApplyResources(Me.GridColumn6, "GridColumn6") + resources.ApplyResources(Me.colCOMMENT1, "colCOMMENT1") + Me.colCOMMENT1.FieldName = "COMMENT" + Me.colCOMMENT1.Name = "colCOMMENT1" ' 'Panel3 ' @@ -691,14 +612,20 @@ Partial Class frmProfileDesigner 'gridAvailableGroups ' Me.gridAvailableGroups.AllowDrop = True + Me.gridAvailableGroups.DataSource = Me.TBDD_GROUPSBindingSource resources.ApplyResources(Me.gridAvailableGroups, "gridAvailableGroups") Me.gridAvailableGroups.MainView = Me.viewAvailableGroups Me.gridAvailableGroups.Name = "gridAvailableGroups" Me.gridAvailableGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableGroups}) ' + 'TBDD_GROUPSBindingSource + ' + Me.TBDD_GROUPSBindingSource.DataMember = "TBDD_GROUPS" + Me.TBDD_GROUPSBindingSource.DataSource = Me.DD_DMSLiteDataSet + ' 'viewAvailableGroups ' - Me.viewAvailableGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn7, Me.GridColumn8, Me.GridColumn9, Me.GridColumn10, Me.GridColumn11, Me.GridColumn12, Me.GridColumn13, Me.GridColumn14, Me.GridColumn15}) + Me.viewAvailableGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME4, Me.colCOMMENT}) Me.viewAvailableGroups.GridControl = Me.gridAvailableGroups Me.viewAvailableGroups.Name = "viewAvailableGroups" Me.viewAvailableGroups.OptionsBehavior.Editable = False @@ -706,59 +633,17 @@ Partial Class frmProfileDesigner Me.viewAvailableGroups.OptionsView.ShowAutoFilterRow = True Me.viewAvailableGroups.OptionsView.ShowGroupPanel = False ' - 'GridColumn7 + 'colNAME4 ' - Me.GridColumn7.FieldName = "GUID" - Me.GridColumn7.Name = "GridColumn7" - resources.ApplyResources(Me.GridColumn7, "GridColumn7") + resources.ApplyResources(Me.colNAME4, "colNAME4") + Me.colNAME4.FieldName = "NAME" + Me.colNAME4.Name = "colNAME4" ' - 'GridColumn8 + 'colCOMMENT ' - Me.GridColumn8.FieldName = "PRENAME" - Me.GridColumn8.Name = "GridColumn8" - resources.ApplyResources(Me.GridColumn8, "GridColumn8") - ' - 'GridColumn9 - ' - Me.GridColumn9.FieldName = "NAME" - Me.GridColumn9.Name = "GridColumn9" - resources.ApplyResources(Me.GridColumn9, "GridColumn9") - ' - 'GridColumn10 - ' - Me.GridColumn10.FieldName = "USERNAME" - Me.GridColumn10.Name = "GridColumn10" - resources.ApplyResources(Me.GridColumn10, "GridColumn10") - ' - 'GridColumn11 - ' - Me.GridColumn11.FieldName = "EMAIL" - Me.GridColumn11.Name = "GridColumn11" - resources.ApplyResources(Me.GridColumn11, "GridColumn11") - ' - 'GridColumn12 - ' - Me.GridColumn12.FieldName = "ADDED_WHO" - Me.GridColumn12.Name = "GridColumn12" - resources.ApplyResources(Me.GridColumn12, "GridColumn12") - ' - 'GridColumn13 - ' - Me.GridColumn13.FieldName = "ADDED_WHEN" - Me.GridColumn13.Name = "GridColumn13" - resources.ApplyResources(Me.GridColumn13, "GridColumn13") - ' - 'GridColumn14 - ' - Me.GridColumn14.FieldName = "CHANGED_WHO" - Me.GridColumn14.Name = "GridColumn14" - resources.ApplyResources(Me.GridColumn14, "GridColumn14") - ' - 'GridColumn15 - ' - Me.GridColumn15.FieldName = "CHANGED_WHEN" - Me.GridColumn15.Name = "GridColumn15" - resources.ApplyResources(Me.GridColumn15, "GridColumn15") + resources.ApplyResources(Me.colCOMMENT, "colCOMMENT") + Me.colCOMMENT.FieldName = "COMMENT" + Me.colCOMMENT.Name = "colCOMMENT" ' 'Panel4 ' @@ -1942,7 +1827,7 @@ Partial Class frmProfileDesigner ' 'viewAvailableProfiles ' - Me.viewAvailableProfiles.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colNAME1}) + Me.viewAvailableProfiles.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME1, Me.colDESCRIPTION}) Me.viewAvailableProfiles.GridControl = Me.gridAvailableProfiles Me.viewAvailableProfiles.Name = "viewAvailableProfiles" Me.viewAvailableProfiles.OptionsBehavior.Editable = False @@ -1951,17 +1836,17 @@ Partial Class frmProfileDesigner Me.viewAvailableProfiles.OptionsView.ShowAutoFilterRow = True Me.viewAvailableProfiles.OptionsView.ShowGroupPanel = False ' - 'colGUID + 'colDESCRIPTION ' - Me.colGUID.FieldName = "GUID" - Me.colGUID.Name = "colGUID" - resources.ApplyResources(Me.colGUID, "colGUID") + resources.ApplyResources(Me.colDESCRIPTION, "colDESCRIPTION") + Me.colDESCRIPTION.FieldName = "DESCRIPTION" + Me.colDESCRIPTION.Name = "colDESCRIPTION" ' 'colNAME1 ' + resources.ApplyResources(Me.colNAME1, "colNAME1") Me.colNAME1.FieldName = "NAME" Me.colNAME1.Name = "colNAME1" - resources.ApplyResources(Me.colNAME1, "colNAME1") ' 'Label21 ' @@ -2187,8 +2072,8 @@ Partial Class frmProfileDesigner 'TBPM_ERROR_LOGDataGridView ' Me.TBPM_ERROR_LOGDataGridView.AllowUserToAddRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.Cyan - Me.TBPM_ERROR_LOGDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan + Me.TBPM_ERROR_LOGDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 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}) @@ -2328,9 +2213,9 @@ Partial Class frmProfileDesigner ' Me.TBPROFILE_USERTableAdapter.ClearBeforeFill = True ' - 'TBPM_USERTableAdapter + 'TBDD_USERTableAdapter ' - Me.TBPM_USERTableAdapter.ClearBeforeFill = True + Me.TBDD_USERTableAdapter.ClearBeforeFill = True ' 'TBPM_KONFIGURATIONTableAdapter ' @@ -2367,6 +2252,20 @@ Partial Class frmProfileDesigner ' Me.TBDD_CONNECTIONTableAdapter.ClearBeforeFill = True ' + 'TBDD_GROUPSTableAdapter + ' + Me.TBDD_GROUPSTableAdapter.ClearBeforeFill = True + ' + 'TBPROFILE_GROUPTableAdapter + ' + Me.TBPROFILE_GROUPTableAdapter.ClearBeforeFill = True + ' + 'colEMAIL1 + ' + resources.ApplyResources(Me.colEMAIL1, "colEMAIL1") + Me.colEMAIL1.FieldName = "EMAIL" + Me.colEMAIL1.Name = "colEMAIL1" + ' 'frmProfileDesigner ' resources.ApplyResources(Me, "$this") @@ -2392,9 +2291,11 @@ Partial Class frmProfileDesigner CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() Me.SplitContainer1.ResumeLayout(False) CType(Me.gridAssignedGroups, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPROFILE_GROUPBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.viewAssignedGroups, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel3.ResumeLayout(False) CType(Me.gridAvailableGroups, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.viewAvailableGroups, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel4.ResumeLayout(False) CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() @@ -2532,7 +2433,7 @@ Partial Class frmProfileDesigner Friend WithEvents TBPROFILE_USERBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPROFILE_USERTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter Friend WithEvents TBDD_USERBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPM_USERTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter + Friend WithEvents TBDD_USERTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter Friend WithEvents TabPage3 As System.Windows.Forms.TabPage Friend WithEvents btnlicensemanager_open As System.Windows.Forms.Button Friend WithEvents grpbxEmail As System.Windows.Forms.GroupBox @@ -2685,27 +2586,19 @@ Partial Class frmProfileDesigner Friend WithEvents ComboBox1 As ComboBox Friend WithEvents gridAvailableProfiles As DevExpress.XtraGrid.GridControl Friend WithEvents viewAvailableProfiles As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colDESCRIPTION As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colNAME1 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents gridAssignedUsers As DevExpress.XtraGrid.GridControl Friend WithEvents viewAssignedUsers As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents colGUID2 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colPRENAME1 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colNAME3 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colUSERNAME1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colADDED_WHO1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colADDED_WHEN1 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents gridAvailableUsers As DevExpress.XtraGrid.GridControl Friend WithEvents viewAvailableUsers As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents colGUID1 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colPRENAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colNAME2 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colUSERNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colEMAIL 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 Panel1 As Panel Friend WithEvents btnUserManager As Button Friend WithEvents Label20 As Label @@ -2718,25 +2611,19 @@ Partial Class frmProfileDesigner Friend WithEvents SplitContainer1 As SplitContainer Friend WithEvents gridAssignedGroups As DevExpress.XtraGrid.GridControl Friend WithEvents viewAssignedGroups As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents GridColumn6 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents Panel3 As Panel Friend WithEvents Label22 As Label Friend WithEvents gridAvailableGroups As DevExpress.XtraGrid.GridControl Friend WithEvents viewAvailableGroups As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents GridColumn7 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents GridColumn8 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents GridColumn9 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents GridColumn10 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents GridColumn11 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents GridColumn12 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents GridColumn13 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents GridColumn14 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents GridColumn15 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents Panel4 As Panel Friend WithEvents Label23 As Label + Friend WithEvents TBDD_GROUPSBindingSource As BindingSource + Friend WithEvents TBDD_GROUPSTableAdapter As DD_DMSLiteDataSetTableAdapters.TBDD_GROUPSTableAdapter + Friend WithEvents colNAME4 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCOMMENT As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents TBPROFILE_GROUPBindingSource As BindingSource + Friend WithEvents TBPROFILE_GROUPTableAdapter As DD_DMSLiteDataSetTableAdapters.TBPROFILE_GROUPTableAdapter + Friend WithEvents colNAME5 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCOMMENT1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colEMAIL1 As DevExpress.XtraGrid.Columns.GridColumn End Class diff --git a/app/DD_PM_WINDREAM/frmProfileDesigner.resx b/app/DD_PM_WINDREAM/frmProfileDesigner.resx index 4e93dbe..eb0149c 100644 --- a/app/DD_PM_WINDREAM/frmProfileDesigner.resx +++ b/app/DD_PM_WINDREAM/frmProfileDesigner.resx @@ -163,10 +163,10 @@ True - 833, 95 + 17, 95 - 17, 17 + 206, 17 Fill @@ -174,42 +174,42 @@ 0, 25 - - True - - - 0 + + Vorname True - 1 + 0 + + + Name True - 2 + 1 + + + Benutzername True + 2 + + + Email + + + True + + 3 - - True - - - 4 - - - True - - - 5 - 900, 268 @@ -228,6 +228,24 @@ 0 + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Benutzer: + + + MiddleLeft + Label20 @@ -280,7 +298,7 @@ True - 17, 82 + 570, 56 Fill @@ -288,59 +306,41 @@ 0, 25 - - True - - - 0 + + Vorname True - 1 + 0 + + + Name True - 2 + 1 + + + Benutzername True - 3 + 2 + + + Email True - 4 - - - True - - - 5 - - - True - - - 6 - - - True - - - 7 - - - True - - - 8 + 3 900, 229 @@ -360,6 +360,24 @@ 0 + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Benutzer: + + + MiddleLeft + Label19 @@ -429,69 +447,6 @@ 0 - - 17, 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 @@ -504,48 +459,33 @@ True + + 225, 212 + Fill 0, 25 - + + Name + + True - + 0 - + + Kommentar + + True - + 1 - - True - - - 2 - - - True - - - 3 - - - True - - - 4 - - - True - - - 5 - 900, 267 @@ -564,6 +504,27 @@ 0 + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Gruppen: + + + MiddleLeft + Label22 @@ -615,66 +576,33 @@ True + + 1138, 173 + Fill 0, 25 - + + Name + + True - + 0 - + + Kommentar + + True - + 1 - - True - - - 2 - - - True - - - 3 - - - True - - - 4 - - - True - - - 5 - - - True - - - 6 - - - True - - - 7 - - - True - - - 8 - 900, 230 @@ -693,6 +621,27 @@ 0 + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Gruppen: + + + MiddleLeft + Label23 @@ -762,72 +711,6 @@ 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 @@ -1608,13 +1491,13 @@ der Wertänderungen nutzen wollen: 0 - 179, 17 + 368, 17 - 581, 17 + 770, 17 - 793, 17 + 982, 17 @@ -1771,7 +1654,7 @@ der Wertänderungen nutzen wollen: Kein Profil gewählt - 352, 17 + 541, 17 Magenta @@ -1926,57 +1809,6 @@ der Wertänderungen nutzen wollen: 11 - - 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 - - - 14 - Tahoma, 9.75pt @@ -2028,56 +1860,32 @@ 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, 257 + + 280, 151 - - 420, 71 + + 420, 100 - - 74 + + 75 - - Type: + + Alternativer Abschlusstext: - - GroupBox2 + + GroupBox4 - + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + TabPage5 - - 18 + + 14 True @@ -2136,59 +1944,32 @@ der Wertänderungen nutzen wollen: 1 - - 17, 56 - - - MOVE2FOLDERTextBox + + Tahoma, 9.75pt - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 280, 257 - - GroupBox3 + + 420, 71 - - 0 + + 74 - - btnmovetoFolderDialog + + Type: - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + GroupBox2 - - 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 - - TabPage11 + + TabPage5 - - 1 + + 18 Segoe UI, 9pt @@ -2241,6 +2022,33 @@ 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 + + + 1 + Tahoma, 9.75pt @@ -2560,7 +2368,7 @@ der Wertänderungen nutzen wollen: 16 - 999, 17 + 1188, 17 windream-Suche|*.wdf|Alle Dateien|*.* @@ -2574,669 +2382,12 @@ der Wertänderungen nutzen wollen: 399, 56 - - tabctrl_Profilkonfig - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 0 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1272, 592 - - - 0 - - - Profil-Verwaltung - - - TabPage1 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 0 - - - Fill - - - 3, 3 - - - Fill - - - 0, 25 - - - True - - - 0 - - - True - - - 1 - - - 348, 561 - - - 2 - - - gridAvailableProfiles - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - SplitContainerProfilzuordnung.Panel1 - - - 1 - - - Top - - - 0, 0 - - - 348, 25 - - - 3 - - - Verfügbare Profile: - - - MiddleLeft - - - Label21 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerProfilzuordnung.Panel1 - - - 2 - - - SplitContainerProfilzuordnung.Panel1 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerProfilzuordnung - - - 0 - - - 4, 25 - - - 3, 3, 3, 3 - - - 906, 557 - - - 0 - - - Benutzer - - - TabPage7 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl3 - - - 0 - - - 4, 25 - - - 3, 3, 3, 3 - - - 906, 557 - - - 1 - - - Gruppen - - - TabPage8 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl3 - - - 1 - - - Fill - - - 0, 0 - - - 914, 586 - - - 1 - - - TabControl3 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerProfilzuordnung.Panel2 - - - 0 - - - SplitContainerProfilzuordnung.Panel2 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainerProfilzuordnung - - - 1 - - - 1266, 586 - - - 348 - - - 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 und Userverwaltung - - - TabPage2 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 1 - - - Button2 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 0 - - - VEKTOR_DELIMITERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 2 - - - btnConnections - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 3 - - - btnopen_SQLAdmin - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 4 - - - EMAIL_ACTIVECheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 5 - - - grpbxEmail - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 6 - - - btnlicensemanager_open - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 7 - - - INTERVALL_CKECK_NO_OF_FILESNumericUpDown - - - System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 9 - - - Label3 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 10 - - - GEAENDERTWERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 12 - - - GEAENDERTWANNTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 14 - - - btnSaveKonfig - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 15 - - - 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 - - - 583, 95 - - - 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 - Top, Bottom, Left, Right - - TabPage5 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tabctrl_Profilkonfig - - - 0 - - - TabPage6 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tabctrl_Profilkonfig - - - 1 - - - tabCustomColumns - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tabctrl_Profilkonfig - - - 2 - - - 9, 77 - - - 1257, 509 - - - 79 - - - tabctrl_Profilkonfig - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 0 - True - - GridControl1 - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - TabPage5 - - - 0 - - - Button3 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 1 - - - cmbLOGIndex - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 2 - - - PM_VEKTOR_INDEXComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 4 - - - SORT_BY_LATESTCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 7 - - - Tahoma, 9.75pt, style=Bold - - - 4, 25 - - - 3, 3, 3, 3 - - - 1249, 480 - - - 0 - - - Allgemeine Profilangaben: - - - TabPage5 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tabctrl_Profilkonfig - - - 0 - 6, 12 @@ -3387,197 +2538,38 @@ der Wertänderungen nutzen wollen: 7 - - True + + Tahoma, 9.75pt, style=Bold - - TabControl2 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 0 - - + 4, 25 - + 3, 3, 3, 3 - + 1249, 480 - - 1 + + 0 - - Aktionen nach erfolgreicher Indexierung: + + Allgemeine Profilangaben: - - TabPage6 + + TabPage5 - + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + tabctrl_Profilkonfig - - 1 - - - TabPage11 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl2 - - + 0 - - TabPage12 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl2 - - - 1 - - - Fill - - - 3, 3 - - - 1243, 474 - - - 92 - - - TabControl2 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 0 - - - 17, 95 - - - Label13 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 0 - - - TabControlFinalIndices - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 2 - - - Label5 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 3 - - - Label6 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 4 - - - TBPM_PROFILE_FINAL_INDEXINGBindingNavigator - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 5 - - - TBPM_PROFILE_FINAL_INDEXINGDataGridView - - - System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 6 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1235, 445 - - - 0 - - - Move und finale Indexe - - - TabPage11 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl2 - - - 0 + + True True @@ -3612,237 +2604,6 @@ der Wertänderungen nutzen wollen: Top, Bottom, Left, Right - - TabPage9 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlFinalIndices - - - 0 - - - TabPage10 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlFinalIndices - - - 1 - - - False - - - 668, 161 - - - 1609, 680 - - - 90 - - - TabControlFinalIndices - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 2 - - - CheckBoxPMVEKTOR - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 0 - - - lblSaveFinalIndex - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 1 - - - lblIndexPMVektor - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 2 - - - Label11 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 3 - - - txtBezeichner - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 4 - - - Label10 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 5 - - - cmbIndexe - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 6 - - - Label9 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 7 - - - lblIndex - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 8 - - - grbxSystemStamps - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 9 - - - txtindexwert_final - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 10 - - - btnInsert_FinalIndex - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 11 - - - chkbxfinalIndex - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 12 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1601, 651 - - - 0 - - - Fester Wert - - - TabPage9 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlFinalIndices - - - 0 - True @@ -4083,57 +2844,6 @@ der Wertänderungen nutzen wollen: 8 - - btnStampDate - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grbxSystemStamps - - - 0 - - - btnStampUser - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grbxSystemStamps - - - 1 - - - 298, 52 - - - 153, 80 - - - 83 - - - System-Stamps - - - False - - - grbxSystemStamps - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage9 - - - 9 - MiddleLeft @@ -4194,6 +2904,33 @@ der Wertänderungen nutzen wollen: 1 + + 298, 52 + + + 153, 80 + + + 83 + + + System-Stamps + + + False + + + grbxSystemStamps + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage9 + + + 9 + 27, 74 @@ -4275,143 +3012,35 @@ der Wertänderungen nutzen wollen: 12 - - True - - - btnEditor - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 0 - - - Label15 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 1 - - - cmbIndexe2 - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 2 - - - btnSaveSQLCommand - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 3 - - - SQL_COMMANDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 4 - - - btnShowConnections - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 5 - - - Label14 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 6 - - - cmbConnection - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 7 - - - Label4 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage10 - - - 8 - - + 4, 25 - + 3, 3, 3, 3 - - 1601, 654 + + 1601, 663 - - 1 + + 0 - - Dynamisches SQL + + Fester Wert - - TabPage10 + + TabPage9 - + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + TabControlFinalIndices - - 1 + + 0 + + + True @@ -4542,7 +3171,7 @@ der Wertänderungen nutzen wollen: 3 - 245, 173 + 245, 134 Courier New, 9pt @@ -4571,9 +3200,6 @@ der Wertänderungen nutzen wollen: 4 - - 245, 173 - Tahoma, 9.75pt @@ -4638,7 +3264,7 @@ der Wertänderungen nutzen wollen: 6 - 775, 212 + 502, 173 Tahoma, 9.75pt @@ -4664,9 +3290,6 @@ der Wertänderungen nutzen wollen: 7 - - 775, 212 - True @@ -4694,6 +3317,57 @@ der Wertänderungen nutzen wollen: 8 + + 4, 25 + + + 3, 3, 3, 3 + + + 1601, 666 + + + 1 + + + Dynamisches SQL + + + TabPage10 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControlFinalIndices + + + 1 + + + False + + + 668, 161 + + + 1609, 692 + + + 90 + + + TabControlFinalIndices + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage11 + + + 2 + True @@ -4755,7 +3429,7 @@ der Wertänderungen nutzen wollen: 4 - 17, 95 + 765, 56 44, 22 @@ -4932,33 +3606,9 @@ der Wertänderungen nutzen wollen: 5 - - True - Top, Bottom, Left - - 9, 161 - - - 653, 698 - - - 75 - - - TBPM_PROFILE_FINAL_INDEXINGDataGridView - - - System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 6 - True @@ -4977,83 +3627,56 @@ der Wertänderungen nutzen wollen: Erstellt wann - - True + + 9, 161 - - ANNOTATE_WORK_HISTORY_ENTRYCheckBox + + 653, 710 - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 75 - - TabPage12 + + TBPM_PROFILE_FINAL_INDEXINGDataGridView - - 0 + + System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox + + TabPage11 - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 6 - - TabPage12 - - - 1 - - - SQL_VIEWTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 3 - - - WORK_HISTORY_ENTRYTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 5 - - + 4, 25 - + 3, 3, 3, 3 - - 1235, 448 + + 1235, 445 - - 1 + + 0 - - Nachbearbeitungsfunktionen 2 + + Move und finale Indexe - - TabPage12 + + TabPage11 - + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + TabControl2 - - 1 + + 0 + + + True 291, 336 @@ -5151,131 +3774,83 @@ der Wertänderungen nutzen wollen: 5 - - 1258, 212 - - - ComboBox1 - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tabCustomColumns - - - 0 - - - Label18 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tabCustomColumns - - - 1 - - - Label17 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tabCustomColumns - - - 2 - - - TextBox3 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tabCustomColumns - - - 3 - - - TextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tabCustomColumns - - - 4 - - - Label16 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tabCustomColumns - - - 5 - - - BindingNavigator1 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tabCustomColumns - - - 6 - - - gridColumns - - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - tabCustomColumns - - - 7 - - + 4, 25 - + 3, 3, 3, 3 - - 1249, 480 + + 1235, 448 - - 2 + + 1 - - Benutzerdefinierte Spalten: + + Nachbearbeitungsfunktionen 2 - - tabCustomColumns + + TabPage12 - + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + + TabControl2 + + + 1 + + + Fill + + + 3, 3 + + + 1243, 474 + + + 92 + + + TabControl2 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage6 + + + 0 + + + 4, 25 + + + 3, 3, 3, 3 + + + 1249, 480 + + + 1 + + + Aktionen nach erfolgreicher Indexierung: + + + TabPage6 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + tabctrl_Profilkonfig - - 2 + + 1 455, 94 @@ -5425,7 +4000,7 @@ der Wertänderungen nutzen wollen: 5 - 1258, 212 + 984, 173 @@ -5623,6 +4198,309 @@ der Wertänderungen nutzen wollen: 7 + + 4, 25 + + + 3, 3, 3, 3 + + + 1249, 480 + + + 2 + + + Benutzerdefinierte Spalten: + + + tabCustomColumns + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + tabctrl_Profilkonfig + + + 2 + + + 9, 77 + + + 1257, 509 + + + 79 + + + tabctrl_Profilkonfig + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 0 + + + 4, 25 + + + 3, 3, 3, 3 + + + 1272, 592 + + + 0 + + + Profil-Verwaltung + + + TabPage1 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 0 + + + Fill + + + 3, 3 + + + Fill + + + 0, 25 + + + Name + + + True + + + 1 + + + Beschreibung + + + True + + + 0 + + + 348, 561 + + + 2 + + + gridAvailableProfiles + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + SplitContainerProfilzuordnung.Panel1 + + + 1 + + + Top + + + 0, 0 + + + 348, 25 + + + 3 + + + Verfügbare Profile: + + + MiddleLeft + + + Label21 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerProfilzuordnung.Panel1 + + + 2 + + + SplitContainerProfilzuordnung.Panel1 + + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerProfilzuordnung + + + 0 + + + 4, 25 + + + 3, 3, 3, 3 + + + 906, 557 + + + 0 + + + Benutzer + + + TabPage7 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl3 + + + 0 + + + 4, 25 + + + 3, 3, 3, 3 + + + 906, 557 + + + 1 + + + Gruppen + + + TabPage8 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl3 + + + 1 + + + Fill + + + 0, 0 + + + 914, 586 + + + 1 + + + TabControl3 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerProfilzuordnung.Panel2 + + + 0 + + + SplitContainerProfilzuordnung.Panel2 + + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainerProfilzuordnung + + + 1 + + + 1266, 586 + + + 348 + + + 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 + MiddleLeft @@ -5654,7 +4532,7 @@ der Wertänderungen nutzen wollen: 0 - 403, 134 + 457, 95 182, 61 @@ -5677,9 +4555,6 @@ der Wertänderungen nutzen wollen: 2 - - 403, 134 - MiddleLeft @@ -5764,177 +4639,6 @@ der Wertänderungen nutzen wollen: 5 - - 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 - - - 6 - - - 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 @@ -6016,6 +4720,30 @@ 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 @@ -6148,6 +4876,33 @@ 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 + + + 6 + MiddleLeft @@ -6298,6 +5053,33 @@ der Wertänderungen nutzen wollen: 15 + + 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 @@ -6314,7 +5096,7 @@ der Wertänderungen nutzen wollen: Wann - 1040, 134 + 1094, 95 Fill @@ -6341,7 +5123,7 @@ der Wertänderungen nutzen wollen: 0 - 583, 95 + 1092, 56 44, 22 @@ -6497,12 +5279,69 @@ 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 + - 860, 173 + 860, 134 - 923, 134 + 977, 95 + + 16, 17 + + + False + 0, 621 @@ -6527,20 +5366,14 @@ der Wertänderungen nutzen wollen: 1 - - 16, 17 - - - False - - 1056, 95 + 240, 95 - - 213, 134 + + 17, 17 - 666, 134 + 720, 95 Fill @@ -6567,28 +5400,34 @@ der Wertänderungen nutzen wollen: 0 - 17, 173 + 17, 134 - 555, 173 + 555, 134 - 17, 212 + 1139, 134 - 290, 212 + 17, 173 - 535, 212 + 262, 173 - 1020, 212 + 746, 173 + + + 17, 212 + + + 460, 212 True - 182 + 270 7, 16 @@ -6706,12 +5545,6 @@ der Wertänderungen nutzen wollen: DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - colGUID2 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - colPRENAME1 @@ -6730,18 +5563,6 @@ der Wertänderungen nutzen wollen: DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - colADDED_WHO1 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colADDED_WHEN1 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - TBDD_USERBindingSource @@ -6754,12 +5575,6 @@ der Wertänderungen nutzen wollen: DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - colGUID1 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - colPRENAME @@ -6784,29 +5599,11 @@ der Wertänderungen nutzen wollen: DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - colADDED_WHO + + TBPROFILE_GROUPBindingSource - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colADDED_WHEN - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colCHANGED_WHO - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - colCHANGED_WHEN - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 viewAssignedGroups @@ -6814,41 +5611,23 @@ der Wertänderungen nutzen wollen: DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - GridColumn1 + + colNAME5 - + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - GridColumn2 + + colCOMMENT1 - + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - GridColumn3 + + TBDD_GROUPSBindingSource - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridColumn4 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridColumn5 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridColumn6 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 viewAvailableGroups @@ -6856,58 +5635,16 @@ der Wertänderungen nutzen wollen: DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - GridColumn7 + + colNAME4 - + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - GridColumn8 + + colCOMMENT - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridColumn9 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridColumn10 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridColumn11 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridColumn12 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridColumn13 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridColumn14 - - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - GridColumn15 - - + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -7282,10 +6019,10 @@ der Wertänderungen nutzen wollen: DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - colGUID + + colDESCRIPTION - + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -7414,10 +6151,10 @@ der Wertänderungen nutzen wollen: DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPROFILE_USERTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - TBPM_USERTableAdapter + + TBDD_USERTableAdapter - + DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null @@ -7462,6 +6199,24 @@ der Wertänderungen nutzen wollen: DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + TBDD_GROUPSTableAdapter + + + DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GROUPSTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + TBPROFILE_GROUPTableAdapter + + + DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPROFILE_GROUPTableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + colEMAIL1 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + frmProfileDesigner diff --git a/app/DD_PM_WINDREAM/frmProfileDesigner.vb b/app/DD_PM_WINDREAM/frmProfileDesigner.vb index 7af7e03..909881c 100644 --- a/app/DD_PM_WINDREAM/frmProfileDesigner.vb +++ b/app/DD_PM_WINDREAM/frmProfileDesigner.vb @@ -32,19 +32,24 @@ Public Class frmProfileDesigner TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString TBPM_TYPETableAdapter.Connection.ConnectionString = MyConnectionString - TBPM_USERTableAdapter.Connection.ConnectionString = MyConnectionString + TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString + TBDD_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString TBPROFILE_USERTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBPM_ERROR_LOGTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = MyConnectionString + TBPROFILE_GROUPTableAdapter.Connection.ConnectionString = MyConnectionString + TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = MyConnectionString + TBPM_ERROR_LOGTableAdapter.Connection.ConnectionString = MyConnectionString + TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = MyConnectionString TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBDD_CONNECTIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_CONNECTION) + TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = MyConnectionString + TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION) Refresh_Profildaten() Dim dragDropManager = New ClassDragDrop() dragDropManager.AddGridView(viewAssignedUsers) dragDropManager.AddGridView(viewAvailableUsers) + dragDropManager.AddGridView(viewAvailableGroups) + dragDropManager.AddGridView(viewAssignedGroups) + Catch ex As Exception MsgBox("Fehler bei Laden der Wertehilfen und Konfig-Daten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") End Try @@ -108,12 +113,13 @@ Public Class frmProfileDesigner End Sub Sub Refresh_Profildaten() Try - Me.TBPM_PROFILETableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_PROFILE) - Me.TBPM_TYPETableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_TYPE) - Me.TBPM_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_KONFIGURATION) + TBPM_PROFILETableAdapter.Fill(DD_DMSLiteDataSet.TBPM_PROFILE) + TBPM_TYPETableAdapter.Fill(DD_DMSLiteDataSet.TBPM_TYPE) + TBPM_KONFIGURATIONTableAdapter.Fill(DD_DMSLiteDataSet.TBPM_KONFIGURATION) 'Me.TBPM_USERTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_USER) - TBPM_USERTableAdapter.FillByProfileId_NotAssigned(Me.DD_DMSLiteDataSet.TBDD_USER, PROFILGUIDTextBox.Text) + 'TBDD_USERTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_USER, PROFILGUIDTextBox.Text) + 'TBDD_GROUPSTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_GROUPS, PROFILGUIDTextBox.Text) If tabctrl_Profilkonfig.SelectedIndex = 1 Then CURRENT_OBJECTTYPE = cmbObjekttypen.Text @@ -253,16 +259,15 @@ Public Class frmProfileDesigner Private Sub ADDED_WHOLabel_Click(sender As System.Object, e As System.EventArgs) End Sub - Sub FillProfile_User(ID As Integer) + Sub FillProfile_User(profileId As Integer) Try - Dim profileId As Integer = GetCurrentProfileId() - If Not IsNothing(profileId) Then - TBPROFILE_USERTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPROFILE_USER, ID) - TBPM_USERTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_USER, profileId) - + TBPROFILE_USERTableAdapter.Fill(DD_DMSLiteDataSet.TBPROFILE_USER, profileId) + TBPROFILE_GROUPTableAdapter.Fill(DD_DMSLiteDataSet.TBPROFILE_GROUP, profileId) + TBDD_USERTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_USER, profileId) + TBDD_GROUPSTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_GROUPS, profileId) End If - Catch ex As System.Exception + Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der User zu Profil:") End Try @@ -315,7 +320,7 @@ Public Class frmProfileDesigner Dim userId As Integer = data.Split("|")(0) Dim profileId = GetCurrentProfileId() - TBPROFILE_USERTableAdapter.cmdDelete(userId) + TBPROFILE_USERTableAdapter.CmdDelete(profileId, userId) FillProfile_User(profileId) Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Entfernen eines Users:") @@ -325,9 +330,11 @@ Public Class frmProfileDesigner Private Sub gridAssignedGroups_DragDrop(sender As Object, e As DragEventArgs) Handles gridAssignedGroups.DragDrop Try Dim data As String = e.Data.GetData(DataFormats.Text) - Dim userId As Integer = data.Split("|")(0) + Dim groupId As Integer = data.Split("|")(0) Dim profileId = GetCurrentProfileId() + + TBPROFILE_GROUPTableAdapter.CmdInsert(profileId, groupId, Environment.UserName) ' TBPROFILE_USERTableAdapter.CMDInsert(profileId, userId, Environment.UserName) FillProfile_User(profileId) Catch ex As Exception @@ -338,9 +345,11 @@ Public Class frmProfileDesigner Private Sub gridAvailableGroups_DragDrop(sender As Object, e As DragEventArgs) Handles gridAvailableGroups.DragDrop Try Dim data As String = e.Data.GetData(DataFormats.Text) - Dim userId As Integer = data.Split("|")(0) + Dim groupId As Integer = data.Split("|")(0) Dim profileId = GetCurrentProfileId() + + TBPROFILE_GROUPTableAdapter.CmdDelete(profileId, groupId) 'TBPROFILE_USERTableAdapter.cmdDelete(userId) FillProfile_User(profileId) Catch ex As Exception @@ -348,16 +357,16 @@ Public Class frmProfileDesigner End Try End Sub - Private Sub BindingNavigatorDeleteItem_Click(sender As System.Object, e As System.EventArgs) - If viewAssignedUsers.GetSelectedRows().Length > 0 Then - For Each rowHandle In viewAssignedUsers.GetSelectedRows() - Dim rowView As DataRowView = viewAssignedUsers.GetRow(rowHandle) - Dim userId As Integer = rowView.Item("GUID") + 'Private Sub BindingNavigatorDeleteItem_Click(sender As System.Object, e As System.EventArgs) + ' If viewAssignedUsers.GetSelectedRows().Length > 0 Then + ' For Each rowHandle In viewAssignedUsers.GetSelectedRows() + ' Dim rowView As DataRowView = viewAssignedUsers.GetRow(rowHandle) + ' Dim userId As Integer = rowView.Item("GUID") - TBPROFILE_USERTableAdapter.cmdDelete(userId) - Next - End If - End Sub + ' TBPROFILE_USERTableAdapter.cmdDelete(userId) + ' Next + ' End If + 'End Sub Private Sub btnlicensemanager_open_Click(sender As System.Object, e As System.EventArgs) Handles btnlicensemanager_open.Click frmLicense.ShowDialog() @@ -405,6 +414,8 @@ Public Class frmProfileDesigner Private Sub TabControl1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles TabControl1.SelectedIndexChanged Select Case TabControl1.SelectedIndex + Case 1 + FillProfile_User(PROFILGUIDTextBox.Text) Case 3 Refresh_log() End Select @@ -635,15 +646,16 @@ Public Class frmProfileDesigner ' wenn Speichern ja If result = MsgBoxResult.Yes Then Try - Dim ID = PROFILGUIDTextBox.Text - Dim del As String = "delete from TBPM_CONTROL_TABLE where CONTROL_ID in (SELECT GUID FROM TBPM_PROFILE_CONTROLS where PROFIL_ID = " & ID & ")" + Dim profileID = PROFILGUIDTextBox.Text + Dim del As String = "delete from TBPM_CONTROL_TABLE where CONTROL_ID in (SELECT GUID FROM TBPM_PROFILE_CONTROLS where PROFIL_ID = " & profileID & ")" ClassDatabase.Execute_non_Query(del) - TBPM_ERROR_LOGTableAdapter.DeletePROFIL(ID) - TBPM_PROFILE_FILESTableAdapter.cmdDeleteProfilData(ID) - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdDelete_ProfilID(ID) - TBPM_PROFILE_CONTROLSTableAdapter.cmdDeleteProfil(ID) - TBPROFILE_USERTableAdapter.CmdDelete_ProfilID(ID) - TBPM_PROFILETableAdapter.cmdDelete(ID) + TBPM_ERROR_LOGTableAdapter.DeletePROFIL(profileID) + TBPM_PROFILE_FILESTableAdapter.cmdDeleteProfilData(profileID) + TBPM_PROFILE_FINAL_INDEXINGTableAdapter.CmdDelete_ProfilID(profileID) + TBPM_PROFILE_CONTROLSTableAdapter.cmdDeleteProfil(profileID) + TBPROFILE_USERTableAdapter.cmdDeleteAllForProfile(profileID) + TBPROFILE_GROUPTableAdapter.CmdDeleteAllForProfile(profileID) + TBPM_PROFILETableAdapter.cmdDelete(profileID) MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung") Refresh_Profildaten() Catch ex As Exception @@ -756,7 +768,7 @@ Public Class frmProfileDesigner End Sub Sub Load_User() Try - Me.TBPM_USERTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_USER) + Me.TBDD_USERTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_USER) Catch ex As Exception MsgBox("Fehler bei LoadUsers: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler:") End Try @@ -901,6 +913,4 @@ Public Class frmProfileDesigner Private Sub btnUserManager_Click(sender As Object, e As EventArgs) Handles btnUserManager.Click End Sub - - End Class \ No newline at end of file