diff --git a/DDUserManager/DDUserManager/App.config b/DDUserManager/DDUserManager/App.config index 9721a27..47e2de3 100644 --- a/DDUserManager/DDUserManager/App.config +++ b/DDUserManager/DDUserManager/App.config @@ -5,14 +5,18 @@
- + + + - + Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd diff --git a/DDUserManager/DDUserManager/DS_ChangeS.Designer.vb b/DDUserManager/DDUserManager/DS_ChangeS.Designer.vb index a97b9b7..a272d0a 100644 --- a/DDUserManager/DDUserManager/DS_ChangeS.Designer.vb +++ b/DDUserManager/DDUserManager/DS_ChangeS.Designer.vb @@ -30,7 +30,7 @@ Partial Public Class DS_ChangeS Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.BeginInit @@ -42,7 +42,7 @@ Partial Public Class DS_ChangeS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then @@ -77,7 +77,7 @@ Partial Public Class DS_ChangeS End Sub _ Public ReadOnly Property TBDD_GROUPS() As TBDD_GROUPSDataTable @@ -87,7 +87,7 @@ Partial Public Class DS_ChangeS End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode @@ -100,7 +100,7 @@ Partial Public Class DS_ChangeS End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get @@ -109,7 +109,7 @@ Partial Public Class DS_ChangeS End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get @@ -118,7 +118,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass @@ -126,7 +126,7 @@ Partial Public Class DS_ChangeS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As DS_ChangeS = CType(MyBase.Clone,DS_ChangeS) cln.InitVars @@ -135,19 +135,19 @@ Partial Public Class DS_ChangeS End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset @@ -171,7 +171,7 @@ Partial Public Class DS_ChangeS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) @@ -180,13 +180,13 @@ Partial Public Class DS_ChangeS End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableTBDD_GROUPS = CType(MyBase.Tables("TBDD_GROUPS"),TBDD_GROUPSDataTable) If (initTable = true) Then @@ -197,7 +197,7 @@ Partial Public Class DS_ChangeS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "DS_ChangeS" Me.Prefix = "" @@ -209,13 +209,13 @@ Partial Public Class DS_ChangeS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBDD_GROUPS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then Me.InitVars @@ -223,7 +223,7 @@ Partial Public Class DS_ChangeS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As DS_ChangeS = New DS_ChangeS() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -272,7 +272,7 @@ Partial Public Class DS_ChangeS Return type End Function - _ + _ Public Delegate Sub TBDD_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPSRowChangeEvent) ''' @@ -306,7 +306,7 @@ Partial Public Class DS_ChangeS Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_GROUPS" @@ -316,7 +316,7 @@ Partial Public Class DS_ChangeS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -334,14 +334,14 @@ Partial Public Class DS_ChangeS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -349,7 +349,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -357,7 +357,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ECM_FK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnECM_FK_ID @@ -365,7 +365,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property AD_SYNCColumn() As Global.System.Data.DataColumn Get Return Me.columnAD_SYNC @@ -373,7 +373,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property INTERNALColumn() As Global.System.Data.DataColumn Get Return Me.columnINTERNAL @@ -381,7 +381,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -389,7 +389,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -397,7 +397,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -405,7 +405,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -413,7 +413,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -421,7 +421,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -429,7 +429,7 @@ Partial Public Class DS_ChangeS End Property _ Public ReadOnly Property Count() As Integer Get @@ -438,33 +438,33 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPSRow Get Return CType(Me.Rows(index),TBDD_GROUPSRow) End Get End Property - _ + _ Public Event TBDD_GROUPSRowChanging As TBDD_GROUPSRowChangeEventHandler - _ + _ Public Event TBDD_GROUPSRowChanged As TBDD_GROUPSRowChangeEventHandler - _ + _ Public Event TBDD_GROUPSRowDeleting As TBDD_GROUPSRowChangeEventHandler - _ + _ Public Event TBDD_GROUPSRowDeleted As TBDD_GROUPSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBDD_GROUPSRow(ByVal NAME As String, ByVal ECM_FK_ID As Integer, ByVal AD_SYNC As Boolean, ByVal INTERNAL As Boolean, 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 TBDD_GROUPSRow Dim rowTBDD_GROUPSRow As TBDD_GROUPSRow = CType(Me.NewRow,TBDD_GROUPSRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -474,13 +474,13 @@ Partial Public Class DS_ChangeS End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_GROUPSDataTable = CType(MyBase.Clone,TBDD_GROUPSDataTable) cln.InitVars @@ -488,13 +488,13 @@ Partial Public Class DS_ChangeS End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_GROUPSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -510,7 +510,7 @@ Partial Public Class DS_ChangeS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -554,25 +554,25 @@ Partial Public Class DS_ChangeS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBDD_GROUPSRow() As TBDD_GROUPSRow Return CType(Me.NewRow,TBDD_GROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_GROUPSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_GROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_GROUPSRowChangedEvent) Is Nothing) Then @@ -581,7 +581,7 @@ Partial Public Class DS_ChangeS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_GROUPSRowChangingEvent) Is Nothing) Then @@ -590,7 +590,7 @@ Partial Public Class DS_ChangeS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_GROUPSRowDeletedEvent) Is Nothing) Then @@ -599,7 +599,7 @@ Partial Public Class DS_ChangeS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_GROUPSRowDeletingEvent) Is Nothing) Then @@ -608,13 +608,13 @@ Partial Public Class DS_ChangeS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -689,14 +689,14 @@ Partial Public Class DS_ChangeS Private tableTBDD_GROUPS As TBDD_GROUPSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_GROUPS = CType(Me.Table,TBDD_GROUPSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS.GUIDColumn),Integer) @@ -707,7 +707,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property NAME() As String Get Try @@ -722,7 +722,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ECM_FK_ID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn),Integer) @@ -733,7 +733,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property AD_SYNC() As Boolean Get Return CType(Me(Me.tableTBDD_GROUPS.AD_SYNCColumn),Boolean) @@ -744,7 +744,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property INTERNAL() As Boolean Get Return CType(Me(Me.tableTBDD_GROUPS.INTERNALColumn),Boolean) @@ -755,7 +755,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBDD_GROUPS.ACTIVEColumn),Boolean) @@ -766,7 +766,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -781,7 +781,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Try @@ -796,7 +796,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -811,7 +811,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -826,7 +826,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -841,73 +841,73 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBDD_GROUPS.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_GROUPS.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHONull() Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -916,7 +916,7 @@ Partial Public Class DS_ChangeS ''' '''Row event argument class ''' - _ + _ Public Class TBDD_GROUPSRowChangeEvent Inherits Global.System.EventArgs @@ -925,7 +925,7 @@ Partial Public Class DS_ChangeS Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBDD_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -933,7 +933,7 @@ Partial Public Class DS_ChangeS End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBDD_GROUPSRow Get Return Me.eventRow @@ -941,7 +941,7 @@ Partial Public Class DS_ChangeS End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -975,14 +975,14 @@ Namespace DS_ChangeSTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -993,7 +993,7 @@ Namespace DS_ChangeSTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -1023,7 +1023,7 @@ Namespace DS_ChangeSTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -1051,7 +1051,7 @@ Namespace DS_ChangeSTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -1062,7 +1062,7 @@ Namespace DS_ChangeSTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -1073,7 +1073,7 @@ Namespace DS_ChangeSTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -1093,34 +1093,10 @@ Namespace DS_ChangeSTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_GROUPS] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = 1"& _ - " AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([ECM_FK_ID] = @Original_"& _ - "ECM_FK_ID) AND ([AD_SYNC] = @Original_AD_SYNC) AND ([INTERNAL] = @Original_INTER"& _ - "NAL) AND ([ACTIVE] = @Original_ACTIVE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] I"& _ - "S NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADD"& _ - "ED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHE"& _ - "N = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (("& _ - "@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original"& _ - "_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([C"& _ - "HANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_GROUPS_USER WHERE (GROUP_ID = @Original_GUID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"DELETE FROM TBDD_"& _ + "GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ECM_FK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ECM_FK_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AD_SYNC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AD_SYNC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INTERNAL", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, ECM_FK_ID, AD_SYNC, INTE"& _ @@ -1155,14 +1131,14 @@ Namespace DS_ChangeSTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DDUserManager.My.MySettings.Default.DD_ECMConnectionString + Me._connection.ConnectionString = Global.DDUserManager.My.MySettings.Default.DD_ECM_TESTConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(7) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -1232,7 +1208,7 @@ Namespace DS_ChangeSTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DS_ChangeS.TBDD_GROUPSDataTable) As Integer @@ -1245,7 +1221,7 @@ Namespace DS_ChangeSTableAdapters End Function _ Public Overloads Overridable Function GetData() As DS_ChangeS.TBDD_GROUPSDataTable @@ -1256,7 +1232,7 @@ Namespace DS_ChangeSTableAdapters End Function _ Public Overloads Overridable Function FillByClientId(ByVal dataTable As DS_ChangeS.TBDD_GROUPSDataTable, ByVal CLIENT_ID As Integer) As Integer @@ -1270,7 +1246,7 @@ Namespace DS_ChangeSTableAdapters End Function _ Public Overloads Overridable Function GetDataByClientId(ByVal CLIENT_ID As Integer) As DS_ChangeS.TBDD_GROUPSDataTable @@ -1282,7 +1258,7 @@ Namespace DS_ChangeSTableAdapters End Function _ Public Overloads Overridable Function FillByClientId_NotInClient(ByVal dataTable As DS_ChangeS.TBDD_GROUPSDataTable, ByVal CLIENT_ID As Integer) As Integer @@ -1296,7 +1272,7 @@ Namespace DS_ChangeSTableAdapters End Function _ Public Overloads Overridable Function GetDataByClientId_NotInClient(ByVal CLIENT_ID As Integer) As DS_ChangeS.TBDD_GROUPSDataTable @@ -1308,7 +1284,7 @@ Namespace DS_ChangeSTableAdapters End Function _ Public Overloads Overridable Function FillByModuleId(ByVal dataTable As DS_ChangeS.TBDD_GROUPSDataTable, ByVal MODULE_ID As Integer) As Integer @@ -1322,7 +1298,7 @@ Namespace DS_ChangeSTableAdapters End Function _ Public Overloads Overridable Function GetDataByModuleId(ByVal MODULE_ID As Integer) As DS_ChangeS.TBDD_GROUPSDataTable @@ -1334,7 +1310,7 @@ Namespace DS_ChangeSTableAdapters End Function _ Public Overloads Overridable Function FillByModuleId_NotInModule(ByVal dataTable As DS_ChangeS.TBDD_GROUPSDataTable, ByVal MODULE_ID As Integer) As Integer @@ -1348,7 +1324,7 @@ Namespace DS_ChangeSTableAdapters End Function _ Public Overloads Overridable Function GetDataByModuleId_NotInModule(ByVal MODULE_ID As Integer) As DS_ChangeS.TBDD_GROUPSDataTable @@ -1360,7 +1336,7 @@ Namespace DS_ChangeSTableAdapters End Function _ Public Overloads Overridable Function FillByUsername(ByVal dataTable As DS_ChangeS.TBDD_GROUPSDataTable, ByVal USERNAME As String) As Integer @@ -1378,7 +1354,7 @@ Namespace DS_ChangeSTableAdapters End Function _ Public Overloads Overridable Function GetDataByUsername(ByVal USERNAME As String) As DS_ChangeS.TBDD_GROUPSDataTable @@ -1394,85 +1370,39 @@ Namespace DS_ChangeSTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DS_ChangeS.TBDD_GROUPSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DS_ChangeS) As Integer Return Me.Adapter.Update(dataSet, "TBDD_GROUPS") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_ECM_FK_ID As Integer, ByVal Original_AD_SYNC As Boolean, ByVal Original_INTERNAL As Boolean, ByVal Original_ACTIVE As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_NAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_NAME,String) - End If - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ECM_FK_ID,Integer) - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_AD_SYNC,Boolean) - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_INTERNAL,Boolean) - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ACTIVE,Boolean) - If (Original_COMMENT Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_COMMENT,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value - End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -1489,7 +1419,7 @@ Namespace DS_ChangeSTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal ECM_FK_ID As Integer, ByVal AD_SYNC As Boolean, ByVal INTERNAL As Boolean, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String) As Integer @@ -1523,7 +1453,7 @@ Namespace DS_ChangeSTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal NAME As String, ByVal ECM_FK_ID As Integer, ByVal AD_SYNC As Boolean, ByVal INTERNAL As Boolean, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -1564,9 +1494,9 @@ Namespace DS_ChangeSTableAdapters End Function _ - Public Overloads Overridable Function GroupExists(ByVal NAME As String) As Global.System.Nullable(Of Integer) + Public Overloads Overridable Function GroupExists(ByVal NAME As String) As Object Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) If (NAME Is Nothing) Then command.Parameters(0).Value = Global.System.DBNull.Value @@ -1588,14 +1518,14 @@ Namespace DS_ChangeSTableAdapters End Try If ((returnValue Is Nothing) _ OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Integer)() + Return Nothing Else - Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + Return CType(returnValue,Object) End If End Function _ Public Overloads Overridable Function InsertGroup(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ECM_FK_ID As Integer, ByVal AD_SYNC As Boolean, ByVal INTERNAL As Boolean, ByVal ACTIVE As Boolean) As Integer @@ -1651,7 +1581,7 @@ Namespace DS_ChangeSTableAdapters Private _connection As Global.System.Data.IDbConnection _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder @@ -1662,7 +1592,7 @@ Namespace DS_ChangeSTableAdapters End Property _ @@ -1676,7 +1606,7 @@ Namespace DS_ChangeSTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate @@ -1687,7 +1617,7 @@ Namespace DS_ChangeSTableAdapters End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get @@ -1706,7 +1636,7 @@ Namespace DS_ChangeSTableAdapters End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get @@ -1722,7 +1652,7 @@ Namespace DS_ChangeSTableAdapters '''Update rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateUpdatedRows(ByVal dataSet As DS_ChangeS, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then @@ -1741,7 +1671,7 @@ Namespace DS_ChangeSTableAdapters '''Insert rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateInsertedRows(ByVal dataSet As DS_ChangeS, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then @@ -1759,7 +1689,7 @@ Namespace DS_ChangeSTableAdapters '''Delete rows in bottom-up order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DS_ChangeS, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then @@ -1777,7 +1707,7 @@ Namespace DS_ChangeSTableAdapters '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then @@ -1803,7 +1733,7 @@ Namespace DS_ChangeSTableAdapters '''Update all changes to the dataset. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overridable Function UpdateAll(ByVal dataSet As DS_ChangeS) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") @@ -1938,13 +1868,13 @@ Namespace DS_ChangeSTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then Return true @@ -1962,7 +1892,7 @@ Namespace DS_ChangeSTableAdapters ''' '''Update Order Option ''' - _ + _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 @@ -1973,7 +1903,7 @@ Namespace DS_ChangeSTableAdapters ''' '''Used to sort self-referenced table's rows ''' - _ + _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) @@ -1983,7 +1913,7 @@ Namespace DS_ChangeSTableAdapters Private _childFirst As Integer _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation @@ -1995,7 +1925,7 @@ Namespace DS_ChangeSTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row @@ -2034,7 +1964,7 @@ Namespace DS_ChangeSTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare If Object.ReferenceEquals(row1, row2) Then Return 0 diff --git a/DDUserManager/DDUserManager/DS_ChangeS.xsd b/DDUserManager/DDUserManager/DS_ChangeS.xsd index 83bf3e4..09e39b6 100644 --- a/DDUserManager/DDUserManager/DS_ChangeS.xsd +++ b/DDUserManager/DDUserManager/DS_ChangeS.xsd @@ -2,35 +2,22 @@ - + - + + - + - - DELETE FROM [TBDD_GROUPS] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([ECM_FK_ID] = @Original_ECM_FK_ID) AND ([AD_SYNC] = @Original_AD_SYNC) AND ([INTERNAL] = @Original_INTERNAL) AND ([ACTIVE] = @Original_ACTIVE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN))) + + DELETE FROM TBDD_GROUPS_USER WHERE (GROUP_ID = @Original_GUID) +DELETE FROM TBDD_GROUPS +WHERE (GUID = @Original_GUID) - - - - - - - - - - - - - - - - @@ -92,7 +79,7 @@ SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADD - + SELECT T1.GUID, T1.NAME, T1.ECM_FK_ID, T1.AD_SYNC, T1.INTERNAL, T1.ACTIVE, T1.COMMENT, T1.ADDED_WHO, T1.ADDED_WHEN, T1.CHANGED_WHO, T1.CHANGED_WHEN @@ -105,7 +92,7 @@ WHERE (T2.CLIENT_ID = @CLIENT_ID) - + SELECT * @@ -122,7 +109,7 @@ WHERE (GUID NOT IN - + SELECT T1.GUID, T1.NAME, T1.ECM_FK_ID, T1.AD_SYNC, T1.INTERNAL, T1.ACTIVE, T1.COMMENT, T1.ADDED_WHO, T1.ADDED_WHEN, T1.CHANGED_WHO, T1.CHANGED_WHEN @@ -135,7 +122,7 @@ WHERE (T2.MODULE_ID = @MODULE_ID) - + SELECT * @@ -151,7 +138,7 @@ WHERE (GUID NOT IN - + SELECT T2.ACTIVE, T2.ADDED_WHEN, T2.ADDED_WHO, T2.AD_SYNC, T2.CHANGED_WHEN, T2.CHANGED_WHO, T2.COMMENT, T2.ECM_FK_ID, T2.GUID, T2.INTERNAL, T2.NAME FROM TBDD_GROUPS_USER AS T1 INNER JOIN TBDD_GROUPS AS T2 ON T1.GROUP_ID = T2.GUID INNER JOIN TBDD_USER AS T3 ON T1.USER_ID = T3.GUID WHERE (T3.USERNAME = @USERNAME) @@ -161,7 +148,7 @@ WHERE (GUID NOT IN - + SELECT GUID @@ -173,7 +160,7 @@ WHERE (NAME = @NAME) - + INSERT INTO TBDD_GROUPS @@ -200,7 +187,7 @@ VALUES (@NAME,@ADDED_WHO,@ECM_FK_ID,@AD_SYNC,@INTERNAL,@ACTIVE) - + diff --git a/DDUserManager/DDUserManager/My Project/Settings.Designer.vb b/DDUserManager/DDUserManager/My Project/Settings.Designer.vb index 17d912e..fa409cf 100644 --- a/DDUserManager/DDUserManager/My Project/Settings.Designer.vb +++ b/DDUserManager/DDUserManager/My Project/Settings.Designer.vb @@ -15,7 +15,7 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase @@ -56,12 +56,24 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Secu"& _ + "rity Info=True;User ID=sa;Password=dd")> _ Public ReadOnly Property DD_ECMConnectionString() As String Get Return CType(Me("DD_ECMConnectionString"),String) End Get End Property + + _ + Public ReadOnly Property DD_ECM_TESTConnectionString() As String + Get + Return CType(Me("DD_ECM_TESTConnectionString"),String) + End Get + End Property End Class End Namespace diff --git a/DDUserManager/DDUserManager/My Project/Settings.settings b/DDUserManager/DDUserManager/My Project/Settings.settings index 5338c76..42f82fb 100644 --- a/DDUserManager/DDUserManager/My Project/Settings.settings +++ b/DDUserManager/DDUserManager/My Project/Settings.settings @@ -3,7 +3,15 @@ - + Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> + <ProviderName>System.Data.SqlClient</ProviderName> +</SerializableConnectionString> + Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd \ No newline at end of file diff --git a/DDUserManager/DDUserManager/UserDataSet.Designer.vb b/DDUserManager/DDUserManager/UserDataSet.Designer.vb index 78e63b3..db8d61a 100644 --- a/DDUserManager/DDUserManager/UserDataSet.Designer.vb +++ b/DDUserManager/DDUserManager/UserDataSet.Designer.vb @@ -72,7 +72,7 @@ Partial Public Class UserDataSet Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.BeginInit @@ -84,7 +84,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then @@ -152,7 +152,7 @@ Partial Public Class UserDataSet End Sub _ Public ReadOnly Property TBDD_GROUPS_USER() As TBDD_GROUPS_USERDataTable @@ -162,7 +162,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property TBDD_MODULES() As TBDD_MODULESDataTable @@ -172,7 +172,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property TBDD_USER_MODULES() As TBDD_USER_MODULESDataTable @@ -182,7 +182,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property TBDD_CLIENT() As TBDD_CLIENTDataTable @@ -192,7 +192,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property TBDD_CLIENT_USER() As TBDD_CLIENT_USERDataTable @@ -202,7 +202,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property TBDD_USER() As TBDD_USERDataTable @@ -212,7 +212,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property TBDD_GROUPS_MODULES() As TBDD_GROUPS_MODULESDataTable @@ -222,7 +222,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property TBDD_GROUPS_CLIENT() As TBDD_GROUPS_CLIENTDataTable @@ -232,7 +232,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property TBDD_GROUPS() As TBDD_GROUPSDataTable @@ -242,7 +242,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property TBLOCAL_ADUSERS() As TBLOCAL_ADUSERSDataTable @@ -252,7 +252,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property TBLOCAL_ADGROUPS() As TBLOCAL_ADGROUPSDataTable @@ -262,7 +262,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property TBLOCAL_DEBUG_GROUPS() As TBLOCAL_DEBUG_GROUPSDataTable @@ -272,7 +272,7 @@ Partial Public Class UserDataSet End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode @@ -285,7 +285,7 @@ Partial Public Class UserDataSet End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get @@ -294,7 +294,7 @@ Partial Public Class UserDataSet End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get @@ -303,7 +303,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass @@ -311,7 +311,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As UserDataSet = CType(MyBase.Clone,UserDataSet) cln.InitVars @@ -320,19 +320,19 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset @@ -389,7 +389,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) @@ -398,13 +398,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableTBDD_GROUPS_USER = CType(MyBase.Tables("TBDD_GROUPS_USER"),TBDD_GROUPS_USERDataTable) If (initTable = true) Then @@ -491,7 +491,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.DataSetName = "UserDataSet" Me.Prefix = "" @@ -545,79 +545,79 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBDD_GROUPS_USER() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBDD_MODULES() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBDD_USER_MODULES() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBDD_CLIENT() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBDD_CLIENT_USER() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBDD_USER() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBDD_GROUPS_MODULES() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBDD_GROUPS_CLIENT() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBDD_GROUPS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBLOCAL_ADUSERS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBLOCAL_ADGROUPS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function ShouldSerializeTBLOCAL_DEBUG_GROUPS() As Boolean Return false End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then Me.InitVars @@ -625,7 +625,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As UserDataSet = New UserDataSet() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -674,40 +674,40 @@ Partial Public Class UserDataSet Return type End Function - _ + _ Public Delegate Sub TBDD_GROUPS_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPS_USERRowChangeEvent) - _ + _ Public Delegate Sub TBDD_MODULESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_MODULESRowChangeEvent) - _ + _ Public Delegate Sub TBDD_USER_MODULESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USER_MODULESRowChangeEvent) - _ + _ Public Delegate Sub TBDD_CLIENTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CLIENTRowChangeEvent) - _ + _ Public Delegate Sub TBDD_CLIENT_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CLIENT_USERRowChangeEvent) - _ + _ Public Delegate Sub TBDD_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USERRowChangeEvent) - _ + _ Public Delegate Sub TBDD_GROUPS_MODULESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPS_MODULESRowChangeEvent) - _ + _ Public Delegate Sub TBDD_GROUPS_CLIENTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPS_CLIENTRowChangeEvent) - _ + _ Public Delegate Sub TBDD_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPSRowChangeEvent) - _ + _ Public Delegate Sub TBLOCAL_ADUSERSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBLOCAL_ADUSERSRowChangeEvent) - _ + _ Public Delegate Sub TBLOCAL_ADGROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBLOCAL_ADGROUPSRowChangeEvent) - _ + _ Public Delegate Sub TBLOCAL_DEBUG_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBLOCAL_DEBUG_GROUPSRowChangeEvent) ''' @@ -735,7 +735,7 @@ Partial Public Class UserDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_GROUPS_USER" @@ -745,7 +745,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -763,14 +763,14 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -778,7 +778,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_ID @@ -786,7 +786,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGROUP_ID @@ -794,7 +794,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -802,7 +802,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -810,7 +810,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -818,7 +818,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -826,7 +826,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -834,7 +834,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -843,33 +843,33 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPS_USERRow Get Return CType(Me.Rows(index),TBDD_GROUPS_USERRow) End Get End Property - _ + _ Public Event TBDD_GROUPS_USERRowChanging As TBDD_GROUPS_USERRowChangeEventHandler - _ + _ Public Event TBDD_GROUPS_USERRowChanged As TBDD_GROUPS_USERRowChangeEventHandler - _ + _ Public Event TBDD_GROUPS_USERRowDeleting As TBDD_GROUPS_USERRowChangeEventHandler - _ + _ Public Event TBDD_GROUPS_USERRowDeleted As TBDD_GROUPS_USERRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, 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, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -885,13 +885,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_USERRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_GROUPS_USERDataTable = CType(MyBase.Clone,TBDD_GROUPS_USERDataTable) cln.InitVars @@ -899,13 +899,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_GROUPS_USERDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnUSER_ID = MyBase.Columns("USER_ID") @@ -918,7 +918,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -952,25 +952,25 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBDD_GROUPS_USERRow() As TBDD_GROUPS_USERRow Return CType(Me.NewRow,TBDD_GROUPS_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_GROUPS_USERRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_GROUPS_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_GROUPS_USERRowChangedEvent) Is Nothing) Then @@ -979,7 +979,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_GROUPS_USERRowChangingEvent) Is Nothing) Then @@ -988,7 +988,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_GROUPS_USERRowDeletedEvent) Is Nothing) Then @@ -997,7 +997,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_GROUPS_USERRowDeletingEvent) Is Nothing) Then @@ -1006,13 +1006,13 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -1127,7 +1127,7 @@ Partial Public Class UserDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_MODULES" @@ -1137,7 +1137,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1155,14 +1155,14 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1170,7 +1170,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -1178,7 +1178,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SHORT_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSHORT_NAME @@ -1186,7 +1186,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property LICENSEColumn() As Global.System.Data.DataColumn Get Return Me.columnLICENSE @@ -1194,7 +1194,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PRODUCT_VERSIONColumn() As Global.System.Data.DataColumn Get Return Me.columnPRODUCT_VERSION @@ -1202,7 +1202,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -1210,7 +1210,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property VERSION_DELIMITERColumn() As Global.System.Data.DataColumn Get Return Me.columnVERSION_DELIMITER @@ -1218,7 +1218,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property FILE_DELIMITERColumn() As Global.System.Data.DataColumn Get Return Me.columnFILE_DELIMITER @@ -1226,7 +1226,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property BIT1Column() As Global.System.Data.DataColumn Get Return Me.columnBIT1 @@ -1234,7 +1234,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property BIT2Column() As Global.System.Data.DataColumn Get Return Me.columnBIT2 @@ -1242,7 +1242,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property STRING1Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING1 @@ -1250,7 +1250,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property STRING2Column() As Global.System.Data.DataColumn Get Return Me.columnSTRING2 @@ -1258,7 +1258,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property BACKGROUND_IMAGEColumn() As Global.System.Data.DataColumn Get Return Me.columnBACKGROUND_IMAGE @@ -1266,7 +1266,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PRODUCT_NAME1Column() As Global.System.Data.DataColumn Get Return Me.columnPRODUCT_NAME1 @@ -1274,7 +1274,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PRODUCT_NAME2Column() As Global.System.Data.DataColumn Get Return Me.columnPRODUCT_NAME2 @@ -1282,7 +1282,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property VERSION_UPATE_PATHColumn() As Global.System.Data.DataColumn Get Return Me.columnVERSION_UPATE_PATH @@ -1290,7 +1290,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -1298,7 +1298,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -1306,7 +1306,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -1314,7 +1314,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -1322,7 +1322,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -1331,33 +1331,33 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_MODULESRow Get Return CType(Me.Rows(index),TBDD_MODULESRow) End Get End Property - _ + _ Public Event TBDD_MODULESRowChanging As TBDD_MODULESRowChangeEventHandler - _ + _ Public Event TBDD_MODULESRowChanged As TBDD_MODULESRowChangeEventHandler - _ + _ Public Event TBDD_MODULESRowDeleting As TBDD_MODULESRowChangeEventHandler - _ + _ Public Event TBDD_MODULESRowDeleted As TBDD_MODULESRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBDD_MODULESRow(ByVal row As TBDD_MODULESRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBDD_MODULESRow( _ ByVal NAME As String, _ ByVal SHORT_NAME As String, _ @@ -1386,13 +1386,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_MODULESRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_MODULESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_MODULESDataTable = CType(MyBase.Clone,TBDD_MODULESDataTable) cln.InitVars @@ -1400,13 +1400,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_MODULESDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -1431,7 +1431,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -1505,25 +1505,25 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBDD_MODULESRow() As TBDD_MODULESRow Return CType(Me.NewRow,TBDD_MODULESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_MODULESRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_MODULESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_MODULESRowChangedEvent) Is Nothing) Then @@ -1532,7 +1532,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_MODULESRowChangingEvent) Is Nothing) Then @@ -1541,7 +1541,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_MODULESRowDeletedEvent) Is Nothing) Then @@ -1550,7 +1550,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_MODULESRowDeletingEvent) Is Nothing) Then @@ -1559,13 +1559,13 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBDD_MODULESRow(ByVal row As TBDD_MODULESRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -1654,7 +1654,7 @@ Partial Public Class UserDataSet Private columnADDED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_USER_MODULES" @@ -1664,7 +1664,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1682,14 +1682,14 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -1697,7 +1697,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_ID @@ -1705,7 +1705,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property MODULE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnMODULE_ID @@ -1713,7 +1713,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property IS_ADMINColumn() As Global.System.Data.DataColumn Get Return Me.columnIS_ADMIN @@ -1721,7 +1721,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -1729,7 +1729,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -1737,7 +1737,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -1745,7 +1745,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -1754,33 +1754,33 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USER_MODULESRow Get Return CType(Me.Rows(index),TBDD_USER_MODULESRow) End Get End Property - _ + _ Public Event TBDD_USER_MODULESRowChanging As TBDD_USER_MODULESRowChangeEventHandler - _ + _ Public Event TBDD_USER_MODULESRowChanged As TBDD_USER_MODULESRowChangeEventHandler - _ + _ Public Event TBDD_USER_MODULESRowDeleting As TBDD_USER_MODULESRowChangeEventHandler - _ + _ Public Event TBDD_USER_MODULESRowDeleted As TBDD_USER_MODULESRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBDD_USER_MODULESRow(ByVal row As TBDD_USER_MODULESRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBDD_USER_MODULESRow(ByVal parentTBDD_USERRowByFK_TBDD_USER_MODULES2_USER_ID As TBDD_USERRow, ByVal parentTBDD_MODULESRowByFK_TBDD_USER_MODULES_MODULE_ID As TBDD_MODULESRow, ByVal IS_ADMIN As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBDD_USER_MODULESRow Dim rowTBDD_USER_MODULESRow As TBDD_USER_MODULESRow = CType(Me.NewRow,TBDD_USER_MODULESRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, IS_ADMIN, COMMENT, ADDED_WHO, ADDED_WHEN} @@ -1796,13 +1796,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USER_MODULESRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USER_MODULESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_USER_MODULESDataTable = CType(MyBase.Clone,TBDD_USER_MODULESDataTable) cln.InitVars @@ -1810,13 +1810,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_USER_MODULESDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnUSER_ID = MyBase.Columns("USER_ID") @@ -1828,7 +1828,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -1859,25 +1859,25 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBDD_USER_MODULESRow() As TBDD_USER_MODULESRow Return CType(Me.NewRow,TBDD_USER_MODULESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_USER_MODULESRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_USER_MODULESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_USER_MODULESRowChangedEvent) Is Nothing) Then @@ -1886,7 +1886,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_USER_MODULESRowChangingEvent) Is Nothing) Then @@ -1895,7 +1895,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_USER_MODULESRowDeletedEvent) Is Nothing) Then @@ -1904,7 +1904,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_USER_MODULESRowDeletingEvent) Is Nothing) Then @@ -1913,13 +1913,13 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBDD_USER_MODULESRow(ByVal row As TBDD_USER_MODULESRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -2016,7 +2016,7 @@ Partial Public Class UserDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_CLIENT" @@ -2026,7 +2026,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2044,14 +2044,14 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2059,7 +2059,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CLIENT_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnCLIENT_NAME @@ -2067,7 +2067,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSHORTNAME @@ -2075,7 +2075,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property LICENSE_PMOColumn() As Global.System.Data.DataColumn Get Return Me.columnLICENSE_PMO @@ -2083,7 +2083,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property LICENSE_GIColumn() As Global.System.Data.DataColumn Get Return Me.columnLICENSE_GI @@ -2091,7 +2091,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property LICENSE_PMColumn() As Global.System.Data.DataColumn Get Return Me.columnLICENSE_PM @@ -2099,7 +2099,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -2107,7 +2107,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -2115,7 +2115,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -2123,7 +2123,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -2131,7 +2131,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -2139,7 +2139,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -2148,33 +2148,33 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CLIENTRow Get Return CType(Me.Rows(index),TBDD_CLIENTRow) End Get End Property - _ + _ Public Event TBDD_CLIENTRowChanging As TBDD_CLIENTRowChangeEventHandler - _ + _ Public Event TBDD_CLIENTRowChanged As TBDD_CLIENTRowChangeEventHandler - _ + _ Public Event TBDD_CLIENTRowDeleting As TBDD_CLIENTRowChangeEventHandler - _ + _ Public Event TBDD_CLIENTRowDeleted As TBDD_CLIENTRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBDD_CLIENTRow(ByVal row As TBDD_CLIENTRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBDD_CLIENTRow(ByVal CLIENT_NAME As String, ByVal SHORTNAME As String, ByVal LICENSE_PMO As String, ByVal LICENSE_GI As String, ByVal LICENSE_PM As String, 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 TBDD_CLIENTRow Dim rowTBDD_CLIENTRow As TBDD_CLIENTRow = CType(Me.NewRow,TBDD_CLIENTRow) Dim columnValuesArray() As Object = New Object() {Nothing, CLIENT_NAME, SHORTNAME, LICENSE_PMO, LICENSE_GI, LICENSE_PM, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -2184,13 +2184,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_CLIENTRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CLIENTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_CLIENTDataTable = CType(MyBase.Clone,TBDD_CLIENTDataTable) cln.InitVars @@ -2198,13 +2198,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_CLIENTDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnCLIENT_NAME = MyBase.Columns("CLIENT_NAME") @@ -2220,7 +2220,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2270,25 +2270,25 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBDD_CLIENTRow() As TBDD_CLIENTRow Return CType(Me.NewRow,TBDD_CLIENTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_CLIENTRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_CLIENTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_CLIENTRowChangedEvent) Is Nothing) Then @@ -2297,7 +2297,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_CLIENTRowChangingEvent) Is Nothing) Then @@ -2306,7 +2306,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_CLIENTRowDeletedEvent) Is Nothing) Then @@ -2315,7 +2315,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_CLIENTRowDeletingEvent) Is Nothing) Then @@ -2324,13 +2324,13 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBDD_CLIENTRow(ByVal row As TBDD_CLIENTRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -2417,7 +2417,7 @@ Partial Public Class UserDataSet Private columnADDED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_CLIENT_USER" @@ -2427,7 +2427,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2445,14 +2445,14 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2460,7 +2460,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_ID @@ -2468,7 +2468,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CLIENT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCLIENT_ID @@ -2476,7 +2476,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -2484,7 +2484,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -2492,7 +2492,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -2500,7 +2500,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -2509,33 +2509,33 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CLIENT_USERRow Get Return CType(Me.Rows(index),TBDD_CLIENT_USERRow) End Get End Property - _ + _ Public Event TBDD_CLIENT_USERRowChanging As TBDD_CLIENT_USERRowChangeEventHandler - _ + _ Public Event TBDD_CLIENT_USERRowChanged As TBDD_CLIENT_USERRowChangeEventHandler - _ + _ Public Event TBDD_CLIENT_USERRowDeleting As TBDD_CLIENT_USERRowChangeEventHandler - _ + _ Public Event TBDD_CLIENT_USERRowDeleted As TBDD_CLIENT_USERRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBDD_CLIENT_USERRow(ByVal row As TBDD_CLIENT_USERRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBDD_CLIENT_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_CLIENT_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_CLIENTRowByFK_TBDD_CLIENT_USER_GROUP_ID As TBDD_CLIENTRow, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBDD_CLIENT_USERRow Dim rowTBDD_CLIENT_USERRow As TBDD_CLIENT_USERRow = CType(Me.NewRow,TBDD_CLIENT_USERRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, COMMENT, ADDED_WHO, ADDED_WHEN} @@ -2551,13 +2551,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_CLIENT_USERRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CLIENT_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_CLIENT_USERDataTable = CType(MyBase.Clone,TBDD_CLIENT_USERDataTable) cln.InitVars @@ -2565,13 +2565,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_CLIENT_USERDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnUSER_ID = MyBase.Columns("USER_ID") @@ -2582,7 +2582,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2610,25 +2610,25 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBDD_CLIENT_USERRow() As TBDD_CLIENT_USERRow Return CType(Me.NewRow,TBDD_CLIENT_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_CLIENT_USERRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_CLIENT_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_CLIENT_USERRowChangedEvent) Is Nothing) Then @@ -2637,7 +2637,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_CLIENT_USERRowChangingEvent) Is Nothing) Then @@ -2646,7 +2646,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_CLIENT_USERRowDeletedEvent) Is Nothing) Then @@ -2655,7 +2655,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_CLIENT_USERRowDeletingEvent) Is Nothing) Then @@ -2664,13 +2664,13 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBDD_CLIENT_USERRow(ByVal row As TBDD_CLIENT_USERRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -2771,7 +2771,7 @@ Partial Public Class UserDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_USER" @@ -2781,7 +2781,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2799,14 +2799,14 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -2814,7 +2814,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPRENAME @@ -2822,7 +2822,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -2830,7 +2830,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME @@ -2838,7 +2838,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSHORTNAME @@ -2846,7 +2846,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL @@ -2854,7 +2854,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn Get Return Me.columnLANGUAGE @@ -2862,7 +2862,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -2870,7 +2870,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property DATE_FORMATColumn() As Global.System.Data.DataColumn Get Return Me.columnDATE_FORMAT @@ -2878,7 +2878,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -2886,7 +2886,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -2894,7 +2894,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -2902,7 +2902,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -2910,7 +2910,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -2919,33 +2919,33 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USERRow Get Return CType(Me.Rows(index),TBDD_USERRow) End Get End Property - _ + _ Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler - _ + _ Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler - _ + _ Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler - _ + _ Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBDD_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal SHORTNAME As String, ByVal EMAIL As String, ByVal LANGUAGE As String, ByVal COMMENT As String, ByVal DATE_FORMAT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_USERRow Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow) Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, SHORTNAME, EMAIL, LANGUAGE, COMMENT, DATE_FORMAT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -2955,13 +2955,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USERRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable) cln.InitVars @@ -2969,13 +2969,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_USERDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPRENAME = MyBase.Columns("PRENAME") @@ -2993,7 +2993,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -3045,25 +3045,25 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBDD_USERRow() As TBDD_USERRow Return CType(Me.NewRow,TBDD_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_USERRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_USERRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_USERRowChangedEvent) Is Nothing) Then @@ -3072,7 +3072,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_USERRowChangingEvent) Is Nothing) Then @@ -3081,7 +3081,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_USERRowDeletedEvent) Is Nothing) Then @@ -3090,7 +3090,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_USERRowDeletingEvent) Is Nothing) Then @@ -3099,13 +3099,13 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -3196,7 +3196,7 @@ Partial Public Class UserDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_GROUPS_MODULES" @@ -3206,7 +3206,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3224,14 +3224,14 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -3239,7 +3239,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property MODULE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnMODULE_ID @@ -3247,7 +3247,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGROUP_ID @@ -3255,7 +3255,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -3263,7 +3263,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -3271,7 +3271,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -3279,7 +3279,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -3287,7 +3287,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -3295,7 +3295,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -3304,33 +3304,33 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPS_MODULESRow Get Return CType(Me.Rows(index),TBDD_GROUPS_MODULESRow) End Get End Property - _ + _ Public Event TBDD_GROUPS_MODULESRowChanging As TBDD_GROUPS_MODULESRowChangeEventHandler - _ + _ Public Event TBDD_GROUPS_MODULESRowChanged As TBDD_GROUPS_MODULESRowChangeEventHandler - _ + _ Public Event TBDD_GROUPS_MODULESRowDeleting As TBDD_GROUPS_MODULESRowChangeEventHandler - _ + _ Public Event TBDD_GROUPS_MODULESRowDeleted As TBDD_GROUPS_MODULESRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBDD_GROUPS_MODULESRow(ByVal row As TBDD_GROUPS_MODULESRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBDD_GROUPS_MODULESRow(ByVal parentTBDD_MODULESRowByFK_TBDD_GROUPS_MODULES_MODULE_ID As TBDD_MODULESRow, ByVal parentTBDD_GROUPSRowByFK_TBDD_GROUPS_MODULES_GROUP_ID As TBDD_GROUPSRow, 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 TBDD_GROUPS_MODULESRow Dim rowTBDD_GROUPS_MODULESRow As TBDD_GROUPS_MODULESRow = CType(Me.NewRow,TBDD_GROUPS_MODULESRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -3346,13 +3346,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_MODULESRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_MODULESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_GROUPS_MODULESDataTable = CType(MyBase.Clone,TBDD_GROUPS_MODULESDataTable) cln.InitVars @@ -3360,13 +3360,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_GROUPS_MODULESDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnMODULE_ID = MyBase.Columns("MODULE_ID") @@ -3379,7 +3379,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -3413,25 +3413,25 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBDD_GROUPS_MODULESRow() As TBDD_GROUPS_MODULESRow Return CType(Me.NewRow,TBDD_GROUPS_MODULESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_GROUPS_MODULESRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_GROUPS_MODULESRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_GROUPS_MODULESRowChangedEvent) Is Nothing) Then @@ -3440,7 +3440,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_GROUPS_MODULESRowChangingEvent) Is Nothing) Then @@ -3449,7 +3449,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_GROUPS_MODULESRowDeletedEvent) Is Nothing) Then @@ -3458,7 +3458,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_GROUPS_MODULESRowDeletingEvent) Is Nothing) Then @@ -3467,13 +3467,13 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBDD_GROUPS_MODULESRow(ByVal row As TBDD_GROUPS_MODULESRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -3564,7 +3564,7 @@ Partial Public Class UserDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_GROUPS_CLIENT" @@ -3574,7 +3574,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3592,14 +3592,14 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -3607,7 +3607,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CLIENT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCLIENT_ID @@ -3615,7 +3615,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGROUP_ID @@ -3623,7 +3623,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -3631,7 +3631,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -3639,7 +3639,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -3647,7 +3647,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -3655,7 +3655,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -3663,7 +3663,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -3672,33 +3672,33 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPS_CLIENTRow Get Return CType(Me.Rows(index),TBDD_GROUPS_CLIENTRow) End Get End Property - _ + _ Public Event TBDD_GROUPS_CLIENTRowChanging As TBDD_GROUPS_CLIENTRowChangeEventHandler - _ + _ Public Event TBDD_GROUPS_CLIENTRowChanged As TBDD_GROUPS_CLIENTRowChangeEventHandler - _ + _ Public Event TBDD_GROUPS_CLIENTRowDeleting As TBDD_GROUPS_CLIENTRowChangeEventHandler - _ + _ Public Event TBDD_GROUPS_CLIENTRowDeleted As TBDD_GROUPS_CLIENTRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBDD_GROUPS_CLIENTRow(ByVal row As TBDD_GROUPS_CLIENTRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBDD_GROUPS_CLIENTRow(ByVal parentTBDD_CLIENTRowByFK_TBDD_GROUPS_CLIENT_CLIENT_ID As TBDD_CLIENTRow, ByVal parentTBDD_GROUPSRowByFK_TBDD_GROUPS_CLIENT_GROUP_ID As TBDD_GROUPSRow, 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 TBDD_GROUPS_CLIENTRow Dim rowTBDD_GROUPS_CLIENTRow As TBDD_GROUPS_CLIENTRow = CType(Me.NewRow,TBDD_GROUPS_CLIENTRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} @@ -3714,13 +3714,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_CLIENTRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_CLIENTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_GROUPS_CLIENTDataTable = CType(MyBase.Clone,TBDD_GROUPS_CLIENTDataTable) cln.InitVars @@ -3728,13 +3728,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_GROUPS_CLIENTDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnCLIENT_ID = MyBase.Columns("CLIENT_ID") @@ -3747,7 +3747,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -3781,25 +3781,25 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBDD_GROUPS_CLIENTRow() As TBDD_GROUPS_CLIENTRow Return CType(Me.NewRow,TBDD_GROUPS_CLIENTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_GROUPS_CLIENTRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_GROUPS_CLIENTRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_GROUPS_CLIENTRowChangedEvent) Is Nothing) Then @@ -3808,7 +3808,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_GROUPS_CLIENTRowChangingEvent) Is Nothing) Then @@ -3817,7 +3817,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_GROUPS_CLIENTRowDeletedEvent) Is Nothing) Then @@ -3826,7 +3826,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_GROUPS_CLIENTRowDeletingEvent) Is Nothing) Then @@ -3835,13 +3835,13 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBDD_GROUPS_CLIENTRow(ByVal row As TBDD_GROUPS_CLIENTRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -3938,7 +3938,7 @@ Partial Public Class UserDataSet Private columnACTIVE As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBDD_GROUPS" @@ -3948,7 +3948,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3966,14 +3966,14 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID @@ -3981,7 +3981,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -3989,7 +3989,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property INTERNALColumn() As Global.System.Data.DataColumn Get Return Me.columnINTERNAL @@ -3997,7 +3997,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property AD_SYNCColumn() As Global.System.Data.DataColumn Get Return Me.columnAD_SYNC @@ -4005,7 +4005,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT @@ -4013,7 +4013,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO @@ -4021,7 +4021,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN @@ -4029,7 +4029,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO @@ -4037,7 +4037,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN @@ -4045,7 +4045,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ECM_FK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnECM_FK_ID @@ -4053,7 +4053,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE @@ -4061,7 +4061,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -4070,33 +4070,33 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPSRow Get Return CType(Me.Rows(index),TBDD_GROUPSRow) End Get End Property - _ + _ Public Event TBDD_GROUPSRowChanging As TBDD_GROUPSRowChangeEventHandler - _ + _ Public Event TBDD_GROUPSRowChanged As TBDD_GROUPSRowChangeEventHandler - _ + _ Public Event TBDD_GROUPSRowDeleting As TBDD_GROUPSRowChangeEventHandler - _ + _ Public Event TBDD_GROUPSRowDeleted As TBDD_GROUPSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBDD_GROUPSRow(ByVal NAME As String, ByVal INTERNAL As Boolean, ByVal AD_SYNC 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, ByVal ECM_FK_ID As Integer, ByVal ACTIVE As Boolean) As TBDD_GROUPSRow Dim rowTBDD_GROUPSRow As TBDD_GROUPSRow = CType(Me.NewRow,TBDD_GROUPSRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, INTERNAL, AD_SYNC, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ECM_FK_ID, ACTIVE} @@ -4106,13 +4106,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_GROUPSDataTable = CType(MyBase.Clone,TBDD_GROUPSDataTable) cln.InitVars @@ -4120,13 +4120,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_GROUPSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -4142,7 +4142,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -4188,25 +4188,25 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBDD_GROUPSRow() As TBDD_GROUPSRow Return CType(Me.NewRow,TBDD_GROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_GROUPSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_GROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_GROUPSRowChangedEvent) Is Nothing) Then @@ -4215,7 +4215,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_GROUPSRowChangingEvent) Is Nothing) Then @@ -4224,7 +4224,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_GROUPSRowDeletedEvent) Is Nothing) Then @@ -4233,7 +4233,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_GROUPSRowDeletingEvent) Is Nothing) Then @@ -4242,13 +4242,13 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -4331,7 +4331,7 @@ Partial Public Class UserDataSet Private columnEMAIL As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBLOCAL_ADUSERS" @@ -4341,7 +4341,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -4359,14 +4359,14 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME @@ -4374,7 +4374,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPRENAME @@ -4382,7 +4382,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -4390,7 +4390,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL @@ -4398,7 +4398,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -4407,33 +4407,33 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBLOCAL_ADUSERSRow Get Return CType(Me.Rows(index),TBLOCAL_ADUSERSRow) End Get End Property - _ + _ Public Event TBLOCAL_ADUSERSRowChanging As TBLOCAL_ADUSERSRowChangeEventHandler - _ + _ Public Event TBLOCAL_ADUSERSRowChanged As TBLOCAL_ADUSERSRowChangeEventHandler - _ + _ Public Event TBLOCAL_ADUSERSRowDeleting As TBLOCAL_ADUSERSRowChangeEventHandler - _ + _ Public Event TBLOCAL_ADUSERSRowDeleted As TBLOCAL_ADUSERSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBLOCAL_ADUSERSRow(ByVal row As TBLOCAL_ADUSERSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBLOCAL_ADUSERSRow(ByVal USERNAME As String, ByVal PRENAME As String, ByVal NAME As String, ByVal EMAIL As String) As TBLOCAL_ADUSERSRow Dim rowTBLOCAL_ADUSERSRow As TBLOCAL_ADUSERSRow = CType(Me.NewRow,TBLOCAL_ADUSERSRow) Dim columnValuesArray() As Object = New Object() {USERNAME, PRENAME, NAME, EMAIL} @@ -4443,7 +4443,7 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBLOCAL_ADUSERSDataTable = CType(MyBase.Clone,TBLOCAL_ADUSERSDataTable) cln.InitVars @@ -4451,13 +4451,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBLOCAL_ADUSERSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnUSERNAME = MyBase.Columns("USERNAME") Me.columnPRENAME = MyBase.Columns("PRENAME") @@ -4466,7 +4466,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSERNAME) @@ -4479,25 +4479,25 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBLOCAL_ADUSERSRow() As TBLOCAL_ADUSERSRow Return CType(Me.NewRow,TBLOCAL_ADUSERSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBLOCAL_ADUSERSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBLOCAL_ADUSERSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBLOCAL_ADUSERSRowChangedEvent) Is Nothing) Then @@ -4506,7 +4506,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBLOCAL_ADUSERSRowChangingEvent) Is Nothing) Then @@ -4515,7 +4515,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBLOCAL_ADUSERSRowDeletedEvent) Is Nothing) Then @@ -4524,7 +4524,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBLOCAL_ADUSERSRowDeletingEvent) Is Nothing) Then @@ -4533,13 +4533,13 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBLOCAL_ADUSERSRow(ByVal row As TBLOCAL_ADUSERSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -4616,7 +4616,7 @@ Partial Public Class UserDataSet Private columnGROUPNAME As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBLOCAL_ADGROUPS" @@ -4626,7 +4626,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -4644,14 +4644,14 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property GROUPNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnGROUPNAME @@ -4659,7 +4659,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -4668,33 +4668,33 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBLOCAL_ADGROUPSRow Get Return CType(Me.Rows(index),TBLOCAL_ADGROUPSRow) End Get End Property - _ + _ Public Event TBLOCAL_ADGROUPSRowChanging As TBLOCAL_ADGROUPSRowChangeEventHandler - _ + _ Public Event TBLOCAL_ADGROUPSRowChanged As TBLOCAL_ADGROUPSRowChangeEventHandler - _ + _ Public Event TBLOCAL_ADGROUPSRowDeleting As TBLOCAL_ADGROUPSRowChangeEventHandler - _ + _ Public Event TBLOCAL_ADGROUPSRowDeleted As TBLOCAL_ADGROUPSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBLOCAL_ADGROUPSRow(ByVal row As TBLOCAL_ADGROUPSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBLOCAL_ADGROUPSRow(ByVal GROUPNAME As String) As TBLOCAL_ADGROUPSRow Dim rowTBLOCAL_ADGROUPSRow As TBLOCAL_ADGROUPSRow = CType(Me.NewRow,TBLOCAL_ADGROUPSRow) Dim columnValuesArray() As Object = New Object() {GROUPNAME} @@ -4704,7 +4704,7 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBLOCAL_ADGROUPSDataTable = CType(MyBase.Clone,TBLOCAL_ADGROUPSDataTable) cln.InitVars @@ -4712,44 +4712,44 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBLOCAL_ADGROUPSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnGROUPNAME = MyBase.Columns("GROUPNAME") End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnGROUPNAME = New Global.System.Data.DataColumn("GROUPNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGROUPNAME) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBLOCAL_ADGROUPSRow() As TBLOCAL_ADGROUPSRow Return CType(Me.NewRow,TBLOCAL_ADGROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBLOCAL_ADGROUPSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBLOCAL_ADGROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBLOCAL_ADGROUPSRowChangedEvent) Is Nothing) Then @@ -4758,7 +4758,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBLOCAL_ADGROUPSRowChangingEvent) Is Nothing) Then @@ -4767,7 +4767,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBLOCAL_ADGROUPSRowDeletedEvent) Is Nothing) Then @@ -4776,7 +4776,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBLOCAL_ADGROUPSRowDeletingEvent) Is Nothing) Then @@ -4785,13 +4785,13 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBLOCAL_ADGROUPSRow(ByVal row As TBLOCAL_ADGROUPSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -4880,7 +4880,7 @@ Partial Public Class UserDataSet Private columnNAME As Global.System.Data.DataColumn _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.TableName = "TBLOCAL_DEBUG_GROUPS" @@ -4890,7 +4890,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -4908,14 +4908,14 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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 _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property SAMACCOUNTNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSAMACCOUNTNAME @@ -4923,7 +4923,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property CNColumn() As Global.System.Data.DataColumn Get Return Me.columnCN @@ -4931,7 +4931,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property OBJECT_CLASSColumn() As Global.System.Data.DataColumn Get Return Me.columnOBJECT_CLASS @@ -4939,7 +4939,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property OBJECT_CATEGORYColumn() As Global.System.Data.DataColumn Get Return Me.columnOBJECT_CATEGORY @@ -4947,7 +4947,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnDESCRIPTION @@ -4955,7 +4955,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property DISTINGUISHED_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnDISTINGUISHED_NAME @@ -4963,7 +4963,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME @@ -4971,7 +4971,7 @@ Partial Public Class UserDataSet End Property _ Public ReadOnly Property Count() As Integer Get @@ -4980,33 +4980,33 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBLOCAL_DEBUG_GROUPSRow Get Return CType(Me.Rows(index),TBLOCAL_DEBUG_GROUPSRow) End Get End Property - _ + _ Public Event TBLOCAL_DEBUG_GROUPSRowChanging As TBLOCAL_DEBUG_GROUPSRowChangeEventHandler - _ + _ Public Event TBLOCAL_DEBUG_GROUPSRowChanged As TBLOCAL_DEBUG_GROUPSRowChangeEventHandler - _ + _ Public Event TBLOCAL_DEBUG_GROUPSRowDeleting As TBLOCAL_DEBUG_GROUPSRowChangeEventHandler - _ + _ Public Event TBLOCAL_DEBUG_GROUPSRowDeleted As TBLOCAL_DEBUG_GROUPSRowChangeEventHandler _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Sub AddTBLOCAL_DEBUG_GROUPSRow(ByVal row As TBLOCAL_DEBUG_GROUPSRow) Me.Rows.Add(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overloads Function AddTBLOCAL_DEBUG_GROUPSRow(ByVal SAMACCOUNTNAME As String, ByVal CN As String, ByVal OBJECT_CLASS As String, ByVal OBJECT_CATEGORY As String, ByVal DESCRIPTION As String, ByVal DISTINGUISHED_NAME As String, ByVal NAME As String) As TBLOCAL_DEBUG_GROUPSRow Dim rowTBLOCAL_DEBUG_GROUPSRow As TBLOCAL_DEBUG_GROUPSRow = CType(Me.NewRow,TBLOCAL_DEBUG_GROUPSRow) Dim columnValuesArray() As Object = New Object() {SAMACCOUNTNAME, CN, OBJECT_CLASS, OBJECT_CATEGORY, DESCRIPTION, DISTINGUISHED_NAME, NAME} @@ -5016,7 +5016,7 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBLOCAL_DEBUG_GROUPSDataTable = CType(MyBase.Clone,TBLOCAL_DEBUG_GROUPSDataTable) cln.InitVars @@ -5024,13 +5024,13 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBLOCAL_DEBUG_GROUPSDataTable() End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub InitVars() Me.columnSAMACCOUNTNAME = MyBase.Columns("SAMACCOUNTNAME") Me.columnCN = MyBase.Columns("CN") @@ -5042,7 +5042,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitClass() Me.columnSAMACCOUNTNAME = New Global.System.Data.DataColumn("SAMACCOUNTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSAMACCOUNTNAME) @@ -5061,25 +5061,25 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function NewTBLOCAL_DEBUG_GROUPSRow() As TBLOCAL_DEBUG_GROUPSRow Return CType(Me.NewRow,TBLOCAL_DEBUG_GROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBLOCAL_DEBUG_GROUPSRow(builder) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBLOCAL_DEBUG_GROUPSRow) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBLOCAL_DEBUG_GROUPSRowChangedEvent) Is Nothing) Then @@ -5088,7 +5088,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBLOCAL_DEBUG_GROUPSRowChangingEvent) Is Nothing) Then @@ -5097,7 +5097,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBLOCAL_DEBUG_GROUPSRowDeletedEvent) Is Nothing) Then @@ -5106,7 +5106,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBLOCAL_DEBUG_GROUPSRowDeletingEvent) Is Nothing) Then @@ -5115,13 +5115,13 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub RemoveTBLOCAL_DEBUG_GROUPSRow(ByVal row As TBLOCAL_DEBUG_GROUPSRow) Me.Rows.Remove(row) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -5196,14 +5196,14 @@ Partial Public Class UserDataSet Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_GROUPS_USER = CType(Me.Table,TBDD_GROUPS_USERDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS_USER.GUIDColumn),Integer) @@ -5214,7 +5214,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USER_ID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn),Integer) @@ -5225,7 +5225,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GROUP_ID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn),Integer) @@ -5236,7 +5236,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -5251,7 +5251,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn),String) @@ -5262,7 +5262,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -5277,7 +5277,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -5292,7 +5292,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -5307,7 +5307,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBDD_USERRow() As TBDD_USERRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_USERRow) @@ -5318,7 +5318,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBDD_GROUPSRow() As TBDD_GROUPSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_GROUPSRow) @@ -5329,49 +5329,49 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_USER.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -5386,14 +5386,14 @@ Partial Public Class UserDataSet Private tableTBDD_MODULES As TBDD_MODULESDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_MODULES = CType(Me.Table,TBDD_MODULESDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_MODULES.GUIDColumn),Integer) @@ -5404,7 +5404,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property NAME() As String Get Try @@ -5419,7 +5419,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SHORT_NAME() As String Get Try @@ -5434,7 +5434,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property LICENSE() As String Get Return CType(Me(Me.tableTBDD_MODULES.LICENSEColumn),String) @@ -5445,7 +5445,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PRODUCT_VERSION() As String Get Return CType(Me(Me.tableTBDD_MODULES.PRODUCT_VERSIONColumn),String) @@ -5456,7 +5456,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBDD_MODULES.ACTIVEColumn),Boolean) @@ -5467,7 +5467,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property VERSION_DELIMITER() As String Get Return CType(Me(Me.tableTBDD_MODULES.VERSION_DELIMITERColumn),String) @@ -5478,7 +5478,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property FILE_DELIMITER() As String Get Return CType(Me(Me.tableTBDD_MODULES.FILE_DELIMITERColumn),String) @@ -5489,7 +5489,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property BIT1() As Boolean Get Return CType(Me(Me.tableTBDD_MODULES.BIT1Column),Boolean) @@ -5500,7 +5500,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property BIT2() As Boolean Get Return CType(Me(Me.tableTBDD_MODULES.BIT2Column),Boolean) @@ -5511,7 +5511,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property STRING1() As String Get Try @@ -5526,7 +5526,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property STRING2() As String Get Try @@ -5541,7 +5541,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property BACKGROUND_IMAGE() As Byte() Get Try @@ -5556,7 +5556,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PRODUCT_NAME1() As String Get Return CType(Me(Me.tableTBDD_MODULES.PRODUCT_NAME1Column),String) @@ -5567,7 +5567,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PRODUCT_NAME2() As String Get Try @@ -5582,7 +5582,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property VERSION_UPATE_PATH() As String Get Return CType(Me(Me.tableTBDD_MODULES.VERSION_UPATE_PATHColumn),String) @@ -5593,7 +5593,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Try @@ -5608,7 +5608,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -5623,7 +5623,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -5638,7 +5638,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -5653,127 +5653,127 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_MODULES.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBDD_MODULES.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSHORT_NAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_MODULES.SHORT_NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSHORT_NAMENull() Me(Me.tableTBDD_MODULES.SHORT_NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSTRING1Null() As Boolean Return Me.IsNull(Me.tableTBDD_MODULES.STRING1Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSTRING1Null() Me(Me.tableTBDD_MODULES.STRING1Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSTRING2Null() As Boolean Return Me.IsNull(Me.tableTBDD_MODULES.STRING2Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSTRING2Null() Me(Me.tableTBDD_MODULES.STRING2Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsBACKGROUND_IMAGENull() As Boolean Return Me.IsNull(Me.tableTBDD_MODULES.BACKGROUND_IMAGEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetBACKGROUND_IMAGENull() Me(Me.tableTBDD_MODULES.BACKGROUND_IMAGEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsPRODUCT_NAME2Null() As Boolean Return Me.IsNull(Me.tableTBDD_MODULES.PRODUCT_NAME2Column) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetPRODUCT_NAME2Null() Me(Me.tableTBDD_MODULES.PRODUCT_NAME2Column) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_MODULES.ADDED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHONull() Me(Me.tableTBDD_MODULES.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_MODULES.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_MODULES.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_MODULES.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_MODULES.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_MODULES.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_MODULES.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBDD_USER_MODULESRows() As TBDD_USER_MODULESRow() If (Me.Table.ChildRelations("FK_TBDD_USER_MODULES_MODULE_ID") Is Nothing) Then Return New TBDD_USER_MODULESRow(-1) {} @@ -5783,7 +5783,7 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBDD_GROUPS_MODULESRows() As TBDD_GROUPS_MODULESRow() If (Me.Table.ChildRelations("FK_TBDD_GROUPS_MODULES_MODULE_ID") Is Nothing) Then Return New TBDD_GROUPS_MODULESRow(-1) {} @@ -5802,14 +5802,14 @@ Partial Public Class UserDataSet Private tableTBDD_USER_MODULES As TBDD_USER_MODULESDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_USER_MODULES = CType(Me.Table,TBDD_USER_MODULESDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_USER_MODULES.GUIDColumn),Integer) @@ -5820,7 +5820,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USER_ID() As Integer Get Return CType(Me(Me.tableTBDD_USER_MODULES.USER_IDColumn),Integer) @@ -5831,7 +5831,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property MODULE_ID() As Integer Get Return CType(Me(Me.tableTBDD_USER_MODULES.MODULE_IDColumn),Integer) @@ -5842,7 +5842,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property IS_ADMIN() As Boolean Get Return CType(Me(Me.tableTBDD_USER_MODULES.IS_ADMINColumn),Boolean) @@ -5853,7 +5853,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -5868,7 +5868,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Try @@ -5883,7 +5883,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -5898,7 +5898,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBDD_MODULESRow() As TBDD_MODULESRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_USER_MODULES_MODULE_ID")),TBDD_MODULESRow) @@ -5909,7 +5909,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBDD_USERRow() As TBDD_USERRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_USER_MODULES2_USER_ID")),TBDD_USERRow) @@ -5920,37 +5920,37 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER_MODULES.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_USER_MODULES.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_USER_MODULES.ADDED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHONull() Me(Me.tableTBDD_USER_MODULES.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER_MODULES.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_USER_MODULES.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -5965,14 +5965,14 @@ Partial Public Class UserDataSet Private tableTBDD_CLIENT As TBDD_CLIENTDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_CLIENT = CType(Me.Table,TBDD_CLIENTDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_CLIENT.GUIDColumn),Integer) @@ -5983,7 +5983,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CLIENT_NAME() As String Get Return CType(Me(Me.tableTBDD_CLIENT.CLIENT_NAMEColumn),String) @@ -5994,7 +5994,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SHORTNAME() As String Get Try @@ -6009,7 +6009,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property LICENSE_PMO() As String Get Return CType(Me(Me.tableTBDD_CLIENT.LICENSE_PMOColumn),String) @@ -6020,7 +6020,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property LICENSE_GI() As String Get Return CType(Me(Me.tableTBDD_CLIENT.LICENSE_GIColumn),String) @@ -6031,7 +6031,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property LICENSE_PM() As String Get Return CType(Me(Me.tableTBDD_CLIENT.LICENSE_PMColumn),String) @@ -6042,7 +6042,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -6057,7 +6057,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_CLIENT.ADDED_WHOColumn),String) @@ -6068,7 +6068,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -6083,7 +6083,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -6098,7 +6098,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -6113,67 +6113,67 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSHORTNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_CLIENT.SHORTNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSHORTNAMENull() Me(Me.tableTBDD_CLIENT.SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_CLIENT.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_CLIENT.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_CLIENT.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_CLIENT.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_CLIENT.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_CLIENT.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_CLIENT.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_CLIENT.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBDD_CLIENT_USERRows() As TBDD_CLIENT_USERRow() If (Me.Table.ChildRelations("FK_TBDD_CLIENT_USER_GROUP_ID") Is Nothing) Then Return New TBDD_CLIENT_USERRow(-1) {} @@ -6183,7 +6183,7 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBDD_GROUPS_CLIENTRows() As TBDD_GROUPS_CLIENTRow() If (Me.Table.ChildRelations("FK_TBDD_GROUPS_CLIENT_CLIENT_ID") Is Nothing) Then Return New TBDD_GROUPS_CLIENTRow(-1) {} @@ -6202,14 +6202,14 @@ Partial Public Class UserDataSet Private tableTBDD_CLIENT_USER As TBDD_CLIENT_USERDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_CLIENT_USER = CType(Me.Table,TBDD_CLIENT_USERDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_CLIENT_USER.GUIDColumn),Integer) @@ -6220,7 +6220,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USER_ID() As Integer Get Return CType(Me(Me.tableTBDD_CLIENT_USER.USER_IDColumn),Integer) @@ -6231,7 +6231,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CLIENT_ID() As Integer Get Return CType(Me(Me.tableTBDD_CLIENT_USER.CLIENT_IDColumn),Integer) @@ -6242,7 +6242,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -6257,7 +6257,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Try @@ -6272,7 +6272,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -6287,7 +6287,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBDD_CLIENTRow() As TBDD_CLIENTRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_CLIENT_USER_GROUP_ID")),TBDD_CLIENTRow) @@ -6298,7 +6298,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBDD_USERRow() As TBDD_USERRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_CLIENT_USER_USER_ID")),TBDD_USERRow) @@ -6309,37 +6309,37 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_CLIENT_USER.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_CLIENT_USER.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_CLIENT_USER.ADDED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHONull() Me(Me.tableTBDD_CLIENT_USER.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_CLIENT_USER.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_CLIENT_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -6354,14 +6354,14 @@ Partial Public Class UserDataSet Private tableTBDD_USER As TBDD_USERDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer) @@ -6372,7 +6372,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PRENAME() As String Get Try @@ -6387,7 +6387,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property NAME() As String Get Try @@ -6402,7 +6402,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USERNAME() As String Get Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String) @@ -6413,7 +6413,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SHORTNAME() As String Get Try @@ -6428,7 +6428,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL() As String Get Try @@ -6443,7 +6443,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property LANGUAGE() As String Get Return CType(Me(Me.tableTBDD_USER.LANGUAGEColumn),String) @@ -6454,7 +6454,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -6469,7 +6469,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property DATE_FORMAT() As String Get Return CType(Me(Me.tableTBDD_USER.DATE_FORMATColumn),String) @@ -6480,7 +6480,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) @@ -6491,7 +6491,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -6506,7 +6506,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -6521,7 +6521,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -6536,103 +6536,103 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsPRENAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetPRENAMENull() Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSHORTNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.SHORTNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSHORTNAMENull() Me(Me.tableTBDD_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsEMAILNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetEMAILNull() Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_USER.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID") Is Nothing) Then Return New TBDD_GROUPS_USERRow(-1) {} @@ -6642,7 +6642,7 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBDD_USER_MODULESRows() As TBDD_USER_MODULESRow() If (Me.Table.ChildRelations("FK_TBDD_USER_MODULES2_USER_ID") Is Nothing) Then Return New TBDD_USER_MODULESRow(-1) {} @@ -6652,7 +6652,7 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBDD_CLIENT_USERRows() As TBDD_CLIENT_USERRow() If (Me.Table.ChildRelations("FK_TBDD_CLIENT_USER_USER_ID") Is Nothing) Then Return New TBDD_CLIENT_USERRow(-1) {} @@ -6671,14 +6671,14 @@ Partial Public Class UserDataSet Private tableTBDD_GROUPS_MODULES As TBDD_GROUPS_MODULESDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_GROUPS_MODULES = CType(Me.Table,TBDD_GROUPS_MODULESDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS_MODULES.GUIDColumn),Integer) @@ -6689,7 +6689,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property MODULE_ID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS_MODULES.MODULE_IDColumn),Integer) @@ -6700,7 +6700,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GROUP_ID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS_MODULES.GROUP_IDColumn),Integer) @@ -6711,7 +6711,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -6726,7 +6726,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_GROUPS_MODULES.ADDED_WHOColumn),String) @@ -6737,7 +6737,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -6752,7 +6752,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -6767,7 +6767,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -6782,7 +6782,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBDD_MODULESRow() As TBDD_MODULESRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_MODULES_MODULE_ID")),TBDD_MODULESRow) @@ -6793,7 +6793,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBDD_GROUPSRow() As TBDD_GROUPSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_MODULES_GROUP_ID")),TBDD_GROUPSRow) @@ -6804,49 +6804,49 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_MODULES.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_GROUPS_MODULES.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_MODULES.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_GROUPS_MODULES.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_MODULES.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_GROUPS_MODULES.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_MODULES.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_GROUPS_MODULES.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -6861,14 +6861,14 @@ Partial Public Class UserDataSet Private tableTBDD_GROUPS_CLIENT As TBDD_GROUPS_CLIENTDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_GROUPS_CLIENT = CType(Me.Table,TBDD_GROUPS_CLIENTDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS_CLIENT.GUIDColumn),Integer) @@ -6879,7 +6879,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CLIENT_ID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS_CLIENT.CLIENT_IDColumn),Integer) @@ -6890,7 +6890,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GROUP_ID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS_CLIENT.GROUP_IDColumn),Integer) @@ -6901,7 +6901,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -6916,7 +6916,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBDD_GROUPS_CLIENT.ADDED_WHOColumn),String) @@ -6927,7 +6927,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -6942,7 +6942,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -6957,7 +6957,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -6972,7 +6972,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBDD_CLIENTRow() As TBDD_CLIENTRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_CLIENT_CLIENT_ID")),TBDD_CLIENTRow) @@ -6983,7 +6983,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property TBDD_GROUPSRow() As TBDD_GROUPSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_CLIENT_GROUP_ID")),TBDD_GROUPSRow) @@ -6994,49 +6994,49 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_CLIENT.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_GROUPS_CLIENT.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_CLIENT.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_GROUPS_CLIENT.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_CLIENT.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_GROUPS_CLIENT.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS_CLIENT.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_GROUPS_CLIENT.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub @@ -7051,14 +7051,14 @@ Partial Public Class UserDataSet Private tableTBDD_GROUPS As TBDD_GROUPSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_GROUPS = CType(Me.Table,TBDD_GROUPSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS.GUIDColumn),Integer) @@ -7069,7 +7069,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property NAME() As String Get Try @@ -7084,7 +7084,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property INTERNAL() As Boolean Get Return CType(Me(Me.tableTBDD_GROUPS.INTERNALColumn),Boolean) @@ -7095,7 +7095,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property AD_SYNC() As Boolean Get Return CType(Me(Me.tableTBDD_GROUPS.AD_SYNCColumn),Boolean) @@ -7106,7 +7106,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property COMMENT() As String Get Try @@ -7121,7 +7121,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHO() As String Get Try @@ -7136,7 +7136,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ADDED_WHEN() As Date Get Try @@ -7151,7 +7151,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHO() As String Get Try @@ -7166,7 +7166,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CHANGED_WHEN() As Date Get Try @@ -7181,7 +7181,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ECM_FK_ID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn),Integer) @@ -7192,7 +7192,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBDD_GROUPS.ACTIVEColumn),Boolean) @@ -7203,79 +7203,79 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBDD_GROUPS.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.COMMENTColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_GROUPS.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHONull() Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID") Is Nothing) Then Return New TBDD_GROUPS_USERRow(-1) {} @@ -7285,7 +7285,7 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBDD_GROUPS_MODULESRows() As TBDD_GROUPS_MODULESRow() If (Me.Table.ChildRelations("FK_TBDD_GROUPS_MODULES_GROUP_ID") Is Nothing) Then Return New TBDD_GROUPS_MODULESRow(-1) {} @@ -7295,7 +7295,7 @@ Partial Public Class UserDataSet End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function GetTBDD_GROUPS_CLIENTRows() As TBDD_GROUPS_CLIENTRow() If (Me.Table.ChildRelations("FK_TBDD_GROUPS_CLIENT_GROUP_ID") Is Nothing) Then Return New TBDD_GROUPS_CLIENTRow(-1) {} @@ -7314,14 +7314,14 @@ Partial Public Class UserDataSet Private tableTBLOCAL_ADUSERS As TBLOCAL_ADUSERSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBLOCAL_ADUSERS = CType(Me.Table,TBLOCAL_ADUSERSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property USERNAME() As String Get Try @@ -7336,7 +7336,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property PRENAME() As String Get If Me.IsPRENAMENull Then @@ -7351,7 +7351,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property NAME() As String Get If Me.IsNAMENull Then @@ -7366,7 +7366,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property EMAIL() As String Get If Me.IsEMAILNull Then @@ -7381,49 +7381,49 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsUSERNAMENull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_ADUSERS.USERNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetUSERNAMENull() Me(Me.tableTBLOCAL_ADUSERS.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsPRENAMENull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_ADUSERS.PRENAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetPRENAMENull() Me(Me.tableTBLOCAL_ADUSERS.PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_ADUSERS.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBLOCAL_ADUSERS.NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsEMAILNull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_ADUSERS.EMAILColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetEMAILNull() Me(Me.tableTBLOCAL_ADUSERS.EMAILColumn) = Global.System.Convert.DBNull End Sub @@ -7438,14 +7438,14 @@ Partial Public Class UserDataSet Private tableTBLOCAL_ADGROUPS As TBLOCAL_ADGROUPSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBLOCAL_ADGROUPS = CType(Me.Table,TBLOCAL_ADGROUPSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property GROUPNAME() As String Get Try @@ -7460,13 +7460,13 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsGROUPNAMENull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_ADGROUPS.GROUPNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetGROUPNAMENull() Me(Me.tableTBLOCAL_ADGROUPS.GROUPNAMEColumn) = Global.System.Convert.DBNull End Sub @@ -7481,14 +7481,14 @@ Partial Public Class UserDataSet Private tableTBLOCAL_DEBUG_GROUPS As TBLOCAL_DEBUG_GROUPSDataTable _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBLOCAL_DEBUG_GROUPS = CType(Me.Table,TBLOCAL_DEBUG_GROUPSDataTable) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property SAMACCOUNTNAME() As String Get Try @@ -7503,7 +7503,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property CN() As String Get Try @@ -7518,7 +7518,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property OBJECT_CLASS() As String Get Try @@ -7533,7 +7533,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property OBJECT_CATEGORY() As String Get Try @@ -7548,7 +7548,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property DESCRIPTION() As String Get Try @@ -7563,7 +7563,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property DISTINGUISHED_NAME() As String Get Try @@ -7579,7 +7579,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property NAME() As String Get Try @@ -7594,85 +7594,85 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsSAMACCOUNTNAMENull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_DEBUG_GROUPS.SAMACCOUNTNAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetSAMACCOUNTNAMENull() Me(Me.tableTBLOCAL_DEBUG_GROUPS.SAMACCOUNTNAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsCNNull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_DEBUG_GROUPS.CNColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetCNNull() Me(Me.tableTBLOCAL_DEBUG_GROUPS.CNColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsOBJECT_CLASSNull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_DEBUG_GROUPS.OBJECT_CLASSColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetOBJECT_CLASSNull() Me(Me.tableTBLOCAL_DEBUG_GROUPS.OBJECT_CLASSColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsOBJECT_CATEGORYNull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_DEBUG_GROUPS.OBJECT_CATEGORYColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetOBJECT_CATEGORYNull() Me(Me.tableTBLOCAL_DEBUG_GROUPS.OBJECT_CATEGORYColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsDESCRIPTIONNull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_DEBUG_GROUPS.DESCRIPTIONColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetDESCRIPTIONNull() Me(Me.tableTBLOCAL_DEBUG_GROUPS.DESCRIPTIONColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsDISTINGUISHED_NAMENull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_DEBUG_GROUPS.DISTINGUISHED_NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetDISTINGUISHED_NAMENull() Me(Me.tableTBLOCAL_DEBUG_GROUPS.DISTINGUISHED_NAMEColumn) = Global.System.Convert.DBNull End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBLOCAL_DEBUG_GROUPS.NAMEColumn) End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub SetNAMENull() Me(Me.tableTBLOCAL_DEBUG_GROUPS.NAMEColumn) = Global.System.Convert.DBNull End Sub @@ -7681,7 +7681,7 @@ Partial Public Class UserDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_GROUPS_USERRowChangeEvent Inherits Global.System.EventArgs @@ -7690,7 +7690,7 @@ Partial Public Class UserDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBDD_GROUPS_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -7698,7 +7698,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBDD_GROUPS_USERRow Get Return Me.eventRow @@ -7706,7 +7706,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -7717,7 +7717,7 @@ Partial Public Class UserDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_MODULESRowChangeEvent Inherits Global.System.EventArgs @@ -7726,7 +7726,7 @@ Partial Public Class UserDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBDD_MODULESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -7734,7 +7734,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBDD_MODULESRow Get Return Me.eventRow @@ -7742,7 +7742,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -7753,7 +7753,7 @@ Partial Public Class UserDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_USER_MODULESRowChangeEvent Inherits Global.System.EventArgs @@ -7762,7 +7762,7 @@ Partial Public Class UserDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBDD_USER_MODULESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -7770,7 +7770,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBDD_USER_MODULESRow Get Return Me.eventRow @@ -7778,7 +7778,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -7789,7 +7789,7 @@ Partial Public Class UserDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_CLIENTRowChangeEvent Inherits Global.System.EventArgs @@ -7798,7 +7798,7 @@ Partial Public Class UserDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBDD_CLIENTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -7806,7 +7806,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBDD_CLIENTRow Get Return Me.eventRow @@ -7814,7 +7814,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -7825,7 +7825,7 @@ Partial Public Class UserDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_CLIENT_USERRowChangeEvent Inherits Global.System.EventArgs @@ -7834,7 +7834,7 @@ Partial Public Class UserDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBDD_CLIENT_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -7842,7 +7842,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBDD_CLIENT_USERRow Get Return Me.eventRow @@ -7850,7 +7850,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -7861,7 +7861,7 @@ Partial Public Class UserDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_USERRowChangeEvent Inherits Global.System.EventArgs @@ -7870,7 +7870,7 @@ Partial Public Class UserDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -7878,7 +7878,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBDD_USERRow Get Return Me.eventRow @@ -7886,7 +7886,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -7897,7 +7897,7 @@ Partial Public Class UserDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_GROUPS_MODULESRowChangeEvent Inherits Global.System.EventArgs @@ -7906,7 +7906,7 @@ Partial Public Class UserDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBDD_GROUPS_MODULESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -7914,7 +7914,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBDD_GROUPS_MODULESRow Get Return Me.eventRow @@ -7922,7 +7922,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -7933,7 +7933,7 @@ Partial Public Class UserDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_GROUPS_CLIENTRowChangeEvent Inherits Global.System.EventArgs @@ -7942,7 +7942,7 @@ Partial Public Class UserDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBDD_GROUPS_CLIENTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -7950,7 +7950,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBDD_GROUPS_CLIENTRow Get Return Me.eventRow @@ -7958,7 +7958,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -7969,7 +7969,7 @@ Partial Public Class UserDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBDD_GROUPSRowChangeEvent Inherits Global.System.EventArgs @@ -7978,7 +7978,7 @@ Partial Public Class UserDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBDD_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -7986,7 +7986,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBDD_GROUPSRow Get Return Me.eventRow @@ -7994,7 +7994,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -8005,7 +8005,7 @@ Partial Public Class UserDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBLOCAL_ADUSERSRowChangeEvent Inherits Global.System.EventArgs @@ -8014,7 +8014,7 @@ Partial Public Class UserDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBLOCAL_ADUSERSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -8022,7 +8022,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBLOCAL_ADUSERSRow Get Return Me.eventRow @@ -8030,7 +8030,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -8041,7 +8041,7 @@ Partial Public Class UserDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBLOCAL_ADGROUPSRowChangeEvent Inherits Global.System.EventArgs @@ -8050,7 +8050,7 @@ Partial Public Class UserDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBLOCAL_ADGROUPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -8058,7 +8058,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBLOCAL_ADGROUPSRow Get Return Me.eventRow @@ -8066,7 +8066,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -8077,7 +8077,7 @@ Partial Public Class UserDataSet ''' '''Row event argument class ''' - _ + _ Public Class TBLOCAL_DEBUG_GROUPSRowChangeEvent Inherits Global.System.EventArgs @@ -8086,7 +8086,7 @@ Partial Public Class UserDataSet Private eventAction As Global.System.Data.DataRowAction _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New(ByVal row As TBLOCAL_DEBUG_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row @@ -8094,7 +8094,7 @@ Partial Public Class UserDataSet End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Row() As TBLOCAL_DEBUG_GROUPSRow Get Return Me.eventRow @@ -8102,7 +8102,7 @@ Partial Public Class UserDataSet End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -8136,14 +8136,14 @@ Namespace UserDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -8154,7 +8154,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -8184,7 +8184,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -8212,7 +8212,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -8223,7 +8223,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -8234,7 +8234,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -8305,14 +8305,14 @@ Namespace UserDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DDUserManager.My.MySettings.Default.DD_ECMConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -8329,7 +8329,7 @@ Namespace UserDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_GROUPS_USERDataTable) As Integer @@ -8342,7 +8342,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As UserDataSet.TBDD_GROUPS_USERDataTable @@ -8353,7 +8353,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByGroupId(ByVal dataTable As UserDataSet.TBDD_GROUPS_USERDataTable, ByVal GROUP_ID As Integer) As Integer @@ -8367,7 +8367,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByGroupId(ByVal GROUP_ID As Integer) As UserDataSet.TBDD_GROUPS_USERDataTable @@ -8379,35 +8379,35 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_GROUPS_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_USER") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer) As Integer @@ -8429,7 +8429,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer @@ -8461,7 +8461,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -8561,7 +8561,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_GROUP_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer @@ -8592,14 +8592,14 @@ Namespace UserDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -8610,7 +8610,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -8640,7 +8640,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -8668,7 +8668,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -8679,7 +8679,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -8690,7 +8690,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -8879,14 +8879,14 @@ Namespace UserDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DDUserManager.My.MySettings.Default.DD_ECMConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -8919,7 +8919,7 @@ Namespace UserDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_MODULESDataTable) As Integer @@ -8932,7 +8932,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As UserDataSet.TBDD_MODULESDataTable @@ -8943,7 +8943,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByUserId_IsAdmin(ByVal dataTable As UserDataSet.TBDD_MODULESDataTable, ByVal USER_ID As Integer) As Integer @@ -8957,7 +8957,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByUserId_IsAdmin(ByVal USER_ID As Integer) As UserDataSet.TBDD_MODULESDataTable @@ -8969,7 +8969,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByUsername(ByVal dataTable As UserDataSet.TBDD_MODULESDataTable, ByVal USERNAME As String) As Integer @@ -8987,7 +8987,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByUsername(ByVal USERNAME As String) As UserDataSet.TBDD_MODULESDataTable @@ -9003,35 +9003,35 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_MODULESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_MODULES") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete( _ @@ -9167,7 +9167,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert( _ @@ -9289,7 +9289,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -9529,7 +9529,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -9598,14 +9598,14 @@ Namespace UserDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -9616,7 +9616,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -9646,7 +9646,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -9674,7 +9674,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -9685,7 +9685,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -9696,7 +9696,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -9760,14 +9760,14 @@ Namespace UserDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DDUserManager.My.MySettings.Default.DD_ECMConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -9777,7 +9777,7 @@ Namespace UserDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_USER_MODULESDataTable) As Integer @@ -9790,7 +9790,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As UserDataSet.TBDD_USER_MODULESDataTable @@ -9801,35 +9801,35 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_USER_MODULESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_USER_MODULES") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal USER_ID As Integer, ByVal MODULE_ID As Integer) As Integer @@ -9851,7 +9851,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal MODULE_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer @@ -9883,7 +9883,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal MODULE_ID As Integer, ByVal IS_ADMIN As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_MODULE_ID As Integer, ByVal Original_IS_ADMIN As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer @@ -9947,7 +9947,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal MODULE_ID As Integer, ByVal IS_ADMIN As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_MODULE_ID As Integer, ByVal Original_IS_ADMIN As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer @@ -9978,14 +9978,14 @@ Namespace UserDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -9996,7 +9996,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -10026,7 +10026,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -10054,7 +10054,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -10065,7 +10065,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -10076,7 +10076,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -10152,14 +10152,14 @@ Namespace UserDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DDUserManager.My.MySettings.Default.DD_ECMConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -10179,7 +10179,7 @@ Namespace UserDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_CLIENTDataTable) As Integer @@ -10192,7 +10192,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As UserDataSet.TBDD_CLIENTDataTable @@ -10203,7 +10203,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByUsername(ByVal dataTable As UserDataSet.TBDD_CLIENTDataTable, ByVal USERNAME As String) As Integer @@ -10221,7 +10221,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByUsername(ByVal USERNAME As String) As UserDataSet.TBDD_CLIENTDataTable @@ -10237,35 +10237,35 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_CLIENTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_CLIENT") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_CLIENT_NAME As String, ByVal Original_SHORTNAME As String, ByVal Original_LICENSE_PMO As String, ByVal Original_LICENSE_GI As String, ByVal Original_LICENSE_PM As String, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer @@ -10346,7 +10346,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal CLIENT_NAME As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer @@ -10386,7 +10386,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal CLIENT_NAME As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -10451,14 +10451,14 @@ Namespace UserDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -10469,7 +10469,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -10499,7 +10499,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -10527,7 +10527,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -10538,7 +10538,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -10549,7 +10549,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -10610,14 +10610,14 @@ Namespace UserDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DDUserManager.My.MySettings.Default.DD_ECMConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -10627,7 +10627,7 @@ Namespace UserDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_CLIENT_USERDataTable) As Integer @@ -10640,7 +10640,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As UserDataSet.TBDD_CLIENT_USERDataTable @@ -10651,35 +10651,35 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_CLIENT_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_CLIENT_USER") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal USER_ID As Integer, ByVal CLIENT_ID As Integer) As Integer @@ -10701,7 +10701,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal CLIENT_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer @@ -10733,7 +10733,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal CLIENT_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_CLIENT_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer @@ -10795,7 +10795,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal CLIENT_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_CLIENT_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer @@ -10826,14 +10826,14 @@ Namespace UserDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -10844,7 +10844,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -10874,7 +10874,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -10902,7 +10902,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -10913,7 +10913,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -10924,7 +10924,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -10993,14 +10993,14 @@ Namespace UserDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DDUserManager.My.MySettings.Default.DD_ECMConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(10) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -11108,7 +11108,7 @@ Namespace UserDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_USERDataTable) As Integer @@ -11121,7 +11121,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As UserDataSet.TBDD_USERDataTable @@ -11132,7 +11132,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByClientId(ByVal dataTable As UserDataSet.TBDD_USERDataTable, ByVal CLIENT_ID As Integer) As Integer @@ -11146,7 +11146,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByClientId(ByVal CLIENT_ID As Integer) As UserDataSet.TBDD_USERDataTable @@ -11158,7 +11158,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByClientId_NotInClient(ByVal dataTable As UserDataSet.TBDD_USERDataTable, ByVal CLIENT_ID As Integer) As Integer @@ -11172,7 +11172,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByClientId_NotInClient(ByVal CLIENT_ID As Integer) As UserDataSet.TBDD_USERDataTable @@ -11184,7 +11184,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByGroupId(ByVal dataTable As UserDataSet.TBDD_USERDataTable, ByVal GROUP_ID As Integer) As Integer @@ -11198,7 +11198,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByGroupId(ByVal GROUP_ID As Integer) As UserDataSet.TBDD_USERDataTable @@ -11210,7 +11210,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByGroupId_NotInGroup(ByVal dataTable As UserDataSet.TBDD_USERDataTable, ByVal GROUP_ID As Integer) As Integer @@ -11224,7 +11224,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByGroupId_NotInGroup(ByVal GROUP_ID As Integer) As UserDataSet.TBDD_USERDataTable @@ -11236,7 +11236,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByModuleId(ByVal dataTable As UserDataSet.TBDD_USERDataTable, ByVal MODULE_ID As Integer) As Integer @@ -11250,7 +11250,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByModuleId(ByVal MODULE_ID As Integer) As UserDataSet.TBDD_USERDataTable @@ -11262,7 +11262,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByModuleId_NotInModule(ByVal dataTable As UserDataSet.TBDD_USERDataTable, ByVal MODULE_ID As Integer) As Integer @@ -11276,7 +11276,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByModuleId_NotInModule(ByVal MODULE_ID As Integer) As UserDataSet.TBDD_USERDataTable @@ -11288,7 +11288,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByUsername(ByVal dataTable As UserDataSet.TBDD_USERDataTable, ByVal USERNAME As String) As Integer @@ -11306,7 +11306,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByUsername(ByVal USERNAME As String) As UserDataSet.TBDD_USERDataTable @@ -11322,35 +11322,35 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_USER") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer @@ -11371,7 +11371,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal SHORTNAME As String, ByVal EMAIL As String, ByVal LANGUAGE As String, ByVal COMMENT As String, ByVal DATE_FORMAT As String, ByVal ADDED_WHO As String) As Integer @@ -11436,7 +11436,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal SHORTNAME As String, ByVal EMAIL As String, ByVal LANGUAGE As String, ByVal COMMENT As String, ByVal DATE_FORMAT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer @@ -11503,7 +11503,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function InsertUser(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal ADDED_WHO As String) As Integer @@ -11550,7 +11550,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function IsUserManagerAdmin(ByVal USERNAME As String) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(9) @@ -11581,7 +11581,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function UserExists(ByVal USERNAME As String) As Global.System.Nullable(Of Integer) Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(10) @@ -11635,14 +11635,14 @@ Namespace UserDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -11653,7 +11653,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -11683,7 +11683,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -11711,7 +11711,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -11722,7 +11722,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -11733,7 +11733,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -11804,14 +11804,14 @@ Namespace UserDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DDUserManager.My.MySettings.Default.DD_ECMConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -11821,7 +11821,7 @@ Namespace UserDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_GROUPS_MODULESDataTable) As Integer @@ -11834,7 +11834,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As UserDataSet.TBDD_GROUPS_MODULESDataTable @@ -11845,35 +11845,35 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_GROUPS_MODULESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_MODULES") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_MODULE_ID As Integer, ByVal Original_GROUP_ID As Integer) As Integer @@ -11895,7 +11895,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal MODULE_ID As Integer, ByVal GROUP_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer @@ -11927,7 +11927,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -12027,7 +12027,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal MODULE_ID As Integer, ByVal GROUP_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_MODULE_ID As Integer, ByVal Original_GROUP_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer @@ -12058,14 +12058,14 @@ Namespace UserDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -12076,7 +12076,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -12106,7 +12106,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -12134,7 +12134,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -12145,7 +12145,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -12156,7 +12156,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -12227,14 +12227,14 @@ Namespace UserDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DDUserManager.My.MySettings.Default.DD_ECMConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -12244,7 +12244,7 @@ Namespace UserDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_GROUPS_CLIENTDataTable) As Integer @@ -12257,7 +12257,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As UserDataSet.TBDD_GROUPS_CLIENTDataTable @@ -12268,35 +12268,35 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_GROUPS_CLIENTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_CLIENT") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_CLIENT_ID As Integer, ByVal Original_GROUP_ID As Integer) As Integer @@ -12318,7 +12318,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal CLIENT_ID As Integer, ByVal GROUP_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer @@ -12350,7 +12350,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -12450,7 +12450,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal CLIENT_ID As Integer, ByVal GROUP_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_CLIENT_ID As Integer, ByVal Original_GROUP_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer @@ -12481,14 +12481,14 @@ Namespace UserDataSetTableAdapters Private _clearBeforeFill As Boolean _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then @@ -12499,7 +12499,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then @@ -12529,7 +12529,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction @@ -12557,7 +12557,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then @@ -12568,7 +12568,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill @@ -12579,7 +12579,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ 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() @@ -12599,34 +12599,9 @@ Namespace UserDataSetTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_GROUPS] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = 1"& _ - " AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([INTERNAL] = @Original_I"& _ - "NTERNAL) AND ([AD_SYNC] = @Original_AD_SYNC) AND ((@IsNull_COMMENT = 1 AND [COMM"& _ - "ENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AN"& _ - "D [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADD"& _ - "ED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) "& _ - "AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Or"& _ - "iginal_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) "& _ - "OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([ECM_FK_ID] = @Original_ECM_F"& _ - "K_ID) AND ([ACTIVE] = @Original_ACTIVE))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INTERNAL", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AD_SYNC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AD_SYNC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ECM_FK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ECM_FK_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.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.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_GROUPS] ([NAME], [INTERNAL], [AD_SYNC], [COMMENT], [ADDED_WHO],"& _ @@ -12695,14 +12670,14 @@ Namespace UserDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DDUserManager.My.MySettings.Default.DD_ECMConnectionString + Me._connection.ConnectionString = Global.DDUserManager.My.MySettings.Default.DD_ECM_TESTConnectionString End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(7) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -12768,7 +12743,7 @@ Namespace UserDataSetTableAdapters End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_GROUPSDataTable) As Integer @@ -12781,7 +12756,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetData() As UserDataSet.TBDD_GROUPSDataTable @@ -12792,7 +12767,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByClientId(ByVal dataTable As UserDataSet.TBDD_GROUPSDataTable, ByVal CLIENT_ID As Integer) As Integer @@ -12806,7 +12781,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByClientId(ByVal CLIENT_ID As Integer) As UserDataSet.TBDD_GROUPSDataTable @@ -12818,7 +12793,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByClientId_NotInClient(ByVal dataTable As UserDataSet.TBDD_GROUPSDataTable, ByVal CLIENT_ID As Integer) As Integer @@ -12832,7 +12807,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByClientId_NotInClient(ByVal CLIENT_ID As Integer) As UserDataSet.TBDD_GROUPSDataTable @@ -12844,7 +12819,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByModuleId(ByVal dataTable As UserDataSet.TBDD_GROUPSDataTable, ByVal MODULE_ID As Integer) As Integer @@ -12858,7 +12833,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByModuleId(ByVal MODULE_ID As Integer) As UserDataSet.TBDD_GROUPSDataTable @@ -12870,7 +12845,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByModuleId_NotInModule(ByVal dataTable As UserDataSet.TBDD_GROUPSDataTable, ByVal MODULE_ID As Integer) As Integer @@ -12884,7 +12859,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByModuleId_NotInModule(ByVal MODULE_ID As Integer) As UserDataSet.TBDD_GROUPSDataTable @@ -12896,7 +12871,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function FillByUsername(ByVal dataTable As UserDataSet.TBDD_GROUPSDataTable, ByVal USERNAME As String) As Integer @@ -12914,7 +12889,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function GetDataByUsername(ByVal USERNAME As String) As UserDataSet.TBDD_GROUPSDataTable @@ -12930,85 +12905,39 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_GROUPSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer Return Me.Adapter.Update(dataSet, "TBDD_GROUPS") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_INTERNAL As Boolean, ByVal Original_AD_SYNC As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_ECM_FK_ID As Integer, ByVal Original_ACTIVE As Boolean) As Integer + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_NAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_NAME,String) - End If - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_INTERNAL,Boolean) - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_AD_SYNC,Boolean) - If (Original_COMMENT Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_COMMENT,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value - End If - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_ECM_FK_ID,Integer) - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_ACTIVE,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -13025,7 +12954,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal INTERNAL As Boolean, ByVal AD_SYNC As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal ECM_FK_ID As Integer, ByVal ACTIVE As Boolean) As Integer @@ -13079,7 +13008,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -13203,7 +13132,7 @@ Namespace UserDataSetTableAdapters End Function _ Public Overloads Overridable Function Update( _ @@ -13232,9 +13161,9 @@ Namespace UserDataSetTableAdapters End Function _ - Public Overloads Overridable Function GroupExists(ByVal NAME As String) As Global.System.Nullable(Of Integer) + Public Overloads Overridable Function GroupExists(ByVal NAME As String) As Object Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) If (NAME Is Nothing) Then command.Parameters(0).Value = Global.System.DBNull.Value @@ -13256,14 +13185,14 @@ Namespace UserDataSetTableAdapters End Try If ((returnValue Is Nothing) _ OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Integer)() + Return Nothing Else - Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + Return CType(returnValue,Object) End If End Function _ Public Overloads Overridable Function InsertGroup(ByVal NAME As String, ByVal ADDED_WHO As String) As Integer @@ -13310,7 +13239,7 @@ Namespace UserDataSetTableAdapters Private _commandCollection() As Global.System.Data.IDbCommand _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected ReadOnly Property CommandCollection() As Global.System.Data.IDbCommand() Get If (Me._commandCollection Is Nothing) Then @@ -13321,7 +13250,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.IDbCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() @@ -13333,7 +13262,7 @@ Namespace UserDataSetTableAdapters End Sub _ Public Overloads Overridable Function PRDD_DELETE_USER(ByVal pUSER_ID As Global.System.Nullable(Of Integer)) As Integer Dim command As Global.System.Data.SqlClient.SqlCommand = CType(Me.CommandCollection(0),Global.System.Data.SqlClient.SqlCommand) @@ -13395,7 +13324,7 @@ Namespace UserDataSetTableAdapters Private _connection As Global.System.Data.IDbConnection _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder @@ -13406,7 +13335,7 @@ Namespace UserDataSetTableAdapters End Property _ @@ -13420,7 +13349,7 @@ Namespace UserDataSetTableAdapters End Property _ @@ -13434,7 +13363,7 @@ Namespace UserDataSetTableAdapters End Property _ @@ -13448,7 +13377,7 @@ Namespace UserDataSetTableAdapters End Property _ @@ -13462,7 +13391,7 @@ Namespace UserDataSetTableAdapters End Property _ @@ -13476,7 +13405,7 @@ Namespace UserDataSetTableAdapters End Property _ @@ -13490,7 +13419,7 @@ Namespace UserDataSetTableAdapters End Property _ @@ -13504,7 +13433,7 @@ Namespace UserDataSetTableAdapters End Property _ @@ -13518,7 +13447,7 @@ Namespace UserDataSetTableAdapters End Property _ @@ -13532,7 +13461,7 @@ Namespace UserDataSetTableAdapters End Property _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate @@ -13543,7 +13472,7 @@ Namespace UserDataSetTableAdapters End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get @@ -13594,7 +13523,7 @@ Namespace UserDataSetTableAdapters End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get @@ -13634,7 +13563,7 @@ Namespace UserDataSetTableAdapters '''Update rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateUpdatedRows(ByVal dataSet As UserDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBDD_MODULESTableAdapter) Is Nothing) Then @@ -13725,7 +13654,7 @@ Namespace UserDataSetTableAdapters '''Insert rows in top-down order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateInsertedRows(ByVal dataSet As UserDataSet, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBDD_MODULESTableAdapter) Is Nothing) Then @@ -13807,7 +13736,7 @@ Namespace UserDataSetTableAdapters '''Delete rows in bottom-up order. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As UserDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBDD_GROUPS_CLIENTTableAdapter) Is Nothing) Then @@ -13889,7 +13818,7 @@ Namespace UserDataSetTableAdapters '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then @@ -13915,7 +13844,7 @@ Namespace UserDataSetTableAdapters '''Update all changes to the dataset. ''' _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Overridable Function UpdateAll(ByVal dataSet As UserDataSet) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") @@ -14194,13 +14123,13 @@ Namespace UserDataSetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then Return true @@ -14218,7 +14147,7 @@ Namespace UserDataSetTableAdapters ''' '''Update Order Option ''' - _ + _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 @@ -14229,7 +14158,7 @@ Namespace UserDataSetTableAdapters ''' '''Used to sort self-referenced table's rows ''' - _ + _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) @@ -14239,7 +14168,7 @@ Namespace UserDataSetTableAdapters Private _childFirst As Integer _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation @@ -14251,7 +14180,7 @@ Namespace UserDataSetTableAdapters End Sub _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row @@ -14290,7 +14219,7 @@ Namespace UserDataSetTableAdapters End Function _ + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare If Object.ReferenceEquals(row1, row2) Then Return 0 diff --git a/DDUserManager/DDUserManager/UserDataSet.xsd b/DDUserManager/DDUserManager/UserDataSet.xsd index f25d65e..417a681 100644 --- a/DDUserManager/DDUserManager/UserDataSet.xsd +++ b/DDUserManager/DDUserManager/UserDataSet.xsd @@ -2,9 +2,10 @@ - + - + + @@ -893,28 +894,13 @@ SELECT GUID, CLIENT_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C - + - - DELETE FROM [TBDD_GROUPS] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([INTERNAL] = @Original_INTERNAL) AND ([AD_SYNC] = @Original_AD_SYNC) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([ECM_FK_ID] = @Original_ECM_FK_ID) AND ([ACTIVE] = @Original_ACTIVE)) + + DELETE FROM TBDD_GROUPS +WHERE (GUID = @Original_GUID) - - - - - - - - - - - - - - - - - + @@ -995,7 +981,7 @@ SELECT GUID, NAME, INTERNAL, AD_SYNC, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WH - + SELECT T1.GUID, T1.NAME, T1.ECM_FK_ID, T1.AD_SYNC, T1.INTERNAL, T1.ACTIVE, T1.COMMENT, T1.ADDED_WHO, T1.ADDED_WHEN, T1.CHANGED_WHO, T1.CHANGED_WHEN @@ -1008,7 +994,7 @@ WHERE (T2.CLIENT_ID = @CLIENT_ID) - + SELECT * @@ -1024,7 +1010,7 @@ WHERE (GUID NOT IN - + SELECT T1.GUID, T1.NAME, T1.ECM_FK_ID, T1.AD_SYNC, T1.INTERNAL, T1.ACTIVE, T1.COMMENT, T1.ADDED_WHO, T1.ADDED_WHEN, T1.CHANGED_WHO, T1.CHANGED_WHEN @@ -1038,7 +1024,7 @@ WHERE (T2.MODULE_ID = @MODULE_ID) - + SELECT * @@ -1054,7 +1040,7 @@ WHERE (GUID NOT IN - + SELECT T2.ACTIVE, T2.ADDED_WHEN, T2.ADDED_WHO, T2.AD_SYNC, T2.CHANGED_WHEN, T2.CHANGED_WHO, T2.COMMENT, T2.ECM_FK_ID, T2.GUID, T2.INTERNAL, T2.NAME FROM TBDD_GROUPS_USER AS T1 INNER JOIN TBDD_GROUPS AS T2 ON T1.GROUP_ID = T2.GUID INNER JOIN TBDD_USER AS T3 ON T1.USER_ID = T3.GUID WHERE (T3.USERNAME = @USERNAME) @@ -1064,7 +1050,7 @@ WHERE (GUID NOT IN - + SELECT GUID @@ -1076,7 +1062,7 @@ WHERE (NAME = @NAME) - + INSERT INTO TBDD_GROUPS @@ -1111,7 +1097,7 @@ VALUES (@NAME,@ADDED_WHO, 1, 1, 0, 1) - + @@ -1143,7 +1129,7 @@ VALUES (@NAME,@ADDED_WHO, 1, 1, 0, 1) - + @@ -1247,7 +1233,7 @@ VALUES (@NAME,@ADDED_WHO, 1, 1, 0, 1) - + @@ -1272,7 +1258,7 @@ VALUES (@NAME,@ADDED_WHO, 1, 1, 0, 1) - + @@ -1337,7 +1323,7 @@ VALUES (@NAME,@ADDED_WHO, 1, 1, 0, 1) - + @@ -1361,7 +1347,7 @@ VALUES (@NAME,@ADDED_WHO, 1, 1, 0, 1) - + @@ -1440,7 +1426,7 @@ VALUES (@NAME,@ADDED_WHO, 1, 1, 0, 1) - + @@ -1450,14 +1436,14 @@ VALUES (@NAME,@ADDED_WHO, 1, 1, 0, 1) - + - + @@ -1489,7 +1475,7 @@ VALUES (@NAME,@ADDED_WHO, 1, 1, 0, 1) - + @@ -1521,7 +1507,7 @@ VALUES (@NAME,@ADDED_WHO, 1, 1, 0, 1) - + @@ -1562,7 +1548,7 @@ VALUES (@NAME,@ADDED_WHO, 1, 1, 0, 1) - + @@ -1616,16 +1602,16 @@ VALUES (@NAME,@ADDED_WHO, 1, 1, 0, 1) - - - - - - - - - - + + + + + + + + + + \ No newline at end of file diff --git a/DDUserManager/DDUserManager/UserDataSet.xss b/DDUserManager/DDUserManager/UserDataSet.xss index a8478c2..b40676f 100644 --- a/DDUserManager/DDUserManager/UserDataSet.xss +++ b/DDUserManager/DDUserManager/UserDataSet.xss @@ -4,7 +4,7 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + diff --git a/DDUserManager/DDUserManager/frmMain.vb b/DDUserManager/DDUserManager/frmMain.vb index 3570fc5..f67cde2 100644 --- a/DDUserManager/DDUserManager/frmMain.vb +++ b/DDUserManager/DDUserManager/frmMain.vb @@ -1153,4 +1153,18 @@ Public Class frmMain txtLDAPUserQuery.Text = MyConfig.Config.AdUserFilter End If End Sub + + Private Sub BindingNavigatorDeleteItem1_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem1.Click + If MessageBox.Show("Wollen Sie die ausgewählte Gruppe löschen? Bestehende Benutzer-Zuordnungen werden entfernt", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then + Try + Validate() + TBDD_GROUPSBindingSource1.EndEdit() + TBDD_GROUPSTableAdapter.Delete(GUIDTextBox1.Text) + + UpdateSavedLabel() + Catch ex As Exception + ShowErrorMessage($"Error while deleting group", ex) + End Try + End If + End Sub End Class