MS DDGroups

This commit is contained in:
Digital Data - Marlon Schreiber
2018-07-12 16:02:38 +02:00
parent 7b445c8d36
commit 4e478db15f
29 changed files with 4442 additions and 2640 deletions

View File

@@ -53,7 +53,7 @@ Partial Public Class MyDataset
Private tableTBWHDD_INDEX_MAN As TBWHDD_INDEX_MANDataTable
Private tableTBDD_USER_GROUPS As TBDD_USER_GROUPSDataTable
Private tableTBDD_GROUPS As TBDD_GROUPSDataTable
Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable
@@ -184,8 +184,8 @@ Partial Public Class MyDataset
If (Not (ds.Tables("TBWHDD_INDEX_MAN")) Is Nothing) Then
MyBase.Tables.Add(New TBWHDD_INDEX_MANDataTable(ds.Tables("TBWHDD_INDEX_MAN")))
End If
If (Not (ds.Tables("TBDD_USER_GROUPS")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_USER_GROUPSDataTable(ds.Tables("TBDD_USER_GROUPS")))
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("TBDD_GROUPS_USER")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_GROUPS_USERDataTable(ds.Tables("TBDD_GROUPS_USER")))
@@ -390,9 +390,9 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBDD_USER_GROUPS() As TBDD_USER_GROUPSDataTable
Public ReadOnly Property TBDD_GROUPS() As TBDD_GROUPSDataTable
Get
Return Me.tableTBDD_USER_GROUPS
Return Me.tableTBDD_GROUPS
End Get
End Property
@@ -645,8 +645,8 @@ Partial Public Class MyDataset
If (Not (ds.Tables("TBWHDD_INDEX_MAN")) Is Nothing) Then
MyBase.Tables.Add(New TBWHDD_INDEX_MANDataTable(ds.Tables("TBWHDD_INDEX_MAN")))
End If
If (Not (ds.Tables("TBDD_USER_GROUPS")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_USER_GROUPSDataTable(ds.Tables("TBDD_USER_GROUPS")))
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("TBDD_GROUPS_USER")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_GROUPS_USERDataTable(ds.Tables("TBDD_GROUPS_USER")))
@@ -806,10 +806,10 @@ Partial Public Class MyDataset
Me.tableTBWHDD_INDEX_MAN.InitVars
End If
End If
Me.tableTBDD_USER_GROUPS = CType(MyBase.Tables("TBDD_USER_GROUPS"),TBDD_USER_GROUPSDataTable)
Me.tableTBDD_GROUPS = CType(MyBase.Tables("TBDD_GROUPS"),TBDD_GROUPSDataTable)
If (initTable = true) Then
If (Not (Me.tableTBDD_USER_GROUPS) Is Nothing) Then
Me.tableTBDD_USER_GROUPS.InitVars
If (Not (Me.tableTBDD_GROUPS) Is Nothing) Then
Me.tableTBDD_GROUPS.InitVars
End If
End If
Me.tableTBDD_GROUPS_USER = CType(MyBase.Tables("TBDD_GROUPS_USER"),TBDD_GROUPS_USERDataTable)
@@ -949,8 +949,8 @@ Partial Public Class MyDataset
MyBase.Tables.Add(Me.tableTBDD_INDEX_MAN_POSTPROCESSING)
Me.tableTBWHDD_INDEX_MAN = New TBWHDD_INDEX_MANDataTable()
MyBase.Tables.Add(Me.tableTBWHDD_INDEX_MAN)
Me.tableTBDD_USER_GROUPS = New TBDD_USER_GROUPSDataTable()
MyBase.Tables.Add(Me.tableTBDD_USER_GROUPS)
Me.tableTBDD_GROUPS = New TBDD_GROUPSDataTable()
MyBase.Tables.Add(Me.tableTBDD_GROUPS)
Me.tableTBDD_GROUPS_USER = New TBDD_GROUPS_USERDataTable()
MyBase.Tables.Add(Me.tableTBDD_GROUPS_USER)
Me.tableVWGI_USER_GROUPS_RELATION = New VWGI_USER_GROUPS_RELATIONDataTable()
@@ -989,7 +989,7 @@ Partial Public Class MyDataset
Me.Relations.Add(Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID)
Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1 = New Global.System.Data.DataRelation("FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1", New Global.System.Data.DataColumn() {Me.tableTBWHDD_INDEX_MAN.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_IDColumn}, false)
Me.Relations.Add(Me.relationFKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1)
Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.GROUP_IDColumn}, false)
Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.GROUP_IDColumn}, false)
Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_GROUP_ID)
Me.relationFK_TBDD_GROUPS_USER_USER_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_USER_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.USER_IDColumn}, false)
Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_USER_ID)
@@ -1097,7 +1097,7 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Function ShouldSerializeTBDD_USER_GROUPS() As Boolean
Private Function ShouldSerializeTBDD_GROUPS() As Boolean
Return false
End Function
@@ -1286,7 +1286,7 @@ Partial Public Class MyDataset
Public Delegate Sub TBWHDD_INDEX_MANRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWHDD_INDEX_MANRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Delegate Sub TBDD_USER_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USER_GROUPSRowChangeEvent)
Public Delegate Sub TBDD_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPSRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Delegate Sub TBDD_GROUPS_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPS_USERRowChangeEvent)
@@ -7298,8 +7298,8 @@ Partial Public Class MyDataset
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class TBDD_USER_GROUPSDataTable
Inherits Global.System.Data.TypedTableBase(Of TBDD_USER_GROUPSRow)
Partial Public Class TBDD_GROUPSDataTable
Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPSRow)
Private columnGUID As Global.System.Data.DataColumn
@@ -7317,7 +7317,7 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBDD_USER_GROUPS"
Me.TableName = "TBDD_GROUPS"
Me.BeginInit
Me.InitClass
Me.EndInit
@@ -7407,50 +7407,50 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USER_GROUPSRow
Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPSRow
Get
Return CType(Me.Rows(index),TBDD_USER_GROUPSRow)
Return CType(Me.Rows(index),TBDD_GROUPSRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBDD_USER_GROUPSRowChanging As TBDD_USER_GROUPSRowChangeEventHandler
Public Event TBDD_GROUPSRowChanging As TBDD_GROUPSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBDD_USER_GROUPSRowChanged As TBDD_USER_GROUPSRowChangeEventHandler
Public Event TBDD_GROUPSRowChanged As TBDD_GROUPSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBDD_USER_GROUPSRowDeleting As TBDD_USER_GROUPSRowChangeEventHandler
Public Event TBDD_GROUPSRowDeleting As TBDD_GROUPSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBDD_USER_GROUPSRowDeleted As TBDD_USER_GROUPSRowChangeEventHandler
Public Event TBDD_GROUPSRowDeleted As TBDD_GROUPSRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overloads Sub AddTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow)
Public Overloads Sub AddTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overloads Function AddTBDD_USER_GROUPSRow(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_USER_GROUPSRow
Dim rowTBDD_USER_GROUPSRow As TBDD_USER_GROUPSRow = CType(Me.NewRow,TBDD_USER_GROUPSRow)
Public Overloads Function AddTBDD_GROUPSRow(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GROUPSRow
Dim rowTBDD_GROUPSRow As TBDD_GROUPSRow = CType(Me.NewRow,TBDD_GROUPSRow)
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
rowTBDD_USER_GROUPSRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBDD_USER_GROUPSRow)
Return rowTBDD_USER_GROUPSRow
rowTBDD_GROUPSRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBDD_GROUPSRow)
Return rowTBDD_GROUPSRow
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USER_GROUPSRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USER_GROUPSRow)
Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPSRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBDD_USER_GROUPSDataTable = CType(MyBase.Clone,TBDD_USER_GROUPSDataTable)
Dim cln As TBDD_GROUPSDataTable = CType(MyBase.Clone,TBDD_GROUPSDataTable)
cln.InitVars
Return cln
End Function
@@ -7458,7 +7458,7 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBDD_USER_GROUPSDataTable()
Return New TBDD_GROUPSDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -7493,35 +7493,34 @@ Partial Public Class MyDataset
Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true
Me.columnNAME.MaxLength = 50
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function NewTBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow
Return CType(Me.NewRow,TBDD_USER_GROUPSRow)
Public Function NewTBDD_GROUPSRow() As TBDD_GROUPSRow
Return CType(Me.NewRow,TBDD_GROUPSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBDD_USER_GROUPSRow(builder)
Return New TBDD_GROUPSRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBDD_USER_GROUPSRow)
Return GetType(TBDD_GROUPSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBDD_USER_GROUPSRowChangedEvent) Is Nothing) Then
RaiseEvent TBDD_USER_GROUPSRowChanged(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action))
If (Not (Me.TBDD_GROUPSRowChangedEvent) Is Nothing) Then
RaiseEvent TBDD_GROUPSRowChanged(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action))
End If
End Sub
@@ -7529,8 +7528,8 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBDD_USER_GROUPSRowChangingEvent) Is Nothing) Then
RaiseEvent TBDD_USER_GROUPSRowChanging(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action))
If (Not (Me.TBDD_GROUPSRowChangingEvent) Is Nothing) Then
RaiseEvent TBDD_GROUPSRowChanging(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action))
End If
End Sub
@@ -7538,8 +7537,8 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBDD_USER_GROUPSRowDeletedEvent) Is Nothing) Then
RaiseEvent TBDD_USER_GROUPSRowDeleted(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action))
If (Not (Me.TBDD_GROUPSRowDeletedEvent) Is Nothing) Then
RaiseEvent TBDD_GROUPSRowDeleted(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action))
End If
End Sub
@@ -7547,14 +7546,14 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBDD_USER_GROUPSRowDeletingEvent) Is Nothing) Then
RaiseEvent TBDD_USER_GROUPSRowDeleting(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action))
If (Not (Me.TBDD_GROUPSRowDeletingEvent) Is Nothing) Then
RaiseEvent TBDD_GROUPSRowDeleting(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action))
End If
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub RemoveTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow)
Public Sub RemoveTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow)
Me.Rows.Remove(row)
End Sub
@@ -7581,7 +7580,7 @@ Partial Public Class MyDataset
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "TBDD_USER_GROUPSDataTable"
attribute2.FixedValue = "TBDD_GROUPSDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
@@ -7775,14 +7774,14 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overloads Function AddTBDD_GROUPS_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID As TBDD_USER_GROUPSRow, ByVal ADDED_WHEN As Date, ByVal ADDED_WHO As String, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GROUPS_USERRow
Public Overloads Function AddTBDD_GROUPS_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID As TBDD_GROUPSRow, ByVal ADDED_WHEN As Date, ByVal ADDED_WHO As String, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GROUPS_USERRow
Dim rowTBDD_GROUPS_USERRow As TBDD_GROUPS_USERRow = CType(Me.NewRow,TBDD_GROUPS_USERRow)
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, ADDED_WHEN, ADDED_WHO, CHANGED_WHO, CHANGED_WHEN}
If (Not (parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID) Is Nothing) Then
columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID(0)
End If
If (Not (parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID) Is Nothing) Then
columnValuesArray(2) = parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID(0)
If (Not (parentTBDD_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID) Is Nothing) Then
columnValuesArray(2) = parentTBDD_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID(0)
End If
rowTBDD_GROUPS_USERRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBDD_GROUPS_USERRow)
@@ -16050,26 +16049,26 @@ Partial Public Class MyDataset
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBDD_USER_GROUPSRow
Partial Public Class TBDD_GROUPSRow
Inherits Global.System.Data.DataRow
Private tableTBDD_USER_GROUPS As TBDD_USER_GROUPSDataTable
Private tableTBDD_GROUPS As TBDD_GROUPSDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBDD_USER_GROUPS = CType(Me.Table,TBDD_USER_GROUPSDataTable)
Me.tableTBDD_GROUPS = CType(Me.Table,TBDD_GROUPSDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property GUID() As Integer
Get
Return CType(Me(Me.tableTBDD_USER_GROUPS.GUIDColumn),Integer)
Return CType(Me(Me.tableTBDD_GROUPS.GUIDColumn),Integer)
End Get
Set
Me(Me.tableTBDD_USER_GROUPS.GUIDColumn) = value
Me(Me.tableTBDD_GROUPS.GUIDColumn) = value
End Set
End Property
@@ -16078,13 +16077,13 @@ Partial Public Class MyDataset
Public Property NAME() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER_GROUPS.NAMEColumn),String)
Return CType(Me(Me.tableTBDD_GROUPS.NAMEColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER_GROUPS ist DBNull.", e)
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_GROUPS ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = value
Me(Me.tableTBDD_GROUPS.NAMEColumn) = value
End Set
End Property
@@ -16092,10 +16091,14 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property ADDED_WHO() As String
Get
Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn),String)
Try
Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn) = value
Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = value
End Set
End Property
@@ -16104,13 +16107,13 @@ Partial Public Class MyDataset
Public Property ADDED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn),Date)
Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER_GROUPS ist DBNull.", e)
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = value
Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = value
End Set
End Property
@@ -16119,13 +16122,13 @@ Partial Public Class MyDataset
Public Property CHANGED_WHO() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn),String)
Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_USER_GROUPS ist DBNull.", e)
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = value
Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = value
End Set
End Property
@@ -16134,62 +16137,74 @@ Partial Public Class MyDataset
Public Property CHANGED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn),Date)
Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_USER_GROUPS ist DBNull.", e)
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = value
Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsNAMENull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER_GROUPS.NAMEColumn)
Return Me.IsNull(Me.tableTBDD_GROUPS.NAMEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetNAMENull()
Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = Global.System.Convert.DBNull
Me(Me.tableTBDD_GROUPS.NAMEColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsADDED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetADDED_WHONull()
Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn)
Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetADDED_WHENNull()
Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull
Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsCHANGED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn)
Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetCHANGED_WHONull()
Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull
Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsCHANGED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn)
Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetCHANGED_WHENNull()
Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull
Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -16309,9 +16324,9 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property TBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow
Public Property TBDD_USER_GROUPSRow() As TBDD_GROUPSRow
Get
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_USER_GROUPSRow)
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_GROUPSRow)
End Get
Set
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID"))
@@ -18931,16 +18946,16 @@ Partial Public Class MyDataset
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Class TBDD_USER_GROUPSRowChangeEvent
Public Class TBDD_GROUPSRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBDD_USER_GROUPSRow
Private eventRow As TBDD_GROUPSRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New(ByVal row As TBDD_USER_GROUPSRow, ByVal action As Global.System.Data.DataRowAction)
Public Sub New(ByVal row As TBDD_GROUPSRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
@@ -18948,7 +18963,7 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property Row() As TBDD_USER_GROUPSRow
Public ReadOnly Property Row() As TBDD_GROUPSRow
Get
Return Me.eventRow
End Get
@@ -23933,7 +23948,7 @@ Namespace MyDatasetTableAdapters
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Partial Public Class TBDD_USER_GROUPSTableAdapter
Partial Public Class TBDD_GROUPSTableAdapter
Inherits Global.System.ComponentModel.Component
Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
@@ -24050,7 +24065,7 @@ Namespace MyDatasetTableAdapters
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 = "TBDD_USER_GROUPS"
tableMapping.DataSetTable = "TBDD_GROUPS"
tableMapping.ColumnMappings.Add("GUID", "GUID")
tableMapping.ColumnMappings.Add("NAME", "NAME")
tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO")
@@ -24080,22 +24095,22 @@ Namespace MyDatasetTableAdapters
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _
" (@NAME,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_W"& _
"HO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTITY())"
" (@NAME,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_"& _
"WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTITY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.[Variant], 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.[Variant], 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, CHANGED_WHO = @CH"& _
"ANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO,"& _
" ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = @GUID"& _
")"
"ANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO"& _
", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = @GUI"& _
"D)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.[Variant], 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.[Variant], 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.[Variant], 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.[Variant], 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -24112,7 +24127,7 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
" TBDD_USER_GROUPS"
" TBDD_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (INTERNAL = 0)"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
@@ -24120,7 +24135,7 @@ Namespace MyDatasetTableAdapters
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.Fill, true)> _
Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_USER_GROUPSDataTable) As Integer
Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_GROUPSDataTable) As Integer
Me.Adapter.SelectCommand = Me.CommandCollection(0)
If (Me.ClearBeforeFill = true) Then
dataTable.Clear
@@ -24133,9 +24148,9 @@ Namespace MyDatasetTableAdapters
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.[Select], true)> _
Public Overloads Overridable Function GetData() As MyDataset.TBDD_USER_GROUPSDataTable
Public Overloads Overridable Function GetData() As MyDataset.TBDD_GROUPSDataTable
Me.Adapter.SelectCommand = Me.CommandCollection(0)
Dim dataTable As MyDataset.TBDD_USER_GROUPSDataTable = New MyDataset.TBDD_USER_GROUPSDataTable()
Dim dataTable As MyDataset.TBDD_GROUPSDataTable = New MyDataset.TBDD_GROUPSDataTable()
Me.Adapter.Fill(dataTable)
Return dataTable
End Function
@@ -24143,7 +24158,7 @@ Namespace MyDatasetTableAdapters
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_USER_GROUPSDataTable) As Integer
Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_GROUPSDataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
@@ -24151,7 +24166,7 @@ Namespace MyDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer
Return Me.Adapter.Update(dataSet, "TBDD_USER_GROUPS")
Return Me.Adapter.Update(dataSet, "TBDD_GROUPS")
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -24226,16 +24241,16 @@ Namespace MyDatasetTableAdapters
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.Insert, true)> _
Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal ADDED_WHO As String) As Integer
Public Overloads Overridable Function Insert(ByVal NAME As Object, ByVal ADDED_WHO As Object) As Integer
If (NAME Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
Throw New Global.System.ArgumentNullException("NAME")
Else
Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String)
Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,Object)
End If
If (ADDED_WHO Is Nothing) Then
Throw New Global.System.ArgumentNullException("ADDED_WHO")
Else
Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String)
Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,Object)
End If
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
@@ -24256,19 +24271,27 @@ Namespace MyDatasetTableAdapters
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.Update, true)> _
Public Overloads Overridable Function Update(ByVal NAME As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
Public Overloads Overridable Function Update(ByVal NAME As Object, ByVal CHANGED_WHO As Object, ByVal Original_GUID As Object, ByVal GUID As Object) As Integer
If (NAME Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
Throw New Global.System.ArgumentNullException("NAME")
Else
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String)
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,Object)
End If
If (CHANGED_WHO Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
Throw New Global.System.ArgumentNullException("CHANGED_WHO")
Else
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String)
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,Object)
End If
If (Original_GUID Is Nothing) Then
Throw New Global.System.ArgumentNullException("Original_GUID")
Else
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Object)
End If
If (GUID Is Nothing) Then
Throw New Global.System.ArgumentNullException("GUID")
Else
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Object)
End If
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
@@ -28159,7 +28182,7 @@ Namespace MyDatasetTableAdapters
Private _tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter As TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter
Private _tBDD_USER_GROUPSTableAdapter As TBDD_USER_GROUPSTableAdapter
Private _tBDD_GROUPSTableAdapter As TBDD_GROUPSTableAdapter
Private _tBDD_GROUPS_USERTableAdapter As TBDD_GROUPS_USERTableAdapter
@@ -28319,12 +28342,12 @@ Namespace MyDatasetTableAdapters
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
"a", "System.Drawing.Design.UITypeEditor")> _
Public Property TBDD_USER_GROUPSTableAdapter() As TBDD_USER_GROUPSTableAdapter
Public Property TBDD_GROUPSTableAdapter() As TBDD_GROUPSTableAdapter
Get
Return Me._tBDD_USER_GROUPSTableAdapter
Return Me._tBDD_GROUPSTableAdapter
End Get
Set
Me._tBDD_USER_GROUPSTableAdapter = value
Me._tBDD_GROUPSTableAdapter = value
End Set
End Property
@@ -28467,9 +28490,9 @@ Namespace MyDatasetTableAdapters
AndAlso (Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection) Is Nothing)) Then
Return Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection
End If
If ((Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) _
AndAlso (Not (Me._tBDD_USER_GROUPSTableAdapter.Connection) Is Nothing)) Then
Return Me._tBDD_USER_GROUPSTableAdapter.Connection
If ((Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) _
AndAlso (Not (Me._tBDD_GROUPSTableAdapter.Connection) Is Nothing)) Then
Return Me._tBDD_GROUPSTableAdapter.Connection
End If
If ((Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) _
AndAlso (Not (Me._tBDD_GROUPS_USERTableAdapter.Connection) Is Nothing)) Then
@@ -28535,7 +28558,7 @@ Namespace MyDatasetTableAdapters
If (Not (Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter) Is Nothing) Then
count = (count + 1)
End If
If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then
If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then
count = (count + 1)
End If
If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then
@@ -28621,12 +28644,12 @@ Namespace MyDatasetTableAdapters
allChangedRows.AddRange(updatedRows)
End If
End If
If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent)
If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.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._tBDD_USER_GROUPSTableAdapter.Update(updatedRows))
result = (result + Me._tBDD_GROUPSTableAdapter.Update(updatedRows))
allChangedRows.AddRange(updatedRows)
End If
End If
@@ -28769,11 +28792,11 @@ Namespace MyDatasetTableAdapters
allAddedRows.AddRange(addedRows)
End If
End If
If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
If ((Not (addedRows) Is Nothing) _
AndAlso (0 < addedRows.Length)) Then
result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(addedRows))
result = (result + Me._tBDD_GROUPSTableAdapter.Update(addedRows))
allAddedRows.AddRange(addedRows)
End If
End If
@@ -28931,11 +28954,11 @@ Namespace MyDatasetTableAdapters
allChangedRows.AddRange(deletedRows)
End If
End If
If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
If ((Not (deletedRows) Is Nothing) _
AndAlso (0 < deletedRows.Length)) Then
result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(deletedRows))
result = (result + Me._tBDD_GROUPSTableAdapter.Update(deletedRows))
allChangedRows.AddRange(deletedRows)
End If
End If
@@ -29073,8 +29096,8 @@ Namespace MyDatasetTableAdapters
Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _
"s die gleiche Verbindungszeichenfolge verwendet werden.")
End If
If ((Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) _
AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_USER_GROUPSTableAdapter.Connection) = false)) Then
If ((Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) _
AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_GROUPSTableAdapter.Connection) = false)) Then
Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _
"s die gleiche Verbindungszeichenfolge verwendet werden.")
End If
@@ -29223,13 +29246,13 @@ Namespace MyDatasetTableAdapters
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Adapter)
End If
End If
If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then
revertConnections.Add(Me._tBDD_USER_GROUPSTableAdapter, Me._tBDD_USER_GROUPSTableAdapter.Connection)
Me._tBDD_USER_GROUPSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
Me._tBDD_USER_GROUPSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
If Me._tBDD_USER_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate Then
Me._tBDD_USER_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate = false
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_USER_GROUPSTableAdapter.Adapter)
If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then
revertConnections.Add(Me._tBDD_GROUPSTableAdapter, Me._tBDD_GROUPSTableAdapter.Connection)
Me._tBDD_GROUPSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
Me._tBDD_GROUPSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
If Me._tBDD_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate Then
Me._tBDD_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate = false
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_GROUPSTableAdapter.Adapter)
End If
End If
If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then
@@ -29382,9 +29405,9 @@ Namespace MyDatasetTableAdapters
Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection = CType(revertConnections(Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter),Global.System.Data.SqlClient.SqlConnection)
Me._tBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Transaction = Nothing
End If
If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then
Me._tBDD_USER_GROUPSTableAdapter.Connection = CType(revertConnections(Me._tBDD_USER_GROUPSTableAdapter),Global.System.Data.SqlClient.SqlConnection)
Me._tBDD_USER_GROUPSTableAdapter.Transaction = Nothing
If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then
Me._tBDD_GROUPSTableAdapter.Connection = CType(revertConnections(Me._tBDD_GROUPSTableAdapter),Global.System.Data.SqlClient.SqlConnection)
Me._tBDD_GROUPSTableAdapter.Transaction = Nothing
End If
If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then
Me._tBDD_GROUPS_USERTableAdapter.Connection = CType(revertConnections(Me._tBDD_GROUPS_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection)