From 4cae296541178bf99029718bcc076de996b6d78a Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Wed, 13 Jun 2018 17:15:16 +0200 Subject: [PATCH] jj: fix group index corruption, work on active directory --- .../DDUserManager/ClassActiveDirectory.vb | 43 + .../DDUserManager/DDUserManager.vbproj | 16 + .../DDUserManager/DS_ChangeS.Designer.vb | 2046 ++++++ DDUserManager/DDUserManager/DS_ChangeS.xsc | 9 + DDUserManager/DDUserManager/DS_ChangeS.xsd | 236 + DDUserManager/DDUserManager/DS_ChangeS.xss | 12 + .../DDUserManager/UserDataSet.Designer.vb | 6429 +++++++++-------- DDUserManager/DDUserManager/UserDataSet.xsd | 475 +- DDUserManager/DDUserManager/UserDataSet.xss | 164 +- .../frmADImport_Groups.Designer.vb | 6 +- .../DDUserManager/frmADImport_Groups.vb | 6 +- .../frmADImport_Users.Designer.vb | 10 +- .../DDUserManager/frmADImport_Users.vb | 3 +- .../DDUserManager/frmMain.Designer.vb | 83 +- DDUserManager/DDUserManager/frmMain.resx | 183 +- DDUserManager/DDUserManager/frmMain.vb | 38 +- 16 files changed, 6273 insertions(+), 3486 deletions(-) create mode 100644 DDUserManager/DDUserManager/DS_ChangeS.Designer.vb create mode 100644 DDUserManager/DDUserManager/DS_ChangeS.xsc create mode 100644 DDUserManager/DDUserManager/DS_ChangeS.xsd create mode 100644 DDUserManager/DDUserManager/DS_ChangeS.xss diff --git a/DDUserManager/DDUserManager/ClassActiveDirectory.vb b/DDUserManager/DDUserManager/ClassActiveDirectory.vb index ed3aad6..59af1f0 100644 --- a/DDUserManager/DDUserManager/ClassActiveDirectory.vb +++ b/DDUserManager/DDUserManager/ClassActiveDirectory.vb @@ -41,6 +41,49 @@ Public Class ClassActiveDirectory "Zulässige" } + Private Shared Function GetDirectoryEntry() + Dim de As New DirectoryEntry($"LDAP://{Environment.UserDomainName}") + de.Username = Nothing + de.Password = Nothing + de.AuthenticationType = AuthenticationTypes.Secure + + Return de + End Function + + Public Shared Function GetDirectorySearch() As DirectorySearcher + Dim dirEntry As DirectoryEntry = GetDirectoryEntry() + Dim dirSearcher As DirectorySearcher = New DirectorySearcher(dirEntry) + Return dirSearcher + End Function + + Public Shared Function GetActiveDirectoryGroups() As List(Of String) + Dim groups As New List(Of String) + Dim de As DirectoryEntry = GetDirectoryEntry() + Dim deSearch As DirectorySearcher = New DirectorySearcher() + deSearch.SearchRoot = de + + deSearch.Filter = "(&(objectClass=group) (samAccountName=" & "*" & "))" + Dim results As SearchResultCollection = deSearch.FindAll() + For Each r As SearchResult In results + Try + Dim groupName = r.GetDirectoryEntry.Name.Replace("CN=", "") + + If Not IsNothing(groupName) Then + Dim isValidGroup As Boolean = excludedGroupNames.Where(Function(excludedGroup) + Return Not (groupName.Contains(excludedGroup) Or groupName.StartsWith(excludedGroup)) + End Function).Any() + + If isValidGroup Then + groups.Add(groupName) + End If + End If + Catch + End Try + Next + + Return groups + End Function + Public Shared Function GetActiveDirectoryGroups(samAccountName As String) As List(Of String) Dim groups As New List(Of String) Dim adRoot As New DirectoryEntry() With { diff --git a/DDUserManager/DDUserManager/DDUserManager.vbproj b/DDUserManager/DDUserManager/DDUserManager.vbproj index 54bbca7..8dc112c 100644 --- a/DDUserManager/DDUserManager/DDUserManager.vbproj +++ b/DDUserManager/DDUserManager/DDUserManager.vbproj @@ -95,6 +95,11 @@ + + True + True + DS_ChangeS.xsd + frmConfigDatabase.vb @@ -168,6 +173,17 @@ + + DS_ChangeS.xsd + + + Designer + MSDataSetGenerator + DS_ChangeS.Designer.vb + + + DS_ChangeS.xsd + MyApplicationCodeGenerator Application.Designer.vb diff --git a/DDUserManager/DDUserManager/DS_ChangeS.Designer.vb b/DDUserManager/DDUserManager/DS_ChangeS.Designer.vb new file mode 100644 index 0000000..fc086a8 --- /dev/null +++ b/DDUserManager/DDUserManager/DS_ChangeS.Designer.vb @@ -0,0 +1,2046 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class DS_ChangeS + Inherits Global.System.Data.DataSet + + Private tableTBDD_GROUPS As TBDD_GROUPSDataTable + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("TBDD_GROUPS")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_GROUPSDataTable(ds.Tables("TBDD_GROUPS"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property TBDD_GROUPS() As TBDD_GROUPSDataTable + Get + Return Me.tableTBDD_GROUPS + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As DS_ChangeS = CType(MyBase.Clone,DS_ChangeS) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("TBDD_GROUPS")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_GROUPSDataTable(ds.Tables("TBDD_GROUPS"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableTBDD_GROUPS = CType(MyBase.Tables("TBDD_GROUPS"),TBDD_GROUPSDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_GROUPS) Is Nothing) Then + Me.tableTBDD_GROUPS.InitVars + End If + End If + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "DS_ChangeS" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/DS_ChangeS.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableTBDD_GROUPS = New TBDD_GROUPSDataTable() + MyBase.Tables.Add(Me.tableTBDD_GROUPS) + End Sub + + _ + Private Function ShouldSerializeTBDD_GROUPS() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As DS_ChangeS = New DS_ChangeS() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub TBDD_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPSRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_GROUPSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPSRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnECM_FK_ID As Global.System.Data.DataColumn + + Private columnAD_SYNC As Global.System.Data.DataColumn + + Private columnINTERNAL As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_GROUPS" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property ECM_FK_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnECM_FK_ID + End Get + End Property + + _ + Public ReadOnly Property AD_SYNCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAD_SYNC + End Get + End Property + + _ + Public ReadOnly Property INTERNALColumn() As Global.System.Data.DataColumn + Get + Return Me.columnINTERNAL + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As 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 + + _ + Public Overloads Sub AddTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) + Me.Rows.Add(row) + End Sub + + _ + 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} + rowTBDD_GROUPSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_GROUPSRow) + Return rowTBDD_GROUPSRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPSRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPSRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_GROUPSDataTable = CType(MyBase.Clone,TBDD_GROUPSDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_GROUPSDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnECM_FK_ID = MyBase.Columns("ECM_FK_ID") + Me.columnAD_SYNC = MyBase.Columns("AD_SYNC") + Me.columnINTERNAL = MyBase.Columns("INTERNAL") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnECM_FK_ID = New Global.System.Data.DataColumn("ECM_FK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnECM_FK_ID) + Me.columnAD_SYNC = New Global.System.Data.DataColumn("AD_SYNC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAD_SYNC) + Me.columnINTERNAL = New Global.System.Data.DataColumn("INTERNAL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnINTERNAL) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnNAME.MaxLength = 50 + Me.columnECM_FK_ID.AllowDBNull = false + Me.columnECM_FK_ID.DefaultValue = CType(0,Integer) + Me.columnAD_SYNC.AllowDBNull = false + Me.columnAD_SYNC.DefaultValue = CType(false,Boolean) + Me.columnINTERNAL.AllowDBNull = false + Me.columnINTERNAL.DefaultValue = CType(false,Boolean) + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(true,Boolean) + Me.columnCOMMENT.MaxLength = 200 + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBDD_GROUPSRow() As TBDD_GROUPSRow + Return CType(Me.NewRow,TBDD_GROUPSRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_GROUPSRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_GROUPSRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_GROUPSRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPSRowChanged(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_GROUPSRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPSRowChanging(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_GROUPSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPSRowDeleted(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_GROUPSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPSRowDeleting(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DS_ChangeS = New DS_ChangeS() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_GROUPSDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_GROUPSRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_GROUPS As TBDD_GROUPSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_GROUPS = CType(Me.Table,TBDD_GROUPSDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_GROUPS.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_GROUPS.GUIDColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS.NAMEColumn) = value + End Set + End Property + + _ + Public Property ECM_FK_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn) = value + End Set + End Property + + _ + Public Property AD_SYNC() As Boolean + Get + Return CType(Me(Me.tableTBDD_GROUPS.AD_SYNCColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_GROUPS.AD_SYNCColumn) = value + End Set + End Property + + _ + Public Property INTERNAL() As Boolean + Get + Return CType(Me(Me.tableTBDD_GROUPS.INTERNALColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_GROUPS.INTERNALColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBDD_GROUPS.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_GROUPS.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS.COMMENTColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBDD_GROUPS.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_GROUPS.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_GROUPSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_GROUPSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_GROUPSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace DS_ChangeSTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_GROUPSTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_GROUPS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("ECM_FK_ID", "ECM_FK_ID") + tableMapping.ColumnMappings.Add("AD_SYNC", "AD_SYNC") + tableMapping.ColumnMappings.Add("INTERNAL", "INTERNAL") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + 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.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] ([NAME], [ECM_FK_ID], [AD_SYNC], [INTERNAL], [ACTIVE], "& _ + "[COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@NA"& _ + "ME, @ECM_FK_ID, @AD_SYNC, @INTERNAL, @ACTIVE, @COMMENT, @ADDED_WHO, @ADDED_WHEN,"& _ + " @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL,"& _ + " ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GRO"& _ + "UPS WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ECM_FK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ECM_FK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AD_SYNC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AD_SYNC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERNAL", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, ECM_FK_ID = @ECM_FK_ID"& _ + ", AD_SYNC = @AD_SYNC, INTERNAL = @INTERNAL, ACTIVE = @ACTIVE, COMMENT = @COMMENT"& _ + ", CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUI"& _ + "D, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, C"& _ + "HANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ECM_FK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ECM_FK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AD_SYNC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AD_SYNC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERNAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DDUserManager.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(6) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WH"& _ + "O, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "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"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBDD_GROUPS AS T1 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_GROUPS_CL"& _ + "IENT AS T2 ON T1.GUID = T2.GROUP_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.CLIENT_ID = @CLIENT_ID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT *"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT DISTINCT T.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FRO"& _ + "M TBDD_GROUPS AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_GROUPS_CLIENT AS T1 ON T.GUID = T1.GROUP_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (T1.CLIENT_ID = @CLIENT_ID)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10) + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "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"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBDD_GROUPS AS T1 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_GROUPS_MO"& _ + "DULES AS T2 ON T1.GUID = T2.GROUP_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.MODULE_ID = @MODULE_ID)" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "SELECT *"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT DISTINCT T.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FRO"& _ + "M TBDD_GROUPS AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_GROUPS_MODULES AS T1 ON T.GUID = T1.GROUP_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (T1.MODULE_ID = @MODULE_ID)))" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(5).Connection = Me.Connection + Me._commandCollection(5).CommandText = "SELECT T2.ACTIVE, T2.ADDED_WHEN, T2.ADDED_WHO, T2.AD_SYNC, T2.CHANGED_WHEN, T2.CH"& _ + "ANGED_WHO, T2.COMMENT, T2.ECM_FK_ID, T2.GUID, T2.INTERNAL, T2.NAME FROM TBDD_GRO"& _ + "UPS_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)" + Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(6).Connection = Me.Connection + Me._commandCollection(6).CommandText = "SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (NAME = @NAME)" + Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DS_ChangeS.TBDD_GROUPSDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DS_ChangeS.TBDD_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DS_ChangeS.TBDD_GROUPSDataTable = New DS_ChangeS.TBDD_GROUPSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByClientId(ByVal dataTable As DS_ChangeS.TBDD_GROUPSDataTable, ByVal CLIENT_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(CLIENT_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByClientId(ByVal CLIENT_ID As Integer) As DS_ChangeS.TBDD_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(CLIENT_ID,Integer) + Dim dataTable As DS_ChangeS.TBDD_GROUPSDataTable = New DS_ChangeS.TBDD_GROUPSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByClientId_NotInClient(ByVal dataTable As DS_ChangeS.TBDD_GROUPSDataTable, ByVal CLIENT_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(2) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(CLIENT_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByClientId_NotInClient(ByVal CLIENT_ID As Integer) As DS_ChangeS.TBDD_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(2) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(CLIENT_ID,Integer) + Dim dataTable As DS_ChangeS.TBDD_GROUPSDataTable = New DS_ChangeS.TBDD_GROUPSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByModuleId(ByVal dataTable As DS_ChangeS.TBDD_GROUPSDataTable, ByVal MODULE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(3) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MODULE_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByModuleId(ByVal MODULE_ID As Integer) As DS_ChangeS.TBDD_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(3) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MODULE_ID,Integer) + Dim dataTable As DS_ChangeS.TBDD_GROUPSDataTable = New DS_ChangeS.TBDD_GROUPSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByModuleId_NotInModule(ByVal dataTable As DS_ChangeS.TBDD_GROUPSDataTable, ByVal MODULE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(4) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MODULE_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByModuleId_NotInModule(ByVal MODULE_ID As Integer) As DS_ChangeS.TBDD_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(4) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MODULE_ID,Integer) + Dim dataTable As DS_ChangeS.TBDD_GROUPSDataTable = New DS_ChangeS.TBDD_GROUPSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByUsername(ByVal dataTable As DS_ChangeS.TBDD_GROUPSDataTable, ByVal USERNAME As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(5) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByUsername(ByVal USERNAME As String) As DS_ChangeS.TBDD_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(5) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + End If + Dim dataTable As DS_ChangeS.TBDD_GROUPSDataTable = New DS_ChangeS.TBDD_GROUPSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + 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 + 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 + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + 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 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)) As Integer + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ECM_FK_ID,Integer) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(AD_SYNC,Boolean) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(INTERNAL,Boolean) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + 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 + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ECM_FK_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(AD_SYNC,Boolean) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(INTERNAL,Boolean) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(COMMENT,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function GroupExists(ByVal NAME As String) As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) + If (NAME Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(NAME,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _tBDD_GROUPSTableAdapter As TBDD_GROUPSTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property TBDD_GROUPSTableAdapter() As TBDD_GROUPSTableAdapter + Get + Return Me._tBDD_GROUPSTableAdapter + End Get + Set + Me._tBDD_GROUPSTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_GROUPSTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_GROUPSTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + 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 + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_GROUPSTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + 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 + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_GROUPSTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + 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 + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_GROUPSTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As DS_ChangeS) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_GROUPSTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ + "t.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ + "ion nicht zu.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_GROUPSTableAdapter, Me._tBDD_GROUPSTableAdapter.Connection) + Me._tBDD_GROUPSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_GROUPSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_GROUPSTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then + Me._tBDD_GROUPSTableAdapter.Connection = CType(revertConnections(Me._tBDD_GROUPSTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_GROUPSTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/DDUserManager/DDUserManager/DS_ChangeS.xsc b/DDUserManager/DDUserManager/DS_ChangeS.xsc new file mode 100644 index 0000000..05b0199 --- /dev/null +++ b/DDUserManager/DDUserManager/DS_ChangeS.xsc @@ -0,0 +1,9 @@ + + + + + \ No newline at end of file diff --git a/DDUserManager/DDUserManager/DS_ChangeS.xsd b/DDUserManager/DDUserManager/DS_ChangeS.xsd new file mode 100644 index 0000000..d9beceb --- /dev/null +++ b/DDUserManager/DDUserManager/DS_ChangeS.xsd @@ -0,0 +1,236 @@ + + + + + + + + + + + + + + + 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))) + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO [TBDD_GROUPS] ([NAME], [ECM_FK_ID], [AD_SYNC], [INTERNAL], [ACTIVE], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@NAME, @ECM_FK_ID, @AD_SYNC, @INTERNAL, @ACTIVE, @COMMENT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBDD_GROUPS + + + + + + UPDATE TBDD_GROUPS +SET NAME = @NAME, ECM_FK_ID = @ECM_FK_ID, AD_SYNC = @AD_SYNC, INTERNAL = @INTERNAL, ACTIVE = @ACTIVE, COMMENT = @COMMENT, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 +FROM TBDD_GROUPS AS T1 INNER JOIN + TBDD_GROUPS_CLIENT AS T2 ON T1.GUID = T2.GROUP_ID +WHERE (T2.CLIENT_ID = @CLIENT_ID) + + + + + + + + + + SELECT * +FROM TBDD_GROUPS +WHERE (GUID NOT IN + (SELECT DISTINCT T.GUID + FROM TBDD_GROUPS AS T INNER JOIN + TBDD_GROUPS_CLIENT AS T1 ON T.GUID = T1.GROUP_ID + WHERE (T1.CLIENT_ID = @CLIENT_ID))) + + + + + + + + + + + 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 +FROM TBDD_GROUPS AS T1 INNER JOIN + TBDD_GROUPS_MODULES AS T2 ON T1.GUID = T2.GROUP_ID +WHERE (T2.MODULE_ID = @MODULE_ID) + + + + + + + + + + SELECT * +FROM TBDD_GROUPS +WHERE (GUID NOT IN + (SELECT DISTINCT T.GUID + FROM TBDD_GROUPS AS T INNER JOIN + TBDD_GROUPS_MODULES AS T1 ON T.GUID = T1.GROUP_ID + WHERE (T1.MODULE_ID = @MODULE_ID))) + + + + + + + + + + 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) + + + + + + + + + + SELECT GUID +FROM TBDD_GROUPS +WHERE (NAME = @NAME) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/DDUserManager/DDUserManager/DS_ChangeS.xss b/DDUserManager/DDUserManager/DS_ChangeS.xss new file mode 100644 index 0000000..53dcea3 --- /dev/null +++ b/DDUserManager/DDUserManager/DS_ChangeS.xss @@ -0,0 +1,12 @@ + + + + + + + + \ No newline at end of file diff --git a/DDUserManager/DDUserManager/UserDataSet.Designer.vb b/DDUserManager/DDUserManager/UserDataSet.Designer.vb index 1396ea4..b9144b7 100644 --- a/DDUserManager/DDUserManager/UserDataSet.Designer.vb +++ b/DDUserManager/DDUserManager/UserDataSet.Designer.vb @@ -25,8 +25,6 @@ Option Explicit On Partial Public Class UserDataSet Inherits Global.System.Data.DataSet - Private tableTBDD_GROUPS As TBDD_GROUPSDataTable - Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable Private tableTBDD_MODULES As TBDD_MODULESDataTable @@ -43,12 +41,12 @@ Partial Public Class UserDataSet Private tableTBDD_GROUPS_CLIENT As TBDD_GROUPS_CLIENTDataTable + Private tableTBDD_GROUPS As TBDD_GROUPSDataTable + Private tableTBLOCAL_ADUSERS As TBLOCAL_ADUSERSDataTable Private tableTBLOCAL_ADGROUPS As TBLOCAL_ADGROUPSDataTable - Private relationFK_TBDD_GROUPS_USER_GROUP_ID As Global.System.Data.DataRelation - Private relationFK_TBDD_USER_MODULES_MODULE_ID As Global.System.Data.DataRelation Private relationFK_TBDD_CLIENT_USER_GROUP_ID As Global.System.Data.DataRelation @@ -59,12 +57,14 @@ Partial Public Class UserDataSet Private relationFK_TBDD_CLIENT_USER_USER_ID As Global.System.Data.DataRelation - Private relationFK_TBDD_GROUPS_MODULES_GROUP_ID As Global.System.Data.DataRelation - Private relationFK_TBDD_GROUPS_MODULES_MODULE_ID As Global.System.Data.DataRelation Private relationFK_TBDD_GROUPS_CLIENT_CLIENT_ID As Global.System.Data.DataRelation + Private relationFK_TBDD_GROUPS_USER_GROUP_ID As Global.System.Data.DataRelation + + Private relationFK_TBDD_GROUPS_MODULES_GROUP_ID As Global.System.Data.DataRelation + Private relationFK_TBDD_GROUPS_CLIENT_GROUP_ID As Global.System.Data.DataRelation Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema @@ -96,9 +96,6 @@ Partial Public Class UserDataSet If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) - If (Not (ds.Tables("TBDD_GROUPS")) Is Nothing) Then - MyBase.Tables.Add(New TBDD_GROUPSDataTable(ds.Tables("TBDD_GROUPS"))) - End If If (Not (ds.Tables("TBDD_GROUPS_USER")) Is Nothing) Then MyBase.Tables.Add(New TBDD_GROUPS_USERDataTable(ds.Tables("TBDD_GROUPS_USER"))) End If @@ -123,6 +120,9 @@ Partial Public Class UserDataSet If (Not (ds.Tables("TBDD_GROUPS_CLIENT")) Is Nothing) Then MyBase.Tables.Add(New TBDD_GROUPS_CLIENTDataTable(ds.Tables("TBDD_GROUPS_CLIENT"))) End If + If (Not (ds.Tables("TBDD_GROUPS")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_GROUPSDataTable(ds.Tables("TBDD_GROUPS"))) + End If If (Not (ds.Tables("TBLOCAL_ADUSERS")) Is Nothing) Then MyBase.Tables.Add(New TBLOCAL_ADUSERSDataTable(ds.Tables("TBLOCAL_ADUSERS"))) End If @@ -146,16 +146,6 @@ Partial Public Class UserDataSet AddHandler Me.Relations.CollectionChanged, schemaChangedHandler End Sub - _ - Public ReadOnly Property TBDD_GROUPS() As TBDD_GROUPSDataTable - Get - Return Me.tableTBDD_GROUPS - End Get - End Property - _ + Public ReadOnly Property TBDD_GROUPS() As TBDD_GROUPSDataTable + Get + Return Me.tableTBDD_GROUPS + End Get + End Property + _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) - Me.tableTBDD_GROUPS = CType(MyBase.Tables("TBDD_GROUPS"),TBDD_GROUPSDataTable) - If (initTable = true) Then - If (Not (Me.tableTBDD_GROUPS) Is Nothing) Then - Me.tableTBDD_GROUPS.InitVars - End If - End If Me.tableTBDD_GROUPS_USER = CType(MyBase.Tables("TBDD_GROUPS_USER"),TBDD_GROUPS_USERDataTable) If (initTable = true) Then If (Not (Me.tableTBDD_GROUPS_USER) Is Nothing) Then @@ -442,6 +436,12 @@ Partial Public Class UserDataSet Me.tableTBDD_GROUPS_CLIENT.InitVars End If End If + Me.tableTBDD_GROUPS = CType(MyBase.Tables("TBDD_GROUPS"),TBDD_GROUPSDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_GROUPS) Is Nothing) Then + Me.tableTBDD_GROUPS.InitVars + End If + End If Me.tableTBLOCAL_ADUSERS = CType(MyBase.Tables("TBLOCAL_ADUSERS"),TBLOCAL_ADUSERSDataTable) If (initTable = true) Then If (Not (Me.tableTBLOCAL_ADUSERS) Is Nothing) Then @@ -454,15 +454,15 @@ Partial Public Class UserDataSet Me.tableTBLOCAL_ADGROUPS.InitVars End If End If - Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = Me.Relations("FK_TBDD_GROUPS_USER_GROUP_ID") Me.relationFK_TBDD_USER_MODULES_MODULE_ID = Me.Relations("FK_TBDD_USER_MODULES_MODULE_ID") Me.relationFK_TBDD_CLIENT_USER_GROUP_ID = Me.Relations("FK_TBDD_CLIENT_USER_GROUP_ID") Me.relationFK_TBDD_GROUPS_USER_USER_ID = Me.Relations("FK_TBDD_GROUPS_USER_USER_ID") Me.relationFK_TBDD_USER_MODULES2_USER_ID = Me.Relations("FK_TBDD_USER_MODULES2_USER_ID") Me.relationFK_TBDD_CLIENT_USER_USER_ID = Me.Relations("FK_TBDD_CLIENT_USER_USER_ID") - Me.relationFK_TBDD_GROUPS_MODULES_GROUP_ID = Me.Relations("FK_TBDD_GROUPS_MODULES_GROUP_ID") Me.relationFK_TBDD_GROUPS_MODULES_MODULE_ID = Me.Relations("FK_TBDD_GROUPS_MODULES_MODULE_ID") Me.relationFK_TBDD_GROUPS_CLIENT_CLIENT_ID = Me.Relations("FK_TBDD_GROUPS_CLIENT_CLIENT_ID") + Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = Me.Relations("FK_TBDD_GROUPS_USER_GROUP_ID") + Me.relationFK_TBDD_GROUPS_MODULES_GROUP_ID = Me.Relations("FK_TBDD_GROUPS_MODULES_GROUP_ID") Me.relationFK_TBDD_GROUPS_CLIENT_GROUP_ID = Me.Relations("FK_TBDD_GROUPS_CLIENT_GROUP_ID") End Sub @@ -474,8 +474,6 @@ Partial Public Class UserDataSet Me.Namespace = "http://tempuri.org/UserDataSet.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema - Me.tableTBDD_GROUPS = New TBDD_GROUPSDataTable() - MyBase.Tables.Add(Me.tableTBDD_GROUPS) Me.tableTBDD_GROUPS_USER = New TBDD_GROUPS_USERDataTable() MyBase.Tables.Add(Me.tableTBDD_GROUPS_USER) Me.tableTBDD_MODULES = New TBDD_MODULESDataTable() @@ -492,12 +490,12 @@ Partial Public Class UserDataSet MyBase.Tables.Add(Me.tableTBDD_GROUPS_MODULES) Me.tableTBDD_GROUPS_CLIENT = New TBDD_GROUPS_CLIENTDataTable() MyBase.Tables.Add(Me.tableTBDD_GROUPS_CLIENT) + Me.tableTBDD_GROUPS = New TBDD_GROUPSDataTable() + MyBase.Tables.Add(Me.tableTBDD_GROUPS) Me.tableTBLOCAL_ADUSERS = New TBLOCAL_ADUSERSDataTable() MyBase.Tables.Add(Me.tableTBLOCAL_ADUSERS) Me.tableTBLOCAL_ADGROUPS = New TBLOCAL_ADGROUPSDataTable() MyBase.Tables.Add(Me.tableTBLOCAL_ADGROUPS) - Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.GROUP_IDColumn}, false) - Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_GROUP_ID) Me.relationFK_TBDD_USER_MODULES_MODULE_ID = New Global.System.Data.DataRelation("FK_TBDD_USER_MODULES_MODULE_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_MODULES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_USER_MODULES.MODULE_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBDD_USER_MODULES_MODULE_ID) Me.relationFK_TBDD_CLIENT_USER_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_CLIENT_USER_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_CLIENT.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_CLIENT_USER.CLIENT_IDColumn}, false) @@ -508,22 +506,18 @@ Partial Public Class UserDataSet Me.Relations.Add(Me.relationFK_TBDD_USER_MODULES2_USER_ID) Me.relationFK_TBDD_CLIENT_USER_USER_ID = New Global.System.Data.DataRelation("FK_TBDD_CLIENT_USER_USER_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_CLIENT_USER.USER_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBDD_CLIENT_USER_USER_ID) - Me.relationFK_TBDD_GROUPS_MODULES_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_MODULES_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_MODULES.GROUP_IDColumn}, false) - Me.Relations.Add(Me.relationFK_TBDD_GROUPS_MODULES_GROUP_ID) Me.relationFK_TBDD_GROUPS_MODULES_MODULE_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_MODULES_MODULE_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_MODULES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_MODULES.MODULE_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBDD_GROUPS_MODULES_MODULE_ID) Me.relationFK_TBDD_GROUPS_CLIENT_CLIENT_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_CLIENT_CLIENT_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_CLIENT.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_CLIENT.CLIENT_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBDD_GROUPS_CLIENT_CLIENT_ID) + Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.GROUP_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_GROUP_ID) + Me.relationFK_TBDD_GROUPS_MODULES_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_MODULES_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_MODULES.GROUP_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_GROUPS_MODULES_GROUP_ID) Me.relationFK_TBDD_GROUPS_CLIENT_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_CLIENT_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_CLIENT.GROUP_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBDD_GROUPS_CLIENT_GROUP_ID) End Sub - _ - Private Function ShouldSerializeTBDD_GROUPS() As Boolean - Return false - End Function - _ Private Function ShouldSerializeTBDD_GROUPS_USER() As Boolean @@ -572,6 +566,12 @@ Partial Public Class UserDataSet Return false End Function + _ + Private Function ShouldSerializeTBDD_GROUPS() As Boolean + Return false + End Function + _ Private Function ShouldSerializeTBLOCAL_ADUSERS() As Boolean @@ -642,9 +642,6 @@ Partial Public Class UserDataSet Return type End Function - _ - Public Delegate Sub TBDD_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPSRowChangeEvent) - _ Public Delegate Sub TBDD_GROUPS_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPS_USERRowChangeEvent) @@ -669,6 +666,9 @@ Partial Public Class UserDataSet _ 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) @@ -680,12 +680,14 @@ Partial Public Class UserDataSet ''' _ - Partial Public Class TBDD_GROUPSDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPSRow) + Partial Public Class TBDD_GROUPS_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPS_USERRow) Private columnGUID As Global.System.Data.DataColumn - Private columnNAME As Global.System.Data.DataColumn + Private columnUSER_ID As Global.System.Data.DataColumn + + Private columnGROUP_ID As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn @@ -697,19 +699,11 @@ Partial Public Class UserDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnINTERNAL As Global.System.Data.DataColumn - - Private columnAD_SYNC As Global.System.Data.DataColumn - - Private columnECM_FK_ID As Global.System.Data.DataColumn - - Private columnACTIVE As Global.System.Data.DataColumn - _ Public Sub New() MyBase.New - Me.TableName = "TBDD_GROUPS" + Me.TableName = "TBDD_GROUPS_USER" Me.BeginInit Me.InitClass Me.EndInit @@ -750,9 +744,17 @@ Partial Public Class UserDataSet _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnNAME + Return Me.columnUSER_ID + End Get + End Property + + _ + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP_ID End Get End Property @@ -796,38 +798,6 @@ Partial Public Class UserDataSet End Get End Property - _ - Public ReadOnly Property INTERNALColumn() As Global.System.Data.DataColumn - Get - Return Me.columnINTERNAL - End Get - End Property - - _ - Public ReadOnly Property AD_SYNCColumn() As Global.System.Data.DataColumn - Get - Return Me.columnAD_SYNC - End Get - End Property - - _ - Public ReadOnly Property ECM_FK_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnECM_FK_ID - End Get - End Property - - _ - Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnACTIVE - End Get - End Property - _ @@ -839,50 +809,56 @@ Partial Public Class UserDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPSRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPS_USERRow Get - Return CType(Me.Rows(index),TBDD_GROUPSRow) + Return CType(Me.Rows(index),TBDD_GROUPS_USERRow) End Get End Property _ - Public Event TBDD_GROUPSRowChanging As TBDD_GROUPSRowChangeEventHandler + Public Event TBDD_GROUPS_USERRowChanging As TBDD_GROUPS_USERRowChangeEventHandler _ - Public Event TBDD_GROUPSRowChanged As TBDD_GROUPSRowChangeEventHandler + Public Event TBDD_GROUPS_USERRowChanged As TBDD_GROUPS_USERRowChangeEventHandler _ - Public Event TBDD_GROUPSRowDeleting As TBDD_GROUPSRowChangeEventHandler + Public Event TBDD_GROUPS_USERRowDeleting As TBDD_GROUPS_USERRowChangeEventHandler _ - Public Event TBDD_GROUPSRowDeleted As TBDD_GROUPSRowChangeEventHandler + Public Event TBDD_GROUPS_USERRowDeleted As TBDD_GROUPS_USERRowChangeEventHandler _ - Public Overloads Sub AddTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) + Public Overloads Sub AddTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBDD_GROUPSRow(ByVal NAME 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, ByVal INTERNAL As Boolean, ByVal AD_SYNC As Boolean, 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, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INTERNAL, AD_SYNC, ECM_FK_ID, ACTIVE} - rowTBDD_GROUPSRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_GROUPSRow) - Return rowTBDD_GROUPSRow + 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} + If (Not (parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID(0) + End If + If (Not (parentTBDD_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID(0) + End If + rowTBDD_GROUPS_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_GROUPS_USERRow) + Return rowTBDD_GROUPS_USERRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPSRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_USERRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_GROUPSDataTable = CType(MyBase.Clone,TBDD_GROUPSDataTable) + Dim cln As TBDD_GROUPS_USERDataTable = CType(MyBase.Clone,TBDD_GROUPS_USERDataTable) cln.InitVars Return cln End Function @@ -890,23 +866,20 @@ Partial Public Class UserDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_GROUPSDataTable() + Return New TBDD_GROUPS_USERDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnNAME = MyBase.Columns("NAME") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnINTERNAL = MyBase.Columns("INTERNAL") - Me.columnAD_SYNC = MyBase.Columns("AD_SYNC") - Me.columnECM_FK_ID = MyBase.Columns("ECM_FK_ID") - Me.columnACTIVE = MyBase.Columns("ACTIVE") End Sub _ - Public Function NewTBDD_GROUPSRow() As TBDD_GROUPSRow - Return CType(Me.NewRow,TBDD_GROUPSRow) + Public Function NewTBDD_GROUPS_USERRow() As TBDD_GROUPS_USERRow + Return CType(Me.NewRow,TBDD_GROUPS_USERRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_GROUPSRow(builder) + Return New TBDD_GROUPS_USERRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_GROUPSRow) + Return GetType(TBDD_GROUPS_USERRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_GROUPSRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPSRowChanged(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) + If (Not (Me.TBDD_GROUPS_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowChanged(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) End If End Sub @@ -984,8 +947,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_GROUPSRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPSRowChanging(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) + If (Not (Me.TBDD_GROUPS_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowChanging(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) End If End Sub @@ -993,8 +956,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_GROUPSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPSRowDeleted(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) + If (Not (Me.TBDD_GROUPS_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowDeleted(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) End If End Sub @@ -1002,14 +965,14 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_GROUPSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPSRowDeleting(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) + If (Not (Me.TBDD_GROUPS_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowDeleting(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) + Public Sub RemoveTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) Me.Rows.Remove(row) End Sub @@ -1036,7 +999,7 @@ Partial Public Class UserDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_GROUPSDataTable" + attribute2.FixedValue = "TBDD_GROUPS_USERDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -1085,16 +1048,40 @@ Partial Public Class UserDataSet ''' _ - Partial Public Class TBDD_GROUPS_USERDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPS_USERRow) + Partial Public Class TBDD_MODULESDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_MODULESRow) Private columnGUID As Global.System.Data.DataColumn - Private columnUSER_ID As Global.System.Data.DataColumn + Private columnNAME As Global.System.Data.DataColumn - Private columnGROUP_ID As Global.System.Data.DataColumn + Private columnSHORT_NAME As Global.System.Data.DataColumn - Private columnCOMMENT As Global.System.Data.DataColumn + Private columnLICENSE As Global.System.Data.DataColumn + + Private columnPRODUCT_VERSION As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnVERSION_DELIMITER As Global.System.Data.DataColumn + + Private columnFILE_DELIMITER As Global.System.Data.DataColumn + + Private columnBIT1 As Global.System.Data.DataColumn + + Private columnBIT2 As Global.System.Data.DataColumn + + Private columnSTRING1 As Global.System.Data.DataColumn + + Private columnSTRING2 As Global.System.Data.DataColumn + + Private columnBACKGROUND_IMAGE As Global.System.Data.DataColumn + + Private columnPRODUCT_NAME1 As Global.System.Data.DataColumn + + Private columnPRODUCT_NAME2 As Global.System.Data.DataColumn + + Private columnVERSION_UPATE_PATH As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn @@ -1108,7 +1095,7 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBDD_GROUPS_USER" + Me.TableName = "TBDD_MODULES" Me.BeginInit Me.InitClass Me.EndInit @@ -1149,25 +1136,121 @@ Partial Public Class UserDataSet _ - Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSER_ID + Return Me.columnNAME End Get End Property _ - Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SHORT_NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnGROUP_ID + Return Me.columnSHORT_NAME End Get End Property _ - Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property LICENSEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCOMMENT + Return Me.columnLICENSE + End Get + End Property + + _ + Public ReadOnly Property PRODUCT_VERSIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPRODUCT_VERSION + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property VERSION_DELIMITERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERSION_DELIMITER + End Get + End Property + + _ + Public ReadOnly Property FILE_DELIMITERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFILE_DELIMITER + End Get + End Property + + _ + Public ReadOnly Property BIT1Column() As Global.System.Data.DataColumn + Get + Return Me.columnBIT1 + End Get + End Property + + _ + Public ReadOnly Property BIT2Column() As Global.System.Data.DataColumn + Get + Return Me.columnBIT2 + End Get + End Property + + _ + Public ReadOnly Property STRING1Column() As Global.System.Data.DataColumn + Get + Return Me.columnSTRING1 + End Get + End Property + + _ + Public ReadOnly Property STRING2Column() As Global.System.Data.DataColumn + Get + Return Me.columnSTRING2 + End Get + End Property + + _ + Public ReadOnly Property BACKGROUND_IMAGEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBACKGROUND_IMAGE + End Get + End Property + + _ + Public ReadOnly Property PRODUCT_NAME1Column() As Global.System.Data.DataColumn + Get + Return Me.columnPRODUCT_NAME1 + End Get + End Property + + _ + Public ReadOnly Property PRODUCT_NAME2Column() As Global.System.Data.DataColumn + Get + Return Me.columnPRODUCT_NAME2 + End Get + End Property + + _ + Public ReadOnly Property VERSION_UPATE_PATHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERSION_UPATE_PATH End Get End Property @@ -1214,56 +1297,69 @@ Partial Public Class UserDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPS_USERRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_MODULESRow Get - Return CType(Me.Rows(index),TBDD_GROUPS_USERRow) + Return CType(Me.Rows(index),TBDD_MODULESRow) End Get End Property _ - Public Event TBDD_GROUPS_USERRowChanging As TBDD_GROUPS_USERRowChangeEventHandler + Public Event TBDD_MODULESRowChanging As TBDD_MODULESRowChangeEventHandler _ - Public Event TBDD_GROUPS_USERRowChanged As TBDD_GROUPS_USERRowChangeEventHandler + Public Event TBDD_MODULESRowChanged As TBDD_MODULESRowChangeEventHandler _ - Public Event TBDD_GROUPS_USERRowDeleting As TBDD_GROUPS_USERRowChangeEventHandler + Public Event TBDD_MODULESRowDeleting As TBDD_MODULESRowChangeEventHandler _ - Public Event TBDD_GROUPS_USERRowDeleted As TBDD_GROUPS_USERRowChangeEventHandler + Public Event TBDD_MODULESRowDeleted As TBDD_MODULESRowChangeEventHandler _ - Public Overloads Sub AddTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) + Public Overloads Sub AddTBDD_MODULESRow(ByVal row As TBDD_MODULESRow) Me.Rows.Add(row) End Sub _ - 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} - If (Not (parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID) Is Nothing) Then - columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID(0) - End If - If (Not (parentTBDD_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID) Is Nothing) Then - columnValuesArray(2) = parentTBDD_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID(0) - End If - rowTBDD_GROUPS_USERRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_GROUPS_USERRow) - Return rowTBDD_GROUPS_USERRow + Public Overloads Function AddTBDD_MODULESRow( _ + ByVal NAME As String, _ + ByVal SHORT_NAME As String, _ + ByVal LICENSE As String, _ + ByVal PRODUCT_VERSION As String, _ + ByVal ACTIVE As Boolean, _ + ByVal VERSION_DELIMITER As String, _ + ByVal FILE_DELIMITER As String, _ + ByVal BIT1 As Boolean, _ + ByVal BIT2 As Boolean, _ + ByVal STRING1 As String, _ + ByVal STRING2 As String, _ + ByVal BACKGROUND_IMAGE() As Byte, _ + ByVal PRODUCT_NAME1 As String, _ + ByVal PRODUCT_NAME2 As String, _ + ByVal VERSION_UPATE_PATH As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date) As TBDD_MODULESRow + Dim rowTBDD_MODULESRow As TBDD_MODULESRow = CType(Me.NewRow,TBDD_MODULESRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, SHORT_NAME, LICENSE, PRODUCT_VERSION, ACTIVE, VERSION_DELIMITER, FILE_DELIMITER, BIT1, BIT2, STRING1, STRING2, BACKGROUND_IMAGE, PRODUCT_NAME1, PRODUCT_NAME2, VERSION_UPATE_PATH, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBDD_MODULESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_MODULESRow) + Return rowTBDD_MODULESRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_USERRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_USERRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_MODULESRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_MODULESRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_GROUPS_USERDataTable = CType(MyBase.Clone,TBDD_GROUPS_USERDataTable) + Dim cln As TBDD_MODULESDataTable = CType(MyBase.Clone,TBDD_MODULESDataTable) cln.InitVars Return cln End Function @@ -1271,16 +1367,28 @@ Partial Public Class UserDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_GROUPS_USERDataTable() + Return New TBDD_MODULESDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnUSER_ID = MyBase.Columns("USER_ID") - Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") - Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnSHORT_NAME = MyBase.Columns("SHORT_NAME") + Me.columnLICENSE = MyBase.Columns("LICENSE") + Me.columnPRODUCT_VERSION = MyBase.Columns("PRODUCT_VERSION") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnVERSION_DELIMITER = MyBase.Columns("VERSION_DELIMITER") + Me.columnFILE_DELIMITER = MyBase.Columns("FILE_DELIMITER") + Me.columnBIT1 = MyBase.Columns("BIT1") + Me.columnBIT2 = MyBase.Columns("BIT2") + Me.columnSTRING1 = MyBase.Columns("STRING1") + Me.columnSTRING2 = MyBase.Columns("STRING2") + Me.columnBACKGROUND_IMAGE = MyBase.Columns("BACKGROUND_IMAGE") + Me.columnPRODUCT_NAME1 = MyBase.Columns("PRODUCT_NAME1") + Me.columnPRODUCT_NAME2 = MyBase.Columns("PRODUCT_NAME2") + Me.columnVERSION_UPATE_PATH = MyBase.Columns("VERSION_UPATE_PATH") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") @@ -1292,12 +1400,36 @@ Partial Public Class UserDataSet Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) - Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSER_ID) - Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGROUP_ID) - Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnSHORT_NAME = New Global.System.Data.DataColumn("SHORT_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSHORT_NAME) + Me.columnLICENSE = New Global.System.Data.DataColumn("LICENSE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLICENSE) + Me.columnPRODUCT_VERSION = New Global.System.Data.DataColumn("PRODUCT_VERSION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRODUCT_VERSION) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnVERSION_DELIMITER = New Global.System.Data.DataColumn("VERSION_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERSION_DELIMITER) + Me.columnFILE_DELIMITER = New Global.System.Data.DataColumn("FILE_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFILE_DELIMITER) + Me.columnBIT1 = New Global.System.Data.DataColumn("BIT1", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBIT1) + Me.columnBIT2 = New Global.System.Data.DataColumn("BIT2", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBIT2) + Me.columnSTRING1 = New Global.System.Data.DataColumn("STRING1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTRING1) + Me.columnSTRING2 = New Global.System.Data.DataColumn("STRING2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTRING2) + Me.columnBACKGROUND_IMAGE = New Global.System.Data.DataColumn("BACKGROUND_IMAGE", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBACKGROUND_IMAGE) + Me.columnPRODUCT_NAME1 = New Global.System.Data.DataColumn("PRODUCT_NAME1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRODUCT_NAME1) + Me.columnPRODUCT_NAME2 = New Global.System.Data.DataColumn("PRODUCT_NAME2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRODUCT_NAME2) + Me.columnVERSION_UPATE_PATH = New Global.System.Data.DataColumn("VERSION_UPATE_PATH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERSION_UPATE_PATH) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) @@ -1313,38 +1445,54 @@ Partial Public Class UserDataSet Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true - Me.columnUSER_ID.AllowDBNull = false - Me.columnGROUP_ID.AllowDBNull = false - Me.columnCOMMENT.MaxLength = 200 - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnNAME.MaxLength = 50 + Me.columnSHORT_NAME.MaxLength = 20 + Me.columnLICENSE.AllowDBNull = false + Me.columnLICENSE.MaxLength = 2000 + Me.columnPRODUCT_VERSION.AllowDBNull = false + Me.columnPRODUCT_VERSION.MaxLength = 20 + Me.columnACTIVE.AllowDBNull = false + Me.columnVERSION_DELIMITER.AllowDBNull = false + Me.columnVERSION_DELIMITER.MaxLength = 1 + Me.columnFILE_DELIMITER.AllowDBNull = false + Me.columnFILE_DELIMITER.MaxLength = 1 + Me.columnBIT1.AllowDBNull = false + Me.columnBIT2.AllowDBNull = false + Me.columnSTRING1.MaxLength = 50 + Me.columnSTRING2.MaxLength = 50 + Me.columnPRODUCT_NAME1.AllowDBNull = false + Me.columnPRODUCT_NAME1.MaxLength = 200 + Me.columnPRODUCT_NAME2.MaxLength = 200 + Me.columnVERSION_UPATE_PATH.AllowDBNull = false + Me.columnVERSION_UPATE_PATH.MaxLength = 500 + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ - Public Function NewTBDD_GROUPS_USERRow() As TBDD_GROUPS_USERRow - Return CType(Me.NewRow,TBDD_GROUPS_USERRow) + Public Function NewTBDD_MODULESRow() As TBDD_MODULESRow + Return CType(Me.NewRow,TBDD_MODULESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_GROUPS_USERRow(builder) + Return New TBDD_MODULESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_GROUPS_USERRow) + Return GetType(TBDD_MODULESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_GROUPS_USERRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_USERRowChanged(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + If (Not (Me.TBDD_MODULESRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_MODULESRowChanged(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) End If End Sub @@ -1352,8 +1500,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_GROUPS_USERRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_USERRowChanging(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + If (Not (Me.TBDD_MODULESRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_MODULESRowChanging(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) End If End Sub @@ -1361,8 +1509,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_GROUPS_USERRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_USERRowDeleted(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + If (Not (Me.TBDD_MODULESRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_MODULESRowDeleted(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) End If End Sub @@ -1370,14 +1518,14 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_GROUPS_USERRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_USERRowDeleting(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + If (Not (Me.TBDD_MODULESRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_MODULESRowDeleting(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) + Public Sub RemoveTBDD_MODULESRow(ByVal row As TBDD_MODULESRow) Me.Rows.Remove(row) End Sub @@ -1404,7 +1552,7 @@ Partial Public Class UserDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_GROUPS_USERDataTable" + attribute2.FixedValue = "TBDD_MODULESDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -1453,54 +1601,28 @@ Partial Public Class UserDataSet ''' _ - Partial Public Class TBDD_MODULESDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_MODULESRow) + Partial Public Class TBDD_USER_MODULESDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_USER_MODULESRow) Private columnGUID As Global.System.Data.DataColumn - Private columnNAME As Global.System.Data.DataColumn - - Private columnSHORT_NAME As Global.System.Data.DataColumn - - Private columnLICENSE As Global.System.Data.DataColumn - - Private columnPRODUCT_VERSION As Global.System.Data.DataColumn - - Private columnACTIVE As Global.System.Data.DataColumn - - Private columnVERSION_DELIMITER As Global.System.Data.DataColumn - - Private columnFILE_DELIMITER As Global.System.Data.DataColumn - - Private columnBIT1 As Global.System.Data.DataColumn - - Private columnBIT2 As Global.System.Data.DataColumn - - Private columnSTRING1 As Global.System.Data.DataColumn - - Private columnSTRING2 As Global.System.Data.DataColumn - - Private columnBACKGROUND_IMAGE As Global.System.Data.DataColumn + Private columnUSER_ID As Global.System.Data.DataColumn - Private columnPRODUCT_NAME1 As Global.System.Data.DataColumn + Private columnMODULE_ID As Global.System.Data.DataColumn - Private columnPRODUCT_NAME2 As Global.System.Data.DataColumn + Private columnIS_ADMIN As Global.System.Data.DataColumn - Private columnVERSION_UPATE_PATH As Global.System.Data.DataColumn + Private columnCOMMENT As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn - - Private columnCHANGED_WHEN As Global.System.Data.DataColumn - _ Public Sub New() MyBase.New - Me.TableName = "TBDD_MODULES" + Me.TableName = "TBDD_USER_MODULES" Me.BeginInit Me.InitClass Me.EndInit @@ -1541,363 +1663,190 @@ Partial Public Class UserDataSet _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnNAME + Return Me.columnUSER_ID End Get End Property _ - Public ReadOnly Property SHORT_NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property MODULE_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnSHORT_NAME + Return Me.columnMODULE_ID End Get End Property _ - Public ReadOnly Property LICENSEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property IS_ADMINColumn() As Global.System.Data.DataColumn Get - Return Me.columnLICENSE + Return Me.columnIS_ADMIN End Get End Property _ - Public ReadOnly Property PRODUCT_VERSIONColumn() As Global.System.Data.DataColumn + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get - Return Me.columnPRODUCT_VERSION + Return Me.columnCOMMENT End Get End Property _ - Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnACTIVE + Return Me.columnADDED_WHO End Get End Property _ - Public ReadOnly Property VERSION_DELIMITERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnVERSION_DELIMITER + Return Me.columnADDED_WHEN End Get End Property _ - Public ReadOnly Property FILE_DELIMITERColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer Get - Return Me.columnFILE_DELIMITER + Return Me.Rows.Count End Get End Property _ - Public ReadOnly Property BIT1Column() As Global.System.Data.DataColumn + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USER_MODULESRow Get - Return Me.columnBIT1 + 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 + _ - Public ReadOnly Property BIT2Column() As Global.System.Data.DataColumn - Get - Return Me.columnBIT2 - End Get - End Property + Public Overloads Sub AddTBDD_USER_MODULESRow(ByVal row As TBDD_USER_MODULESRow) + Me.Rows.Add(row) + End Sub _ - Public ReadOnly Property STRING1Column() As Global.System.Data.DataColumn - Get - Return Me.columnSTRING1 - End Get - End Property + 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} + If (Not (parentTBDD_USERRowByFK_TBDD_USER_MODULES2_USER_ID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_USER_MODULES2_USER_ID(0) + End If + If (Not (parentTBDD_MODULESRowByFK_TBDD_USER_MODULES_MODULE_ID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_MODULESRowByFK_TBDD_USER_MODULES_MODULE_ID(0) + End If + rowTBDD_USER_MODULESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_USER_MODULESRow) + Return rowTBDD_USER_MODULESRow + End Function _ - Public ReadOnly Property STRING2Column() As Global.System.Data.DataColumn - Get - Return Me.columnSTRING2 - End Get - End Property + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USER_MODULESRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USER_MODULESRow) + End Function _ - Public ReadOnly Property BACKGROUND_IMAGEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnBACKGROUND_IMAGE - End Get - End Property + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_USER_MODULESDataTable = CType(MyBase.Clone,TBDD_USER_MODULESDataTable) + cln.InitVars + Return cln + End Function _ - Public ReadOnly Property PRODUCT_NAME1Column() As Global.System.Data.DataColumn - Get - Return Me.columnPRODUCT_NAME1 - End Get - End Property + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_USER_MODULESDataTable() + End Function _ - Public ReadOnly Property PRODUCT_NAME2Column() As Global.System.Data.DataColumn - Get - Return Me.columnPRODUCT_NAME2 - End Get - End Property + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnMODULE_ID = MyBase.Columns("MODULE_ID") + Me.columnIS_ADMIN = MyBase.Columns("IS_ADMIN") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + End Sub _ - Public ReadOnly Property VERSION_UPATE_PATHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnVERSION_UPATE_PATH - End Get - End Property + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_ID) + Me.columnMODULE_ID = New Global.System.Data.DataColumn("MODULE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMODULE_ID) + Me.columnIS_ADMIN = New Global.System.Data.DataColumn("IS_ADMIN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIS_ADMIN) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnUSER_ID.AllowDBNull = false + Me.columnMODULE_ID.AllowDBNull = false + Me.columnIS_ADMIN.AllowDBNull = false + Me.columnCOMMENT.MaxLength = 200 + Me.columnADDED_WHO.MaxLength = 50 + End Sub _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHO - End Get - End Property + Public Function NewTBDD_USER_MODULESRow() As TBDD_USER_MODULESRow + Return CType(Me.NewRow,TBDD_USER_MODULESRow) + End Function _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHO - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As 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 - - _ - Public Overloads Sub AddTBDD_MODULESRow(ByVal row As TBDD_MODULESRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBDD_MODULESRow( _ - ByVal NAME As String, _ - ByVal SHORT_NAME As String, _ - ByVal LICENSE As String, _ - ByVal PRODUCT_VERSION As String, _ - ByVal ACTIVE As Boolean, _ - ByVal VERSION_DELIMITER As String, _ - ByVal FILE_DELIMITER As String, _ - ByVal BIT1 As Boolean, _ - ByVal BIT2 As Boolean, _ - ByVal STRING1 As String, _ - ByVal STRING2 As String, _ - ByVal BACKGROUND_IMAGE() As Byte, _ - ByVal PRODUCT_NAME1 As String, _ - ByVal PRODUCT_NAME2 As String, _ - ByVal VERSION_UPATE_PATH As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Date) As TBDD_MODULESRow - Dim rowTBDD_MODULESRow As TBDD_MODULESRow = CType(Me.NewRow,TBDD_MODULESRow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, SHORT_NAME, LICENSE, PRODUCT_VERSION, ACTIVE, VERSION_DELIMITER, FILE_DELIMITER, BIT1, BIT2, STRING1, STRING2, BACKGROUND_IMAGE, PRODUCT_NAME1, PRODUCT_NAME2, VERSION_UPATE_PATH, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - rowTBDD_MODULESRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_MODULESRow) - Return rowTBDD_MODULESRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_MODULESRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_MODULESRow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_MODULESDataTable = CType(MyBase.Clone,TBDD_MODULESDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_MODULESDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnSHORT_NAME = MyBase.Columns("SHORT_NAME") - Me.columnLICENSE = MyBase.Columns("LICENSE") - Me.columnPRODUCT_VERSION = MyBase.Columns("PRODUCT_VERSION") - Me.columnACTIVE = MyBase.Columns("ACTIVE") - Me.columnVERSION_DELIMITER = MyBase.Columns("VERSION_DELIMITER") - Me.columnFILE_DELIMITER = MyBase.Columns("FILE_DELIMITER") - Me.columnBIT1 = MyBase.Columns("BIT1") - Me.columnBIT2 = MyBase.Columns("BIT2") - Me.columnSTRING1 = MyBase.Columns("STRING1") - Me.columnSTRING2 = MyBase.Columns("STRING2") - Me.columnBACKGROUND_IMAGE = MyBase.Columns("BACKGROUND_IMAGE") - Me.columnPRODUCT_NAME1 = MyBase.Columns("PRODUCT_NAME1") - Me.columnPRODUCT_NAME2 = MyBase.Columns("PRODUCT_NAME2") - Me.columnVERSION_UPATE_PATH = MyBase.Columns("VERSION_UPATE_PATH") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - End Sub - - _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNAME) - Me.columnSHORT_NAME = New Global.System.Data.DataColumn("SHORT_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSHORT_NAME) - Me.columnLICENSE = New Global.System.Data.DataColumn("LICENSE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnLICENSE) - Me.columnPRODUCT_VERSION = New Global.System.Data.DataColumn("PRODUCT_VERSION", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPRODUCT_VERSION) - Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnACTIVE) - Me.columnVERSION_DELIMITER = New Global.System.Data.DataColumn("VERSION_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnVERSION_DELIMITER) - Me.columnFILE_DELIMITER = New Global.System.Data.DataColumn("FILE_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFILE_DELIMITER) - Me.columnBIT1 = New Global.System.Data.DataColumn("BIT1", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBIT1) - Me.columnBIT2 = New Global.System.Data.DataColumn("BIT2", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBIT2) - Me.columnSTRING1 = New Global.System.Data.DataColumn("STRING1", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSTRING1) - Me.columnSTRING2 = New Global.System.Data.DataColumn("STRING2", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSTRING2) - Me.columnBACKGROUND_IMAGE = New Global.System.Data.DataColumn("BACKGROUND_IMAGE", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBACKGROUND_IMAGE) - Me.columnPRODUCT_NAME1 = New Global.System.Data.DataColumn("PRODUCT_NAME1", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPRODUCT_NAME1) - Me.columnPRODUCT_NAME2 = New Global.System.Data.DataColumn("PRODUCT_NAME2", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPRODUCT_NAME2) - Me.columnVERSION_UPATE_PATH = New Global.System.Data.DataColumn("VERSION_UPATE_PATH", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnVERSION_UPATE_PATH) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHO) - Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnNAME.MaxLength = 50 - Me.columnSHORT_NAME.MaxLength = 20 - Me.columnLICENSE.AllowDBNull = false - Me.columnLICENSE.MaxLength = 2000 - Me.columnPRODUCT_VERSION.AllowDBNull = false - Me.columnPRODUCT_VERSION.MaxLength = 20 - Me.columnACTIVE.AllowDBNull = false - Me.columnVERSION_DELIMITER.AllowDBNull = false - Me.columnVERSION_DELIMITER.MaxLength = 1 - Me.columnFILE_DELIMITER.AllowDBNull = false - Me.columnFILE_DELIMITER.MaxLength = 1 - Me.columnBIT1.AllowDBNull = false - Me.columnBIT2.AllowDBNull = false - Me.columnSTRING1.MaxLength = 50 - Me.columnSTRING2.MaxLength = 50 - Me.columnPRODUCT_NAME1.AllowDBNull = false - Me.columnPRODUCT_NAME1.MaxLength = 200 - Me.columnPRODUCT_NAME2.MaxLength = 200 - Me.columnVERSION_UPATE_PATH.AllowDBNull = false - Me.columnVERSION_UPATE_PATH.MaxLength = 500 - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 - End Sub - - _ - Public Function NewTBDD_MODULESRow() As TBDD_MODULESRow - Return CType(Me.NewRow,TBDD_MODULESRow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_MODULESRow(builder) - End Function + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_USER_MODULESRow(builder) + End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_MODULESRow) + Return GetType(TBDD_USER_MODULESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_MODULESRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_MODULESRowChanged(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) + If (Not (Me.TBDD_USER_MODULESRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_USER_MODULESRowChanged(Me, New TBDD_USER_MODULESRowChangeEvent(CType(e.Row,TBDD_USER_MODULESRow), e.Action)) End If End Sub @@ -1905,8 +1854,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_MODULESRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_MODULESRowChanging(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) + If (Not (Me.TBDD_USER_MODULESRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_USER_MODULESRowChanging(Me, New TBDD_USER_MODULESRowChangeEvent(CType(e.Row,TBDD_USER_MODULESRow), e.Action)) End If End Sub @@ -1914,8 +1863,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_MODULESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_MODULESRowDeleted(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) + If (Not (Me.TBDD_USER_MODULESRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_USER_MODULESRowDeleted(Me, New TBDD_USER_MODULESRowChangeEvent(CType(e.Row,TBDD_USER_MODULESRow), e.Action)) End If End Sub @@ -1923,14 +1872,14 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_MODULESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_MODULESRowDeleting(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) + If (Not (Me.TBDD_USER_MODULESRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_USER_MODULESRowDeleting(Me, New TBDD_USER_MODULESRowChangeEvent(CType(e.Row,TBDD_USER_MODULESRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_MODULESRow(ByVal row As TBDD_MODULESRow) + Public Sub RemoveTBDD_USER_MODULESRow(ByVal row As TBDD_USER_MODULESRow) Me.Rows.Remove(row) End Sub @@ -1957,7 +1906,7 @@ Partial Public Class UserDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_MODULESDataTable" + attribute2.FixedValue = "TBDD_USER_MODULESDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -2006,16 +1955,20 @@ Partial Public Class UserDataSet ''' _ - Partial Public Class TBDD_USER_MODULESDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_USER_MODULESRow) + Partial Public Class TBDD_CLIENTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_CLIENTRow) Private columnGUID As Global.System.Data.DataColumn - Private columnUSER_ID As Global.System.Data.DataColumn + Private columnCLIENT_NAME As Global.System.Data.DataColumn - Private columnMODULE_ID As Global.System.Data.DataColumn + Private columnSHORTNAME As Global.System.Data.DataColumn - Private columnIS_ADMIN As Global.System.Data.DataColumn + Private columnLICENSE_PMO As Global.System.Data.DataColumn + + Private columnLICENSE_GI As Global.System.Data.DataColumn + + Private columnLICENSE_PM As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn @@ -2023,11 +1976,15 @@ Partial Public Class UserDataSet Private columnADDED_WHEN As Global.System.Data.DataColumn + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + _ Public Sub New() MyBase.New - Me.TableName = "TBDD_USER_MODULES" + Me.TableName = "TBDD_CLIENT" Me.BeginInit Me.InitClass Me.EndInit @@ -2068,25 +2025,41 @@ Partial Public Class UserDataSet _ - Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CLIENT_NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSER_ID + Return Me.columnCLIENT_NAME End Get End Property _ - Public ReadOnly Property MODULE_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnMODULE_ID + Return Me.columnSHORTNAME End Get End Property _ - Public ReadOnly Property IS_ADMINColumn() As Global.System.Data.DataColumn + Public ReadOnly Property LICENSE_PMOColumn() As Global.System.Data.DataColumn Get - Return Me.columnIS_ADMIN + Return Me.columnLICENSE_PMO + End Get + End Property + + _ + Public ReadOnly Property LICENSE_GIColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLICENSE_GI + End Get + End Property + + _ + Public ReadOnly Property LICENSE_PMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLICENSE_PM End Get End Property @@ -2114,6 +2087,22 @@ Partial Public Class UserDataSet End Get End Property + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + _ @@ -2125,56 +2114,50 @@ Partial Public Class UserDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USER_MODULESRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CLIENTRow Get - Return CType(Me.Rows(index),TBDD_USER_MODULESRow) + Return CType(Me.Rows(index),TBDD_CLIENTRow) End Get End Property _ - Public Event TBDD_USER_MODULESRowChanging As TBDD_USER_MODULESRowChangeEventHandler + Public Event TBDD_CLIENTRowChanging As TBDD_CLIENTRowChangeEventHandler _ - Public Event TBDD_USER_MODULESRowChanged As TBDD_USER_MODULESRowChangeEventHandler + Public Event TBDD_CLIENTRowChanged As TBDD_CLIENTRowChangeEventHandler _ - Public Event TBDD_USER_MODULESRowDeleting As TBDD_USER_MODULESRowChangeEventHandler + Public Event TBDD_CLIENTRowDeleting As TBDD_CLIENTRowChangeEventHandler _ - Public Event TBDD_USER_MODULESRowDeleted As TBDD_USER_MODULESRowChangeEventHandler + Public Event TBDD_CLIENTRowDeleted As TBDD_CLIENTRowChangeEventHandler _ - Public Overloads Sub AddTBDD_USER_MODULESRow(ByVal row As TBDD_USER_MODULESRow) + Public Overloads Sub AddTBDD_CLIENTRow(ByVal row As TBDD_CLIENTRow) Me.Rows.Add(row) End Sub _ - 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} - If (Not (parentTBDD_USERRowByFK_TBDD_USER_MODULES2_USER_ID) Is Nothing) Then - columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_USER_MODULES2_USER_ID(0) - End If - If (Not (parentTBDD_MODULESRowByFK_TBDD_USER_MODULES_MODULE_ID) Is Nothing) Then - columnValuesArray(2) = parentTBDD_MODULESRowByFK_TBDD_USER_MODULES_MODULE_ID(0) - End If - rowTBDD_USER_MODULESRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_USER_MODULESRow) - Return rowTBDD_USER_MODULESRow + 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} + rowTBDD_CLIENTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_CLIENTRow) + Return rowTBDD_CLIENTRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USER_MODULESRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USER_MODULESRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_CLIENTRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CLIENTRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_USER_MODULESDataTable = CType(MyBase.Clone,TBDD_USER_MODULESDataTable) + Dim cln As TBDD_CLIENTDataTable = CType(MyBase.Clone,TBDD_CLIENTDataTable) cln.InitVars Return cln End Function @@ -2182,19 +2165,23 @@ Partial Public Class UserDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_USER_MODULESDataTable() + Return New TBDD_CLIENTDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnUSER_ID = MyBase.Columns("USER_ID") - Me.columnMODULE_ID = MyBase.Columns("MODULE_ID") - Me.columnIS_ADMIN = MyBase.Columns("IS_ADMIN") + Me.columnCLIENT_NAME = MyBase.Columns("CLIENT_NAME") + Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") + Me.columnLICENSE_PMO = MyBase.Columns("LICENSE_PMO") + Me.columnLICENSE_GI = MyBase.Columns("LICENSE_GI") + Me.columnLICENSE_PM = MyBase.Columns("LICENSE_PM") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ - Public Function NewTBDD_USER_MODULESRow() As TBDD_USER_MODULESRow - Return CType(Me.NewRow,TBDD_USER_MODULESRow) + Public Function NewTBDD_CLIENTRow() As TBDD_CLIENTRow + Return CType(Me.NewRow,TBDD_CLIENTRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_USER_MODULESRow(builder) + Return New TBDD_CLIENTRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_USER_MODULESRow) + Return GetType(TBDD_CLIENTRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_USER_MODULESRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_USER_MODULESRowChanged(Me, New TBDD_USER_MODULESRowChangeEvent(CType(e.Row,TBDD_USER_MODULESRow), e.Action)) + If (Not (Me.TBDD_CLIENTRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENTRowChanged(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) End If End Sub @@ -2259,8 +2265,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_USER_MODULESRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_USER_MODULESRowChanging(Me, New TBDD_USER_MODULESRowChangeEvent(CType(e.Row,TBDD_USER_MODULESRow), e.Action)) + If (Not (Me.TBDD_CLIENTRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENTRowChanging(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) End If End Sub @@ -2268,8 +2274,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_USER_MODULESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_USER_MODULESRowDeleted(Me, New TBDD_USER_MODULESRowChangeEvent(CType(e.Row,TBDD_USER_MODULESRow), e.Action)) + If (Not (Me.TBDD_CLIENTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENTRowDeleted(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) End If End Sub @@ -2277,14 +2283,14 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_USER_MODULESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_USER_MODULESRowDeleting(Me, New TBDD_USER_MODULESRowChangeEvent(CType(e.Row,TBDD_USER_MODULESRow), e.Action)) + If (Not (Me.TBDD_CLIENTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENTRowDeleting(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_USER_MODULESRow(ByVal row As TBDD_USER_MODULESRow) + Public Sub RemoveTBDD_CLIENTRow(ByVal row As TBDD_CLIENTRow) Me.Rows.Remove(row) End Sub @@ -2311,7 +2317,7 @@ Partial Public Class UserDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_USER_MODULESDataTable" + attribute2.FixedValue = "TBDD_CLIENTDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -2360,20 +2366,14 @@ Partial Public Class UserDataSet ''' _ - Partial Public Class TBDD_CLIENTDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_CLIENTRow) + Partial Public Class TBDD_CLIENT_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_CLIENT_USERRow) Private columnGUID As Global.System.Data.DataColumn - Private columnCLIENT_NAME As Global.System.Data.DataColumn - - Private columnSHORTNAME As Global.System.Data.DataColumn - - Private columnLICENSE_PMO As Global.System.Data.DataColumn - - Private columnLICENSE_GI As Global.System.Data.DataColumn + Private columnUSER_ID As Global.System.Data.DataColumn - Private columnLICENSE_PM As Global.System.Data.DataColumn + Private columnCLIENT_ID As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn @@ -2381,15 +2381,11 @@ Partial Public Class UserDataSet Private columnADDED_WHEN As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn - - Private columnCHANGED_WHEN As Global.System.Data.DataColumn - _ Public Sub New() MyBase.New - Me.TableName = "TBDD_CLIENT" + Me.TableName = "TBDD_CLIENT_USER" Me.BeginInit Me.InitClass Me.EndInit @@ -2430,41 +2426,17 @@ Partial Public Class UserDataSet _ - Public ReadOnly Property CLIENT_NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCLIENT_NAME - End Get - End Property - - _ - Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSHORTNAME - End Get - End Property - - _ - Public ReadOnly Property LICENSE_PMOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLICENSE_PMO - End Get - End Property - - _ - Public ReadOnly Property LICENSE_GIColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnLICENSE_GI + Return Me.columnUSER_ID End Get End Property _ - Public ReadOnly Property LICENSE_PMColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CLIENT_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnLICENSE_PM + Return Me.columnCLIENT_ID End Get End Property @@ -2492,22 +2464,6 @@ Partial Public Class UserDataSet End Get End Property - _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHO - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - _ @@ -2519,50 +2475,56 @@ Partial Public Class UserDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CLIENTRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CLIENT_USERRow Get - Return CType(Me.Rows(index),TBDD_CLIENTRow) + Return CType(Me.Rows(index),TBDD_CLIENT_USERRow) End Get End Property _ - Public Event TBDD_CLIENTRowChanging As TBDD_CLIENTRowChangeEventHandler + Public Event TBDD_CLIENT_USERRowChanging As TBDD_CLIENT_USERRowChangeEventHandler _ - Public Event TBDD_CLIENTRowChanged As TBDD_CLIENTRowChangeEventHandler + Public Event TBDD_CLIENT_USERRowChanged As TBDD_CLIENT_USERRowChangeEventHandler _ - Public Event TBDD_CLIENTRowDeleting As TBDD_CLIENTRowChangeEventHandler + Public Event TBDD_CLIENT_USERRowDeleting As TBDD_CLIENT_USERRowChangeEventHandler _ - Public Event TBDD_CLIENTRowDeleted As TBDD_CLIENTRowChangeEventHandler + Public Event TBDD_CLIENT_USERRowDeleted As TBDD_CLIENT_USERRowChangeEventHandler _ - Public Overloads Sub AddTBDD_CLIENTRow(ByVal row As TBDD_CLIENTRow) + Public Overloads Sub AddTBDD_CLIENT_USERRow(ByVal row As TBDD_CLIENT_USERRow) Me.Rows.Add(row) End Sub _ - 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} - rowTBDD_CLIENTRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_CLIENTRow) - Return rowTBDD_CLIENTRow + 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} + If (Not (parentTBDD_USERRowByFK_TBDD_CLIENT_USER_USER_ID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_CLIENT_USER_USER_ID(0) + End If + If (Not (parentTBDD_CLIENTRowByFK_TBDD_CLIENT_USER_GROUP_ID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_CLIENTRowByFK_TBDD_CLIENT_USER_GROUP_ID(0) + End If + rowTBDD_CLIENT_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_CLIENT_USERRow) + Return rowTBDD_CLIENT_USERRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_CLIENTRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CLIENTRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_CLIENT_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CLIENT_USERRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_CLIENTDataTable = CType(MyBase.Clone,TBDD_CLIENTDataTable) + Dim cln As TBDD_CLIENT_USERDataTable = CType(MyBase.Clone,TBDD_CLIENT_USERDataTable) cln.InitVars Return cln End Function @@ -2570,23 +2532,18 @@ Partial Public Class UserDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_CLIENTDataTable() + Return New TBDD_CLIENT_USERDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnCLIENT_NAME = MyBase.Columns("CLIENT_NAME") - Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") - Me.columnLICENSE_PMO = MyBase.Columns("LICENSE_PMO") - Me.columnLICENSE_GI = MyBase.Columns("LICENSE_GI") - Me.columnLICENSE_PM = MyBase.Columns("LICENSE_PM") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnCLIENT_ID = MyBase.Columns("CLIENT_ID") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ - Public Function NewTBDD_CLIENTRow() As TBDD_CLIENTRow - Return CType(Me.NewRow,TBDD_CLIENTRow) + Public Function NewTBDD_CLIENT_USERRow() As TBDD_CLIENT_USERRow + Return CType(Me.NewRow,TBDD_CLIENT_USERRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_CLIENTRow(builder) + Return New TBDD_CLIENT_USERRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_CLIENTRow) + Return GetType(TBDD_CLIENT_USERRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_CLIENTRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENTRowChanged(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) + If (Not (Me.TBDD_CLIENT_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENT_USERRowChanged(Me, New TBDD_CLIENT_USERRowChangeEvent(CType(e.Row,TBDD_CLIENT_USERRow), e.Action)) End If End Sub @@ -2670,8 +2605,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_CLIENTRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENTRowChanging(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) + If (Not (Me.TBDD_CLIENT_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENT_USERRowChanging(Me, New TBDD_CLIENT_USERRowChangeEvent(CType(e.Row,TBDD_CLIENT_USERRow), e.Action)) End If End Sub @@ -2679,8 +2614,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_CLIENTRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENTRowDeleted(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) + If (Not (Me.TBDD_CLIENT_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENT_USERRowDeleted(Me, New TBDD_CLIENT_USERRowChangeEvent(CType(e.Row,TBDD_CLIENT_USERRow), e.Action)) End If End Sub @@ -2688,14 +2623,14 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_CLIENTRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENTRowDeleting(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) + If (Not (Me.TBDD_CLIENT_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENT_USERRowDeleting(Me, New TBDD_CLIENT_USERRowChangeEvent(CType(e.Row,TBDD_CLIENT_USERRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_CLIENTRow(ByVal row As TBDD_CLIENTRow) + Public Sub RemoveTBDD_CLIENT_USERRow(ByVal row As TBDD_CLIENT_USERRow) Me.Rows.Remove(row) End Sub @@ -2722,7 +2657,7 @@ Partial Public Class UserDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_CLIENTDataTable" + attribute2.FixedValue = "TBDD_CLIENT_USERDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -2771,26 +2706,40 @@ Partial Public Class UserDataSet ''' _ - Partial Public Class TBDD_CLIENT_USERDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_CLIENT_USERRow) + Partial Public Class TBDD_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_USERRow) Private columnGUID As Global.System.Data.DataColumn - Private columnUSER_ID As Global.System.Data.DataColumn + Private columnPRENAME As Global.System.Data.DataColumn - Private columnCLIENT_ID As Global.System.Data.DataColumn + Private columnNAME As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnSHORTNAME As Global.System.Data.DataColumn + + Private columnEMAIL As Global.System.Data.DataColumn + + Private columnLANGUAGE As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn + Private columnDATE_FORMAT As Global.System.Data.DataColumn + Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + _ Public Sub New() MyBase.New - Me.TableName = "TBDD_CLIENT_USER" + Me.TableName = "TBDD_USER" Me.BeginInit Me.InitClass Me.EndInit @@ -2831,17 +2780,49 @@ Partial Public Class UserDataSet _ - Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSER_ID + Return Me.columnPRENAME End Get End Property _ - Public ReadOnly Property CLIENT_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCLIENT_ID + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSHORTNAME + End Get + End Property + + _ + Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL + End Get + End Property + + _ + Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLANGUAGE End Get End Property @@ -2853,6 +2834,14 @@ Partial Public Class UserDataSet End Get End Property + _ + Public ReadOnly Property DATE_FORMATColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATE_FORMAT + End Get + End Property + _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn @@ -2869,6 +2858,22 @@ Partial Public Class UserDataSet End Get End Property + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + _ @@ -2880,56 +2885,50 @@ Partial Public Class UserDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CLIENT_USERRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USERRow Get - Return CType(Me.Rows(index),TBDD_CLIENT_USERRow) + Return CType(Me.Rows(index),TBDD_USERRow) End Get End Property _ - Public Event TBDD_CLIENT_USERRowChanging As TBDD_CLIENT_USERRowChangeEventHandler + Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler _ - Public Event TBDD_CLIENT_USERRowChanged As TBDD_CLIENT_USERRowChangeEventHandler + Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler _ - Public Event TBDD_CLIENT_USERRowDeleting As TBDD_CLIENT_USERRowChangeEventHandler + Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler _ - Public Event TBDD_CLIENT_USERRowDeleted As TBDD_CLIENT_USERRowChangeEventHandler + Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler _ - Public Overloads Sub AddTBDD_CLIENT_USERRow(ByVal row As TBDD_CLIENT_USERRow) + Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow) Me.Rows.Add(row) End Sub _ - 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} - If (Not (parentTBDD_USERRowByFK_TBDD_CLIENT_USER_USER_ID) Is Nothing) Then - columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_CLIENT_USER_USER_ID(0) - End If - If (Not (parentTBDD_CLIENTRowByFK_TBDD_CLIENT_USER_GROUP_ID) Is Nothing) Then - columnValuesArray(2) = parentTBDD_CLIENTRowByFK_TBDD_CLIENT_USER_GROUP_ID(0) - End If - rowTBDD_CLIENT_USERRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_CLIENT_USERRow) - Return rowTBDD_CLIENT_USERRow + 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} + rowTBDD_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_USERRow) + Return rowTBDD_USERRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_CLIENT_USERRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CLIENT_USERRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USERRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_CLIENT_USERDataTable = CType(MyBase.Clone,TBDD_CLIENT_USERDataTable) + Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable) cln.InitVars Return cln End Function @@ -2937,18 +2936,25 @@ Partial Public Class UserDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_CLIENT_USERDataTable() + Return New TBDD_USERDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnUSER_ID = MyBase.Columns("USER_ID") - Me.columnCLIENT_ID = MyBase.Columns("CLIENT_ID") + Me.columnPRENAME = MyBase.Columns("PRENAME") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") + Me.columnEMAIL = MyBase.Columns("EMAIL") + Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnDATE_FORMAT = MyBase.Columns("DATE_FORMAT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ - Public Function NewTBDD_CLIENT_USERRow() As TBDD_CLIENT_USERRow - Return CType(Me.NewRow,TBDD_CLIENT_USERRow) + Public Function NewTBDD_USERRow() As TBDD_USERRow + Return CType(Me.NewRow,TBDD_USERRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_CLIENT_USERRow(builder) + Return New TBDD_USERRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_CLIENT_USERRow) + Return GetType(TBDD_USERRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_CLIENT_USERRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENT_USERRowChanged(Me, New TBDD_CLIENT_USERRowChangeEvent(CType(e.Row,TBDD_CLIENT_USERRow), e.Action)) + If (Not (Me.TBDD_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowChanged(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) End If End Sub @@ -3010,8 +3040,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_CLIENT_USERRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENT_USERRowChanging(Me, New TBDD_CLIENT_USERRowChangeEvent(CType(e.Row,TBDD_CLIENT_USERRow), e.Action)) + If (Not (Me.TBDD_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowChanging(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) End If End Sub @@ -3019,8 +3049,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_CLIENT_USERRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENT_USERRowDeleted(Me, New TBDD_CLIENT_USERRowChangeEvent(CType(e.Row,TBDD_CLIENT_USERRow), e.Action)) + If (Not (Me.TBDD_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowDeleted(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) End If End Sub @@ -3028,14 +3058,14 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_CLIENT_USERRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENT_USERRowDeleting(Me, New TBDD_CLIENT_USERRowChangeEvent(CType(e.Row,TBDD_CLIENT_USERRow), e.Action)) + If (Not (Me.TBDD_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowDeleting(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_CLIENT_USERRow(ByVal row As TBDD_CLIENT_USERRow) + Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) Me.Rows.Remove(row) End Sub @@ -3062,7 +3092,7 @@ Partial Public Class UserDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_CLIENT_USERDataTable" + attribute2.FixedValue = "TBDD_USERDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -3111,27 +3141,17 @@ Partial Public Class UserDataSet ''' _ - Partial Public Class TBDD_USERDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_USERRow) + Partial Public Class TBDD_GROUPS_MODULESDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPS_MODULESRow) Private columnGUID As Global.System.Data.DataColumn - Private columnPRENAME As Global.System.Data.DataColumn - - Private columnNAME As Global.System.Data.DataColumn - - Private columnUSERNAME As Global.System.Data.DataColumn - - Private columnSHORTNAME As Global.System.Data.DataColumn - - Private columnEMAIL As Global.System.Data.DataColumn + Private columnMODULE_ID As Global.System.Data.DataColumn - Private columnLANGUAGE As Global.System.Data.DataColumn + Private columnGROUP_ID As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn - Private columnDATE_FORMAT As Global.System.Data.DataColumn - Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn @@ -3144,7 +3164,7 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBDD_USER" + Me.TableName = "TBDD_GROUPS_MODULES" Me.BeginInit Me.InitClass Me.EndInit @@ -3185,49 +3205,17 @@ Partial Public Class UserDataSet _ - Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPRENAME - End Get - End Property - - _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnNAME - End Get - End Property - - _ - Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnUSERNAME - End Get - End Property - - _ - Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSHORTNAME - End Get - End Property - - _ - Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn + Public ReadOnly Property MODULE_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnEMAIL + Return Me.columnMODULE_ID End Get End Property _ - Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnLANGUAGE + Return Me.columnGROUP_ID End Get End Property @@ -3239,14 +3227,6 @@ Partial Public Class UserDataSet End Get End Property - _ - Public ReadOnly Property DATE_FORMATColumn() As Global.System.Data.DataColumn - Get - Return Me.columnDATE_FORMAT - End Get - End Property - _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn @@ -3290,50 +3270,56 @@ Partial Public Class UserDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USERRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPS_MODULESRow Get - Return CType(Me.Rows(index),TBDD_USERRow) + Return CType(Me.Rows(index),TBDD_GROUPS_MODULESRow) End Get End Property _ - Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler + Public Event TBDD_GROUPS_MODULESRowChanging As TBDD_GROUPS_MODULESRowChangeEventHandler _ - Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler + Public Event TBDD_GROUPS_MODULESRowChanged As TBDD_GROUPS_MODULESRowChangeEventHandler _ - Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler + Public Event TBDD_GROUPS_MODULESRowDeleting As TBDD_GROUPS_MODULESRowChangeEventHandler _ - Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler + Public Event TBDD_GROUPS_MODULESRowDeleted As TBDD_GROUPS_MODULESRowChangeEventHandler _ - Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow) + Public Overloads Sub AddTBDD_GROUPS_MODULESRow(ByVal row As TBDD_GROUPS_MODULESRow) Me.Rows.Add(row) End Sub _ - 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} - rowTBDD_USERRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_USERRow) - Return rowTBDD_USERRow + 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} + If (Not (parentTBDD_MODULESRowByFK_TBDD_GROUPS_MODULES_MODULE_ID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_MODULESRowByFK_TBDD_GROUPS_MODULES_MODULE_ID(0) + End If + If (Not (parentTBDD_GROUPSRowByFK_TBDD_GROUPS_MODULES_GROUP_ID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_GROUPSRowByFK_TBDD_GROUPS_MODULES_GROUP_ID(0) + End If + rowTBDD_GROUPS_MODULESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_GROUPS_MODULESRow) + Return rowTBDD_GROUPS_MODULESRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USERRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USERRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_MODULESRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_MODULESRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable) + Dim cln As TBDD_GROUPS_MODULESDataTable = CType(MyBase.Clone,TBDD_GROUPS_MODULESDataTable) cln.InitVars Return cln End Function @@ -3341,21 +3327,16 @@ Partial Public Class UserDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_USERDataTable() + Return New TBDD_GROUPS_MODULESDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnPRENAME = MyBase.Columns("PRENAME") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnUSERNAME = MyBase.Columns("USERNAME") - Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") - Me.columnEMAIL = MyBase.Columns("EMAIL") - Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") + Me.columnMODULE_ID = MyBase.Columns("MODULE_ID") + Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") Me.columnCOMMENT = MyBase.Columns("COMMENT") - Me.columnDATE_FORMAT = MyBase.Columns("DATE_FORMAT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") @@ -3367,22 +3348,12 @@ Partial Public Class UserDataSet Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) - Me.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPRENAME) - Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNAME) - Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSERNAME) - Me.columnSHORTNAME = New Global.System.Data.DataColumn("SHORTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSHORTNAME) - Me.columnEMAIL = New Global.System.Data.DataColumn("EMAIL", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEMAIL) - Me.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnLANGUAGE) + Me.columnMODULE_ID = New Global.System.Data.DataColumn("MODULE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMODULE_ID) + Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP_ID) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) - Me.columnDATE_FORMAT = New Global.System.Data.DataColumn("DATE_FORMAT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDATE_FORMAT) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) @@ -3398,17 +3369,9 @@ Partial Public Class UserDataSet Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true - Me.columnPRENAME.MaxLength = 50 - Me.columnNAME.MaxLength = 50 - Me.columnUSERNAME.AllowDBNull = false - Me.columnUSERNAME.MaxLength = 50 - Me.columnSHORTNAME.MaxLength = 30 - Me.columnEMAIL.MaxLength = 100 - Me.columnLANGUAGE.AllowDBNull = false - Me.columnLANGUAGE.MaxLength = 5 - Me.columnCOMMENT.MaxLength = 500 - Me.columnDATE_FORMAT.AllowDBNull = false - Me.columnDATE_FORMAT.MaxLength = 10 + Me.columnMODULE_ID.AllowDBNull = false + Me.columnGROUP_ID.AllowDBNull = false + Me.columnCOMMENT.MaxLength = 200 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 @@ -3416,28 +3379,28 @@ Partial Public Class UserDataSet _ - Public Function NewTBDD_USERRow() As TBDD_USERRow - Return CType(Me.NewRow,TBDD_USERRow) + Public Function NewTBDD_GROUPS_MODULESRow() As TBDD_GROUPS_MODULESRow + Return CType(Me.NewRow,TBDD_GROUPS_MODULESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_USERRow(builder) + Return New TBDD_GROUPS_MODULESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_USERRow) + Return GetType(TBDD_GROUPS_MODULESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_USERRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowChanged(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + If (Not (Me.TBDD_GROUPS_MODULESRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_MODULESRowChanged(Me, New TBDD_GROUPS_MODULESRowChangeEvent(CType(e.Row,TBDD_GROUPS_MODULESRow), e.Action)) End If End Sub @@ -3445,8 +3408,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_USERRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowChanging(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + If (Not (Me.TBDD_GROUPS_MODULESRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_MODULESRowChanging(Me, New TBDD_GROUPS_MODULESRowChangeEvent(CType(e.Row,TBDD_GROUPS_MODULESRow), e.Action)) End If End Sub @@ -3454,8 +3417,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_USERRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowDeleted(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + If (Not (Me.TBDD_GROUPS_MODULESRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_MODULESRowDeleted(Me, New TBDD_GROUPS_MODULESRowChangeEvent(CType(e.Row,TBDD_GROUPS_MODULESRow), e.Action)) End If End Sub @@ -3463,14 +3426,14 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_USERRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowDeleting(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + If (Not (Me.TBDD_GROUPS_MODULESRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_MODULESRowDeleting(Me, New TBDD_GROUPS_MODULESRowChangeEvent(CType(e.Row,TBDD_GROUPS_MODULESRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) + Public Sub RemoveTBDD_GROUPS_MODULESRow(ByVal row As TBDD_GROUPS_MODULESRow) Me.Rows.Remove(row) End Sub @@ -3497,7 +3460,7 @@ Partial Public Class UserDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_USERDataTable" + attribute2.FixedValue = "TBDD_GROUPS_MODULESDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -3546,12 +3509,12 @@ Partial Public Class UserDataSet ''' _ - Partial Public Class TBDD_GROUPS_MODULESDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPS_MODULESRow) + Partial Public Class TBDD_GROUPS_CLIENTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPS_CLIENTRow) Private columnGUID As Global.System.Data.DataColumn - Private columnMODULE_ID As Global.System.Data.DataColumn + Private columnCLIENT_ID As Global.System.Data.DataColumn Private columnGROUP_ID As Global.System.Data.DataColumn @@ -3569,7 +3532,7 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBDD_GROUPS_MODULES" + Me.TableName = "TBDD_GROUPS_CLIENT" Me.BeginInit Me.InitClass Me.EndInit @@ -3610,9 +3573,9 @@ Partial Public Class UserDataSet _ - Public ReadOnly Property MODULE_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CLIENT_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnMODULE_ID + Return Me.columnCLIENT_ID End Get End Property @@ -3675,56 +3638,56 @@ Partial Public Class UserDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPS_MODULESRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPS_CLIENTRow Get - Return CType(Me.Rows(index),TBDD_GROUPS_MODULESRow) + Return CType(Me.Rows(index),TBDD_GROUPS_CLIENTRow) End Get End Property _ - Public Event TBDD_GROUPS_MODULESRowChanging As TBDD_GROUPS_MODULESRowChangeEventHandler + Public Event TBDD_GROUPS_CLIENTRowChanging As TBDD_GROUPS_CLIENTRowChangeEventHandler _ - Public Event TBDD_GROUPS_MODULESRowChanged As TBDD_GROUPS_MODULESRowChangeEventHandler + Public Event TBDD_GROUPS_CLIENTRowChanged As TBDD_GROUPS_CLIENTRowChangeEventHandler _ - Public Event TBDD_GROUPS_MODULESRowDeleting As TBDD_GROUPS_MODULESRowChangeEventHandler + Public Event TBDD_GROUPS_CLIENTRowDeleting As TBDD_GROUPS_CLIENTRowChangeEventHandler _ - Public Event TBDD_GROUPS_MODULESRowDeleted As TBDD_GROUPS_MODULESRowChangeEventHandler + Public Event TBDD_GROUPS_CLIENTRowDeleted As TBDD_GROUPS_CLIENTRowChangeEventHandler _ - Public Overloads Sub AddTBDD_GROUPS_MODULESRow(ByVal row As TBDD_GROUPS_MODULESRow) + Public Overloads Sub AddTBDD_GROUPS_CLIENTRow(ByVal row As TBDD_GROUPS_CLIENTRow) Me.Rows.Add(row) End Sub _ - 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) + 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} - If (Not (parentTBDD_MODULESRowByFK_TBDD_GROUPS_MODULES_MODULE_ID) Is Nothing) Then - columnValuesArray(1) = parentTBDD_MODULESRowByFK_TBDD_GROUPS_MODULES_MODULE_ID(0) + If (Not (parentTBDD_CLIENTRowByFK_TBDD_GROUPS_CLIENT_CLIENT_ID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_CLIENTRowByFK_TBDD_GROUPS_CLIENT_CLIENT_ID(0) End If - If (Not (parentTBDD_GROUPSRowByFK_TBDD_GROUPS_MODULES_GROUP_ID) Is Nothing) Then - columnValuesArray(2) = parentTBDD_GROUPSRowByFK_TBDD_GROUPS_MODULES_GROUP_ID(0) + If (Not (parentTBDD_GROUPSRowByFK_TBDD_GROUPS_CLIENT_GROUP_ID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_GROUPSRowByFK_TBDD_GROUPS_CLIENT_GROUP_ID(0) End If - rowTBDD_GROUPS_MODULESRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_GROUPS_MODULESRow) - Return rowTBDD_GROUPS_MODULESRow + rowTBDD_GROUPS_CLIENTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_GROUPS_CLIENTRow) + Return rowTBDD_GROUPS_CLIENTRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_MODULESRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_MODULESRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_CLIENTRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_CLIENTRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_GROUPS_MODULESDataTable = CType(MyBase.Clone,TBDD_GROUPS_MODULESDataTable) + Dim cln As TBDD_GROUPS_CLIENTDataTable = CType(MyBase.Clone,TBDD_GROUPS_CLIENTDataTable) cln.InitVars Return cln End Function @@ -3732,14 +3695,14 @@ Partial Public Class UserDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_GROUPS_MODULESDataTable() + Return New TBDD_GROUPS_CLIENTDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnMODULE_ID = MyBase.Columns("MODULE_ID") + Me.columnCLIENT_ID = MyBase.Columns("CLIENT_ID") Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") @@ -3753,8 +3716,8 @@ Partial Public Class UserDataSet Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) - Me.columnMODULE_ID = New Global.System.Data.DataColumn("MODULE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnMODULE_ID) + Me.columnCLIENT_ID = New Global.System.Data.DataColumn("CLIENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCLIENT_ID) Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGROUP_ID) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) @@ -3774,7 +3737,7 @@ Partial Public Class UserDataSet Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true - Me.columnMODULE_ID.AllowDBNull = false + Me.columnCLIENT_ID.AllowDBNull = false Me.columnGROUP_ID.AllowDBNull = false Me.columnCOMMENT.MaxLength = 200 Me.columnADDED_WHO.AllowDBNull = false @@ -3784,28 +3747,28 @@ Partial Public Class UserDataSet _ - Public Function NewTBDD_GROUPS_MODULESRow() As TBDD_GROUPS_MODULESRow - Return CType(Me.NewRow,TBDD_GROUPS_MODULESRow) + Public Function NewTBDD_GROUPS_CLIENTRow() As TBDD_GROUPS_CLIENTRow + Return CType(Me.NewRow,TBDD_GROUPS_CLIENTRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_GROUPS_MODULESRow(builder) + Return New TBDD_GROUPS_CLIENTRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_GROUPS_MODULESRow) + Return GetType(TBDD_GROUPS_CLIENTRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_GROUPS_MODULESRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_MODULESRowChanged(Me, New TBDD_GROUPS_MODULESRowChangeEvent(CType(e.Row,TBDD_GROUPS_MODULESRow), e.Action)) + If (Not (Me.TBDD_GROUPS_CLIENTRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_CLIENTRowChanged(Me, New TBDD_GROUPS_CLIENTRowChangeEvent(CType(e.Row,TBDD_GROUPS_CLIENTRow), e.Action)) End If End Sub @@ -3813,8 +3776,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_GROUPS_MODULESRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_MODULESRowChanging(Me, New TBDD_GROUPS_MODULESRowChangeEvent(CType(e.Row,TBDD_GROUPS_MODULESRow), e.Action)) + If (Not (Me.TBDD_GROUPS_CLIENTRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_CLIENTRowChanging(Me, New TBDD_GROUPS_CLIENTRowChangeEvent(CType(e.Row,TBDD_GROUPS_CLIENTRow), e.Action)) End If End Sub @@ -3822,8 +3785,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_GROUPS_MODULESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_MODULESRowDeleted(Me, New TBDD_GROUPS_MODULESRowChangeEvent(CType(e.Row,TBDD_GROUPS_MODULESRow), e.Action)) + If (Not (Me.TBDD_GROUPS_CLIENTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_CLIENTRowDeleted(Me, New TBDD_GROUPS_CLIENTRowChangeEvent(CType(e.Row,TBDD_GROUPS_CLIENTRow), e.Action)) End If End Sub @@ -3831,14 +3794,14 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_GROUPS_MODULESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_MODULESRowDeleting(Me, New TBDD_GROUPS_MODULESRowChangeEvent(CType(e.Row,TBDD_GROUPS_MODULESRow), e.Action)) + If (Not (Me.TBDD_GROUPS_CLIENTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_CLIENTRowDeleting(Me, New TBDD_GROUPS_CLIENTRowChangeEvent(CType(e.Row,TBDD_GROUPS_CLIENTRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_GROUPS_MODULESRow(ByVal row As TBDD_GROUPS_MODULESRow) + Public Sub RemoveTBDD_GROUPS_CLIENTRow(ByVal row As TBDD_GROUPS_CLIENTRow) Me.Rows.Remove(row) End Sub @@ -3865,7 +3828,7 @@ Partial Public Class UserDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_GROUPS_MODULESDataTable" + attribute2.FixedValue = "TBDD_GROUPS_CLIENTDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -3914,14 +3877,16 @@ Partial Public Class UserDataSet ''' _ - Partial Public Class TBDD_GROUPS_CLIENTDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPS_CLIENTRow) + Partial Public Class TBDD_GROUPSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPSRow) Private columnGUID As Global.System.Data.DataColumn - Private columnCLIENT_ID As Global.System.Data.DataColumn + Private columnNAME As Global.System.Data.DataColumn - Private columnGROUP_ID As Global.System.Data.DataColumn + Private columnINTERNAL As Global.System.Data.DataColumn + + Private columnAD_SYNC As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn @@ -3933,11 +3898,15 @@ Partial Public Class UserDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnECM_FK_ID As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + _ Public Sub New() MyBase.New - Me.TableName = "TBDD_GROUPS_CLIENT" + Me.TableName = "TBDD_GROUPS" Me.BeginInit Me.InitClass Me.EndInit @@ -3978,17 +3947,25 @@ Partial Public Class UserDataSet _ - Public ReadOnly Property CLIENT_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCLIENT_ID + Return Me.columnNAME End Get End Property _ - Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property INTERNALColumn() As Global.System.Data.DataColumn Get - Return Me.columnGROUP_ID + Return Me.columnINTERNAL + End Get + End Property + + _ + Public ReadOnly Property AD_SYNCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAD_SYNC End Get End Property @@ -4032,6 +4009,22 @@ Partial Public Class UserDataSet End Get End Property + _ + Public ReadOnly Property ECM_FK_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnECM_FK_ID + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + _ @@ -4043,56 +4036,50 @@ Partial Public Class UserDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPS_CLIENTRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPSRow Get - Return CType(Me.Rows(index),TBDD_GROUPS_CLIENTRow) + Return CType(Me.Rows(index),TBDD_GROUPSRow) End Get End Property _ - Public Event TBDD_GROUPS_CLIENTRowChanging As TBDD_GROUPS_CLIENTRowChangeEventHandler + Public Event TBDD_GROUPSRowChanging As TBDD_GROUPSRowChangeEventHandler _ - Public Event TBDD_GROUPS_CLIENTRowChanged As TBDD_GROUPS_CLIENTRowChangeEventHandler + Public Event TBDD_GROUPSRowChanged As TBDD_GROUPSRowChangeEventHandler _ - Public Event TBDD_GROUPS_CLIENTRowDeleting As TBDD_GROUPS_CLIENTRowChangeEventHandler + Public Event TBDD_GROUPSRowDeleting As TBDD_GROUPSRowChangeEventHandler _ - Public Event TBDD_GROUPS_CLIENTRowDeleted As TBDD_GROUPS_CLIENTRowChangeEventHandler + Public Event TBDD_GROUPSRowDeleted As TBDD_GROUPSRowChangeEventHandler _ - Public Overloads Sub AddTBDD_GROUPS_CLIENTRow(ByVal row As TBDD_GROUPS_CLIENTRow) + Public Overloads Sub AddTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) Me.Rows.Add(row) End Sub _ - 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} - If (Not (parentTBDD_CLIENTRowByFK_TBDD_GROUPS_CLIENT_CLIENT_ID) Is Nothing) Then - columnValuesArray(1) = parentTBDD_CLIENTRowByFK_TBDD_GROUPS_CLIENT_CLIENT_ID(0) - End If - If (Not (parentTBDD_GROUPSRowByFK_TBDD_GROUPS_CLIENT_GROUP_ID) Is Nothing) Then - columnValuesArray(2) = parentTBDD_GROUPSRowByFK_TBDD_GROUPS_CLIENT_GROUP_ID(0) - End If - rowTBDD_GROUPS_CLIENTRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_GROUPS_CLIENTRow) - Return rowTBDD_GROUPS_CLIENTRow + 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} + rowTBDD_GROUPSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_GROUPSRow) + Return rowTBDD_GROUPSRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_CLIENTRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_CLIENTRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPSRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_GROUPS_CLIENTDataTable = CType(MyBase.Clone,TBDD_GROUPS_CLIENTDataTable) + Dim cln As TBDD_GROUPSDataTable = CType(MyBase.Clone,TBDD_GROUPSDataTable) cln.InitVars Return cln End Function @@ -4100,20 +4087,23 @@ Partial Public Class UserDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_GROUPS_CLIENTDataTable() + Return New TBDD_GROUPSDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnCLIENT_ID = MyBase.Columns("CLIENT_ID") - Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnINTERNAL = MyBase.Columns("INTERNAL") + Me.columnAD_SYNC = MyBase.Columns("AD_SYNC") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnECM_FK_ID = MyBase.Columns("ECM_FK_ID") + Me.columnACTIVE = MyBase.Columns("ACTIVE") End Sub _ - Public Function NewTBDD_GROUPS_CLIENTRow() As TBDD_GROUPS_CLIENTRow - Return CType(Me.NewRow,TBDD_GROUPS_CLIENTRow) + Public Function NewTBDD_GROUPSRow() As TBDD_GROUPSRow + Return CType(Me.NewRow,TBDD_GROUPSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_GROUPS_CLIENTRow(builder) + Return New TBDD_GROUPSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_GROUPS_CLIENTRow) + Return GetType(TBDD_GROUPSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_GROUPS_CLIENTRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_CLIENTRowChanged(Me, New TBDD_GROUPS_CLIENTRowChangeEvent(CType(e.Row,TBDD_GROUPS_CLIENTRow), e.Action)) + If (Not (Me.TBDD_GROUPSRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPSRowChanged(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) End If End Sub @@ -4181,8 +4183,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_GROUPS_CLIENTRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_CLIENTRowChanging(Me, New TBDD_GROUPS_CLIENTRowChangeEvent(CType(e.Row,TBDD_GROUPS_CLIENTRow), e.Action)) + If (Not (Me.TBDD_GROUPSRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPSRowChanging(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) End If End Sub @@ -4190,8 +4192,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_GROUPS_CLIENTRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_CLIENTRowDeleted(Me, New TBDD_GROUPS_CLIENTRowChangeEvent(CType(e.Row,TBDD_GROUPS_CLIENTRow), e.Action)) + If (Not (Me.TBDD_GROUPSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPSRowDeleted(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) End If End Sub @@ -4199,14 +4201,14 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_GROUPS_CLIENTRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_CLIENTRowDeleting(Me, New TBDD_GROUPS_CLIENTRowChangeEvent(CType(e.Row,TBDD_GROUPS_CLIENTRow), e.Action)) + If (Not (Me.TBDD_GROUPSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPSRowDeleting(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_GROUPS_CLIENTRow(ByVal row As TBDD_GROUPS_CLIENTRow) + Public Sub RemoveTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) Me.Rows.Remove(row) End Sub @@ -4233,7 +4235,7 @@ Partial Public Class UserDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_GROUPS_CLIENTDataTable" + attribute2.FixedValue = "TBDD_GROUPSDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -4823,41 +4825,48 @@ Partial Public Class UserDataSet ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBDD_GROUPSRow + Partial Public Class TBDD_GROUPS_USERRow Inherits Global.System.Data.DataRow - Private tableTBDD_GROUPS As TBDD_GROUPSDataTable + Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_GROUPS = CType(Me.Table,TBDD_GROUPSDataTable) + Me.tableTBDD_GROUPS_USER = CType(Me.Table,TBDD_GROUPS_USERDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_GROUPS.GUIDColumn),Integer) + Return CType(Me(Me.tableTBDD_GROUPS_USER.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_GROUPS.GUIDColumn) = value + Me(Me.tableTBDD_GROUPS_USER.GUIDColumn) = value End Set End Property _ - Public Property NAME() As String + Public Property USER_ID() As Integer Get - Try - Return CType(Me(Me.tableTBDD_GROUPS.NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_GROUPS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn),Integer) End Get Set - Me(Me.tableTBDD_GROUPS.NAMEColumn) = value + Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn) = value + End Set + End Property + + _ + Public Property GROUP_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn) = value End Set End Property @@ -4866,13 +4875,13 @@ Partial Public Class UserDataSet Public Property COMMENT() As String Get Try - Return CType(Me(Me.tableTBDD_GROUPS.COMMENTColumn),String) + Return CType(Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_GROUPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_GROUPS_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS.COMMENTColumn) = value + Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn) = value End Set End Property @@ -4880,14 +4889,10 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHO() As String Get - Try - Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = value + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn) = value End Set End Property @@ -4896,13 +4901,13 @@ Partial Public Class UserDataSet Public Property ADDED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GROUPS_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = value + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = value End Set End Property @@ -4911,13 +4916,13 @@ Partial Public Class UserDataSet Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = value + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = value End Set End Property @@ -4926,504 +4931,238 @@ Partial Public Class UserDataSet Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = value + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = value End Set End Property _ - Public Property INTERNAL() As Boolean + Public Property TBDD_USERRow() As TBDD_USERRow Get - Return CType(Me(Me.tableTBDD_GROUPS.INTERNALColumn),Boolean) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_USERRow) End Get Set - Me(Me.tableTBDD_GROUPS.INTERNALColumn) = value + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")) End Set End Property _ - Public Property AD_SYNC() As Boolean + Public Property TBDD_GROUPSRow() As TBDD_GROUPSRow Get - Return CType(Me(Me.tableTBDD_GROUPS.AD_SYNCColumn),Boolean) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_GROUPSRow) End Get Set - Me(Me.tableTBDD_GROUPS.AD_SYNCColumn) = value + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")) End Set End Property - _ - Public Property ECM_FK_ID() As Integer - Get - Return CType(Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn),Integer) - End Get - Set - Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn) = value - End Set - End Property - - _ - Public Property ACTIVE() As Boolean - Get - Return CType(Me(Me.tableTBDD_GROUPS.ACTIVEColumn),Boolean) - End Get - Set - Me(Me.tableTBDD_GROUPS.ACTIVEColumn) = value - End Set - End Property - - _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS.NAMEColumn) - End Function - - _ - Public Sub SetNAMENull() - Me(Me.tableTBDD_GROUPS.NAMEColumn) = Global.System.Convert.DBNull - End Sub - _ Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS.COMMENTColumn) + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() - Me(Me.tableTBDD_GROUPS.COMMENTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHOColumn) - End Function - - _ - Public Sub SetADDED_WHONull() - Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull + Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHENColumn) + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() - Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ - 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) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_GROUPS_USERRow()) - End If - End Function - - _ - 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) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_MODULES_GROUP_ID")),TBDD_GROUPS_MODULESRow()) - End If - End Function - - _ - 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) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_CLIENT_GROUP_ID")),TBDD_GROUPS_CLIENTRow()) - End If - End Function End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBDD_GROUPS_USERRow + Partial Public Class TBDD_MODULESRow Inherits Global.System.Data.DataRow - Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable + Private tableTBDD_MODULES As TBDD_MODULESDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_GROUPS_USER = CType(Me.Table,TBDD_GROUPS_USERDataTable) + Me.tableTBDD_MODULES = CType(Me.Table,TBDD_MODULESDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_GROUPS_USER.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBDD_GROUPS_USER.GUIDColumn) = value - End Set - End Property - - _ - Public Property USER_ID() As Integer - Get - Return CType(Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn),Integer) + Return CType(Me(Me.tableTBDD_MODULES.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn) = value + Me(Me.tableTBDD_MODULES.GUIDColumn) = value End Set End Property _ - Public Property GROUP_ID() As Integer + Public Property NAME() As String Get - Return CType(Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn),Integer) + Try + Return CType(Me(Me.tableTBDD_MODULES.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_MODULES ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn) = value + Me(Me.tableTBDD_MODULES.NAMEColumn) = value End Set End Property _ - Public Property COMMENT() As String + Public Property SHORT_NAME() As String Get Try - Return CType(Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn),String) + Return CType(Me(Me.tableTBDD_MODULES.SHORT_NAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_GROUPS_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORT_NAME in Tabelle TBDD_MODULES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn) = value + Me(Me.tableTBDD_MODULES.SHORT_NAMEColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property LICENSE() As String Get - Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBDD_MODULES.LICENSEColumn),String) End Get Set - Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn) = value + Me(Me.tableTBDD_MODULES.LICENSEColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property PRODUCT_VERSION() As String Get - Try - Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GROUPS_USER ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_MODULES.PRODUCT_VERSIONColumn),String) End Get Set - Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = value + Me(Me.tableTBDD_MODULES.PRODUCT_VERSIONColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property ACTIVE() As Boolean Get - Try - Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS_USER ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_MODULES.ACTIVEColumn),Boolean) End Get Set - Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = value + Me(Me.tableTBDD_MODULES.ACTIVEColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property VERSION_DELIMITER() As String Get - Try - Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS_USER ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_MODULES.VERSION_DELIMITERColumn),String) End Get Set - Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = value + Me(Me.tableTBDD_MODULES.VERSION_DELIMITERColumn) = value End Set End Property _ - Public Property TBDD_GROUPSRow() As TBDD_GROUPSRow + Public Property FILE_DELIMITER() As String Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_GROUPSRow) + Return CType(Me(Me.tableTBDD_MODULES.FILE_DELIMITERColumn),String) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")) + Me(Me.tableTBDD_MODULES.FILE_DELIMITERColumn) = value End Set End Property _ - Public Property TBDD_USERRow() As TBDD_USERRow + Public Property BIT1() As Boolean Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_USERRow) + Return CType(Me(Me.tableTBDD_MODULES.BIT1Column),Boolean) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")) + Me(Me.tableTBDD_MODULES.BIT1Column) = value End Set End Property _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS_USER.COMMENTColumn) - End Function - - _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBDD_MODULESRow - Inherits Global.System.Data.DataRow - - Private tableTBDD_MODULES As TBDD_MODULESDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBDD_MODULES = CType(Me.Table,TBDD_MODULESDataTable) - End Sub - - _ - Public Property GUID() As Integer + Public Property BIT2() As Boolean Get - Return CType(Me(Me.tableTBDD_MODULES.GUIDColumn),Integer) + Return CType(Me(Me.tableTBDD_MODULES.BIT2Column),Boolean) End Get Set - Me(Me.tableTBDD_MODULES.GUIDColumn) = value + Me(Me.tableTBDD_MODULES.BIT2Column) = value End Set End Property _ - Public Property NAME() As String + Public Property STRING1() As String Get Try - Return CType(Me(Me.tableTBDD_MODULES.NAMEColumn),String) + Return CType(Me(Me.tableTBDD_MODULES.STRING1Column),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_MODULES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STRING1 in Tabelle TBDD_MODULES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_MODULES.NAMEColumn) = value + Me(Me.tableTBDD_MODULES.STRING1Column) = value End Set End Property _ - Public Property SHORT_NAME() As String - Get - Try - Return CType(Me(Me.tableTBDD_MODULES.SHORT_NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORT_NAME in Tabelle TBDD_MODULES ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_MODULES.SHORT_NAMEColumn) = value - End Set - End Property - - _ - Public Property LICENSE() As String - Get - Return CType(Me(Me.tableTBDD_MODULES.LICENSEColumn),String) - End Get - Set - Me(Me.tableTBDD_MODULES.LICENSEColumn) = value - End Set - End Property - - _ - Public Property PRODUCT_VERSION() As String - Get - Return CType(Me(Me.tableTBDD_MODULES.PRODUCT_VERSIONColumn),String) - End Get - Set - Me(Me.tableTBDD_MODULES.PRODUCT_VERSIONColumn) = value - End Set - End Property - - _ - Public Property ACTIVE() As Boolean - Get - Return CType(Me(Me.tableTBDD_MODULES.ACTIVEColumn),Boolean) - End Get - Set - Me(Me.tableTBDD_MODULES.ACTIVEColumn) = value - End Set - End Property - - _ - Public Property VERSION_DELIMITER() As String - Get - Return CType(Me(Me.tableTBDD_MODULES.VERSION_DELIMITERColumn),String) - End Get - Set - Me(Me.tableTBDD_MODULES.VERSION_DELIMITERColumn) = value - End Set - End Property - - _ - Public Property FILE_DELIMITER() As String - Get - Return CType(Me(Me.tableTBDD_MODULES.FILE_DELIMITERColumn),String) - End Get - Set - Me(Me.tableTBDD_MODULES.FILE_DELIMITERColumn) = value - End Set - End Property - - _ - Public Property BIT1() As Boolean - Get - Return CType(Me(Me.tableTBDD_MODULES.BIT1Column),Boolean) - End Get - Set - Me(Me.tableTBDD_MODULES.BIT1Column) = value - End Set - End Property - - _ - Public Property BIT2() As Boolean - Get - Return CType(Me(Me.tableTBDD_MODULES.BIT2Column),Boolean) - End Get - Set - Me(Me.tableTBDD_MODULES.BIT2Column) = value - End Set - End Property - - _ - Public Property STRING1() As String - Get - Try - Return CType(Me(Me.tableTBDD_MODULES.STRING1Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STRING1 in Tabelle TBDD_MODULES ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_MODULES.STRING1Column) = value - End Set - End Property - - _ - Public Property STRING2() As String + Public Property STRING2() As String Get Try Return CType(Me(Me.tableTBDD_MODULES.STRING2Column),String) @@ -6679,23 +6418,23 @@ Partial Public Class UserDataSet _ - Public Property TBDD_GROUPSRow() As TBDD_GROUPSRow + Public Property TBDD_MODULESRow() As TBDD_MODULESRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_MODULES_GROUP_ID")),TBDD_GROUPSRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_MODULES_MODULE_ID")),TBDD_MODULESRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_MODULES_GROUP_ID")) + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_MODULES_MODULE_ID")) End Set End Property _ - Public Property TBDD_MODULESRow() As TBDD_MODULESRow + Public Property TBDD_GROUPSRow() As TBDD_GROUPSRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_MODULES_MODULE_ID")),TBDD_MODULESRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_MODULES_GROUP_ID")),TBDD_GROUPSRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_MODULES_MODULE_ID")) + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_MODULES_GROUP_ID")) End Set End Property @@ -6941,204 +6680,431 @@ Partial Public Class UserDataSet ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBLOCAL_ADUSERSRow + Partial Public Class TBDD_GROUPSRow Inherits Global.System.Data.DataRow - Private tableTBLOCAL_ADUSERS As TBLOCAL_ADUSERSDataTable + Private tableTBDD_GROUPS As TBDD_GROUPSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBLOCAL_ADUSERS = CType(Me.Table,TBLOCAL_ADUSERSDataTable) + Me.tableTBDD_GROUPS = CType(Me.Table,TBDD_GROUPSDataTable) End Sub _ - Public Property USERNAME() As String + Public Property GUID() As Integer Get - Try - Return CType(Me(Me.tableTBLOCAL_ADUSERS.USERNAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBLOCAL_ADUSERS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_GROUPS.GUIDColumn),Integer) End Get Set - Me(Me.tableTBLOCAL_ADUSERS.USERNAMEColumn) = value + Me(Me.tableTBDD_GROUPS.GUIDColumn) = value End Set End Property _ - Public Property PRENAME() As String + Public Property NAME() As String Get - If Me.IsPRENAMENull Then - Return Nothing - Else - Return CType(Me(Me.tableTBLOCAL_ADUSERS.PRENAMEColumn),String) - End If + Try + Return CType(Me(Me.tableTBDD_GROUPS.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBLOCAL_ADUSERS.PRENAMEColumn) = value + Me(Me.tableTBDD_GROUPS.NAMEColumn) = value End Set End Property _ - Public Property NAME() As String + Public Property INTERNAL() As Boolean Get - If Me.IsNAMENull Then - Return Nothing - Else - Return CType(Me(Me.tableTBLOCAL_ADUSERS.NAMEColumn),String) - End If + Return CType(Me(Me.tableTBDD_GROUPS.INTERNALColumn),Boolean) End Get Set - Me(Me.tableTBLOCAL_ADUSERS.NAMEColumn) = value + Me(Me.tableTBDD_GROUPS.INTERNALColumn) = value End Set End Property _ - Public Property EMAIL() As String + Public Property AD_SYNC() As Boolean Get - If Me.IsEMAILNull Then - Return Nothing - Else - Return CType(Me(Me.tableTBLOCAL_ADUSERS.EMAILColumn),String) - End If + Return CType(Me(Me.tableTBDD_GROUPS.AD_SYNCColumn),Boolean) End Get Set - Me(Me.tableTBLOCAL_ADUSERS.EMAILColumn) = value + Me(Me.tableTBDD_GROUPS.AD_SYNCColumn) = value End Set End Property _ - Public Function IsUSERNAMENull() As Boolean - Return Me.IsNull(Me.tableTBLOCAL_ADUSERS.USERNAMEColumn) - End Function + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS.COMMENTColumn) = value + End Set + End Property _ - Public Sub SetUSERNAMENull() - Me(Me.tableTBLOCAL_ADUSERS.USERNAMEColumn) = Global.System.Convert.DBNull - End Sub + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = value + End Set + End Property _ - Public Function IsPRENAMENull() As Boolean - Return Me.IsNull(Me.tableTBLOCAL_ADUSERS.PRENAMEColumn) - End Function + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = value + End Set + End Property _ - Public Sub SetPRENAMENull() - Me(Me.tableTBLOCAL_ADUSERS.PRENAMEColumn) = Global.System.Convert.DBNull - End Sub + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = value + End Set + End Property _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableTBLOCAL_ADUSERS.NAMEColumn) - End Function + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = value + End Set + End Property _ - Public Sub SetNAMENull() - Me(Me.tableTBLOCAL_ADUSERS.NAMEColumn) = Global.System.Convert.DBNull - End Sub + Public Property ECM_FK_ID() As Integer + Get + Return CType(Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn) = value + End Set + End Property _ - Public Function IsEMAILNull() As Boolean - Return Me.IsNull(Me.tableTBLOCAL_ADUSERS.EMAILColumn) + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBDD_GROUPS.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_GROUPS.ACTIVEColumn) = value + End Set + End Property + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.NAMEColumn) End Function _ - Public Sub SetEMAILNull() - Me(Me.tableTBLOCAL_ADUSERS.EMAILColumn) = Global.System.Convert.DBNull + Public Sub SetNAMENull() + Me(Me.tableTBDD_GROUPS.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_GROUPS.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub + + _ + 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) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_GROUPS_USERRow()) + End If + End Function + + _ + 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) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_MODULES_GROUP_ID")),TBDD_GROUPS_MODULESRow()) + End If + End Function + + _ + 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) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_CLIENT_GROUP_ID")),TBDD_GROUPS_CLIENTRow()) + End If + End Function End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBLOCAL_ADGROUPSRow + Partial Public Class TBLOCAL_ADUSERSRow Inherits Global.System.Data.DataRow - Private tableTBLOCAL_ADGROUPS As TBLOCAL_ADGROUPSDataTable + Private tableTBLOCAL_ADUSERS As TBLOCAL_ADUSERSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBLOCAL_ADGROUPS = CType(Me.Table,TBLOCAL_ADGROUPSDataTable) + Me.tableTBLOCAL_ADUSERS = CType(Me.Table,TBLOCAL_ADUSERSDataTable) End Sub _ - Public Property GROUPNAME() As String + Public Property USERNAME() As String Get Try - Return CType(Me(Me.tableTBLOCAL_ADGROUPS.GROUPNAMEColumn),String) + Return CType(Me(Me.tableTBLOCAL_ADUSERS.USERNAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GROUPNAME in Tabelle TBLOCAL_ADGROUPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBLOCAL_ADUSERS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBLOCAL_ADGROUPS.GROUPNAMEColumn) = value + Me(Me.tableTBLOCAL_ADUSERS.USERNAMEColumn) = value End Set End Property _ - Public Function IsGROUPNAMENull() As Boolean - Return Me.IsNull(Me.tableTBLOCAL_ADGROUPS.GROUPNAMEColumn) + Public Property PRENAME() As String + Get + If Me.IsPRENAMENull Then + Return Nothing + Else + Return CType(Me(Me.tableTBLOCAL_ADUSERS.PRENAMEColumn),String) + End If + End Get + Set + Me(Me.tableTBLOCAL_ADUSERS.PRENAMEColumn) = value + End Set + End Property + + _ + Public Property NAME() As String + Get + If Me.IsNAMENull Then + Return Nothing + Else + Return CType(Me(Me.tableTBLOCAL_ADUSERS.NAMEColumn),String) + End If + End Get + Set + Me(Me.tableTBLOCAL_ADUSERS.NAMEColumn) = value + End Set + End Property + + _ + Public Property EMAIL() As String + Get + If Me.IsEMAILNull Then + Return Nothing + Else + Return CType(Me(Me.tableTBLOCAL_ADUSERS.EMAILColumn),String) + End If + End Get + Set + Me(Me.tableTBLOCAL_ADUSERS.EMAILColumn) = value + End Set + End Property + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableTBLOCAL_ADUSERS.USERNAMEColumn) End Function _ - Public Sub SetGROUPNAMENull() - Me(Me.tableTBLOCAL_ADGROUPS.GROUPNAMEColumn) = Global.System.Convert.DBNull + Public Sub SetUSERNAMENull() + Me(Me.tableTBLOCAL_ADUSERS.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPRENAMENull() As Boolean + Return Me.IsNull(Me.tableTBLOCAL_ADUSERS.PRENAMEColumn) + End Function + + _ + Public Sub SetPRENAMENull() + Me(Me.tableTBLOCAL_ADUSERS.PRENAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBLOCAL_ADUSERS.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBLOCAL_ADUSERS.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAILNull() As Boolean + Return Me.IsNull(Me.tableTBLOCAL_ADUSERS.EMAILColumn) + End Function + + _ + Public Sub SetEMAILNull() + Me(Me.tableTBLOCAL_ADUSERS.EMAILColumn) = Global.System.Convert.DBNull End Sub End Class ''' - '''Row event argument class + '''Represents strongly named DataRow class. ''' - _ - Public Class TBDD_GROUPSRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_GROUPSRow + Partial Public Class TBLOCAL_ADGROUPSRow + Inherits Global.System.Data.DataRow - Private eventAction As Global.System.Data.DataRowAction + Private tableTBLOCAL_ADGROUPS As TBLOCAL_ADGROUPSDataTable _ - Public Sub New(ByVal row As TBDD_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBLOCAL_ADGROUPS = CType(Me.Table,TBLOCAL_ADGROUPSDataTable) End Sub _ - Public ReadOnly Property Row() As TBDD_GROUPSRow + Public Property GROUPNAME() As String Get - Return Me.eventRow + Try + Return CType(Me(Me.tableTBLOCAL_ADGROUPS.GROUPNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GROUPNAME in Tabelle TBLOCAL_ADGROUPS ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBLOCAL_ADGROUPS.GROUPNAMEColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property + Public Function IsGROUPNAMENull() As Boolean + Return Me.IsNull(Me.tableTBLOCAL_ADGROUPS.GROUPNAMEColumn) + End Function + + _ + Public Sub SetGROUPNAMENull() + Me(Me.tableTBLOCAL_ADGROUPS.GROUPNAMEColumn) = Global.System.Convert.DBNull + End Sub End Class ''' @@ -7433,7 +7399,43 @@ Partial Public Class UserDataSet '''Row event argument class ''' _ - Public Class TBLOCAL_ADUSERSRowChangeEvent + Public Class TBDD_GROUPSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_GROUPSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_GROUPSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBLOCAL_ADUSERSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBLOCAL_ADUSERSRow @@ -7513,7 +7515,7 @@ Namespace UserDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_GROUPSTableAdapter + Partial Public Class TBDD_GROUPS_USERTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -7630,94 +7632,61 @@ Namespace UserDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_GROUPS" + tableMapping.DataSetTable = "TBDD_GROUPS_USER" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("INTERNAL", "INTERNAL") - tableMapping.ColumnMappings.Add("AD_SYNC", "AD_SYNC") - tableMapping.ColumnMappings.Add("ECM_FK_ID", "ECM_FK_ID") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") 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_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (USER_ID = @USER_ID) AND (GROUP_ID = @"& _ + "GROUP_ID)" 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("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._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, INTERNAL, AD_SYNC, COMME"& _ - "NT, ADDED_WHO, ACTIVE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME, 0, 1, '""""',@ADDED_WHO, 1); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _ - "CT GUID, NAME, INTERNAL, AD_SYNC, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ - "HANGED_WHEN, ECM_FK_ID, ACTIVE FROM TBDD_GROUPS WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, GROUP_ID, COMMEN"& _ + "T, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@GROUP_ID,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ + "GUID, USER_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WH"& _ + "EN FROM TBDD_GROUPS_USER WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_GROUPS] SET [NAME] = @NAME, [INTERNAL] = @INTERNAL, [AD_SYNC] = @AD_"& _ - "SYNC, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN"& _ - ", [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [ECM_FK_ID] = @E"& _ - "CM_FK_ID, [ACTIVE] = @ACTIVE WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME"& _ - " = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([INTERNAL] = @Origin"& _ - "al_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_WHE"& _ - "N)) 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 NU"& _ - "LL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([ECM_FK_ID] = @Original_E"& _ - "CM_FK_ID) AND ([ACTIVE] = @Original_ACTIVE));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, INTERNAL, AD_S"& _ - "YNC, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ECM_FK_ID, ACTIV"& _ - "E FROM TBDD_GROUPS WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_GROUPS_USER] SET [USER_ID] = @USER_ID, [GROUP_ID] = @GROUP_ID, [COMM"& _ + "ENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_"& _ + "WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_G"& _ + "UID) AND ([USER_ID] = @Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) A"& _ + "ND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMEN"& _ + "T)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [AD"& _ + "DED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANG"& _ + "ED_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)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GROUP_ID, COMMENT, ADDED_WHO"& _ + ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = @GUI"& _ + "D)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERNAL", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AD_SYNC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AD_SYNC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ECM_FK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ECM_FK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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, "", "", "")) @@ -7725,8 +7694,6 @@ Namespace UserDataSetTableAdapters Me._adapter.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub @@ -7740,67 +7707,25 @@ Namespace UserDataSetTableAdapters _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(6) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, NAME, INTERNAL, AD_SYNC, COMMENT, ADDED_WHO, ADDED_WHEN, CHAN"& _ - "GED_WHO, CHANGED_WHEN, ECM_FK_ID, ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS" + Me._commandCollection(0).CommandText = "SELECT TBDD_GROUPS_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_USER" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT T2.ACTIVE, T2.ADDED_WHEN, T2.ADDED_WHO, T2.AD_SYNC, T2.CHANGED_WHEN, T2.CH"& _ - "ANGED_WHO, T2.COMMENT, T2.ECM_FK_ID, T2.GUID, T2.INTERNAL, T2.NAME FROM TBDD_GRO"& _ - "UPS_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)" + Me._commandCollection(1).CommandText = "SELECT T2.GUID, T2.EMAIL, T2.USERNAME, T2.PRENAME, T2.NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBDD_GROUPS_USER AS T1 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER AS T2 ON"& _ + " T1.USER_ID = T2.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T1.GROUP_ID = @GROUP_ID)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "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"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBDD_GROUPS AS T1 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_GROUPS_CL"& _ - "IENT AS T2 ON T1.GUID = T2.GROUP_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.CLIENT_ID = @CLIENT_ID)" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(3).Connection = Me.Connection - Me._commandCollection(3).CommandText = "SELECT *"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " (SELECT DISTINCT T.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FRO"& _ - "M TBDD_GROUPS AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBDD_GROUPS_CLIENT AS T1 ON T.GUID = T1.GROUP_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WHERE (T1.CLIENT_ID = @CLIENT_ID)))" - Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(4).Connection = Me.Connection - Me._commandCollection(4).CommandText = "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"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBDD_GROUPS AS T1 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_GROUPS_MO"& _ - "DULES AS T2 ON T1.GUID = T2.GROUP_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.MODULE_ID = @MODULE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ - "" - Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(5).Connection = Me.Connection - Me._commandCollection(5).CommandText = "SELECT *"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " (SELECT DISTINCT T.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FRO"& _ - "M TBDD_GROUPS AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBDD_GROUPS_MODULES AS T1 ON T.GUID = T1.GROUP_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WHERE (T1.MODULE_ID = @MODULE_ID)))" - Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(6).Connection = Me.Connection - Me._commandCollection(6).CommandText = "SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (NAME = @NAME)" - Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_GROUPSDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_GROUPS_USERDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -7813,9 +7738,9 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As UserDataSet.TBDD_GROUPSDataTable + Public Overloads Overridable Function GetData() As UserDataSet.TBDD_GROUPS_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As UserDataSet.TBDD_GROUPSDataTable = New UserDataSet.TBDD_GROUPSDataTable() + Dim dataTable As UserDataSet.TBDD_GROUPS_USERDataTable = New UserDataSet.TBDD_GROUPS_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -7824,13 +7749,9 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _ - Public Overloads Overridable Function FillByUsername(ByVal dataTable As UserDataSet.TBDD_GROUPSDataTable, ByVal USERNAME As String) As Integer + Public Overloads Overridable Function FillByGroupId(ByVal dataTable As UserDataSet.TBDD_GROUPS_USERDataTable, ByVal GROUP_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) - End If + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GROUP_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -7842,62 +7763,10 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _ - Public Overloads Overridable Function GetDataByUsername(ByVal USERNAME As String) As UserDataSet.TBDD_GROUPSDataTable + Public Overloads Overridable Function GetDataByGroupId(ByVal GROUP_ID As Integer) As UserDataSet.TBDD_GROUPS_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) - End If - Dim dataTable As UserDataSet.TBDD_GROUPSDataTable = New UserDataSet.TBDD_GROUPSDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function GetDataByClientId(ByVal CLIENT_ID As Integer) As UserDataSet.TBDD_GROUPSDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(2) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(CLIENT_ID,Integer) - Dim dataTable As UserDataSet.TBDD_GROUPSDataTable = New UserDataSet.TBDD_GROUPSDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function GetDataByClientId_NotInClient(ByVal CLIENT_ID As Integer) As UserDataSet.TBDD_GROUPSDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(3) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(CLIENT_ID,Integer) - Dim dataTable As UserDataSet.TBDD_GROUPSDataTable = New UserDataSet.TBDD_GROUPSDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function GetDataByModuleId(ByVal MODULE_ID As Integer) As UserDataSet.TBDD_GROUPSDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(4) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(MODULE_ID,Integer) - Dim dataTable As UserDataSet.TBDD_GROUPSDataTable = New UserDataSet.TBDD_GROUPSDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function GetDataByModuleId_NotInModule(ByVal MODULE_ID As Integer) As UserDataSet.TBDD_GROUPSDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(5) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(MODULE_ID,Integer) - Dim dataTable As UserDataSet.TBDD_GROUPSDataTable = New UserDataSet.TBDD_GROUPSDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GROUP_ID,Integer) + Dim dataTable As UserDataSet.TBDD_GROUPS_USERDataTable = New UserDataSet.TBDD_GROUPS_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -7905,7 +7774,7 @@ Namespace UserDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_GROUPSDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_GROUPS_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -7913,7 +7782,7 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_GROUPS") + Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_USER") End Function _ - Public Overloads Overridable Function GroupExists(ByVal NAME As String) As Global.System.Nullable(Of Integer) - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) - If (NAME Is Nothing) Then - command.Parameters(0).Value = Global.System.DBNull.Value - Else - command.Parameters(0).Value = CType(NAME,String) + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _ + Public Overloads Overridable Function Delete(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + 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 + Me.Adapter.DeleteCommand.Connection.Open End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + 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 + Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Me.Adapter.InsertCommand.Connection.Open End If - Dim returnValue As Object Try - returnValue = command.ExecuteScalar + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.InsertCommand.Connection.Close End If End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Integer)() + 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), _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GROUP_ID,Integer) + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_COMMENT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + 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 + Return Me.Update(USER_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_USER_ID, Original_GROUP_ID, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class @@ -7971,7 +7971,7 @@ Namespace UserDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_GROUPS_USERTableAdapter + Partial Public Class TBDD_MODULESTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -8088,11 +8088,23 @@ Namespace UserDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_GROUPS_USER" + tableMapping.DataSetTable = "TBDD_MODULES" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") - tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("SHORT_NAME", "SHORT_NAME") + tableMapping.ColumnMappings.Add("LICENSE", "LICENSE") + tableMapping.ColumnMappings.Add("PRODUCT_VERSION", "PRODUCT_VERSION") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("VERSION_DELIMITER", "VERSION_DELIMITER") + tableMapping.ColumnMappings.Add("FILE_DELIMITER", "FILE_DELIMITER") + tableMapping.ColumnMappings.Add("BIT1", "BIT1") + tableMapping.ColumnMappings.Add("BIT2", "BIT2") + tableMapping.ColumnMappings.Add("STRING1", "STRING1") + tableMapping.ColumnMappings.Add("STRING2", "STRING2") + tableMapping.ColumnMappings.Add("BACKGROUND_IMAGE", "BACKGROUND_IMAGE") + tableMapping.ColumnMappings.Add("PRODUCT_NAME1", "PRODUCT_NAME1") + tableMapping.ColumnMappings.Add("PRODUCT_NAME2", "PRODUCT_NAME2") + tableMapping.ColumnMappings.Add("VERSION_UPATE_PATH", "VERSION_UPATE_PATH") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") @@ -8100,49 +8112,155 @@ 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_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (USER_ID = @USER_ID) AND (GROUP_ID = @"& _ - "GROUP_ID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_MODULES] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = "& _ + "1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ((@IsNull_SHORT_NAME = 1"& _ + " AND [SHORT_NAME] IS NULL) OR ([SHORT_NAME] = @Original_SHORT_NAME)) AND ([LICEN"& _ + "SE] = @Original_LICENSE) AND ([PRODUCT_VERSION] = @Original_PRODUCT_VERSION) AND"& _ + " ([ACTIVE] = @Original_ACTIVE) AND ([VERSION_DELIMITER] = @Original_VERSION_DELI"& _ + "MITER) AND ([FILE_DELIMITER] = @Original_FILE_DELIMITER) AND ([BIT1] = @Original"& _ + "_BIT1) AND ([BIT2] = @Original_BIT2) AND ((@IsNull_STRING1 = 1 AND [STRING1] IS "& _ + "NULL) OR ([STRING1] = @Original_STRING1)) AND ((@IsNull_STRING2 = 1 AND [STRING2"& _ + "] IS NULL) OR ([STRING2] = @Original_STRING2)) AND ([PRODUCT_NAME1] = @Original_"& _ + "PRODUCT_NAME1) AND ((@IsNull_PRODUCT_NAME2 = 1 AND [PRODUCT_NAME2] IS NULL) OR ("& _ + "[PRODUCT_NAME2] = @Original_PRODUCT_NAME2)) AND ([VERSION_UPATE_PATH] = @Origina"& _ + "l_VERSION_UPATE_PATH) 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] = @Origin"& _ + "al_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._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("@IsNull_SHORT_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LICENSE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_VERSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_VERSION", 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_VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STRING1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STRING2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PRODUCT_NAME2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERSION_UPATE_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_UPATE_PATH", 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_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, GROUP_ID, COMMEN"& _ - "T, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@GROUP_ID,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ - "GUID, USER_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WH"& _ - "EN FROM TBDD_GROUPS_USER WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_MODULES] ([NAME], [SHORT_NAME], [LICENSE], [PRODUCT_VERSION], ["& _ + "ACTIVE], [VERSION_DELIMITER], [FILE_DELIMITER], [BIT1], [BIT2], [STRING1], [STRI"& _ + "NG2], [BACKGROUND_IMAGE], [PRODUCT_NAME1], [PRODUCT_NAME2], [VERSION_UPATE_PATH]"& _ + ", [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@NAME, @SHOR"& _ + "T_NAME, @LICENSE, @PRODUCT_VERSION, @ACTIVE, @VERSION_DELIMITER, @FILE_DELIMITER"& _ + ", @BIT1, @BIT2, @STRING1, @STRING2, @BACKGROUND_IMAGE, @PRODUCT_NAME1, @PRODUCT_"& _ + "NAME2, @VERSION_UPATE_PATH, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN"& _ + ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, SHORT_NAME, LICENSE, PRODUCT_VERSION, ACTIVE, VERSION_DEL"& _ + "IMITER, FILE_DELIMITER, BIT1, BIT2, STRING1, STRING2, BACKGROUND_IMAGE, PRODUCT_"& _ + "NAME1, PRODUCT_NAME2, VERSION_UPATE_PATH, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ + "ANGED_WHEN FROM TBDD_MODULES WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_GROUPS_USER] SET [USER_ID] = @USER_ID, [GROUP_ID] = @GROUP_ID, [COMM"& _ - "ENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_"& _ - "WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_G"& _ - "UID) AND ([USER_ID] = @Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) A"& _ - "ND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMEN"& _ - "T)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [AD"& _ - "DED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANG"& _ - "ED_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)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GROUP_ID, COMMENT, ADDED_WHO"& _ - ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = @GUI"& _ - "D)" + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_VERSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_VERSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BACKGROUND_IMAGE", Global.System.Data.SqlDbType.VarBinary, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BACKGROUND_IMAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_UPATE_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_UPATE_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_MODULES] SET [NAME] = @NAME, [SHORT_NAME] = @SHORT_NAME, [LICENSE] ="& _ + " @LICENSE, [PRODUCT_VERSION] = @PRODUCT_VERSION, [ACTIVE] = @ACTIVE, [VERSION_DE"& _ + "LIMITER] = @VERSION_DELIMITER, [FILE_DELIMITER] = @FILE_DELIMITER, [BIT1] = @BIT"& _ + "1, [BIT2] = @BIT2, [STRING1] = @STRING1, [STRING2] = @STRING2, [BACKGROUND_IMAGE"& _ + "] = @BACKGROUND_IMAGE, [PRODUCT_NAME1] = @PRODUCT_NAME1, [PRODUCT_NAME2] = @PROD"& _ + "UCT_NAME2, [VERSION_UPATE_PATH] = @VERSION_UPATE_PATH, [ADDED_WHO] = @ADDED_WHO,"& _ + " [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHA"& _ + "NGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = 1 AND [NAME] IS "& _ + "NULL) OR ([NAME] = @Original_NAME)) AND ((@IsNull_SHORT_NAME = 1 AND [SHORT_NAME"& _ + "] IS NULL) OR ([SHORT_NAME] = @Original_SHORT_NAME)) AND ([LICENSE] = @Original_"& _ + "LICENSE) AND ([PRODUCT_VERSION] = @Original_PRODUCT_VERSION) AND ([ACTIVE] = @Or"& _ + "iginal_ACTIVE) AND ([VERSION_DELIMITER] = @Original_VERSION_DELIMITER) AND ([FIL"& _ + "E_DELIMITER] = @Original_FILE_DELIMITER) AND ([BIT1] = @Original_BIT1) AND ([BIT"& _ + "2] = @Original_BIT2) AND ((@IsNull_STRING1 = 1 AND [STRING1] IS NULL) OR ([STRIN"& _ + "G1] = @Original_STRING1)) AND ((@IsNull_STRING2 = 1 AND [STRING2] IS NULL) OR (["& _ + "STRING2] = @Original_STRING2)) AND ([PRODUCT_NAME1] = @Original_PRODUCT_NAME1) A"& _ + "ND ((@IsNull_PRODUCT_NAME2 = 1 AND [PRODUCT_NAME2] IS NULL) OR ([PRODUCT_NAME2] "& _ + "= @Original_PRODUCT_NAME2)) AND ([VERSION_UPATE_PATH] = @Original_VERSION_UPATE_"& _ + "PATH) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Or"& _ + "iginal_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([A"& _ + "DDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_W"& _ + "HO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_W"& _ + "HEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)"& _ + "));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, SHORT_NAME, LICENSE, PRODUCT_VERSION, ACTIVE, VERSION_DE"& _ + "LIMITER, FILE_DELIMITER, BIT1, BIT2, STRING1, STRING2, BACKGROUND_IMAGE, PRODUCT"& _ + "_NAME1, PRODUCT_NAME2, VERSION_UPATE_PATH, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ + "HANGED_WHEN FROM TBDD_MODULES WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_VERSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_VERSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BACKGROUND_IMAGE", Global.System.Data.SqlDbType.VarBinary, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BACKGROUND_IMAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_UPATE_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_UPATE_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORT_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LICENSE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_VERSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_VERSION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.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.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STRING1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STRING2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PRODUCT_NAME2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERSION_UPATE_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_UPATE_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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, "", "", "")) @@ -8163,25 +8281,41 @@ Namespace UserDataSetTableAdapters _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBDD_GROUPS_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_USER" + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, SHORT_NAME, LICENSE, PRODUCT_VERSION, ACTIVE, VERSION_D"& _ + "ELIMITER, FILE_DELIMITER, BIT1, BIT2, STRING1, STRING2, BACKGROUND_IMAGE, PRODUC"& _ + "T_NAME1, PRODUCT_NAME2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" VERSION_UPATE_PATH, ADDED_WHO"& _ + ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (ACTIVE = 1)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT T2.GUID, T2.EMAIL, T2.USERNAME, T2.PRENAME, T2.NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBDD_GROUPS_USER AS T1 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER AS T2 ON"& _ - " T1.USER_ID = T2.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T1.GROUP_ID = @GROUP_ID)" + Me._commandCollection(1).CommandText = "SELECT T.ACTIVE, T.ADDED_WHEN, T.ADDED_WHO, T.BACKGROUND_IMAGE, T.BIT1, T.BIT2, T"& _ + ".CHANGED_WHEN, T.CHANGED_WHO, T.FILE_DELIMITER, T.GUID, T.LICENSE, T.NAME, T.PRO"& _ + "DUCT_NAME1, T.PRODUCT_NAME2, T.PRODUCT_VERSION, T.SHORT_NAME, T.STRING1, T.STRIN"& _ + "G2, T.VERSION_DELIMITER, T.VERSION_UPATE_PATH FROM TBDD_MODULES AS T INNER JOIN "& _ + "TBDD_USER_MODULES AS T2 ON T.GUID = T2.MODULE_ID WHERE (T2.USER_ID = @USER_ID)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT T.ACTIVE, T.ADDED_WHEN, T.ADDED_WHO, T.BACKGROUND_IMAGE, T.BIT1, T.BIT2, T"& _ + ".CHANGED_WHEN, T.CHANGED_WHO, T.FILE_DELIMITER, T.GUID, T.LICENSE, T.NAME, T.PRO"& _ + "DUCT_NAME1, T.PRODUCT_NAME2, T.PRODUCT_VERSION, T.SHORT_NAME, T.STRING1, T.STRIN"& _ + "G2, T.VERSION_DELIMITER, T.VERSION_UPATE_PATH FROM TBDD_MODULES AS T INNER JOIN "& _ + "TBDD_USER_MODULES AS T2 ON T.GUID = T2.MODULE_ID INNER JOIN TBDD_USER AS T3 ON T"& _ + "2.USER_ID = T3.GUID WHERE (T3.USERNAME = @USERNAME)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_GROUPS_USERDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_MODULESDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -8194,9 +8328,9 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As UserDataSet.TBDD_GROUPS_USERDataTable + Public Overloads Overridable Function GetData() As UserDataSet.TBDD_MODULESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As UserDataSet.TBDD_GROUPS_USERDataTable = New UserDataSet.TBDD_GROUPS_USERDataTable() + Dim dataTable As UserDataSet.TBDD_MODULESDataTable = New UserDataSet.TBDD_MODULESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -8205,9 +8339,9 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _ - Public Overloads Overridable Function FillByGroupId(ByVal dataTable As UserDataSet.TBDD_GROUPS_USERDataTable, ByVal GROUP_ID As Integer) As Integer + Public Overloads Overridable Function FillByUserId_IsAdmin(ByVal dataTable As UserDataSet.TBDD_MODULESDataTable, ByVal USER_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(GROUP_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -8219,10 +8353,44 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _ - Public Overloads Overridable Function GetDataByGroupId(ByVal GROUP_ID As Integer) As UserDataSet.TBDD_GROUPS_USERDataTable + Public Overloads Overridable Function GetDataByUserId_IsAdmin(ByVal USER_ID As Integer) As UserDataSet.TBDD_MODULESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(GROUP_ID,Integer) - Dim dataTable As UserDataSet.TBDD_GROUPS_USERDataTable = New UserDataSet.TBDD_GROUPS_USERDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) + Dim dataTable As UserDataSet.TBDD_MODULESDataTable = New UserDataSet.TBDD_MODULESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByUsername(ByVal dataTable As UserDataSet.TBDD_MODULESDataTable, ByVal USERNAME As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(2) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByUsername(ByVal USERNAME As String) As UserDataSet.TBDD_MODULESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(2) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + End If + Dim dataTable As UserDataSet.TBDD_MODULESDataTable = New UserDataSet.TBDD_MODULESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -8230,7 +8398,7 @@ Namespace UserDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_GROUPS_USERDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_MODULESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -8238,7 +8406,7 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_USER") + Return Me.Adapter.Update(dataSet, "TBDD_MODULES") End Function _ - Public Overloads Overridable Function Delete(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(USER_ID,Integer) - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(GROUP_ID,Integer) - 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 - Me.Adapter.DeleteCommand.Connection.Open + Public Overloads Overridable Function Delete( _ + ByVal Original_GUID As Integer, _ + ByVal Original_NAME As String, _ + ByVal Original_SHORT_NAME As String, _ + ByVal Original_LICENSE As String, _ + ByVal Original_PRODUCT_VERSION As String, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_VERSION_DELIMITER As String, _ + ByVal Original_FILE_DELIMITER As String, _ + ByVal Original_BIT1 As Boolean, _ + ByVal Original_BIT2 As Boolean, _ + ByVal Original_STRING1 As String, _ + ByVal Original_STRING2 As String, _ + ByVal Original_PRODUCT_NAME1 As String, _ + ByVal Original_PRODUCT_NAME2 As String, _ + ByVal Original_VERSION_UPATE_PATH 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 + 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 - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - 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 - Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + If (Original_SHORT_NAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SHORT_NAME,String) End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + If (Original_LICENSE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LICENSE") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_LICENSE,String) End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + If (Original_PRODUCT_VERSION Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PRODUCT_VERSION") + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_PRODUCT_VERSION,String) End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ACTIVE,Boolean) + If (Original_VERSION_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_VERSION_DELIMITER") + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_VERSION_DELIMITER,String) + End If + If (Original_FILE_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_FILE_DELIMITER") + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_FILE_DELIMITER,String) + End If + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_BIT1,Boolean) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_BIT2,Boolean) + If (Original_STRING1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_STRING1,String) + End If + If (Original_STRING2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_STRING2,String) + End If + If (Original_PRODUCT_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PRODUCT_NAME1") + Else + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_PRODUCT_NAME1,String) + End If + If (Original_PRODUCT_NAME2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_PRODUCT_NAME2,String) + End If + If (Original_VERSION_UPATE_PATH Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_VERSION_UPATE_PATH") + Else + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_VERSION_UPATE_PATH,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(27).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 + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function @@ -8312,827 +8562,121 @@ Namespace UserDataSetTableAdapters _ - Public Overloads Overridable Function Update( _ - ByVal USER_ID As Integer, _ - ByVal GROUP_ID As Integer, _ - ByVal COMMENT As String, _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ + Public Overloads Overridable Function Insert( _ + ByVal NAME As String, _ + ByVal SHORT_NAME As String, _ + ByVal LICENSE As String, _ + ByVal PRODUCT_VERSION As String, _ + ByVal ACTIVE As Boolean, _ + ByVal VERSION_DELIMITER As String, _ + ByVal FILE_DELIMITER As String, _ + ByVal BIT1 As Boolean, _ + ByVal BIT2 As Boolean, _ + ByVal STRING1 As String, _ + ByVal STRING2 As String, _ + ByVal BACKGROUND_IMAGE() As Byte, _ + ByVal PRODUCT_NAME1 As String, _ + ByVal PRODUCT_NAME2 As String, _ + ByVal VERSION_UPATE_PATH 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), _ - ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + If (SHORT_NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SHORT_NAME,String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) + If (LICENSE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LICENSE") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(2).Value = CType(LICENSE,String) End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + If (PRODUCT_VERSION Is Nothing) Then + Throw New Global.System.ArgumentNullException("PRODUCT_VERSION") Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(PRODUCT_VERSION,String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (VERSION_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("VERSION_DELIMITER") Else - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(5).Value = CType(VERSION_DELIMITER,String) End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_USER_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GROUP_ID,Integer) - If (Original_COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + If (FILE_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("FILE_DELIMITER") Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_COMMENT,String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(FILE_DELIMITER,String) End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Me.Adapter.InsertCommand.Parameters(7).Value = CType(BIT1,Boolean) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(BIT2,Boolean) + If (STRING1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(STRING1,String) End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ADDED_WHEN.Value,Date) + If (STRING2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(10).Value = CType(STRING2,String) End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + If (BACKGROUND_IMAGE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.InsertCommand.Parameters(11).Value = CType(BACKGROUND_IMAGE,Byte()) End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_CHANGED_WHEN.Value,Date) + If (PRODUCT_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PRODUCT_NAME1") Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(12).Value = CType(PRODUCT_NAME1,String) End If - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If (PRODUCT_NAME2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(PRODUCT_NAME2,String) + End If + If (VERSION_UPATE_PATH Is Nothing) Then + Throw New Global.System.ArgumentNullException("VERSION_UPATE_PATH") + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(VERSION_UPATE_PATH,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(16).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(17).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(18).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open End If Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - 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 - Return Me.Update(USER_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_USER_ID, Original_GROUP_ID, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBDD_MODULESTableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property - - _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property - - _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property - - _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_MODULES" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("SHORT_NAME", "SHORT_NAME") - tableMapping.ColumnMappings.Add("LICENSE", "LICENSE") - tableMapping.ColumnMappings.Add("PRODUCT_VERSION", "PRODUCT_VERSION") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("VERSION_DELIMITER", "VERSION_DELIMITER") - tableMapping.ColumnMappings.Add("FILE_DELIMITER", "FILE_DELIMITER") - tableMapping.ColumnMappings.Add("BIT1", "BIT1") - tableMapping.ColumnMappings.Add("BIT2", "BIT2") - tableMapping.ColumnMappings.Add("STRING1", "STRING1") - tableMapping.ColumnMappings.Add("STRING2", "STRING2") - tableMapping.ColumnMappings.Add("BACKGROUND_IMAGE", "BACKGROUND_IMAGE") - tableMapping.ColumnMappings.Add("PRODUCT_NAME1", "PRODUCT_NAME1") - tableMapping.ColumnMappings.Add("PRODUCT_NAME2", "PRODUCT_NAME2") - tableMapping.ColumnMappings.Add("VERSION_UPATE_PATH", "VERSION_UPATE_PATH") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_MODULES] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = "& _ - "1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ((@IsNull_SHORT_NAME = 1"& _ - " AND [SHORT_NAME] IS NULL) OR ([SHORT_NAME] = @Original_SHORT_NAME)) AND ([LICEN"& _ - "SE] = @Original_LICENSE) AND ([PRODUCT_VERSION] = @Original_PRODUCT_VERSION) AND"& _ - " ([ACTIVE] = @Original_ACTIVE) AND ([VERSION_DELIMITER] = @Original_VERSION_DELI"& _ - "MITER) AND ([FILE_DELIMITER] = @Original_FILE_DELIMITER) AND ([BIT1] = @Original"& _ - "_BIT1) AND ([BIT2] = @Original_BIT2) AND ((@IsNull_STRING1 = 1 AND [STRING1] IS "& _ - "NULL) OR ([STRING1] = @Original_STRING1)) AND ((@IsNull_STRING2 = 1 AND [STRING2"& _ - "] IS NULL) OR ([STRING2] = @Original_STRING2)) AND ([PRODUCT_NAME1] = @Original_"& _ - "PRODUCT_NAME1) AND ((@IsNull_PRODUCT_NAME2 = 1 AND [PRODUCT_NAME2] IS NULL) OR ("& _ - "[PRODUCT_NAME2] = @Original_PRODUCT_NAME2)) AND ([VERSION_UPATE_PATH] = @Origina"& _ - "l_VERSION_UPATE_PATH) 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] = @Origin"& _ - "al_CHANGED_WHEN)))" - 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("@IsNull_SHORT_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LICENSE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_VERSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_VERSION", 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_VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STRING1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STRING2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PRODUCT_NAME2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERSION_UPATE_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_UPATE_PATH", 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_MODULES] ([NAME], [SHORT_NAME], [LICENSE], [PRODUCT_VERSION], ["& _ - "ACTIVE], [VERSION_DELIMITER], [FILE_DELIMITER], [BIT1], [BIT2], [STRING1], [STRI"& _ - "NG2], [BACKGROUND_IMAGE], [PRODUCT_NAME1], [PRODUCT_NAME2], [VERSION_UPATE_PATH]"& _ - ", [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@NAME, @SHOR"& _ - "T_NAME, @LICENSE, @PRODUCT_VERSION, @ACTIVE, @VERSION_DELIMITER, @FILE_DELIMITER"& _ - ", @BIT1, @BIT2, @STRING1, @STRING2, @BACKGROUND_IMAGE, @PRODUCT_NAME1, @PRODUCT_"& _ - "NAME2, @VERSION_UPATE_PATH, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN"& _ - ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, SHORT_NAME, LICENSE, PRODUCT_VERSION, ACTIVE, VERSION_DEL"& _ - "IMITER, FILE_DELIMITER, BIT1, BIT2, STRING1, STRING2, BACKGROUND_IMAGE, PRODUCT_"& _ - "NAME1, PRODUCT_NAME2, VERSION_UPATE_PATH, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ - "ANGED_WHEN FROM TBDD_MODULES WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_VERSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_VERSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BACKGROUND_IMAGE", Global.System.Data.SqlDbType.VarBinary, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BACKGROUND_IMAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_UPATE_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_UPATE_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_MODULES] SET [NAME] = @NAME, [SHORT_NAME] = @SHORT_NAME, [LICENSE] ="& _ - " @LICENSE, [PRODUCT_VERSION] = @PRODUCT_VERSION, [ACTIVE] = @ACTIVE, [VERSION_DE"& _ - "LIMITER] = @VERSION_DELIMITER, [FILE_DELIMITER] = @FILE_DELIMITER, [BIT1] = @BIT"& _ - "1, [BIT2] = @BIT2, [STRING1] = @STRING1, [STRING2] = @STRING2, [BACKGROUND_IMAGE"& _ - "] = @BACKGROUND_IMAGE, [PRODUCT_NAME1] = @PRODUCT_NAME1, [PRODUCT_NAME2] = @PROD"& _ - "UCT_NAME2, [VERSION_UPATE_PATH] = @VERSION_UPATE_PATH, [ADDED_WHO] = @ADDED_WHO,"& _ - " [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHA"& _ - "NGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = 1 AND [NAME] IS "& _ - "NULL) OR ([NAME] = @Original_NAME)) AND ((@IsNull_SHORT_NAME = 1 AND [SHORT_NAME"& _ - "] IS NULL) OR ([SHORT_NAME] = @Original_SHORT_NAME)) AND ([LICENSE] = @Original_"& _ - "LICENSE) AND ([PRODUCT_VERSION] = @Original_PRODUCT_VERSION) AND ([ACTIVE] = @Or"& _ - "iginal_ACTIVE) AND ([VERSION_DELIMITER] = @Original_VERSION_DELIMITER) AND ([FIL"& _ - "E_DELIMITER] = @Original_FILE_DELIMITER) AND ([BIT1] = @Original_BIT1) AND ([BIT"& _ - "2] = @Original_BIT2) AND ((@IsNull_STRING1 = 1 AND [STRING1] IS NULL) OR ([STRIN"& _ - "G1] = @Original_STRING1)) AND ((@IsNull_STRING2 = 1 AND [STRING2] IS NULL) OR (["& _ - "STRING2] = @Original_STRING2)) AND ([PRODUCT_NAME1] = @Original_PRODUCT_NAME1) A"& _ - "ND ((@IsNull_PRODUCT_NAME2 = 1 AND [PRODUCT_NAME2] IS NULL) OR ([PRODUCT_NAME2] "& _ - "= @Original_PRODUCT_NAME2)) AND ([VERSION_UPATE_PATH] = @Original_VERSION_UPATE_"& _ - "PATH) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Or"& _ - "iginal_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([A"& _ - "DDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_W"& _ - "HO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_W"& _ - "HEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)"& _ - "));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, SHORT_NAME, LICENSE, PRODUCT_VERSION, ACTIVE, VERSION_DE"& _ - "LIMITER, FILE_DELIMITER, BIT1, BIT2, STRING1, STRING2, BACKGROUND_IMAGE, PRODUCT"& _ - "_NAME1, PRODUCT_NAME2, VERSION_UPATE_PATH, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ - "HANGED_WHEN FROM TBDD_MODULES WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_VERSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_VERSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BACKGROUND_IMAGE", Global.System.Data.SqlDbType.VarBinary, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BACKGROUND_IMAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_UPATE_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_UPATE_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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.UpdateCommand.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.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORT_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LICENSE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_VERSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_VERSION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.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.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STRING1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STRING2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PRODUCT_NAME2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERSION_UPATE_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_UPATE_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DDUserManager.My.MySettings.Default.DD_ECMConnectionString - End Sub - - _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, NAME, SHORT_NAME, LICENSE, PRODUCT_VERSION, ACTIVE, VERSION_D"& _ - "ELIMITER, FILE_DELIMITER, BIT1, BIT2, STRING1, STRING2, BACKGROUND_IMAGE, PRODUC"& _ - "T_NAME1, PRODUCT_NAME2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" VERSION_UPATE_PATH, ADDED_WHO"& _ - ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (ACTIVE = 1)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT T.ACTIVE, T.ADDED_WHEN, T.ADDED_WHO, T.BACKGROUND_IMAGE, T.BIT1, T.BIT2, T"& _ - ".CHANGED_WHEN, T.CHANGED_WHO, T.FILE_DELIMITER, T.GUID, T.LICENSE, T.NAME, T.PRO"& _ - "DUCT_NAME1, T.PRODUCT_NAME2, T.PRODUCT_VERSION, T.SHORT_NAME, T.STRING1, T.STRIN"& _ - "G2, T.VERSION_DELIMITER, T.VERSION_UPATE_PATH FROM TBDD_MODULES AS T INNER JOIN "& _ - "TBDD_USER_MODULES AS T2 ON T.GUID = T2.MODULE_ID WHERE (T2.USER_ID = @USER_ID)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "SELECT T.ACTIVE, T.ADDED_WHEN, T.ADDED_WHO, T.BACKGROUND_IMAGE, T.BIT1, T.BIT2, T"& _ - ".CHANGED_WHEN, T.CHANGED_WHO, T.FILE_DELIMITER, T.GUID, T.LICENSE, T.NAME, T.PRO"& _ - "DUCT_NAME1, T.PRODUCT_NAME2, T.PRODUCT_VERSION, T.SHORT_NAME, T.STRING1, T.STRIN"& _ - "G2, T.VERSION_DELIMITER, T.VERSION_UPATE_PATH FROM TBDD_MODULES AS T INNER JOIN "& _ - "TBDD_USER_MODULES AS T2 ON T.GUID = T2.MODULE_ID INNER JOIN TBDD_USER AS T3 ON T"& _ - "2.USER_ID = T3.GUID WHERE (T3.USERNAME = @USERNAME)" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_MODULESDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData() As UserDataSet.TBDD_MODULESDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As UserDataSet.TBDD_MODULESDataTable = New UserDataSet.TBDD_MODULESDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function FillByUserId_IsAdmin(ByVal dataTable As UserDataSet.TBDD_MODULESDataTable, ByVal USER_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetDataByUserId_IsAdmin(ByVal USER_ID As Integer) As UserDataSet.TBDD_MODULESDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_ID,Integer) - Dim dataTable As UserDataSet.TBDD_MODULESDataTable = New UserDataSet.TBDD_MODULESDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function FillByUsername(ByVal dataTable As UserDataSet.TBDD_MODULESDataTable, ByVal USERNAME As String) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(2) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) - End If - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetDataByUsername(ByVal USERNAME As String) As UserDataSet.TBDD_MODULESDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(2) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) - End If - Dim dataTable As UserDataSet.TBDD_MODULESDataTable = New UserDataSet.TBDD_MODULESDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - 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( _ - ByVal Original_GUID As Integer, _ - ByVal Original_NAME As String, _ - ByVal Original_SHORT_NAME As String, _ - ByVal Original_LICENSE As String, _ - ByVal Original_PRODUCT_VERSION As String, _ - ByVal Original_ACTIVE As Boolean, _ - ByVal Original_VERSION_DELIMITER As String, _ - ByVal Original_FILE_DELIMITER As String, _ - ByVal Original_BIT1 As Boolean, _ - ByVal Original_BIT2 As Boolean, _ - ByVal Original_STRING1 As String, _ - ByVal Original_STRING2 As String, _ - ByVal Original_PRODUCT_NAME1 As String, _ - ByVal Original_PRODUCT_NAME2 As String, _ - ByVal Original_VERSION_UPATE_PATH 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 - 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 - If (Original_SHORT_NAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SHORT_NAME,String) - End If - If (Original_LICENSE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_LICENSE") - Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_LICENSE,String) - End If - If (Original_PRODUCT_VERSION Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PRODUCT_VERSION") - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_PRODUCT_VERSION,String) - End If - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ACTIVE,Boolean) - If (Original_VERSION_DELIMITER Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_VERSION_DELIMITER") - Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_VERSION_DELIMITER,String) - End If - If (Original_FILE_DELIMITER Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_FILE_DELIMITER") - Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_FILE_DELIMITER,String) - End If - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_BIT1,Boolean) - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_BIT2,Boolean) - If (Original_STRING1 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_STRING1,String) - End If - If (Original_STRING2 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_STRING2,String) - End If - If (Original_PRODUCT_NAME1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PRODUCT_NAME1") - Else - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_PRODUCT_NAME1,String) - End If - If (Original_PRODUCT_NAME2 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_PRODUCT_NAME2,String) - End If - If (Original_VERSION_UPATE_PATH Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_VERSION_UPATE_PATH") - Else - Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_VERSION_UPATE_PATH,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(27).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 - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert( _ - ByVal NAME As String, _ - ByVal SHORT_NAME As String, _ - ByVal LICENSE As String, _ - ByVal PRODUCT_VERSION As String, _ - ByVal ACTIVE As Boolean, _ - ByVal VERSION_DELIMITER As String, _ - ByVal FILE_DELIMITER As String, _ - ByVal BIT1 As Boolean, _ - ByVal BIT2 As Boolean, _ - ByVal STRING1 As String, _ - ByVal STRING2 As String, _ - ByVal BACKGROUND_IMAGE() As Byte, _ - ByVal PRODUCT_NAME1 As String, _ - ByVal PRODUCT_NAME2 As String, _ - ByVal VERSION_UPATE_PATH 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)) As Integer - If (NAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) - End If - If (SHORT_NAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SHORT_NAME,String) - End If - If (LICENSE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LICENSE") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(LICENSE,String) - End If - If (PRODUCT_VERSION Is Nothing) Then - Throw New Global.System.ArgumentNullException("PRODUCT_VERSION") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(PRODUCT_VERSION,String) - End If - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) - If (VERSION_DELIMITER Is Nothing) Then - Throw New Global.System.ArgumentNullException("VERSION_DELIMITER") - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(VERSION_DELIMITER,String) - End If - If (FILE_DELIMITER Is Nothing) Then - Throw New Global.System.ArgumentNullException("FILE_DELIMITER") - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(FILE_DELIMITER,String) - End If - Me.Adapter.InsertCommand.Parameters(7).Value = CType(BIT1,Boolean) - Me.Adapter.InsertCommand.Parameters(8).Value = CType(BIT2,Boolean) - If (STRING1 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(STRING1,String) - End If - If (STRING2 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(STRING2,String) - End If - If (BACKGROUND_IMAGE Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(11).Value = CType(BACKGROUND_IMAGE,Byte()) - End If - If (PRODUCT_NAME1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("PRODUCT_NAME1") - Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(PRODUCT_NAME1,String) - End If - If (PRODUCT_NAME2 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(13).Value = CType(PRODUCT_NAME2,String) - End If - If (VERSION_UPATE_PATH Is Nothing) Then - Throw New Global.System.ArgumentNullException("VERSION_UPATE_PATH") - Else - Me.Adapter.InsertCommand.Parameters(14).Value = CType(VERSION_UPATE_PATH,String) - End If - If (ADDED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(15).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(16).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(17).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(18).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close + Me.Adapter.InsertCommand.Connection.Close End If End Try End Function @@ -11315,214 +10859,606 @@ Namespace UserDataSetTableAdapters If (Original_GENERAL_VIEWER Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_GENERAL_VIEWER") Else - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_GENERAL_VIEWER,String) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_GENERAL_VIEWER,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_COMMENT,String) + End If + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_WAN_ENVIRONMENT,Boolean) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_LOGGED_IN,Boolean) + If (Original_LOGGED_WHERE Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_LOGGED_WHERE,String) + End If + If (Original_LOG_IN_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_LOG_IN_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value + End If + If (Original_LOG_OUT_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_LOG_OUT_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value + End If + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_PM_RIGHT_FILE_DELETE,Boolean) + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_USERID_FK_INT_ECM,Integer) + If (Original_DATE_FORMAT Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_DATE_FORMAT") + Else + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_DATE_FORMAT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(31).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 + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + 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 + If (PRENAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String) + End If + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) + End If + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String) + End If + If (SHORTNAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(SHORTNAME,String) + End If + If (EMAIL Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(EMAIL,String) + End If + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(COMMENT,String) + End If + If (DATE_FORMAT Is Nothing) Then + Throw New Global.System.ArgumentNullException("DATE_FORMAT") + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(DATE_FORMAT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + 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 + If (PRENAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME,String) + End If + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) + End If + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME,String) + End If + If (SHORTNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SHORTNAME,String) + End If + If (EMAIL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL,String) + End If + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(COMMENT,String) + End If + If (DATE_FORMAT Is Nothing) Then + Throw New Global.System.ArgumentNullException("DATE_FORMAT") + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DATE_FORMAT,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + 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 + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(8) + If (PRENAME Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(PRENAME,String) End If - If (Original_COMMENT Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value + If (NAME Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_COMMENT,String) + command.Parameters(1).Value = CType(NAME,String) End If - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_WAN_ENVIRONMENT,Boolean) - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_LOGGED_IN,Boolean) - If (Original_LOGGED_WHERE Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") Else - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_LOGGED_WHERE,String) + command.Parameters(2).Value = CType(USERNAME,String) End If - If (Original_LOG_IN_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_LOG_IN_WHEN.Value,Date) + If (EMAIL Is Nothing) Then + command.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value + command.Parameters(3).Value = CType(EMAIL,String) End If - If (Original_LOG_OUT_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_LOG_OUT_WHEN.Value,Date) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value + command.Parameters(4).Value = CType(ADDED_WHO,String) End If - Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_PM_RIGHT_FILE_DELETE,Boolean) - Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_USERID_FK_INT_ECM,Integer) - If (Original_DATE_FORMAT Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_DATE_FORMAT") - Else - Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_DATE_FORMAT,String) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue + End Function + + _ + Public Overloads Overridable Function IsUserManagerAdmin(ByVal USERNAME As String) As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(9) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") Else - Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_ADDED_WHO,String) + command.Parameters(0).Value = CType(USERNAME,String) End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(28).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(29).Value = Global.System.DBNull.Value + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() Else - Me.Adapter.DeleteCommand.Parameters(28).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_CHANGED_WHO,String) + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_CHANGED_WHEN.Value,Date) + 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) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") Else - Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value + command.Parameters(0).Value = CType(USERNAME,String) 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) _ + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_GROUPS_MODULESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_GROUPS_MODULES" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("MODULE_ID", "MODULE_ID") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_GROUPS_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MODULE_ID = @Original_MODULE_ID) A"& _ + "ND (GROUP_ID = @Original_GROUP_ID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MODULE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GROUPS_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (MODULE_ID, GROUP_ID, C"& _ + "OMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@MODULE_ID,@GROUP_ID,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "SELECT GUID, MODULE_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ + "HANGED_WHEN FROM TBDD_GROUPS_MODULES WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_GROUPS_MODULES] SET [MODULE_ID] = @MODULE_ID, [GROUP_ID] = @GROUP_ID"& _ + ", [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [C"& _ + "HANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Ori"& _ + "ginal_GUID) AND ([MODULE_ID] = @Original_MODULE_ID) AND ([GROUP_ID] = @Original_"& _ + "GROUP_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Orig"& _ + "inal_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN "& _ + "= 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@I"& _ + "sNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_C"& _ + "HANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHA"& _ + "NGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MODULE_ID, GROUP_ID, COMME"& _ + "NT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_MODULES WH"& _ + "ERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MODULE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DDUserManager.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBDD_GROUPS_MODULES.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_MODULES" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_GROUPS_MODULESDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue 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 - If (PRENAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String) - End If - If (NAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) - End If - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String) - End If - If (SHORTNAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(SHORTNAME,String) - End If - If (EMAIL Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(EMAIL,String) - End If - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(COMMENT,String) - End If - If (DATE_FORMAT Is Nothing) Then - Throw New Global.System.ArgumentNullException("DATE_FORMAT") - Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(DATE_FORMAT,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(ADDED_WHO,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ + Public Overloads Overridable Function GetData() As UserDataSet.TBDD_GROUPS_MODULESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As UserDataSet.TBDD_GROUPS_MODULESDataTable = New UserDataSet.TBDD_GROUPS_MODULESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + 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 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 - If (PRENAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME,String) - End If - If (NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) - End If - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME,String) - End If - If (SHORTNAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SHORTNAME,String) - End If - If (EMAIL Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL,String) - End If - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(COMMENT,String) - End If - If (DATE_FORMAT Is Nothing) Then - Throw New Global.System.ArgumentNullException("DATE_FORMAT") - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DATE_FORMAT,String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _ + Public Overloads Overridable Function Delete(ByVal Original_MODULE_ID As Integer, ByVal Original_GROUP_ID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_MODULE_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_GROUP_ID,Integer) + 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 - Me.Adapter.UpdateCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open End If Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close + Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function @@ -11530,110 +11466,141 @@ Namespace UserDataSetTableAdapters _ - 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 - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(8) - If (PRENAME Is Nothing) Then - command.Parameters(0).Value = Global.System.DBNull.Value - Else - command.Parameters(0).Value = CType(PRENAME,String) - End If - If (NAME Is Nothing) Then - command.Parameters(1).Value = Global.System.DBNull.Value - Else - command.Parameters(1).Value = CType(NAME,String) - End If - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - command.Parameters(2).Value = CType(USERNAME,String) - End If - If (EMAIL Is Nothing) Then - command.Parameters(3).Value = Global.System.DBNull.Value + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ + 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 + Me.Adapter.InsertCommand.Parameters(0).Value = CType(MODULE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else - command.Parameters(3).Value = CType(EMAIL,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - command.Parameters(4).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Me.Adapter.InsertCommand.Connection.Open End If - Dim returnValue As Integer Try - returnValue = command.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.InsertCommand.Connection.Close End If End Try - Return returnValue 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) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + 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), _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(MODULE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - command.Parameters(0).Value = CType(USERNAME,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String) End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Integer)() + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) Else - Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If - 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) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - command.Parameters(0).Value = CType(USERNAME,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_MODULE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GROUP_ID,Integer) + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_COMMENT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open End If - Dim returnValue As Object Try - returnValue = command.ExecuteScalar + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.UpdateCommand.Connection.Close End If End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Integer)() - Else - Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) - End If + 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 + Return Me.Update(MODULE_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_MODULE_ID, Original_GROUP_ID, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class @@ -11646,7 +11613,7 @@ Namespace UserDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_GROUPS_MODULESTableAdapter + Partial Public Class TBDD_GROUPS_CLIENTTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -11763,9 +11730,9 @@ Namespace UserDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_GROUPS_MODULES" + tableMapping.DataSetTable = "TBDD_GROUPS_CLIENT" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("MODULE_ID", "MODULE_ID") + tableMapping.ColumnMappings.Add("CLIENT_ID", "CLIENT_ID") tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") @@ -11775,38 +11742,38 @@ 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_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MODULE_ID = @Original_MODULE_ID) A"& _ - "ND (GROUP_ID = @Original_GROUP_ID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_GROUPS_CLIENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (CLIENT_ID = @Original_CLIENT_ID) AN"& _ + "D (GROUP_ID = @Original_GROUP_ID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MODULE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CLIENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GROUPS_MODULES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (MODULE_ID, GROUP_ID, C"& _ - "OMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@MODULE_ID,@GROUP_ID,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ - "SELECT GUID, MODULE_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ - "HANGED_WHEN FROM TBDD_GROUPS_MODULES WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GROUPS_CLIENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CLIENT_ID, GROUP_ID, CO"& _ + "MMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CLIENT_ID,@GROUP_ID,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ + "ELECT GUID, CLIENT_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ + "ANGED_WHEN FROM TBDD_GROUPS_CLIENT WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_GROUPS_MODULES] SET [MODULE_ID] = @MODULE_ID, [GROUP_ID] = @GROUP_ID"& _ - ", [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [C"& _ - "HANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Ori"& _ - "ginal_GUID) AND ([MODULE_ID] = @Original_MODULE_ID) AND ([GROUP_ID] = @Original_"& _ - "GROUP_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Orig"& _ - "inal_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN "& _ - "= 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@I"& _ - "sNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_C"& _ - "HANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHA"& _ - "NGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MODULE_ID, GROUP_ID, COMME"& _ - "NT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_MODULES WH"& _ - "ERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_GROUPS_CLIENT] SET [CLIENT_ID] = @CLIENT_ID, [GROUP_ID] = @GROUP_ID,"& _ + " [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CH"& _ + "ANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Orig"& _ + "inal_GUID) AND ([CLIENT_ID] = @Original_CLIENT_ID) AND ([GROUP_ID] = @Original_G"& _ + "ROUP_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Origi"& _ + "nal_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN ="& _ + " 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@Is"& _ + "Null_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CH"& _ + "ANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHAN"& _ + "GED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CLIENT_ID, GROUP_ID, COMMEN"& _ + "T, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_CLIENT WHER"& _ + "E (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -11814,7 +11781,7 @@ Namespace UserDataSetTableAdapters Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MODULE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CLIENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.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.UpdateCommand.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, "", "", "")) @@ -11841,7 +11808,7 @@ Namespace UserDataSetTableAdapters Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBDD_GROUPS_MODULES.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_MODULES" + Me._commandCollection(0).CommandText = "SELECT TBDD_GROUPS_CLIENT.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_CLIENT" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub @@ -11849,7 +11816,7 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ - Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_GROUPS_MODULESDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_GROUPS_CLIENTDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -11862,9 +11829,9 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As UserDataSet.TBDD_GROUPS_MODULESDataTable + Public Overloads Overridable Function GetData() As UserDataSet.TBDD_GROUPS_CLIENTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As UserDataSet.TBDD_GROUPS_MODULESDataTable = New UserDataSet.TBDD_GROUPS_MODULESDataTable() + Dim dataTable As UserDataSet.TBDD_GROUPS_CLIENTDataTable = New UserDataSet.TBDD_GROUPS_CLIENTDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -11872,7 +11839,7 @@ Namespace UserDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_GROUPS_MODULESDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_GROUPS_CLIENTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -11880,7 +11847,7 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_MODULES") + Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_CLIENT") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_MODULE_ID As Integer, ByVal Original_GROUP_ID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_MODULE_ID,Integer) + Public Overloads Overridable Function Delete(ByVal Original_CLIENT_ID As Integer, ByVal Original_GROUP_ID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_CLIENT_ID,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_GROUP_ID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ @@ -11923,8 +11890,8 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal MODULE_ID As Integer, ByVal GROUP_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(MODULE_ID,Integer) + 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 + Me.Adapter.InsertCommand.Parameters(0).Value = CType(CLIENT_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value @@ -11956,7 +11923,7 @@ Namespace UserDataSetTableAdapters Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ Public Overloads Overridable Function Update( _ - ByVal MODULE_ID As Integer, _ + ByVal CLIENT_ID As Integer, _ ByVal GROUP_ID As Integer, _ ByVal COMMENT As String, _ ByVal ADDED_WHO As String, _ @@ -11964,7 +11931,7 @@ Namespace UserDataSetTableAdapters 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_CLIENT_ID As Integer, _ ByVal Original_GROUP_ID As Integer, _ ByVal Original_COMMENT As String, _ ByVal Original_ADDED_WHO As String, _ @@ -11972,7 +11939,7 @@ Namespace UserDataSetTableAdapters ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(MODULE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CLIENT_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value @@ -12000,7 +11967,7 @@ Namespace UserDataSetTableAdapters Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_MODULE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_CLIENT_ID,Integer) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GROUP_ID,Integer) If (Original_COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) @@ -12055,8 +12022,8 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal 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 - Return Me.Update(MODULE_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_MODULE_ID, Original_GROUP_ID, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + 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 + Return Me.Update(CLIENT_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_CLIENT_ID, Original_GROUP_ID, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class @@ -12069,7 +12036,7 @@ Namespace UserDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_GROUPS_CLIENTTableAdapter + Partial Public Class TBDD_GROUPSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -12159,121 +12126,355 @@ Namespace UserDataSetTableAdapters End Property _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection - End If - Return Me._commandCollection - End Get - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_GROUPS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("INTERNAL", "INTERNAL") + tableMapping.ColumnMappings.Add("AD_SYNC", "AD_SYNC") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("ECM_FK_ID", "ECM_FK_ID") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + 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.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.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],"& _ + " [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [ECM_FK_ID], [ACTIVE]) VALUES (@NA"& _ + "ME, @INTERNAL, @AD_SYNC, @COMMENT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANG"& _ + "ED_WHEN, @ECM_FK_ID, @ACTIVE);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, INTERNAL, AD_SYNC, COMMENT, A"& _ + "DDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ECM_FK_ID, ACTIVE FROM TBDD_GRO"& _ + "UPS WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERNAL", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AD_SYNC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AD_SYNC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ECM_FK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ECM_FK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_GROUPS] SET [NAME] = @NAME, [INTERNAL] = @INTERNAL, [AD_SYNC] = @AD_"& _ + "SYNC, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN"& _ + ", [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [ECM_FK_ID] = @E"& _ + "CM_FK_ID, [ACTIVE] = @ACTIVE WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME"& _ + " = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([INTERNAL] = @Origin"& _ + "al_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_WHE"& _ + "N)) 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 NU"& _ + "LL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([ECM_FK_ID] = @Original_E"& _ + "CM_FK_ID) AND ([ACTIVE] = @Original_ACTIVE));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, INTERNAL, AD_S"& _ + "YNC, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ECM_FK_ID, ACTIV"& _ + "E FROM TBDD_GROUPS WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERNAL", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AD_SYNC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AD_SYNC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ECM_FK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ECM_FK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DDUserManager.My.MySettings.Default.DD_ECMConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(7) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, INTERNAL, AD_SYNC, COMMENT, ADDED_WHO, ADDED_WHEN, CHAN"& _ + "GED_WHO, CHANGED_WHEN, ECM_FK_ID, ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "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"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBDD_GROUPS AS T1 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_GROUPS_CL"& _ + "IENT AS T2 ON T1.GUID = T2.GROUP_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.CLIENT_ID = @CLIENT_ID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT *"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT DISTINCT T.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FRO"& _ + "M TBDD_GROUPS AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_GROUPS_CLIENT AS T1 ON T.GUID = T1.GROUP_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (T1.CLIENT_ID = @CLIENT_ID)))" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "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"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBDD_GROUPS AS T1 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_GROUPS_MO"& _ + "DULES AS T2 ON T1.GUID = T2.GROUP_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.MODULE_ID = @MODULE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "SELECT *"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT DISTINCT T.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FRO"& _ + "M TBDD_GROUPS AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_GROUPS_MODULES AS T1 ON T.GUID = T1.GROUP_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (T1.MODULE_ID = @MODULE_ID)))" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(5).Connection = Me.Connection + Me._commandCollection(5).CommandText = "SELECT T2.ACTIVE, T2.ADDED_WHEN, T2.ADDED_WHO, T2.AD_SYNC, T2.CHANGED_WHEN, T2.CH"& _ + "ANGED_WHO, T2.COMMENT, T2.ECM_FK_ID, T2.GUID, T2.INTERNAL, T2.NAME FROM TBDD_GRO"& _ + "UPS_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)" + Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(6).Connection = Me.Connection + Me._commandCollection(6).CommandText = "SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (NAME = @NAME)" + Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(7).Connection = Me.Connection + Me._commandCollection(7).CommandText = "INSERT INTO TBDD_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, ADDED_WHO, ECM_FK_ID, AD"& _ + "_SYNC, INTERNAL, ACTIVE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@ADDED_WHO, 1, 1, 0, 1)" + Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_GROUPSDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As UserDataSet.TBDD_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As UserDataSet.TBDD_GROUPSDataTable = New UserDataSet.TBDD_GROUPSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByClientId(ByVal dataTable As UserDataSet.TBDD_GROUPSDataTable, ByVal CLIENT_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(CLIENT_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByClientId(ByVal CLIENT_ID As Integer) As UserDataSet.TBDD_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(CLIENT_ID,Integer) + Dim dataTable As UserDataSet.TBDD_GROUPSDataTable = New UserDataSet.TBDD_GROUPSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByClientId_NotInClient(ByVal dataTable As UserDataSet.TBDD_GROUPSDataTable, ByVal CLIENT_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(2) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(CLIENT_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByClientId_NotInClient(ByVal CLIENT_ID As Integer) As UserDataSet.TBDD_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(2) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(CLIENT_ID,Integer) + Dim dataTable As UserDataSet.TBDD_GROUPSDataTable = New UserDataSet.TBDD_GROUPSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _ + Public Overloads Overridable Function FillByModuleId(ByVal dataTable As UserDataSet.TBDD_GROUPSDataTable, ByVal MODULE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(3) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MODULE_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function _ - Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_GROUPS_CLIENT" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("CLIENT_ID", "CLIENT_ID") - tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_GROUPS_CLIENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (CLIENT_ID = @Original_CLIENT_ID) AN"& _ - "D (GROUP_ID = @Original_GROUP_ID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CLIENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GROUPS_CLIENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CLIENT_ID, GROUP_ID, CO"& _ - "MMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CLIENT_ID,@GROUP_ID,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ - "ELECT GUID, CLIENT_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ - "ANGED_WHEN FROM TBDD_GROUPS_CLIENT WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_GROUPS_CLIENT] SET [CLIENT_ID] = @CLIENT_ID, [GROUP_ID] = @GROUP_ID,"& _ - " [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CH"& _ - "ANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Orig"& _ - "inal_GUID) AND ([CLIENT_ID] = @Original_CLIENT_ID) AND ([GROUP_ID] = @Original_G"& _ - "ROUP_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Origi"& _ - "nal_COMMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN ="& _ - " 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@Is"& _ - "Null_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CH"& _ - "ANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHAN"& _ - "GED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CLIENT_ID, GROUP_ID, COMMEN"& _ - "T, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_CLIENT WHER"& _ - "E (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CLIENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _ + Public Overloads Overridable Function GetDataByModuleId(ByVal MODULE_ID As Integer) As UserDataSet.TBDD_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(3) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MODULE_ID,Integer) + Dim dataTable As UserDataSet.TBDD_GROUPSDataTable = New UserDataSet.TBDD_GROUPSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function _ - 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", "15.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _ + Public Overloads Overridable Function FillByModuleId_NotInModule(ByVal dataTable As UserDataSet.TBDD_GROUPSDataTable, ByVal MODULE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(4) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MODULE_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBDD_GROUPS_CLIENT.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_CLIENT" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _ + Public Overloads Overridable Function GetDataByModuleId_NotInModule(ByVal MODULE_ID As Integer) As UserDataSet.TBDD_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(4) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(MODULE_ID,Integer) + Dim dataTable As UserDataSet.TBDD_GROUPSDataTable = New UserDataSet.TBDD_GROUPSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function _ - Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_GROUPS_CLIENTDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _ + Public Overloads Overridable Function FillByUsername(ByVal dataTable As UserDataSet.TBDD_GROUPSDataTable, ByVal USERNAME As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(5) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + End If If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -12284,10 +12485,15 @@ Namespace UserDataSetTableAdapters _ - Public Overloads Overridable Function GetData() As UserDataSet.TBDD_GROUPS_CLIENTDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As UserDataSet.TBDD_GROUPS_CLIENTDataTable = New UserDataSet.TBDD_GROUPS_CLIENTDataTable() + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _ + Public Overloads Overridable Function GetDataByUsername(ByVal USERNAME As String) As UserDataSet.TBDD_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(5) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + End If + Dim dataTable As UserDataSet.TBDD_GROUPSDataTable = New UserDataSet.TBDD_GROUPSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -12295,7 +12501,7 @@ Namespace UserDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_GROUPS_CLIENTDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_GROUPSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -12303,7 +12509,7 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_CLIENT") + Return Me.Adapter.Update(dataSet, "TBDD_GROUPS") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_CLIENT_ID As Integer, ByVal Original_GROUP_ID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_CLIENT_ID,Integer) - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_GROUP_ID,Integer) + 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 + 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 @@ -12346,19 +12597,41 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal CLIENT_ID As Integer, ByVal GROUP_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(CLIENT_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + 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 + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(INTERNAL,Boolean) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(AD_SYNC,Boolean) If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) End If If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ECM_FK_ID,Integer) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(ACTIVE,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -12379,86 +12652,110 @@ Namespace UserDataSetTableAdapters Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ Public Overloads Overridable Function Update( _ - ByVal CLIENT_ID As Integer, _ - ByVal GROUP_ID As Integer, _ + 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, _ ByVal Original_GUID As Integer, _ - ByVal Original_CLIENT_ID As Integer, _ - ByVal Original_GROUP_ID 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, _ ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CLIENT_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(INTERNAL,Boolean) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(AD_SYNC,Boolean) If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) End If If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_CLIENT_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GROUP_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ECM_FK_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ACTIVE,Boolean) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Integer) + If (Original_NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_NAME,String) + End If + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_INTERNAL,Boolean) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_AD_SYNC,Boolean) If (Original_COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_COMMENT,String) End If If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ADDED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_ADDED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_CHANGED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_CHANGED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_ECM_FK_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_ACTIVE,Boolean) + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -12478,8 +12775,92 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal 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 - Return Me.Update(CLIENT_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_CLIENT_ID, Original_GROUP_ID, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + Public Overloads Overridable Function Update( _ + 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, _ + 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 + Return Me.Update(NAME, INTERNAL, AD_SYNC, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ECM_FK_ID, ACTIVE, Original_GUID, Original_NAME, Original_INTERNAL, Original_AD_SYNC, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_ECM_FK_ID, Original_ACTIVE, Original_GUID) + End Function + + _ + Public Overloads Overridable Function GroupExists(ByVal NAME As String) As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) + If (NAME Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(NAME,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + + _ + Public Overloads Overridable Function InsertGroup(ByVal NAME As String, ByVal ADDED_WHO As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(7) + If (NAME Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(NAME,String) + End If + If (ADDED_WHO Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value + Else + command.Parameters(1).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue End Function End Class @@ -12496,8 +12877,6 @@ Namespace UserDataSetTableAdapters Private _updateOrder As UpdateOrderOption - Private _tBDD_GROUPSTableAdapter As TBDD_GROUPSTableAdapter - Private _tBDD_GROUPS_USERTableAdapter As TBDD_GROUPS_USERTableAdapter Private _tBDD_MODULESTableAdapter As TBDD_MODULESTableAdapter @@ -12514,6 +12893,8 @@ Namespace UserDataSetTableAdapters Private _tBDD_GROUPS_CLIENTTableAdapter As TBDD_GROUPS_CLIENTTableAdapter + Private _tBDD_GROUPSTableAdapter As TBDD_GROUPSTableAdapter + Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection @@ -12529,20 +12910,6 @@ Namespace UserDataSetTableAdapters End Set End Property - _ - Public Property TBDD_GROUPSTableAdapter() As TBDD_GROUPSTableAdapter - Get - Return Me._tBDD_GROUPSTableAdapter - End Get - Set - Me._tBDD_GROUPSTableAdapter = value - End Set - End Property - _ + Public Property TBDD_GROUPSTableAdapter() As TBDD_GROUPSTableAdapter + Get + Return Me._tBDD_GROUPSTableAdapter + End Get + Set + Me._tBDD_GROUPSTableAdapter = value + End Set + End Property + _ Public Property BackupDataSetBeforeUpdate() As Boolean @@ -12674,10 +13055,6 @@ Namespace UserDataSetTableAdapters If (Not (Me._connection) Is Nothing) Then Return Me._connection End If - If ((Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) _ - AndAlso (Not (Me._tBDD_GROUPSTableAdapter.Connection) Is Nothing)) Then - Return Me._tBDD_GROUPSTableAdapter.Connection - End If If ((Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_GROUPS_USERTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_GROUPS_USERTableAdapter.Connection @@ -12710,6 +13087,10 @@ Namespace UserDataSetTableAdapters AndAlso (Not (Me._tBDD_GROUPS_CLIENTTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_GROUPS_CLIENTTableAdapter.Connection End If + If ((Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_GROUPSTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_GROUPSTableAdapter.Connection + End If Return Nothing End Get Set @@ -12723,9 +13104,6 @@ Namespace UserDataSetTableAdapters Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 - If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then - count = (count + 1) - End If If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then count = (count + 1) End If @@ -12750,6 +13128,9 @@ Namespace UserDataSetTableAdapters If (Not (Me._tBDD_GROUPS_CLIENTTableAdapter) Is Nothing) Then count = (count + 1) End If + If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then + count = (count + 1) + End If Return count End Get End Property @@ -12761,15 +13142,6 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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_GROUPSTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBDD_GROUPSTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If If (Not (Me._tBDD_MODULESTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_MODULES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -12797,6 +13169,15 @@ Namespace UserDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_GROUPSTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -12852,14 +13233,6 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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_GROUPSTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_GROUPSTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If If (Not (Me._tBDD_MODULESTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_MODULES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -12884,6 +13257,14 @@ Namespace UserDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_GROUPSTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -12974,6 +13355,14 @@ Namespace UserDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If + If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_GROUPSTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -12998,14 +13387,6 @@ Namespace UserDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_GROUPSTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If Return result End Function @@ -13047,11 +13428,6 @@ Namespace UserDataSetTableAdapters If (dataSet.HasChanges = false) Then Return 0 End If - If ((Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_GROUPSTableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ - "s die gleiche Verbindungszeichenfolge verwendet werden.") - End If If ((Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_GROUPS_USERTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ @@ -13092,6 +13468,11 @@ Namespace UserDataSetTableAdapters Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If + If ((Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_GROUPSTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ @@ -13126,15 +13507,6 @@ Namespace UserDataSetTableAdapters Try '---- Prepare for update ----------- ' - If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then - revertConnections.Add(Me._tBDD_GROUPSTableAdapter, Me._tBDD_GROUPSTableAdapter.Connection) - Me._tBDD_GROUPSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBDD_GROUPSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) - If Me._tBDD_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBDD_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate = false - adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_GROUPSTableAdapter.Adapter) - End If - End If If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_GROUPS_USERTableAdapter, Me._tBDD_GROUPS_USERTableAdapter.Connection) Me._tBDD_GROUPS_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) @@ -13207,6 +13579,15 @@ Namespace UserDataSetTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_GROUPS_CLIENTTableAdapter.Adapter) End If End If + If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_GROUPSTableAdapter, Me._tBDD_GROUPSTableAdapter.Connection) + Me._tBDD_GROUPSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_GROUPSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_GROUPSTableAdapter.Adapter) + End If + End If ' '---- Perform updates ----------- ' @@ -13267,10 +13648,6 @@ Namespace UserDataSetTableAdapters If workConnOpened Then workConnection.Close End If - If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then - Me._tBDD_GROUPSTableAdapter.Connection = CType(revertConnections(Me._tBDD_GROUPSTableAdapter),Global.System.Data.SqlClient.SqlConnection) - Me._tBDD_GROUPSTableAdapter.Transaction = Nothing - End If If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then Me._tBDD_GROUPS_USERTableAdapter.Connection = CType(revertConnections(Me._tBDD_GROUPS_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_GROUPS_USERTableAdapter.Transaction = Nothing @@ -13303,6 +13680,10 @@ Namespace UserDataSetTableAdapters Me._tBDD_GROUPS_CLIENTTableAdapter.Connection = CType(revertConnections(Me._tBDD_GROUPS_CLIENTTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_GROUPS_CLIENTTableAdapter.Transaction = Nothing End If + If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then + Me._tBDD_GROUPSTableAdapter.Connection = CType(revertConnections(Me._tBDD_GROUPSTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_GROUPSTableAdapter.Transaction = Nothing + End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) diff --git a/DDUserManager/DDUserManager/UserDataSet.xsd b/DDUserManager/DDUserManager/UserDataSet.xsd index 43727e3..2c533b2 100644 --- a/DDUserManager/DDUserManager/UserDataSet.xsd +++ b/DDUserManager/DDUserManager/UserDataSet.xsd @@ -7,187 +7,6 @@ - - - - - - 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)) - - - - - - - - - - - - - - - - - - - - - - - - INSERT INTO TBDD_GROUPS - (NAME, INTERNAL, AD_SYNC, COMMENT, ADDED_WHO, ACTIVE) -VALUES (@NAME, 0, 1, '""',@ADDED_WHO, 1); -SELECT GUID, NAME, INTERNAL, AD_SYNC, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ECM_FK_ID, ACTIVE FROM TBDD_GROUPS WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - SELECT GUID, NAME, INTERNAL, AD_SYNC, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ECM_FK_ID, ACTIVE -FROM TBDD_GROUPS - - - - - - UPDATE [TBDD_GROUPS] SET [NAME] = @NAME, [INTERNAL] = @INTERNAL, [AD_SYNC] = @AD_SYNC, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [ECM_FK_ID] = @ECM_FK_ID, [ACTIVE] = @ACTIVE 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)); -SELECT GUID, NAME, INTERNAL, AD_SYNC, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ECM_FK_ID, ACTIVE FROM TBDD_GROUPS WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 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) - - - - - - - - - - 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 -FROM TBDD_GROUPS AS T1 INNER JOIN - TBDD_GROUPS_CLIENT AS T2 ON T1.GUID = T2.GROUP_ID -WHERE (T2.CLIENT_ID = @CLIENT_ID) - - - - - - - - - - SELECT * -FROM TBDD_GROUPS -WHERE (GUID NOT IN - (SELECT DISTINCT T.GUID - FROM TBDD_GROUPS AS T INNER JOIN - TBDD_GROUPS_CLIENT AS T1 ON T.GUID = T1.GROUP_ID - WHERE (T1.CLIENT_ID = @CLIENT_ID))) - - - - - - - - - - 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 -FROM TBDD_GROUPS AS T1 INNER JOIN - TBDD_GROUPS_MODULES AS T2 ON T1.GUID = T2.GROUP_ID -WHERE (T2.MODULE_ID = @MODULE_ID) - - - - - - - - - - - SELECT * -FROM TBDD_GROUPS -WHERE (GUID NOT IN - (SELECT DISTINCT T.GUID - FROM TBDD_GROUPS AS T INNER JOIN - TBDD_GROUPS_MODULES AS T1 ON T.GUID = T1.GROUP_ID - WHERE (T1.MODULE_ID = @MODULE_ID))) - - - - - - - - - - SELECT GUID -FROM TBDD_GROUPS -WHERE (NAME = @NAME) - - - - - - - - @@ -1102,6 +921,206 @@ 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)) + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO [TBDD_GROUPS] ([NAME], [INTERNAL], [AD_SYNC], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [ECM_FK_ID], [ACTIVE]) VALUES (@NAME, @INTERNAL, @AD_SYNC, @COMMENT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @ECM_FK_ID, @ACTIVE); +SELECT GUID, NAME, INTERNAL, AD_SYNC, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ECM_FK_ID, ACTIVE FROM TBDD_GROUPS WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + SELECT GUID, NAME, INTERNAL, AD_SYNC, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ECM_FK_ID, ACTIVE +FROM TBDD_GROUPS + + + + + + UPDATE [TBDD_GROUPS] SET [NAME] = @NAME, [INTERNAL] = @INTERNAL, [AD_SYNC] = @AD_SYNC, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [ECM_FK_ID] = @ECM_FK_ID, [ACTIVE] = @ACTIVE 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)); +SELECT GUID, NAME, INTERNAL, AD_SYNC, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ECM_FK_ID, ACTIVE FROM TBDD_GROUPS WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + 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 +FROM TBDD_GROUPS AS T1 INNER JOIN + TBDD_GROUPS_CLIENT AS T2 ON T1.GUID = T2.GROUP_ID +WHERE (T2.CLIENT_ID = @CLIENT_ID) + + + + + + + + + + SELECT * +FROM TBDD_GROUPS +WHERE (GUID NOT IN + (SELECT DISTINCT T.GUID + FROM TBDD_GROUPS AS T INNER JOIN + TBDD_GROUPS_CLIENT AS T1 ON T.GUID = T1.GROUP_ID + WHERE (T1.CLIENT_ID = @CLIENT_ID))) + + + + + + + + + + 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 +FROM TBDD_GROUPS AS T1 INNER JOIN + TBDD_GROUPS_MODULES AS T2 ON T1.GUID = T2.GROUP_ID +WHERE (T2.MODULE_ID = @MODULE_ID) + + + + + + + + + + + SELECT * +FROM TBDD_GROUPS +WHERE (GUID NOT IN + (SELECT DISTINCT T.GUID + FROM TBDD_GROUPS AS T INNER JOIN + TBDD_GROUPS_MODULES AS T1 ON T.GUID = T1.GROUP_ID + WHERE (T1.MODULE_ID = @MODULE_ID))) + + + + + + + + + + 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) + + + + + + + + + + SELECT GUID +FROM TBDD_GROUPS +WHERE (NAME = @NAME) + + + + + + + + + + INSERT INTO TBDD_GROUPS + (NAME, ADDED_WHO, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE) +VALUES (@NAME,@ADDED_WHO, 1, 1, 0, 1) + + + + + + + + + @@ -1110,47 +1129,6 @@ SELECT GUID, CLIENT_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -1561,13 +1539,50 @@ SELECT GUID, CLIENT_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - @@ -1599,18 +1614,22 @@ SELECT GUID, CLIENT_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C + + + + - - + + diff --git a/DDUserManager/DDUserManager/UserDataSet.xss b/DDUserManager/DDUserManager/UserDataSet.xss index 0357d4f..afb0ca8 100644 --- a/DDUserManager/DDUserManager/UserDataSet.xss +++ b/DDUserManager/DDUserManager/UserDataSet.xss @@ -4,166 +4,154 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - + + + + + + + + + + + - + - 1113 - 0 + 1322 + 7 - 1429 - 0 - - - 1429 - 391 - - - 1104 - 391 + 1266 + 7 - + - 1446 - 163 + 304 + -114 - 1420 - 163 + 304 + 60 + + + 275 + 60 - + - 495 - -113 - - - 495 - 59 + 606 + 259 - 340 - 59 + 987 + 259 - + - 761 - 383 + 606 + 25 - 810 - 383 + 988 + 25 - + - 761 - 117 + 306 + 96 - 1142 - 117 + 275 + 96 - + - 461 - 137 + 1322 + -5 + + + 1287 + -5 - 340 - 137 + 1287 + -158 - + - 1096 - -19 - - - 1096 - -74 + 511 + -265 - 1142 - -74 + 580 + -265 - + - 1446 - -9 + 841 + 369 - 1421 - -9 + 841 + 414 - 1421 - -57 + 987 + 414 - + - 702 - -207 + 902 + 7 + + + 902 + -175 - 783 - -207 + 1008 + -175 - + - 1104 - -19 - - - 1104 - -310 - - - 1054 - -310 + 708 + 7 - 1054 - -302 + 708 + -130 diff --git a/DDUserManager/DDUserManager/frmADImport_Groups.Designer.vb b/DDUserManager/DDUserManager/frmADImport_Groups.Designer.vb index b420a5d..c4e10b4 100644 --- a/DDUserManager/DDUserManager/frmADImport_Groups.Designer.vb +++ b/DDUserManager/DDUserManager/frmADImport_Groups.Designer.vb @@ -66,6 +66,8 @@ Partial Class frmADImport_Groups Me.viewAD_Groups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGROUPNAME}) Me.viewAD_Groups.GridControl = Me.gridAD_Groups Me.viewAD_Groups.Name = "viewAD_Groups" + Me.viewAD_Groups.OptionsBehavior.Editable = False + Me.viewAD_Groups.OptionsBehavior.ReadOnly = True Me.viewAD_Groups.OptionsSelection.MultiSelect = True Me.viewAD_Groups.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect ' @@ -103,6 +105,8 @@ Partial Class frmADImport_Groups Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.TBDD_CLIENT_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_CLIENTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_CLIENTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_MODULESTableAdapter = Nothing Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Me.TBDD_GROUPSTableAdapter Me.TableAdapterManager.TBDD_MODULESTableAdapter = Nothing @@ -119,7 +123,7 @@ Partial Class frmADImport_Groups Me.Controls.Add(Me.gridAD_Groups) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmADImport_Groups" - Me.Text = "frmADImport_Groups" + Me.Text = "Active Directory Gruppen-Import" CType(Me.gridAD_Groups, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBLOCAL_ADGROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.UserDataSet, System.ComponentModel.ISupportInitialize).EndInit() diff --git a/DDUserManager/DDUserManager/frmADImport_Groups.vb b/DDUserManager/DDUserManager/frmADImport_Groups.vb index a3cf639..2af14d8 100644 --- a/DDUserManager/DDUserManager/frmADImport_Groups.vb +++ b/DDUserManager/DDUserManager/frmADImport_Groups.vb @@ -7,7 +7,8 @@ Public Class frmADImport_Groups TBDD_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString TBDD_GROUPSTableAdapter.Fill(Me.UserDataSet.TBDD_GROUPS) - Dim groups = ClassActiveDirectory.GetActiveDirectoryGroups(Environment.UserName) + ' Dim groups = ClassActiveDirectory.GetActiveDirectoryGroups(Environment.UserName) + Dim groups = ClassActiveDirectory.GetActiveDirectoryGroups() UserDataSet.TBLOCAL_ADGROUPS.Clear() @@ -36,8 +37,7 @@ Public Class frmADImport_Groups If IsNothing(TBDD_GROUPSTableAdapter.GroupExists(groupRow.GROUPNAME)) Then - 'TBDD_GROUPSTableAdapter.Insert(name, Environment.UserName) - + TBDD_GROUPSTableAdapter.InsertGroup(name, Environment.UserName) importedGroups = importedGroups + 1 End If diff --git a/DDUserManager/DDUserManager/frmADImport_Users.Designer.vb b/DDUserManager/DDUserManager/frmADImport_Users.Designer.vb index 28f4341..5faeb83 100644 --- a/DDUserManager/DDUserManager/frmADImport_Users.Designer.vb +++ b/DDUserManager/DDUserManager/frmADImport_Users.Designer.vb @@ -62,6 +62,8 @@ Partial Class frmADImport_Users ' Me.viewAD_Groups.GridControl = Me.gridAD_Groups Me.viewAD_Groups.Name = "viewAD_Groups" + Me.viewAD_Groups.OptionsBehavior.Editable = False + Me.viewAD_Groups.OptionsBehavior.ReadOnly = True Me.viewAD_Groups.OptionsView.ShowAutoFilterRow = True Me.viewAD_Groups.OptionsView.ShowGroupPanel = False ' @@ -91,6 +93,8 @@ Partial Class frmADImport_Users Me.viewAD_Users.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSELECTED, Me.colUSERNAME, Me.colPRENAME, Me.colNAME, Me.colEMAIL}) Me.viewAD_Users.GridControl = Me.gridAD_Users Me.viewAD_Users.Name = "viewAD_Users" + Me.viewAD_Users.OptionsBehavior.Editable = False + Me.viewAD_Users.OptionsBehavior.ReadOnly = True Me.viewAD_Users.OptionsSelection.MultiSelect = True Me.viewAD_Users.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect Me.viewAD_Users.OptionsView.ShowAutoFilterRow = True @@ -166,9 +170,11 @@ Partial Class frmADImport_Users Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.TBDD_CLIENT_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_CLIENTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_CLIENTTableAdapter = Nothing + Me.TableAdapterManager.TBDD_GROUPS_MODULESTableAdapter = Nothing Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing - Me.TableAdapterManager.TBDD_MODULESTableAdapter = Nothing Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing + Me.TableAdapterManager.TBDD_MODULESTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_MODULESTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Me.TBDD_USERTableAdapter Me.TableAdapterManager.UpdateOrder = DDUserManager.UserDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete @@ -183,7 +189,7 @@ Partial Class frmADImport_Users Me.Controls.Add(Me.gridAD_Groups) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmADImport_Users" - Me.Text = "Active Directory Import" + Me.Text = "Active Directory Benutzer-Import" CType(Me.gridAD_Groups, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.viewAD_Groups, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.gridAD_Users, System.ComponentModel.ISupportInitialize).EndInit() diff --git a/DDUserManager/DDUserManager/frmADImport_Users.vb b/DDUserManager/DDUserManager/frmADImport_Users.vb index a689bbb..96e7623 100644 --- a/DDUserManager/DDUserManager/frmADImport_Users.vb +++ b/DDUserManager/DDUserManager/frmADImport_Users.vb @@ -9,7 +9,8 @@ Public Class frmADImport_Users Try TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString - Dim groups = ClassActiveDirectory.GetActiveDirectoryGroups(Environment.UserName) + ' Dim groups = ClassActiveDirectory.GetActiveDirectoryGroups(Environment.UserName) + Dim groups = ClassActiveDirectory.GetActiveDirectoryGroups() gridAD_Groups.DataSource = groups Catch ex As Exception diff --git a/DDUserManager/DDUserManager/frmMain.Designer.vb b/DDUserManager/DDUserManager/frmMain.Designer.vb index 6c5b856..48ff774 100644 --- a/DDUserManager/DDUserManager/frmMain.Designer.vb +++ b/DDUserManager/DDUserManager/frmMain.Designer.vb @@ -205,6 +205,8 @@ Partial Class frmMain Me.ACTIVECheckBox = New System.Windows.Forms.CheckBox() Me.AD_SYNCCheckBox = New System.Windows.Forms.CheckBox() Me.GUIDTextBox1 = New System.Windows.Forms.TextBox() + Me.TBDD_GROUPSBindingSource1 = New System.Windows.Forms.BindingSource(Me.components) + Me.DS_ChangeS = New DDUserManager.DS_ChangeS() Me.NAMETextBox1 = New System.Windows.Forms.TextBox() Me.COMMENTTextBox1 = New System.Windows.Forms.TextBox() Me.XtraTabControl3 = New DevExpress.XtraTab.XtraTabControl() @@ -253,7 +255,6 @@ Partial Class frmMain Me.colSHORT_NAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.Label16 = New System.Windows.Forms.Label() Me.TBDD_GROUPSBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) - Me.BindingNavigatorAddNewItem1 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorCountItem1 = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorDeleteItem1 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveFirstItem1 = New System.Windows.Forms.ToolStripButton() @@ -264,6 +265,7 @@ Partial Class frmMain Me.BindingNavigatorMoveNextItem1 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveLastItem1 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorSeparator5 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorAddNewItem1 = New System.Windows.Forms.ToolStripButton() Me.TBDD_GROUPSBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() Me.btnImportGroups = New System.Windows.Forms.ToolStripButton() Me.tabPageClients = New DevExpress.XtraTab.XtraTabPage() @@ -320,10 +322,8 @@ Partial Class frmMain Me.TBDD_GROUPS_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBDD_USERTableAdapter = New DDUserManager.UserDataSetTableAdapters.TBDD_USERTableAdapter() Me.TableAdapterManager = New DDUserManager.UserDataSetTableAdapters.TableAdapterManager() - Me.TBDD_GROUPS_USERTableAdapter = New DDUserManager.UserDataSetTableAdapters.TBDD_GROUPS_USERTableAdapter() Me.TBDD_CLIENT_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBDD_CLIENT_USERTableAdapter = New DDUserManager.UserDataSetTableAdapters.TBDD_CLIENT_USERTableAdapter() - Me.TBDD_GROUPSTableAdapter = New DDUserManager.UserDataSetTableAdapters.TBDD_GROUPSTableAdapter() Me.TBDD_CLIENTTableAdapter = New DDUserManager.UserDataSetTableAdapters.TBDD_CLIENTTableAdapter() Me.TBDD_MODULESTableAdapter = New DDUserManager.UserDataSetTableAdapters.TBDD_MODULESTableAdapter() Me.TBDD_USER_MODULESBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -334,6 +334,9 @@ Partial Class frmMain Me.TBDD_GROUPS_MODULESTableAdapter = New DDUserManager.UserDataSetTableAdapters.TBDD_GROUPS_MODULESTableAdapter() Me.TBDD_GROUPS_CLIENTTableAdapter = New DDUserManager.UserDataSetTableAdapters.TBDD_GROUPS_CLIENTTableAdapter() Me.Button1 = New System.Windows.Forms.Button() + Me.TBDD_GROUPSTableAdapter = New DDUserManager.DS_ChangeSTableAdapters.TBDD_GROUPSTableAdapter() + Me.TableAdapterManager1 = New DDUserManager.DS_ChangeSTableAdapters.TableAdapterManager() + Me.TBDD_GROUPS_USERTableAdapter = New DDUserManager.UserDataSetTableAdapters.TBDD_GROUPS_USERTableAdapter() GUIDLabel = New System.Windows.Forms.Label() PRENAMELabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label() @@ -443,6 +446,8 @@ Partial Class frmMain CType(Me.viewGroups, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox4.SuspendLayout() Me.GroupBox2.SuspendLayout() + CType(Me.TBDD_GROUPSBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DS_ChangeS, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl3.SuspendLayout() Me.XtraTabPage1.SuspendLayout() @@ -2146,7 +2151,7 @@ Partial Class frmMain ' 'gridGroups ' - Me.gridGroups.DataSource = Me.TBDD_GROUPSBindingSource + Me.gridGroups.DataSource = Me.TBDD_GROUPSBindingSource1 Me.gridGroups.Dock = System.Windows.Forms.DockStyle.Right Me.gridGroups.Location = New System.Drawing.Point(765, 0) Me.gridGroups.MainView = Me.viewGroups @@ -2273,7 +2278,8 @@ Partial Class frmMain 'AD_SYNCCheckBox ' Me.AD_SYNCCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_GROUPSBindingSource, "AD_SYNC", True)) - Me.AD_SYNCCheckBox.Location = New System.Drawing.Point(126, 95) + Me.AD_SYNCCheckBox.Enabled = False + Me.AD_SYNCCheckBox.Location = New System.Drawing.Point(236, 155) Me.AD_SYNCCheckBox.Name = "AD_SYNCCheckBox" Me.AD_SYNCCheckBox.Size = New System.Drawing.Size(200, 24) Me.AD_SYNCCheckBox.TabIndex = 7 @@ -2282,16 +2288,26 @@ Partial Class frmMain ' 'GUIDTextBox1 ' - Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GROUPSBindingSource, "GUID", True)) + Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GROUPSBindingSource1, "GUID", True)) Me.GUIDTextBox1.Location = New System.Drawing.Point(126, 14) Me.GUIDTextBox1.Name = "GUIDTextBox1" Me.GUIDTextBox1.ReadOnly = True Me.GUIDTextBox1.Size = New System.Drawing.Size(200, 21) Me.GUIDTextBox1.TabIndex = 2 ' + 'TBDD_GROUPSBindingSource1 + ' + Me.TBDD_GROUPSBindingSource1.DataMember = "TBDD_GROUPS" + Me.TBDD_GROUPSBindingSource1.DataSource = Me.DS_ChangeS + ' + 'DS_ChangeS + ' + Me.DS_ChangeS.DataSetName = "DS_ChangeS" + Me.DS_ChangeS.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' 'NAMETextBox1 ' - Me.NAMETextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GROUPSBindingSource, "NAME", True)) + Me.NAMETextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_GROUPSBindingSource1, "NAME", True)) Me.NAMETextBox1.Location = New System.Drawing.Point(126, 41) Me.NAMETextBox1.Name = "NAMETextBox1" Me.NAMETextBox1.Size = New System.Drawing.Size(200, 21) @@ -2795,8 +2811,8 @@ Partial Class frmMain ' 'TBDD_GROUPSBindingNavigator ' - Me.TBDD_GROUPSBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem1 - Me.TBDD_GROUPSBindingNavigator.BindingSource = Me.TBDD_GROUPSBindingSource + Me.TBDD_GROUPSBindingNavigator.AddNewItem = Nothing + Me.TBDD_GROUPSBindingNavigator.BindingSource = Me.TBDD_GROUPSBindingSource1 Me.TBDD_GROUPSBindingNavigator.CountItem = Me.BindingNavigatorCountItem1 Me.TBDD_GROUPSBindingNavigator.CountItemFormat = "von {0} Gruppen" Me.TBDD_GROUPSBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem1 @@ -2812,15 +2828,6 @@ Partial Class frmMain Me.TBDD_GROUPSBindingNavigator.TabIndex = 0 Me.TBDD_GROUPSBindingNavigator.Text = "BindingNavigator1" ' - 'BindingNavigatorAddNewItem1 - ' - Me.BindingNavigatorAddNewItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image - Me.BindingNavigatorAddNewItem1.Image = CType(resources.GetObject("BindingNavigatorAddNewItem1.Image"), System.Drawing.Image) - Me.BindingNavigatorAddNewItem1.Name = "BindingNavigatorAddNewItem1" - Me.BindingNavigatorAddNewItem1.RightToLeftAutoMirrorImage = True - Me.BindingNavigatorAddNewItem1.Size = New System.Drawing.Size(23, 22) - Me.BindingNavigatorAddNewItem1.Text = "Neu hinzufügen" - ' 'BindingNavigatorCountItem1 ' Me.BindingNavigatorCountItem1.Name = "BindingNavigatorCountItem1" @@ -2897,6 +2904,15 @@ Partial Class frmMain Me.BindingNavigatorSeparator5.Name = "BindingNavigatorSeparator5" Me.BindingNavigatorSeparator5.Size = New System.Drawing.Size(6, 25) ' + 'BindingNavigatorAddNewItem1 + ' + Me.BindingNavigatorAddNewItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem1.Image = CType(resources.GetObject("BindingNavigatorAddNewItem1.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem1.Name = "BindingNavigatorAddNewItem1" + Me.BindingNavigatorAddNewItem1.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem1.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem1.Text = "Neu hinzufügen" + ' 'TBDD_GROUPSBindingNavigatorSaveItem ' Me.TBDD_GROUPSBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image @@ -3410,10 +3426,6 @@ Partial Class frmMain Me.TableAdapterManager.TBDD_USERTableAdapter = Me.TBDD_USERTableAdapter Me.TableAdapterManager.UpdateOrder = DDUserManager.UserDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' - 'TBDD_GROUPS_USERTableAdapter - ' - Me.TBDD_GROUPS_USERTableAdapter.ClearBeforeFill = True - ' 'TBDD_CLIENT_USERBindingSource ' Me.TBDD_CLIENT_USERBindingSource.DataMember = "FK_TBDD_CLIENT_USER_USER_ID" @@ -3423,10 +3435,6 @@ Partial Class frmMain ' Me.TBDD_CLIENT_USERTableAdapter.ClearBeforeFill = True ' - 'TBDD_GROUPSTableAdapter - ' - Me.TBDD_GROUPSTableAdapter.ClearBeforeFill = True - ' 'TBDD_CLIENTTableAdapter ' Me.TBDD_CLIENTTableAdapter.ClearBeforeFill = True @@ -3485,6 +3493,20 @@ Partial Class frmMain Me.Button1.Text = "Daten neu laden" Me.Button1.UseVisualStyleBackColor = True ' + 'TBDD_GROUPSTableAdapter + ' + Me.TBDD_GROUPSTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager1 + ' + Me.TableAdapterManager1.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager1.TBDD_GROUPSTableAdapter = Me.TBDD_GROUPSTableAdapter + Me.TableAdapterManager1.UpdateOrder = DDUserManager.DS_ChangeSTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'TBDD_GROUPS_USERTableAdapter + ' + Me.TBDD_GROUPS_USERTableAdapter.ClearBeforeFill = True + ' 'frmMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -3578,6 +3600,8 @@ Partial Class frmMain Me.GroupBox4.PerformLayout() Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.PerformLayout() + CType(Me.TBDD_GROUPSBindingSource1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DS_ChangeS, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabControl3.ResumeLayout(False) Me.XtraTabPage1.ResumeLayout(False) @@ -3681,11 +3705,9 @@ Partial Class frmMain Friend WithEvents Label2 As Label Friend WithEvents Label1 As Label Friend WithEvents TBDD_GROUPS_USERBindingSource As BindingSource - Friend WithEvents TBDD_GROUPS_USERTableAdapter As UserDataSetTableAdapters.TBDD_GROUPS_USERTableAdapter Friend WithEvents TBDD_CLIENT_USERBindingSource As BindingSource Friend WithEvents TBDD_CLIENT_USERTableAdapter As UserDataSetTableAdapters.TBDD_CLIENT_USERTableAdapter Friend WithEvents TBDD_GROUPSBindingSource As BindingSource - Friend WithEvents TBDD_GROUPSTableAdapter As UserDataSetTableAdapters.TBDD_GROUPSTableAdapter Friend WithEvents TBDD_CLIENTBindingSource As BindingSource Friend WithEvents TBDD_CLIENTTableAdapter As UserDataSetTableAdapters.TBDD_CLIENTTableAdapter Friend WithEvents TBDD_GROUPSBindingNavigator As BindingNavigator @@ -3917,4 +3939,9 @@ Partial Class frmMain Friend WithEvents colNAME10 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colSHORT_NAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents Button1 As Button + Friend WithEvents DS_ChangeS As DS_ChangeS + Friend WithEvents TBDD_GROUPSBindingSource1 As BindingSource + Friend WithEvents TBDD_GROUPSTableAdapter As DS_ChangeSTableAdapters.TBDD_GROUPSTableAdapter + Friend WithEvents TableAdapterManager1 As DS_ChangeSTableAdapters.TableAdapterManager + Friend WithEvents TBDD_GROUPS_USERTableAdapter As UserDataSetTableAdapters.TBDD_GROUPS_USERTableAdapter End Class diff --git a/DDUserManager/DDUserManager/frmMain.resx b/DDUserManager/DDUserManager/frmMain.resx index 0e70418..b7e967e 100644 --- a/DDUserManager/DDUserManager/frmMain.resx +++ b/DDUserManager/DDUserManager/frmMain.resx @@ -213,17 +213,26 @@ False - - 693, 17 + + 136, 17 + + + 17, 17 + + + 469, 95 - 17, 56 + 489, 56 - - 843, 56 + + 911, 56 + + + 693, 17 - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC @@ -235,7 +244,7 @@ rkJggg== - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC @@ -247,7 +256,7 @@ bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 @@ -258,7 +267,7 @@ lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w @@ -267,7 +276,7 @@ 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 @@ -276,7 +285,7 @@ oAc0QjgAAAAASUVORK5CYII= - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// @@ -287,81 +296,23 @@ 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALlSURBVDhPhZJ5SJNxGMffDgoKIohKrRQ1O6zEK8wjxliJ - ZVRWa5jHWupMzaNm5DF9PfMo23T6OhWdY815TeeZWKCJV16pmQaC/pG66J8wMSiPb1NfyhDsA89fv+/n - 4XkefsT/iL5lwBvKNZudUh7ChMxoQRZiUsg2N99BP29OiIsBq0VhvDRdoo/1JQ00FdORzSn03pc1XWWL - mSY//OjOwIzaEdOqIxjJNf1GRzaHurknQzvYhNkOCguDcsx1Uph634jXiVaTdGRzbriy+ST5aPn7UCWW - xqowP6KBtjUL8d4MNR35Fz7zKC+Hx5jN8mKC4rIWAjhn+sgnQb+0agE+18RDWxuDdukDWPicarQQWOym - tTW4TiasHAZjSezBxPoqEoVCkpeEtOwYkM8fo+bjSyS3JOC08FixDam/i9YJQsSxas8PuI6qOB+Mlgih - FLCR5cWC1P8CZINCBCsd4CezQkpvGCo+FSJMEwz7AFuK1glCctukYrxFteFgqigmRAMR8JXbIr7uDjjS - E4jo8gePuosJ6ipofePBQpXnEaI4B3+5DXiFlhBWs1Hem4nwimu4KNKDu4iDmYIrfxtstc6MJCOD/xws - SGEHzQAFdX/2qljaK4b4TTjkXem4r3TGWXLncnu+q9+a7VDqe1nwbq71C/C0XI2YIhV8dPuuyC+aQ5HW - FITkRj7i6nhIaPCHtC0RnsVOMCOJRcLYNY/NDq2frx1bQtIo4NcDeLcCHgUnUdYjhlL3A+Wd6SjqSNU1 - CURuWwL4ShcYxhBfDaIIS2KYNF/sq5RAUK0FtwngapbhoVqGW64JLmUeBkt0AI7P9sJb5gDqbRzuKZyh - E7V6kYT56vTjmYyZyuSHcI/tBr8Z4L3STaABvGoBz3qAkzqBWEEKrJO2gytnwSiamDIQEsdX5RXG5Xz7 - hni3KDu2QmMb1gtm7LCuPoApHAIjqh+mLmWTEoFP3P7ALT8No7fhYDRhTKs6COI3IvPLoUkp30UAAAAA - SUVORK5CYII= - - - - 1073, 56 - - - 17, 95 - - - 136, 17 - - - 1295, 56 - - - 17, 56 - - - 439, 56 - - - 136, 17 - - - 17, 17 - - - 17, 17 - - - 1295, 56 + + 1026, 134 - - 439, 56 + + 906, 134 - - 693, 17 + + 17, 95 - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC - pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ - Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ - /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA - zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ - IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E - rkJggg== - - - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC @@ -373,7 +324,7 @@ bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 @@ -384,7 +335,7 @@ lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w @@ -393,7 +344,7 @@ 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 @@ -402,7 +353,7 @@ oAc0QjgAAAAASUVORK5CYII= - + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// @@ -413,15 +364,46 @@ 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAALlSURBVDhPhZJ5SJNxGMffDgoKIohKrRQ1O6zEK8wjxliJ + ZVRWa5jHWupMzaNm5DF9PfMo23T6OhWdY815TeeZWKCJV16pmQaC/pG66J8wMSiPb1NfyhDsA89fv+/n + 4XkefsT/iL5lwBvKNZudUh7ChMxoQRZiUsg2N99BP29OiIsBq0VhvDRdoo/1JQ00FdORzSn03pc1XWWL + mSY//OjOwIzaEdOqIxjJNf1GRzaHurknQzvYhNkOCguDcsx1Uph634jXiVaTdGRzbriy+ST5aPn7UCWW + xqowP6KBtjUL8d4MNR35Fz7zKC+Hx5jN8mKC4rIWAjhn+sgnQb+0agE+18RDWxuDdukDWPicarQQWOym + tTW4TiasHAZjSezBxPoqEoVCkpeEtOwYkM8fo+bjSyS3JOC08FixDam/i9YJQsSxas8PuI6qOB+Mlgih + FLCR5cWC1P8CZINCBCsd4CezQkpvGCo+FSJMEwz7AFuK1glCctukYrxFteFgqigmRAMR8JXbIr7uDjjS + E4jo8gePuosJ6ipofePBQpXnEaI4B3+5DXiFlhBWs1Hem4nwimu4KNKDu4iDmYIrfxtstc6MJCOD/xws + SGEHzQAFdX/2qljaK4b4TTjkXem4r3TGWXLncnu+q9+a7VDqe1nwbq71C/C0XI2YIhV8dPuuyC+aQ5HW + FITkRj7i6nhIaPCHtC0RnsVOMCOJRcLYNY/NDq2frx1bQtIo4NcDeLcCHgUnUdYjhlL3A+Wd6SjqSNU1 + CURuWwL4ShcYxhBfDaIIS2KYNF/sq5RAUK0FtwngapbhoVqGW64JLmUeBkt0AI7P9sJb5gDqbRzuKZyh + E7V6kYT56vTjmYyZyuSHcI/tBr8Z4L3STaABvGoBz3qAkzqBWEEKrJO2gytnwSiamDIQEsdX5RXG5Xz7 + hni3KDu2QmMb1gtm7LCuPoApHAIjqh+mLmWTEoFP3P7ALT8No7fhYDRhTKs6COI3IvPLoUkp30UAAAAA + SUVORK5CYII= - 1073, 56 + 247, 95 @@ -495,7 +477,7 @@ - 17, 95 + 909, 95 @@ -546,38 +528,41 @@ 520, 17 - - 1152, 17 - - 1394, 17 + 17, 56 - 1633, 17 - - - 231, 56 + 256, 56 - 644, 56 + 1116, 56 - 1518, 56 + 692, 95 - 256, 95 + 1148, 95 - 512, 95 + 17, 134 - 763, 95 + 268, 134 - 880, 95 + 385, 134 - 1406, 95 + 654, 134 + + + 1246, 134 + + + 17, 173 + + + 1152, 17 198 diff --git a/DDUserManager/DDUserManager/frmMain.vb b/DDUserManager/DDUserManager/frmMain.vb index 9dc1ff0..852376b 100644 --- a/DDUserManager/DDUserManager/frmMain.vb +++ b/DDUserManager/DDUserManager/frmMain.vb @@ -13,6 +13,8 @@ Public Class frmMain Private DragDropManager As ClassDragDrop = Nothing Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DS_ChangeS.TBDD_GROUPS". Sie können sie bei Bedarf verschieben oder entfernen. + Me.TBDD_GROUPSTableAdapter.Fill(Me.DS_ChangeS.TBDD_GROUPS) If InitDatabase() = False Then MsgBox($"Unexpected error in Database Init(1). {vbCrLf & vbCrLf}Please contact Your admin.", MsgBoxStyle.Critical, "UserManager") Application.Exit() @@ -220,7 +222,7 @@ Public Class frmMain Private Function GetGroupsForUser(username As String) As TBDD_GROUPSDataTable Try Dim dt As New TBDD_GROUPSDataTable() - TBDD_GROUPSTableAdapter.FillByUsername(dt, username) + 'TBDD_GROUPSTableAdapter.FillByUsername(dt, username) Return dt Catch ex As Exception @@ -263,13 +265,13 @@ Public Class frmMain Private Sub TBDD_GROUPSBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBDD_GROUPSBindingNavigatorSaveItem.Click Try Validate() - TBDD_GROUPSBindingSource.EndEdit() + TBDD_GROUPSBindingSource1.EndEdit() - If UserDataSet.TBDD_GROUPS.GetChanges Is Nothing = False Then - UserDataSet.TBDD_GROUPS.CHANGED_WHOColumn.DefaultValue = Environment.UserName + If DS_ChangeS.TBDD_GROUPS.GetChanges Is Nothing = False Then + DS_ChangeS.TBDD_GROUPS.CHANGED_WHOColumn.DefaultValue = Environment.UserName - TBDD_GROUPSBindingSource.EndEdit() - TBDD_GROUPSTableAdapter.Update(UserDataSet.TBDD_GROUPS) + TBDD_GROUPSBindingSource1.EndEdit() + TBDD_GROUPSTableAdapter.Update(DS_ChangeS.TBDD_GROUPS) UpdateSavedLabel() End If @@ -309,7 +311,7 @@ Public Class frmMain Private Sub LoadData() Try TBDD_USERTableAdapter.Fill(UserDataSet.TBDD_USER) - TBDD_GROUPSTableAdapter.Fill(UserDataSet.TBDD_GROUPS) + TBDD_GROUPSTableAdapter.Fill(DS_ChangeS.TBDD_GROUPS) TBDD_CLIENTTableAdapter.Fill(UserDataSet.TBDD_CLIENT) TBDD_MODULESTableAdapter.Fill(UserDataSet.TBDD_MODULES) @@ -399,19 +401,19 @@ Public Class frmMain End Try End Function - Private Function GetAssignedGroupsByClientId(clientId As Integer) As TBDD_GROUPSDataTable + Private Function GetAssignedGroupsByClientId(clientId As Integer) As DS_ChangeS.TBDD_GROUPSDataTable Return TBDD_GROUPSTableAdapter.GetDataByClientId(clientId) End Function - Private Function GetAvailableGroupsByClientId(clientId As Integer) As TBDD_GROUPSDataTable + Private Function GetAvailableGroupsByClientId(clientId As Integer) As DS_ChangeS.TBDD_GROUPSDataTable Return TBDD_GROUPSTableAdapter.GetDataByClientId_NotInClient(clientId) End Function - Private Function GetAssignedGroupsByModuleId(moduleId As Integer) As TBDD_GROUPSDataTable + Private Function GetAssignedGroupsByModuleId(moduleId As Integer) As DS_ChangeS.TBDD_GROUPSDataTable Return TBDD_GROUPSTableAdapter.GetDataByModuleId(moduleId) End Function - Private Function GetAvailableGroupsByModuleId(moduleId As Integer) As TBDD_GROUPSDataTable + Private Function GetAvailableGroupsByModuleId(moduleId As Integer) As DS_ChangeS.TBDD_GROUPSDataTable Return TBDD_GROUPSTableAdapter.GetDataByModuleId_NotInModule(moduleId) End Function @@ -977,5 +979,17 @@ Public Class frmMain MsgBox(errorText & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Critical, "Process Manager") End Sub + Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles TBDD_GROUPSBindingNavigator.Click -End Class \ No newline at end of file + 'UserDataSet.TBDD_GROUPS.ECM_FK_IDColumn.DefaultValue = 0 + End Sub + + Private Sub BindingNavigatorAddNewItem1_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem1.Click + TBDD_GROUPSBindingSource1.AddNew() + End Sub + + Private Sub TBDD_GROUPSBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_GROUPSBindingSource1.AddingNew + 'UserDataSet.TBDD_GROUPS.ADDED_WHOColumn.DefaultValue = Environment.UserName + DS_ChangeS.TBDD_GROUPS.ADDED_WHOColumn.DefaultValue = Environment.UserName + End Sub +End Class