diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb index c75be0a..06ba32e 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 tableTBPROFILE_GROUP As TBPROFILE_GROUPDataTable + Private tableFNPM_GET_FREE_USER_FOR_PROFILE As FNPM_GET_FREE_USER_FOR_PROFILEDataTable + 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("TBPROFILE_GROUP")) Is Nothing) Then MyBase.Tables.Add(New TBPROFILE_GROUPDataTable(ds.Tables("TBPROFILE_GROUP"))) End If + If (Not (ds.Tables("FNPM_GET_FREE_USER_FOR_PROFILE")) Is Nothing) Then + MyBase.Tables.Add(New FNPM_GET_FREE_USER_FOR_PROFILEDataTable(ds.Tables("FNPM_GET_FREE_USER_FOR_PROFILE"))) + 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 FNPM_GET_FREE_USER_FOR_PROFILE() As FNPM_GET_FREE_USER_FOR_PROFILEDataTable + Get + Return Me.tableFNPM_GET_FREE_USER_FOR_PROFILE + End Get + End Property + _ + Private Function ShouldSerializeFNPM_GET_FREE_USER_FOR_PROFILE() As Boolean + Return false + End Function + _ Private Function ShouldSerializeTBWH_CONNECTION() As Boolean @@ -857,6 +889,9 @@ Partial Public Class DD_DMSLiteDataSet _ Public Delegate Sub TBPROFILE_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPROFILE_GROUPRowChangeEvent) + _ + Public Delegate Sub FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent) + _ Public Delegate Sub TBWH_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_CONNECTIONRowChangeEvent) @@ -7693,6 +7728,374 @@ Partial Public Class DD_DMSLiteDataSet End Function End Class + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class FNPM_GET_FREE_USER_FOR_PROFILEDataTable + Inherits Global.System.Data.TypedTableBase(Of FNPM_GET_FREE_USER_FOR_PROFILERow) + + Private columnSequentialOrder As Global.System.Data.DataColumn + + Private columnUSER_ID As Global.System.Data.DataColumn + + Private columnUSER_NAME As Global.System.Data.DataColumn + + Private columnUSER_PRENAME As Global.System.Data.DataColumn + + Private columnUSER_SURNAME As Global.System.Data.DataColumn + + Private columnUSER_SHORTNAME As Global.System.Data.DataColumn + + Private columnUSER_EMAIL As Global.System.Data.DataColumn + + Private columnUSER_LANGUAGE As Global.System.Data.DataColumn + + Private columnUSER_COMMENT As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "FNPM_GET_FREE_USER_FOR_PROFILE" + 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 SequentialOrderColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSequentialOrder + End Get + End Property + + _ + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_ID + End Get + End Property + + _ + Public ReadOnly Property USER_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_NAME + End Get + End Property + + _ + Public ReadOnly Property USER_PRENAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_PRENAME + End Get + End Property + + _ + Public ReadOnly Property USER_SURNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_SURNAME + End Get + End Property + + _ + Public ReadOnly Property USER_SHORTNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_SHORTNAME + End Get + End Property + + _ + Public ReadOnly Property USER_EMAILColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_EMAIL + End Get + End Property + + _ + Public ReadOnly Property USER_LANGUAGEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_LANGUAGE + End Get + End Property + + _ + Public ReadOnly Property USER_COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_COMMENT + 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 FNPM_GET_FREE_USER_FOR_PROFILERow + Get + Return CType(Me.Rows(index),FNPM_GET_FREE_USER_FOR_PROFILERow) + End Get + End Property + + _ + Public Event FNPM_GET_FREE_USER_FOR_PROFILERowChanging As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler + + _ + Public Event FNPM_GET_FREE_USER_FOR_PROFILERowChanged As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler + + _ + Public Event FNPM_GET_FREE_USER_FOR_PROFILERowDeleting As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler + + _ + Public Event FNPM_GET_FREE_USER_FOR_PROFILERowDeleted As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler + + _ + Public Overloads Sub AddFNPM_GET_FREE_USER_FOR_PROFILERow(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddFNPM_GET_FREE_USER_FOR_PROFILERow(ByVal USER_ID As Integer, ByVal USER_NAME As String, ByVal USER_PRENAME As String, ByVal USER_SURNAME As String, ByVal USER_SHORTNAME As String, ByVal USER_EMAIL As String, ByVal USER_LANGUAGE As String, ByVal USER_COMMENT As String) As FNPM_GET_FREE_USER_FOR_PROFILERow + Dim rowFNPM_GET_FREE_USER_FOR_PROFILERow As FNPM_GET_FREE_USER_FOR_PROFILERow = CType(Me.NewRow,FNPM_GET_FREE_USER_FOR_PROFILERow) + Dim columnValuesArray() As Object = New Object() {Nothing, USER_ID, USER_NAME, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_LANGUAGE, USER_COMMENT} + rowFNPM_GET_FREE_USER_FOR_PROFILERow.ItemArray = columnValuesArray + Me.Rows.Add(rowFNPM_GET_FREE_USER_FOR_PROFILERow) + Return rowFNPM_GET_FREE_USER_FOR_PROFILERow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As FNPM_GET_FREE_USER_FOR_PROFILEDataTable = CType(MyBase.Clone,FNPM_GET_FREE_USER_FOR_PROFILEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New FNPM_GET_FREE_USER_FOR_PROFILEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnSequentialOrder = MyBase.Columns("SequentialOrder") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnUSER_NAME = MyBase.Columns("USER_NAME") + Me.columnUSER_PRENAME = MyBase.Columns("USER_PRENAME") + Me.columnUSER_SURNAME = MyBase.Columns("USER_SURNAME") + Me.columnUSER_SHORTNAME = MyBase.Columns("USER_SHORTNAME") + Me.columnUSER_EMAIL = MyBase.Columns("USER_EMAIL") + Me.columnUSER_LANGUAGE = MyBase.Columns("USER_LANGUAGE") + Me.columnUSER_COMMENT = MyBase.Columns("USER_COMMENT") + End Sub + + _ + Private Sub InitClass() + Me.columnSequentialOrder = New Global.System.Data.DataColumn("SequentialOrder", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSequentialOrder) + Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_ID) + Me.columnUSER_NAME = New Global.System.Data.DataColumn("USER_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_NAME) + Me.columnUSER_PRENAME = New Global.System.Data.DataColumn("USER_PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_PRENAME) + Me.columnUSER_SURNAME = New Global.System.Data.DataColumn("USER_SURNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_SURNAME) + Me.columnUSER_SHORTNAME = New Global.System.Data.DataColumn("USER_SHORTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_SHORTNAME) + Me.columnUSER_EMAIL = New Global.System.Data.DataColumn("USER_EMAIL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_EMAIL) + Me.columnUSER_LANGUAGE = New Global.System.Data.DataColumn("USER_LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_LANGUAGE) + Me.columnUSER_COMMENT = New Global.System.Data.DataColumn("USER_COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_COMMENT) + Me.columnSequentialOrder.AutoIncrement = true + Me.columnSequentialOrder.AutoIncrementSeed = -1 + Me.columnSequentialOrder.AutoIncrementStep = -1 + Me.columnSequentialOrder.AllowDBNull = false + Me.columnSequentialOrder.ReadOnly = true + Me.columnUSER_NAME.MaxLength = 50 + Me.columnUSER_PRENAME.MaxLength = 50 + Me.columnUSER_SURNAME.MaxLength = 50 + Me.columnUSER_SHORTNAME.MaxLength = 50 + Me.columnUSER_EMAIL.MaxLength = 100 + Me.columnUSER_LANGUAGE.MaxLength = 10 + Me.columnUSER_COMMENT.MaxLength = 500 + End Sub + + _ + Public Function NewFNPM_GET_FREE_USER_FOR_PROFILERow() As FNPM_GET_FREE_USER_FOR_PROFILERow + Return CType(Me.NewRow,FNPM_GET_FREE_USER_FOR_PROFILERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New FNPM_GET_FREE_USER_FOR_PROFILERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(FNPM_GET_FREE_USER_FOR_PROFILERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowChangedEvent) Is Nothing) Then + RaiseEvent FNPM_GET_FREE_USER_FOR_PROFILERowChanged(Me, New FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent(CType(e.Row,FNPM_GET_FREE_USER_FOR_PROFILERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowChangingEvent) Is Nothing) Then + RaiseEvent FNPM_GET_FREE_USER_FOR_PROFILERowChanging(Me, New FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent(CType(e.Row,FNPM_GET_FREE_USER_FOR_PROFILERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowDeletedEvent) Is Nothing) Then + RaiseEvent FNPM_GET_FREE_USER_FOR_PROFILERowDeleted(Me, New FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent(CType(e.Row,FNPM_GET_FREE_USER_FOR_PROFILERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowDeletingEvent) Is Nothing) Then + RaiseEvent FNPM_GET_FREE_USER_FOR_PROFILERowDeleting(Me, New FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent(CType(e.Row,FNPM_GET_FREE_USER_FOR_PROFILERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveFNPM_GET_FREE_USER_FOR_PROFILERow(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow) + 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 = "FNPM_GET_FREE_USER_FOR_PROFILEDataTable" + 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. ''' @@ -12118,6 +12521,257 @@ Partial Public Class DD_DMSLiteDataSet End Sub End Class + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class FNPM_GET_FREE_USER_FOR_PROFILERow + Inherits Global.System.Data.DataRow + + Private tableFNPM_GET_FREE_USER_FOR_PROFILE As FNPM_GET_FREE_USER_FOR_PROFILEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableFNPM_GET_FREE_USER_FOR_PROFILE = CType(Me.Table,FNPM_GET_FREE_USER_FOR_PROFILEDataTable) + End Sub + + _ + Public Property SequentialOrder() As Integer + Get + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.SequentialOrderColumn),Integer) + End Get + Set + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.SequentialOrderColumn) = value + End Set + End Property + + _ + Public Property USER_ID() As Integer + Get + Try + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_ID in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DBNull."& _ + "", e) + End Try + End Get + Set + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) = value + End Set + End Property + + _ + Public Property USER_NAME() As String + Get + Try + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_NAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) = value + End Set + End Property + + _ + Public Property USER_PRENAME() As String + Get + Try + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_PRENAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) = value + End Set + End Property + + _ + Public Property USER_SURNAME() As String + Get + Try + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_SURNAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) = value + End Set + End Property + + _ + Public Property USER_SHORTNAME() As String + Get + Try + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_SHORTNAME in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist "& _ + "DBNull.", e) + End Try + End Get + Set + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) = value + End Set + End Property + + _ + Public Property USER_EMAIL() As String + Get + Try + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_EMAIL in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) = value + End Set + End Property + + _ + Public Property USER_LANGUAGE() As String + Get + Try + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_LANGUAGE in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist D"& _ + "BNull.", e) + End Try + End Get + Set + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) = value + End Set + End Property + + _ + Public Property USER_COMMENT() As String + Get + Try + Return CType(Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USER_COMMENT in Tabelle FNPM_GET_FREE_USER_FOR_PROFILE ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) = value + End Set + End Property + + _ + Public Function IsUSER_IDNull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) + End Function + + _ + Public Sub SetUSER_IDNull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSER_NAMENull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) + End Function + + _ + Public Sub SetUSER_NAMENull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSER_PRENAMENull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) + End Function + + _ + Public Sub SetUSER_PRENAMENull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_PRENAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSER_SURNAMENull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) + End Function + + _ + Public Sub SetUSER_SURNAMENull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SURNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSER_SHORTNAMENull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) + End Function + + _ + Public Sub SetUSER_SHORTNAMENull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_SHORTNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSER_EMAILNull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) + End Function + + _ + Public Sub SetUSER_EMAILNull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_EMAILColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSER_LANGUAGENull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) + End Function + + _ + Public Sub SetUSER_LANGUAGENull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_LANGUAGEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSER_COMMENTNull() As Boolean + Return Me.IsNull(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) + End Function + + _ + Public Sub SetUSER_COMMENTNull() + Me(Me.tableFNPM_GET_FREE_USER_FOR_PROFILE.USER_COMMENTColumn) = Global.System.Convert.DBNull + End Sub + End Class + ''' '''Represents strongly named DataRow class. ''' @@ -12997,6 +13651,42 @@ Partial Public Class DD_DMSLiteDataSet End Property End Class + ''' + '''Row event argument class + ''' + _ + Public Class FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As FNPM_GET_FREE_USER_FOR_PROFILERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As FNPM_GET_FREE_USER_FOR_PROFILERow + 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 ''' @@ -21114,6 +21804,192 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function End Class + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class FNPM_GET_FREE_USER_FOR_PROFILETableAdapter + 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 = "FNPM_GET_FREE_USER_FOR_PROFILE" + tableMapping.ColumnMappings.Add("SequentialOrder", "SequentialOrder") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("USER_NAME", "USER_NAME") + tableMapping.ColumnMappings.Add("USER_PRENAME", "USER_PRENAME") + tableMapping.ColumnMappings.Add("USER_SURNAME", "USER_SURNAME") + tableMapping.ColumnMappings.Add("USER_SHORTNAME", "USER_SHORTNAME") + tableMapping.ColumnMappings.Add("USER_EMAIL", "USER_EMAIL") + tableMapping.ColumnMappings.Add("USER_LANGUAGE", "USER_LANGUAGE") + tableMapping.ColumnMappings.Add("USER_COMMENT", "USER_COMMENT") + 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(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT SequentialOrder, USER_ID, USER_NAME, USER_PRENAME, USER_SURNAME, US"& _ + "ER_SHORTNAME, USER_EMAIL, USER_LANGUAGE, USER_COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM dbo.FNPM_"& _ + "GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE_USER_FOR_PROFILE_1" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_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 PROFILE_ID As Integer) As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim dataTable As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable = New DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd index b0ef405..262d7f2 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd @@ -2018,6 +2018,33 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) + + + + + + SELECT SequentialOrder, USER_ID, USER_NAME, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_LANGUAGE, USER_COMMENT +FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE_USER_FOR_PROFILE_1 + + + + + + + + + + + + + + + + + + + + @@ -3001,6 +3028,63 @@ VALUES (@PROFIL_ID,@GROUP_ID,@WHO) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss index 3e417d5..ba56707 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 @@ - + 1248 @@ -77,7 +78,7 @@ - + 141 diff --git a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb index 053388c..fba71e2 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb @@ -64,7 +64,7 @@ Partial Class frmAdministration Me.Panel1 = New System.Windows.Forms.Panel() Me.Label20 = New System.Windows.Forms.Label() Me.gridAvailableUsers = New DevExpress.XtraGrid.GridControl() - Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.FNPM_GET_FREE_USER_FOR_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.viewAvailableUsers = New DevExpress.XtraGrid.Views.Grid.GridView() Me.colPRENAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME2 = New DevExpress.XtraGrid.Columns.GridColumn() @@ -89,6 +89,7 @@ Partial Class frmAdministration Me.colCOMMENT = New DevExpress.XtraGrid.Columns.GridColumn() Me.Panel4 = New System.Windows.Forms.Panel() Me.Label23 = New System.Windows.Forms.Label() + Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() @@ -262,6 +263,7 @@ Partial Class frmAdministration Me.TBDD_GROUPSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_GROUPSTableAdapter() Me.TBPROFILE_GROUPTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPROFILE_GROUPTableAdapter() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() + Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter() GUIDLabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label() DESCRIPTIONLabel = New System.Windows.Forms.Label() @@ -297,7 +299,7 @@ Partial Class frmAdministration CType(Me.viewAssignedUsers, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() CType(Me.gridAvailableUsers, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.FNPM_GET_FREE_USER_FOR_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.viewAvailableUsers, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel2.SuspendLayout() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() @@ -312,6 +314,7 @@ Partial Class frmAdministration CType(Me.TBDD_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.viewAvailableGroups, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel4.SuspendLayout() + CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILEBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() Me.TBPM_PROFILEBindingNavigator.SuspendLayout() @@ -464,16 +467,16 @@ Partial Class frmAdministration 'gridAvailableUsers ' Me.gridAvailableUsers.AllowDrop = True - Me.gridAvailableUsers.DataSource = Me.TBDD_USERBindingSource + Me.gridAvailableUsers.DataSource = Me.FNPM_GET_FREE_USER_FOR_PROFILEBindingSource resources.ApplyResources(Me.gridAvailableUsers, "gridAvailableUsers") Me.gridAvailableUsers.MainView = Me.viewAvailableUsers Me.gridAvailableUsers.Name = "gridAvailableUsers" Me.gridAvailableUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.viewAvailableUsers}) ' - 'TBDD_USERBindingSource + 'FNPM_GET_FREE_USER_FOR_PROFILEBindingSource ' - Me.TBDD_USERBindingSource.DataMember = "TBDD_USER" - Me.TBDD_USERBindingSource.DataSource = Me.DD_DMSLiteDataSet + Me.FNPM_GET_FREE_USER_FOR_PROFILEBindingSource.DataMember = "FNPM_GET_FREE_USER_FOR_PROFILE" + Me.FNPM_GET_FREE_USER_FOR_PROFILEBindingSource.DataSource = Me.DD_DMSLiteDataSet ' 'viewAvailableUsers ' @@ -488,37 +491,37 @@ Partial Class frmAdministration 'colPRENAME ' resources.ApplyResources(Me.colPRENAME, "colPRENAME") - Me.colPRENAME.FieldName = "PRENAME" + Me.colPRENAME.FieldName = "USER_PRENAME" Me.colPRENAME.Name = "colPRENAME" ' 'colNAME2 ' resources.ApplyResources(Me.colNAME2, "colNAME2") - Me.colNAME2.FieldName = "NAME" + Me.colNAME2.FieldName = "USER_SURNAME" Me.colNAME2.Name = "colNAME2" ' 'colUSERNAME ' resources.ApplyResources(Me.colUSERNAME, "colUSERNAME") - Me.colUSERNAME.FieldName = "USERNAME" + Me.colUSERNAME.FieldName = "USER_NAME" Me.colUSERNAME.Name = "colUSERNAME" ' 'colEMAIL ' resources.ApplyResources(Me.colEMAIL, "colEMAIL") - Me.colEMAIL.FieldName = "EMAIL" + Me.colEMAIL.FieldName = "USER_EMAIL" Me.colEMAIL.Name = "colEMAIL" ' 'GridColumn3 ' resources.ApplyResources(Me.GridColumn3, "GridColumn3") - Me.GridColumn3.FieldName = "COMMENT" + Me.GridColumn3.FieldName = "USER_COMMENT" Me.GridColumn3.Name = "GridColumn3" ' 'GridColumn4 ' resources.ApplyResources(Me.GridColumn4, "GridColumn4") - Me.GridColumn4.FieldName = "SHORTNAME" + Me.GridColumn4.FieldName = "USER_SHORTNAME" Me.GridColumn4.Name = "GridColumn4" ' 'Panel2 @@ -764,6 +767,11 @@ Partial Class frmAdministration resources.ApplyResources(SQL_VIEWLabel, "SQL_VIEWLabel") SQL_VIEWLabel.Name = "SQL_VIEWLabel" ' + 'TBDD_USERBindingSource + ' + Me.TBDD_USERBindingSource.DataMember = "TBDD_USER" + Me.TBDD_USERBindingSource.DataSource = Me.DD_DMSLiteDataSet + ' 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False @@ -1966,6 +1974,10 @@ Partial Class frmAdministration ' Me.OpenFileDialog1.FileName = "OpenFileDialog1" ' + 'FNPM_GET_FREE_USER_FOR_PROFILETableAdapter + ' + Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.ClearBeforeFill = True + ' 'frmAdministration ' resources.ApplyResources(Me, "$this") @@ -1983,7 +1995,7 @@ Partial Class frmAdministration CType(Me.viewAssignedUsers, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) CType(Me.gridAvailableUsers, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.FNPM_GET_FREE_USER_FOR_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.viewAvailableUsers, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel2.ResumeLayout(False) Me.SplitContainer1.Panel1.ResumeLayout(False) @@ -1998,6 +2010,7 @@ Partial Class frmAdministration CType(Me.TBDD_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.viewAvailableGroups, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel4.ResumeLayout(False) + CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILEBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() Me.TBPM_PROFILEBindingNavigator.ResumeLayout(False) @@ -2279,4 +2292,6 @@ Partial Class frmAdministration Friend WithEvents colSQL_COMMAND As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents ToolStripButton5 As ToolStripButton Friend WithEvents tsBtnCancel As ToolStripButton + Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILEBindingSource As BindingSource + Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILETableAdapter As DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter End Class diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index 6181b0a..48342ba 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -315,8 +315,8 @@ True - - 570, 56 + + 985, 212 Fill @@ -1499,6 +1499,9 @@ der Wertänderungen nutzen wollen: 2 + + 570, 56 + 368, 17 @@ -3122,7 +3125,7 @@ der Wertänderungen nutzen wollen: 3, 3, 3, 3 - 1235, 445 + 1235, 448 1 @@ -4430,6 +4433,9 @@ der Wertänderungen nutzen wollen: 689, 212 + + 17, 251 + True @@ -4588,10 +4594,10 @@ der Wertänderungen nutzen wollen: DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - TBDD_USERBindingSource + + FNPM_GET_FREE_USER_FOR_PROFILEBindingSource - + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -4684,6 +4690,12 @@ der Wertänderungen nutzen wollen: DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + TBDD_USERBindingSource + + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + TableAdapterManager @@ -5212,6 +5224,12 @@ der Wertänderungen nutzen wollen: System.Windows.Forms.OpenFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + FNPM_GET_FREE_USER_FOR_PROFILETableAdapter + + + DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + frmAdministration diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb index 3894841..85f9595 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.vb @@ -22,6 +22,7 @@ Public Class frmAdministration TBPM_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString TBPM_TYPETableAdapter.Connection.ConnectionString = MyConnectionString TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString + FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString TBDD_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString TBPROFILE_USERTableAdapter.Connection.ConnectionString = MyConnectionString TBPROFILE_GROUPTableAdapter.Connection.ConnectionString = MyConnectionString @@ -133,7 +134,7 @@ Public Class frmAdministration TBPM_KONFIGURATIONTableAdapter.Fill(DD_DMSLiteDataSet.TBPM_KONFIGURATION) 'Me.TBPM_USERTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_USER) - '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 @@ -260,7 +261,8 @@ Public Class frmAdministration If Not IsNothing(profileId) Then 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) + Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.Fill(Me.DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILE, profileId) + TBDD_GROUPSTableAdapter.FillByProfileId_NotAssigned(DD_DMSLiteDataSet.TBDD_GROUPS, profileId) End If @@ -1121,6 +1123,7 @@ Public Class frmAdministration CancelFinalIndexInsert() End Sub + 'Private Sub viewFinalIndex_ValidateRow(sender As Object, e As Views.Base.ValidateRowEventArgs) Handles viewFinalIndex.ValidateRow ' Dim rowView As DataRowView = e.Row