diff --git a/DDUserManager/DDUserManager/UserDataSet.Designer.vb b/DDUserManager/DDUserManager/UserDataSet.Designer.vb index acd8004..cb28c81 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_USER As TBDD_USERDataTable - Private tableTBDD_USER_GROUPS As TBDD_USER_GROUPSDataTable Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable @@ -39,16 +37,18 @@ Partial Public Class UserDataSet Private tableTBDD_CLIENT_USER As TBDD_CLIENT_USERDataTable - Private relationFK_TBDD_GROUPS_USER_GROUP_ID As Global.System.Data.DataRelation + Private tableTBDD_USER As TBDD_USERDataTable - Private relationFK_TBDD_GROUPS_USER_USER_ID As Global.System.Data.DataRelation + 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_USER_MODULES2_USER_ID As Global.System.Data.DataRelation - Private relationFK_TBDD_CLIENT_USER_GROUP_ID As Global.System.Data.DataRelation + Private relationFK_TBDD_GROUPS_USER_USER_ID As Global.System.Data.DataRelation + + Private relationFK_TBDD_USER_MODULES2_USER_ID As Global.System.Data.DataRelation + Private relationFK_TBDD_CLIENT_USER_USER_ID As Global.System.Data.DataRelation Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema @@ -80,9 +80,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_USER")) Is Nothing) Then - MyBase.Tables.Add(New TBDD_USERDataTable(ds.Tables("TBDD_USER"))) - End If If (Not (ds.Tables("TBDD_USER_GROUPS")) Is Nothing) Then MyBase.Tables.Add(New TBDD_USER_GROUPSDataTable(ds.Tables("TBDD_USER_GROUPS"))) End If @@ -101,6 +98,9 @@ Partial Public Class UserDataSet If (Not (ds.Tables("TBDD_CLIENT_USER")) Is Nothing) Then MyBase.Tables.Add(New TBDD_CLIENT_USERDataTable(ds.Tables("TBDD_CLIENT_USER"))) End If + If (Not (ds.Tables("TBDD_USER")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_USERDataTable(ds.Tables("TBDD_USER"))) + End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace @@ -118,16 +118,6 @@ Partial Public Class UserDataSet AddHandler Me.Relations.CollectionChanged, schemaChangedHandler End Sub - _ - Public ReadOnly Property TBDD_USER() As TBDD_USERDataTable - Get - Return Me.tableTBDD_USER - End Get - End Property - _ + Public ReadOnly Property TBDD_USER() As TBDD_USERDataTable + Get + Return Me.tableTBDD_USER + End Get + End Property + _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) - Me.tableTBDD_USER = CType(MyBase.Tables("TBDD_USER"),TBDD_USERDataTable) - If (initTable = true) Then - If (Not (Me.tableTBDD_USER) Is Nothing) Then - Me.tableTBDD_USER.InitVars - End If - End If Me.tableTBDD_USER_GROUPS = CType(MyBase.Tables("TBDD_USER_GROUPS"),TBDD_USER_GROUPSDataTable) If (initTable = true) Then If (Not (Me.tableTBDD_USER_GROUPS) Is Nothing) Then @@ -350,11 +344,17 @@ Partial Public Class UserDataSet Me.tableTBDD_CLIENT_USER.InitVars End If End If + Me.tableTBDD_USER = CType(MyBase.Tables("TBDD_USER"),TBDD_USERDataTable) + If (initTable = true) Then + If (Not (Me.tableTBDD_USER) Is Nothing) Then + Me.tableTBDD_USER.InitVars + End If + End If Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = Me.Relations("FK_TBDD_GROUPS_USER_GROUP_ID") - Me.relationFK_TBDD_GROUPS_USER_USER_ID = Me.Relations("FK_TBDD_GROUPS_USER_USER_ID") Me.relationFK_TBDD_USER_MODULES_MODULE_ID = Me.Relations("FK_TBDD_USER_MODULES_MODULE_ID") - Me.relationFK_TBDD_USER_MODULES2_USER_ID = Me.Relations("FK_TBDD_USER_MODULES2_USER_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") End Sub @@ -366,8 +366,6 @@ Partial Public Class UserDataSet Me.Namespace = "http://tempuri.org/UserDataSet.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema - Me.tableTBDD_USER = New TBDD_USERDataTable() - MyBase.Tables.Add(Me.tableTBDD_USER) Me.tableTBDD_USER_GROUPS = New TBDD_USER_GROUPSDataTable() MyBase.Tables.Add(Me.tableTBDD_USER_GROUPS) Me.tableTBDD_GROUPS_USER = New TBDD_GROUPS_USERDataTable() @@ -380,26 +378,22 @@ Partial Public Class UserDataSet MyBase.Tables.Add(Me.tableTBDD_CLIENT) Me.tableTBDD_CLIENT_USER = New TBDD_CLIENT_USERDataTable() MyBase.Tables.Add(Me.tableTBDD_CLIENT_USER) + Me.tableTBDD_USER = New TBDD_USERDataTable() + MyBase.Tables.Add(Me.tableTBDD_USER) Me.relationFK_TBDD_GROUPS_USER_GROUP_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_GROUP_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER_GROUPS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.GROUP_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_GROUP_ID) - Me.relationFK_TBDD_GROUPS_USER_USER_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_USER_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.USER_IDColumn}, false) - Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_USER_ID) 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_USER_MODULES2_USER_ID = New Global.System.Data.DataRelation("FK_TBDD_USER_MODULES2_USER_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_USER_MODULES.USER_IDColumn}, false) - Me.Relations.Add(Me.relationFK_TBDD_USER_MODULES2_USER_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) Me.Relations.Add(Me.relationFK_TBDD_CLIENT_USER_GROUP_ID) + Me.relationFK_TBDD_GROUPS_USER_USER_ID = New Global.System.Data.DataRelation("FK_TBDD_GROUPS_USER_USER_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_GROUPS_USER.USER_IDColumn}, false) + Me.Relations.Add(Me.relationFK_TBDD_GROUPS_USER_USER_ID) + Me.relationFK_TBDD_USER_MODULES2_USER_ID = New Global.System.Data.DataRelation("FK_TBDD_USER_MODULES2_USER_ID", New Global.System.Data.DataColumn() {Me.tableTBDD_USER.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBDD_USER_MODULES.USER_IDColumn}, false) + 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) End Sub - _ - Private Function ShouldSerializeTBDD_USER() As Boolean - Return false - End Function - _ Private Function ShouldSerializeTBDD_USER_GROUPS() As Boolean @@ -436,6 +430,12 @@ Partial Public Class UserDataSet Return false End Function + _ + Private Function ShouldSerializeTBDD_USER() As Boolean + Return false + End Function + _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) @@ -494,9 +494,6 @@ Partial Public Class UserDataSet Return type End Function - _ - Public Delegate Sub TBDD_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USERRowChangeEvent) - _ Public Delegate Sub TBDD_USER_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USER_GROUPSRowChangeEvent) @@ -515,646 +512,8 @@ Partial Public Class UserDataSet _ Public Delegate Sub TBDD_CLIENT_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CLIENT_USERRowChangeEvent) - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBDD_USERDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_USERRow) - - 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 columnLANGUAGE As Global.System.Data.DataColumn - - Private columnGENERAL_VIEWER As Global.System.Data.DataColumn - - Private columnCOMMENT As Global.System.Data.DataColumn - - Private columnWAN_ENVIRONMENT As Global.System.Data.DataColumn - - Private columnLOGGED_IN As Global.System.Data.DataColumn - - Private columnLOGGED_WHERE As Global.System.Data.DataColumn - - Private columnLOG_IN_WHEN As Global.System.Data.DataColumn - - Private columnLOG_OUT_WHEN As Global.System.Data.DataColumn - - Private columnPM_RIGHT_FILE_DELETE As Global.System.Data.DataColumn - - Private columnMODULE_GI As Global.System.Data.DataColumn - - Private columnGI_ADMIN As Global.System.Data.DataColumn - - Private columnMODULE_WD_QS As Global.System.Data.DataColumn - - Private columnMODULE_RECORD_ORG As Global.System.Data.DataColumn - - Private columnRECORD_ADMIN As Global.System.Data.DataColumn - - Private columnUSERID_FK_INT_ECM 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_USER" - 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 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 - 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 - - _ - Public ReadOnly Property GENERAL_VIEWERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGENERAL_VIEWER - End Get - End Property - - _ - Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCOMMENT - End Get - End Property - - _ - Public ReadOnly Property WAN_ENVIRONMENTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWAN_ENVIRONMENT - End Get - End Property - - _ - Public ReadOnly Property LOGGED_INColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLOGGED_IN - End Get - End Property - - _ - Public ReadOnly Property LOGGED_WHEREColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLOGGED_WHERE - End Get - End Property - - _ - Public ReadOnly Property LOG_IN_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLOG_IN_WHEN - End Get - End Property - - _ - Public ReadOnly Property LOG_OUT_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLOG_OUT_WHEN - End Get - End Property - - _ - Public ReadOnly Property PM_RIGHT_FILE_DELETEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPM_RIGHT_FILE_DELETE - End Get - End Property - - _ - Public ReadOnly Property MODULE_GIColumn() As Global.System.Data.DataColumn - Get - Return Me.columnMODULE_GI - End Get - End Property - - _ - Public ReadOnly Property GI_ADMINColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGI_ADMIN - End Get - End Property - - _ - Public ReadOnly Property MODULE_WD_QSColumn() As Global.System.Data.DataColumn - Get - Return Me.columnMODULE_WD_QS - End Get - End Property - - _ - Public ReadOnly Property MODULE_RECORD_ORGColumn() As Global.System.Data.DataColumn - Get - Return Me.columnMODULE_RECORD_ORG - End Get - End Property - - _ - Public ReadOnly Property RECORD_ADMINColumn() As Global.System.Data.DataColumn - Get - Return Me.columnRECORD_ADMIN - End Get - End Property - - _ - Public ReadOnly Property USERID_FK_INT_ECMColumn() As Global.System.Data.DataColumn - Get - Return Me.columnUSERID_FK_INT_ECM - 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 - 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_USERRow - Get - Return CType(Me.Rows(index),TBDD_USERRow) - End Get - End Property - - _ - Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler - - _ - Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler - - _ - Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler - - _ - Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler - - _ - Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow) - 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 GENERAL_VIEWER As String, _ - ByVal COMMENT As String, _ - ByVal WAN_ENVIRONMENT As Boolean, _ - ByVal LOGGED_IN As Boolean, _ - ByVal LOGGED_WHERE As String, _ - ByVal LOG_IN_WHEN As Date, _ - ByVal LOG_OUT_WHEN As Date, _ - ByVal PM_RIGHT_FILE_DELETE As Boolean, _ - ByVal MODULE_GI As Boolean, _ - ByVal GI_ADMIN As Boolean, _ - ByVal MODULE_WD_QS As Boolean, _ - ByVal MODULE_RECORD_ORG As Boolean, _ - ByVal RECORD_ADMIN As Boolean, _ - ByVal USERID_FK_INT_ECM As Integer, _ - 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, GENERAL_VIEWER, COMMENT, WAN_ENVIRONMENT, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, PM_RIGHT_FILE_DELETE, MODULE_GI, GI_ADMIN, MODULE_WD_QS, MODULE_RECORD_ORG, RECORD_ADMIN, USERID_FK_INT_ECM, 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_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_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_USERDataTable() - 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.columnGENERAL_VIEWER = MyBase.Columns("GENERAL_VIEWER") - Me.columnCOMMENT = MyBase.Columns("COMMENT") - Me.columnWAN_ENVIRONMENT = MyBase.Columns("WAN_ENVIRONMENT") - Me.columnLOGGED_IN = MyBase.Columns("LOGGED_IN") - Me.columnLOGGED_WHERE = MyBase.Columns("LOGGED_WHERE") - Me.columnLOG_IN_WHEN = MyBase.Columns("LOG_IN_WHEN") - Me.columnLOG_OUT_WHEN = MyBase.Columns("LOG_OUT_WHEN") - Me.columnPM_RIGHT_FILE_DELETE = MyBase.Columns("PM_RIGHT_FILE_DELETE") - Me.columnMODULE_GI = MyBase.Columns("MODULE_GI") - Me.columnGI_ADMIN = MyBase.Columns("GI_ADMIN") - Me.columnMODULE_WD_QS = MyBase.Columns("MODULE_WD_QS") - Me.columnMODULE_RECORD_ORG = MyBase.Columns("MODULE_RECORD_ORG") - Me.columnRECORD_ADMIN = MyBase.Columns("RECORD_ADMIN") - Me.columnUSERID_FK_INT_ECM = MyBase.Columns("USERID_FK_INT_ECM") - 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 - - _ - 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.columnGENERAL_VIEWER = New Global.System.Data.DataColumn("GENERAL_VIEWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGENERAL_VIEWER) - Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCOMMENT) - Me.columnWAN_ENVIRONMENT = New Global.System.Data.DataColumn("WAN_ENVIRONMENT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWAN_ENVIRONMENT) - Me.columnLOGGED_IN = New Global.System.Data.DataColumn("LOGGED_IN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnLOGGED_IN) - Me.columnLOGGED_WHERE = New Global.System.Data.DataColumn("LOGGED_WHERE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnLOGGED_WHERE) - Me.columnLOG_IN_WHEN = New Global.System.Data.DataColumn("LOG_IN_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnLOG_IN_WHEN) - Me.columnLOG_OUT_WHEN = New Global.System.Data.DataColumn("LOG_OUT_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnLOG_OUT_WHEN) - Me.columnPM_RIGHT_FILE_DELETE = New Global.System.Data.DataColumn("PM_RIGHT_FILE_DELETE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPM_RIGHT_FILE_DELETE) - Me.columnMODULE_GI = New Global.System.Data.DataColumn("MODULE_GI", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnMODULE_GI) - Me.columnGI_ADMIN = New Global.System.Data.DataColumn("GI_ADMIN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGI_ADMIN) - Me.columnMODULE_WD_QS = New Global.System.Data.DataColumn("MODULE_WD_QS", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnMODULE_WD_QS) - Me.columnMODULE_RECORD_ORG = New Global.System.Data.DataColumn("MODULE_RECORD_ORG", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnMODULE_RECORD_ORG) - Me.columnRECORD_ADMIN = New Global.System.Data.DataColumn("RECORD_ADMIN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnRECORD_ADMIN) - Me.columnUSERID_FK_INT_ECM = New Global.System.Data.DataColumn("USERID_FK_INT_ECM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSERID_FK_INT_ECM) - 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) - 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.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.columnGENERAL_VIEWER.AllowDBNull = false - Me.columnGENERAL_VIEWER.MaxLength = 30 - Me.columnCOMMENT.MaxLength = 500 - Me.columnWAN_ENVIRONMENT.AllowDBNull = false - Me.columnLOGGED_IN.AllowDBNull = false - Me.columnLOGGED_WHERE.MaxLength = 50 - Me.columnPM_RIGHT_FILE_DELETE.AllowDBNull = false - Me.columnMODULE_GI.AllowDBNull = false - Me.columnGI_ADMIN.AllowDBNull = false - Me.columnMODULE_WD_QS.AllowDBNull = false - Me.columnMODULE_RECORD_ORG.AllowDBNull = false - Me.columnRECORD_ADMIN.AllowDBNull = false - Me.columnUSERID_FK_INT_ECM.AllowDBNull = false - Me.columnDATE_FORMAT.AllowDBNull = false - Me.columnDATE_FORMAT.MaxLength = 10 - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 - End Sub - - _ - 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_USERRow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_USERRow) - 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)) - End If - End Sub - - _ - 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)) - End If - End Sub - - _ - 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)) - End If - End Sub - - _ - 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)) - End If - End Sub - - _ - Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) - 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 UserDataSet = New UserDataSet() - 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_USERDataTable" - 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 + _ + Public Delegate Sub TBDD_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USERRowChangeEvent) ''' '''Represents the strongly named DataTable class. @@ -3527,510 +2886,568 @@ Partial Public Class UserDataSet End Class ''' - '''Represents strongly named DataRow class. + '''Represents the strongly named DataTable class. ''' - Partial Public Class TBDD_USERRow - Inherits Global.System.Data.DataRow + _ + Partial Public Class TBDD_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_USERRow) - Private tableTBDD_USER As TBDD_USERDataTable + 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 columnLANGUAGE As Global.System.Data.DataColumn + + Private columnGENERAL_VIEWER As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnWAN_ENVIRONMENT As Global.System.Data.DataColumn + + Private columnLOGGED_IN As Global.System.Data.DataColumn + + Private columnLOGGED_WHERE As Global.System.Data.DataColumn + + Private columnLOG_IN_WHEN As Global.System.Data.DataColumn + + Private columnLOG_OUT_WHEN As Global.System.Data.DataColumn + + Private columnPM_RIGHT_FILE_DELETE As Global.System.Data.DataColumn + + Private columnUSERID_FK_INT_ECM 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 _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) + Public Sub New() + MyBase.New + Me.TableName = "TBDD_USER" + Me.BeginInit + Me.InitClass + Me.EndInit End Sub _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBDD_USER.GUIDColumn) = value - End Set - End Property - - _ - Public Property PRENAME() As String - Get - Try - Return CType(Me(Me.tableTBDD_USER.PRENAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle TBDD_USER ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_USER.PRENAMEColumn) = value - End Set - End Property - - _ - Public Property NAME() As String - Get - Try - Return CType(Me(Me.tableTBDD_USER.NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_USER.NAMEColumn) = value - End Set - End Property - - _ - Public Property USERNAME() As String - Get - Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String) - End Get - Set - Me(Me.tableTBDD_USER.USERNAMEColumn) = value - End Set - End Property - - _ - Public Property SHORTNAME() As String - Get - Try - Return CType(Me(Me.tableTBDD_USER.SHORTNAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORTNAME in Tabelle TBDD_USER ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_USER.SHORTNAMEColumn) = value - End Set - End Property - - _ - Public Property EMAIL() As String - Get - Try - Return CType(Me(Me.tableTBDD_USER.EMAILColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle TBDD_USER ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_USER.EMAILColumn) = value - End Set - End Property - - _ - Public Property LANGUAGE() As String - Get - Return CType(Me(Me.tableTBDD_USER.LANGUAGEColumn),String) - End Get - Set - Me(Me.tableTBDD_USER.LANGUAGEColumn) = value - End Set - End Property - - _ - Public Property GENERAL_VIEWER() As String - Get - Return CType(Me(Me.tableTBDD_USER.GENERAL_VIEWERColumn),String) - End Get - Set - Me(Me.tableTBDD_USER.GENERAL_VIEWERColumn) = value - End Set - End Property - - _ - Public Property COMMENT() As String - Get - Try - Return CType(Me(Me.tableTBDD_USER.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_USER ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_USER.COMMENTColumn) = value - End Set - End Property - - _ - Public Property WAN_ENVIRONMENT() As Boolean - Get - Return CType(Me(Me.tableTBDD_USER.WAN_ENVIRONMENTColumn),Boolean) - End Get - Set - Me(Me.tableTBDD_USER.WAN_ENVIRONMENTColumn) = value - End Set - End Property - - _ - Public Property LOGGED_IN() As Boolean - Get - Return CType(Me(Me.tableTBDD_USER.LOGGED_INColumn),Boolean) - End Get - Set - Me(Me.tableTBDD_USER.LOGGED_INColumn) = value - End Set - End Property - - _ - Public Property LOGGED_WHERE() As String - Get - Try - Return CType(Me(Me.tableTBDD_USER.LOGGED_WHEREColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOGGED_WHERE in Tabelle TBDD_USER ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = value - End Set - End Property - - _ - Public Property LOG_IN_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBDD_USER.LOG_IN_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOG_IN_WHEN in Tabelle TBDD_USER ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = value - End Set - End Property - - _ - Public Property LOG_OUT_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOG_OUT_WHEN in Tabelle TBDD_USER ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = value - End Set - End Property - - _ - Public Property PM_RIGHT_FILE_DELETE() As Boolean - Get - Return CType(Me(Me.tableTBDD_USER.PM_RIGHT_FILE_DELETEColumn),Boolean) - End Get - Set - Me(Me.tableTBDD_USER.PM_RIGHT_FILE_DELETEColumn) = value - End Set - End Property - - _ - Public Property MODULE_GI() As Boolean - Get - Return CType(Me(Me.tableTBDD_USER.MODULE_GIColumn),Boolean) - End Get - Set - Me(Me.tableTBDD_USER.MODULE_GIColumn) = value - End Set - End Property - - _ - Public Property GI_ADMIN() As Boolean - Get - Return CType(Me(Me.tableTBDD_USER.GI_ADMINColumn),Boolean) - End Get - Set - Me(Me.tableTBDD_USER.GI_ADMINColumn) = value - End Set - End Property - - _ - Public Property MODULE_WD_QS() As Boolean - Get - Return CType(Me(Me.tableTBDD_USER.MODULE_WD_QSColumn),Boolean) - End Get - Set - Me(Me.tableTBDD_USER.MODULE_WD_QSColumn) = value - End Set - End Property - - _ - Public Property MODULE_RECORD_ORG() As Boolean - Get - Return CType(Me(Me.tableTBDD_USER.MODULE_RECORD_ORGColumn),Boolean) - End Get - Set - Me(Me.tableTBDD_USER.MODULE_RECORD_ORGColumn) = value - End Set - End Property - - _ - Public Property RECORD_ADMIN() As Boolean - Get - Return CType(Me(Me.tableTBDD_USER.RECORD_ADMINColumn),Boolean) - End Get - Set - Me(Me.tableTBDD_USER.RECORD_ADMINColumn) = value - End Set - End Property - - _ - Public Property USERID_FK_INT_ECM() As Integer - Get - Return CType(Me(Me.tableTBDD_USER.USERID_FK_INT_ECMColumn),Integer) - End Get - Set - Me(Me.tableTBDD_USER.USERID_FK_INT_ECMColumn) = value - End Set - End Property - - _ - Public Property DATE_FORMAT() As String - Get - Return CType(Me(Me.tableTBDD_USER.DATE_FORMATColumn),String) - End Get - Set - Me(Me.tableTBDD_USER.DATE_FORMATColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBDD_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_USER ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBDD_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_USER ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBDD_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_USER ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Function IsPRENAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn) - End Function - - _ - Public Sub SetPRENAMENull() - Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn) - End Function - - _ - Public Sub SetNAMENull() - Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSHORTNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.SHORTNAMEColumn) - End Function - - _ - Public Sub SetSHORTNAMENull() - Me(Me.tableTBDD_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsEMAILNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn) - End Function - - _ - Public Sub SetEMAILNull() - Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.COMMENTColumn) - End Function - - _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBDD_USER.COMMENTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsLOGGED_WHERENull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.LOGGED_WHEREColumn) - End Function - - _ - Public Sub SetLOGGED_WHERENull() - Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsLOG_IN_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.LOG_IN_WHENColumn) - End Function - - _ - Public Sub SetLOG_IN_WHENNull() - Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsLOG_OUT_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.LOG_OUT_WHENColumn) - End Function - - _ - Public Sub SetLOG_OUT_WHENNull() - Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBDD_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_USER_ID") Is Nothing) Then - Return New TBDD_GROUPS_USERRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_GROUPS_USERRow()) + 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 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 + 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 + + _ + Public ReadOnly Property GENERAL_VIEWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGENERAL_VIEWER + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property WAN_ENVIRONMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWAN_ENVIRONMENT + End Get + End Property + + _ + Public ReadOnly Property LOGGED_INColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOGGED_IN + End Get + End Property + + _ + Public ReadOnly Property LOGGED_WHEREColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOGGED_WHERE + End Get + End Property + + _ + Public ReadOnly Property LOG_IN_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOG_IN_WHEN + End Get + End Property + + _ + Public ReadOnly Property LOG_OUT_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOG_OUT_WHEN + End Get + End Property + + _ + Public ReadOnly Property PM_RIGHT_FILE_DELETEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPM_RIGHT_FILE_DELETE + End Get + End Property + + _ + Public ReadOnly Property USERID_FK_INT_ECMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERID_FK_INT_ECM + 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 + 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_USERRow + Get + Return CType(Me.Rows(index),TBDD_USERRow) + End Get + End Property + + _ + Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler + + _ + Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler + + _ + Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler + + _ + Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow) + 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 GENERAL_VIEWER As String, _ + ByVal COMMENT As String, _ + ByVal WAN_ENVIRONMENT As Boolean, _ + ByVal LOGGED_IN As Boolean, _ + ByVal LOGGED_WHERE As String, _ + ByVal LOG_IN_WHEN As Date, _ + ByVal LOG_OUT_WHEN As Date, _ + ByVal PM_RIGHT_FILE_DELETE As Boolean, _ + ByVal USERID_FK_INT_ECM As Integer, _ + 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, GENERAL_VIEWER, COMMENT, WAN_ENVIRONMENT, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, PM_RIGHT_FILE_DELETE, USERID_FK_INT_ECM, 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 GetTBDD_USER_MODULESRows() As TBDD_USER_MODULESRow() - If (Me.Table.ChildRelations("FK_TBDD_USER_MODULES2_USER_ID") Is Nothing) Then - Return New TBDD_USER_MODULESRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_USER_MODULES2_USER_ID")),TBDD_USER_MODULESRow()) - End If + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USERRow) End Function _ - Public Function GetTBDD_CLIENT_USERRows() As TBDD_CLIENT_USERRow() - If (Me.Table.ChildRelations("FK_TBDD_CLIENT_USER_USER_ID") Is Nothing) Then - Return New TBDD_CLIENT_USERRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_CLIENT_USER_USER_ID")),TBDD_CLIENT_USERRow()) + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_USERDataTable() + 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.columnGENERAL_VIEWER = MyBase.Columns("GENERAL_VIEWER") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnWAN_ENVIRONMENT = MyBase.Columns("WAN_ENVIRONMENT") + Me.columnLOGGED_IN = MyBase.Columns("LOGGED_IN") + Me.columnLOGGED_WHERE = MyBase.Columns("LOGGED_WHERE") + Me.columnLOG_IN_WHEN = MyBase.Columns("LOG_IN_WHEN") + Me.columnLOG_OUT_WHEN = MyBase.Columns("LOG_OUT_WHEN") + Me.columnPM_RIGHT_FILE_DELETE = MyBase.Columns("PM_RIGHT_FILE_DELETE") + Me.columnUSERID_FK_INT_ECM = MyBase.Columns("USERID_FK_INT_ECM") + 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 + + _ + 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.columnGENERAL_VIEWER = New Global.System.Data.DataColumn("GENERAL_VIEWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGENERAL_VIEWER) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnWAN_ENVIRONMENT = New Global.System.Data.DataColumn("WAN_ENVIRONMENT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWAN_ENVIRONMENT) + Me.columnLOGGED_IN = New Global.System.Data.DataColumn("LOGGED_IN", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOGGED_IN) + Me.columnLOGGED_WHERE = New Global.System.Data.DataColumn("LOGGED_WHERE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOGGED_WHERE) + Me.columnLOG_IN_WHEN = New Global.System.Data.DataColumn("LOG_IN_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOG_IN_WHEN) + Me.columnLOG_OUT_WHEN = New Global.System.Data.DataColumn("LOG_OUT_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOG_OUT_WHEN) + Me.columnPM_RIGHT_FILE_DELETE = New Global.System.Data.DataColumn("PM_RIGHT_FILE_DELETE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPM_RIGHT_FILE_DELETE) + Me.columnUSERID_FK_INT_ECM = New Global.System.Data.DataColumn("USERID_FK_INT_ECM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERID_FK_INT_ECM) + 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) + 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.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.columnGENERAL_VIEWER.AllowDBNull = false + Me.columnGENERAL_VIEWER.MaxLength = 30 + Me.columnCOMMENT.MaxLength = 500 + Me.columnWAN_ENVIRONMENT.AllowDBNull = false + Me.columnLOGGED_IN.AllowDBNull = false + Me.columnLOGGED_WHERE.MaxLength = 50 + Me.columnPM_RIGHT_FILE_DELETE.AllowDBNull = false + Me.columnUSERID_FK_INT_ECM.AllowDBNull = false + Me.columnDATE_FORMAT.AllowDBNull = false + Me.columnDATE_FORMAT.MaxLength = 10 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + 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_USERRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_USERRow) + 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)) End If + End Sub + + _ + 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)) + End If + End Sub + + _ + 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)) + End If + End Sub + + _ + 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)) + End If + End Sub + + _ + Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) + 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 UserDataSet = New UserDataSet() + 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_USERDataTable" + 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 @@ -5372,39 +4789,456 @@ Partial Public Class UserDataSet End Class ''' - '''Row event argument class + '''Represents strongly named DataRow class. ''' - _ - Public Class TBDD_USERRowChangeEvent - Inherits Global.System.EventArgs + Partial Public Class TBDD_USERRow + Inherits Global.System.Data.DataRow - Private eventRow As TBDD_USERRow - - Private eventAction As Global.System.Data.DataRowAction + Private tableTBDD_USER As TBDD_USERDataTable _ - Public Sub New(ByVal row As TBDD_USERRow, 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.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) End Sub _ - Public ReadOnly Property Row() As TBDD_USERRow + Public Property GUID() As Integer Get - Return Me.eventRow + Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer) End Get + Set + Me(Me.tableTBDD_USER.GUIDColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property PRENAME() As String Get - Return Me.eventAction + Try + Return CType(Me(Me.tableTBDD_USER.PRENAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle TBDD_USER ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBDD_USER.PRENAMEColumn) = value + End Set End Property + + _ + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.NAMEColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String) + End Get + Set + Me(Me.tableTBDD_USER.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property SHORTNAME() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.SHORTNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORTNAME in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.SHORTNAMEColumn) = value + End Set + End Property + + _ + Public Property EMAIL() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.EMAILColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.EMAILColumn) = value + End Set + End Property + + _ + Public Property LANGUAGE() As String + Get + Return CType(Me(Me.tableTBDD_USER.LANGUAGEColumn),String) + End Get + Set + Me(Me.tableTBDD_USER.LANGUAGEColumn) = value + End Set + End Property + + _ + Public Property GENERAL_VIEWER() As String + Get + Return CType(Me(Me.tableTBDD_USER.GENERAL_VIEWERColumn),String) + End Get + Set + Me(Me.tableTBDD_USER.GENERAL_VIEWERColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.COMMENTColumn) = value + End Set + End Property + + _ + Public Property WAN_ENVIRONMENT() As Boolean + Get + Return CType(Me(Me.tableTBDD_USER.WAN_ENVIRONMENTColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_USER.WAN_ENVIRONMENTColumn) = value + End Set + End Property + + _ + Public Property LOGGED_IN() As Boolean + Get + Return CType(Me(Me.tableTBDD_USER.LOGGED_INColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_USER.LOGGED_INColumn) = value + End Set + End Property + + _ + Public Property LOGGED_WHERE() As String + Get + Try + Return CType(Me(Me.tableTBDD_USER.LOGGED_WHEREColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOGGED_WHERE in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = value + End Set + End Property + + _ + Public Property LOG_IN_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.LOG_IN_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOG_IN_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = value + End Set + End Property + + _ + Public Property LOG_OUT_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOG_OUT_WHEN in Tabelle TBDD_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = value + End Set + End Property + + _ + Public Property PM_RIGHT_FILE_DELETE() As Boolean + Get + Return CType(Me(Me.tableTBDD_USER.PM_RIGHT_FILE_DELETEColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_USER.PM_RIGHT_FILE_DELETEColumn) = value + End Set + End Property + + _ + Public Property USERID_FK_INT_ECM() As Integer + Get + Return CType(Me(Me.tableTBDD_USER.USERID_FK_INT_ECMColumn),Integer) + End Get + Set + Me(Me.tableTBDD_USER.USERID_FK_INT_ECMColumn) = value + End Set + End Property + + _ + Public Property DATE_FORMAT() As String + Get + Return CType(Me(Me.tableTBDD_USER.DATE_FORMATColumn),String) + End Get + Set + Me(Me.tableTBDD_USER.DATE_FORMATColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_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_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_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_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_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_USER ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsPRENAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn) + End Function + + _ + Public Sub SetPRENAMENull() + Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn) + End Function + + _ + Public Sub SetNAMENull() + Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSHORTNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.SHORTNAMEColumn) + End Function + + _ + Public Sub SetSHORTNAMENull() + Me(Me.tableTBDD_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEMAILNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn) + End Function + + _ + Public Sub SetEMAILNull() + Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_USER.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLOGGED_WHERENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.LOGGED_WHEREColumn) + End Function + + _ + Public Sub SetLOGGED_WHERENull() + Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLOG_IN_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.LOG_IN_WHENColumn) + End Function + + _ + Public Sub SetLOG_IN_WHENNull() + Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLOG_OUT_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.LOG_OUT_WHENColumn) + End Function + + _ + Public Sub SetLOG_OUT_WHENNull() + Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_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_USER_ID") Is Nothing) Then + Return New TBDD_GROUPS_USERRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_GROUPS_USERRow()) + End If + End Function + + _ + Public Function GetTBDD_USER_MODULESRows() As TBDD_USER_MODULESRow() + If (Me.Table.ChildRelations("FK_TBDD_USER_MODULES2_USER_ID") Is Nothing) Then + Return New TBDD_USER_MODULESRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_USER_MODULES2_USER_ID")),TBDD_USER_MODULESRow()) + End If + End Function + + _ + Public Function GetTBDD_CLIENT_USERRows() As TBDD_CLIENT_USERRow() + If (Me.Table.ChildRelations("FK_TBDD_CLIENT_USER_USER_ID") Is Nothing) Then + Return New TBDD_CLIENT_USERRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_CLIENT_USER_USER_ID")),TBDD_CLIENT_USERRow()) + End If + End Function End Class ''' @@ -5622,1068 +5456,46 @@ Partial Public Class UserDataSet End Get End Property End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_USERRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_USERRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_USERRow + 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 UserDataSetTableAdapters - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBDD_USERTableAdapter - 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_USER" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") - tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") - tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") - tableMapping.ColumnMappings.Add("GENERAL_VIEWER", "GENERAL_VIEWER") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("WAN_ENVIRONMENT", "WAN_ENVIRONMENT") - tableMapping.ColumnMappings.Add("LOGGED_IN", "LOGGED_IN") - tableMapping.ColumnMappings.Add("LOGGED_WHERE", "LOGGED_WHERE") - tableMapping.ColumnMappings.Add("LOG_IN_WHEN", "LOG_IN_WHEN") - tableMapping.ColumnMappings.Add("LOG_OUT_WHEN", "LOG_OUT_WHEN") - tableMapping.ColumnMappings.Add("PM_RIGHT_FILE_DELETE", "PM_RIGHT_FILE_DELETE") - tableMapping.ColumnMappings.Add("MODULE_GI", "MODULE_GI") - tableMapping.ColumnMappings.Add("GI_ADMIN", "GI_ADMIN") - tableMapping.ColumnMappings.Add("MODULE_WD_QS", "MODULE_WD_QS") - tableMapping.ColumnMappings.Add("MODULE_RECORD_ORG", "MODULE_RECORD_ORG") - tableMapping.ColumnMappings.Add("RECORD_ADMIN", "RECORD_ADMIN") - tableMapping.ColumnMappings.Add("USERID_FK_INT_ECM", "USERID_FK_INT_ECM") - tableMapping.ColumnMappings.Add("DATE_FORMAT", "DATE_FORMAT") - 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_USER] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_PRENAME = "& _ - "1 AND [PRENAME] IS NULL) OR ([PRENAME] = @Original_PRENAME)) AND ((@IsNull_NAME "& _ - "= 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([USERNAME] = @Origina"& _ - "l_USERNAME) AND ((@IsNull_SHORTNAME = 1 AND [SHORTNAME] IS NULL) OR ([SHORTNAME]"& _ - " = @Original_SHORTNAME)) AND ((@IsNull_EMAIL = 1 AND [EMAIL] IS NULL) OR ([EMAIL"& _ - "] = @Original_EMAIL)) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([GENERAL_VIEWER"& _ - "] = @Original_GENERAL_VIEWER) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) O"& _ - "R ([COMMENT] = @Original_COMMENT)) AND ([WAN_ENVIRONMENT] = @Original_WAN_ENVIRO"& _ - "NMENT) AND ([LOGGED_IN] = @Original_LOGGED_IN) AND ((@IsNull_LOGGED_WHERE = 1 AN"& _ - "D [LOGGED_WHERE] IS NULL) OR ([LOGGED_WHERE] = @Original_LOGGED_WHERE)) AND ((@I"& _ - "sNull_LOG_IN_WHEN = 1 AND [LOG_IN_WHEN] IS NULL) OR ([LOG_IN_WHEN] = @Original_L"& _ - "OG_IN_WHEN)) AND ((@IsNull_LOG_OUT_WHEN = 1 AND [LOG_OUT_WHEN] IS NULL) OR ([LOG"& _ - "_OUT_WHEN] = @Original_LOG_OUT_WHEN)) AND ([PM_RIGHT_FILE_DELETE] = @Original_PM"& _ - "_RIGHT_FILE_DELETE) AND ([MODULE_GI] = @Original_MODULE_GI) AND ([GI_ADMIN] = @O"& _ - "riginal_GI_ADMIN) AND ([MODULE_WD_QS] = @Original_MODULE_WD_QS) AND ([MODULE_REC"& _ - "ORD_ORG] = @Original_MODULE_RECORD_ORG) AND ([RECORD_ADMIN] = @Original_RECORD_A"& _ - "DMIN) AND ([USERID_FK_INT_ECM] = @Original_USERID_FK_INT_ECM) AND ([DATE_FORMAT]"& _ - " = @Original_DATE_FORMAT) AND ([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 NUL"& _ - "L) OR ([CHANGED_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_PRENAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRENAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", 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_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORTNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORTNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EMAIL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GENERAL_VIEWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GENERAL_VIEWER", 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("@Original_WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOGGED_IN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_IN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LOGGED_WHERE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_WHERE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOGGED_WHERE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_WHERE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LOG_IN_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_IN_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOG_IN_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_IN_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LOG_OUT_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_OUT_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOG_OUT_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_OUT_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PM_RIGHT_FILE_DELETE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_RIGHT_FILE_DELETE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MODULE_GI", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_GI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GI_ADMIN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GI_ADMIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MODULE_WD_QS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_WD_QS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MODULE_RECORD_ORG", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_RECORD_ORG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RECORD_ADMIN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ADMIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERID_FK_INT_ECM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERID_FK_INT_ECM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATE_FORMAT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", Global.System.Data.DataRowVersion.Original, false, 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_USER] ([PRENAME], [NAME], [USERNAME], [SHORTNAME], [EMAIL], [LA"& _ - "NGUAGE], [GENERAL_VIEWER], [COMMENT], [WAN_ENVIRONMENT], [LOGGED_IN], [LOGGED_WH"& _ - "ERE], [LOG_IN_WHEN], [LOG_OUT_WHEN], [PM_RIGHT_FILE_DELETE], [MODULE_GI], [GI_AD"& _ - "MIN], [MODULE_WD_QS], [MODULE_RECORD_ORG], [RECORD_ADMIN], [USERID_FK_INT_ECM], "& _ - "[DATE_FORMAT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES "& _ - "(@PRENAME, @NAME, @USERNAME, @SHORTNAME, @EMAIL, @LANGUAGE, @GENERAL_VIEWER, @CO"& _ - "MMENT, @WAN_ENVIRONMENT, @LOGGED_IN, @LOGGED_WHERE, @LOG_IN_WHEN, @LOG_OUT_WHEN,"& _ - " @PM_RIGHT_FILE_DELETE, @MODULE_GI, @GI_ADMIN, @MODULE_WD_QS, @MODULE_RECORD_ORG"& _ - ", @RECORD_ADMIN, @USERID_FK_INT_ECM, @DATE_FORMAT, @ADDED_WHO, @ADDED_WHEN, @CHA"& _ - "NGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, SHORTNAME, EMAI"& _ - "L, LANGUAGE, GENERAL_VIEWER, COMMENT, WAN_ENVIRONMENT, LOGGED_IN, LOGGED_WHERE, "& _ - "LOG_IN_WHEN, LOG_OUT_WHEN, PM_RIGHT_FILE_DELETE, MODULE_GI, GI_ADMIN, MODULE_WD_"& _ - "QS, MODULE_RECORD_ORG, RECORD_ADMIN, USERID_FK_INT_ECM, DATE_FORMAT, ADDED_WHO, "& _ - "ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = SCOPE_IDENTIT"& _ - "Y())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - 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("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GENERAL_VIEWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GENERAL_VIEWER", 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("@WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOGGED_IN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_IN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOGGED_WHERE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_WHERE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_IN_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_IN_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_OUT_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_OUT_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_RIGHT_FILE_DELETE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_RIGHT_FILE_DELETE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_GI", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_GI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GI_ADMIN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GI_ADMIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_WD_QS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_WD_QS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_RECORD_ORG", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_RECORD_ORG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ADMIN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ADMIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERID_FK_INT_ECM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERID_FK_INT_ECM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATE_FORMAT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", 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_USER] SET [PRENAME] = @PRENAME, [NAME] = @NAME, [USERNAME] = @USERNA"& _ - "ME, [SHORTNAME] = @SHORTNAME, [EMAIL] = @EMAIL, [LANGUAGE] = @LANGUAGE, [GENERAL"& _ - "_VIEWER] = @GENERAL_VIEWER, [COMMENT] = @COMMENT, [WAN_ENVIRONMENT] = @WAN_ENVIR"& _ - "ONMENT, [LOGGED_IN] = @LOGGED_IN, [LOGGED_WHERE] = @LOGGED_WHERE, [LOG_IN_WHEN] "& _ - "= @LOG_IN_WHEN, [LOG_OUT_WHEN] = @LOG_OUT_WHEN, [PM_RIGHT_FILE_DELETE] = @PM_RIG"& _ - "HT_FILE_DELETE, [MODULE_GI] = @MODULE_GI, [GI_ADMIN] = @GI_ADMIN, [MODULE_WD_QS]"& _ - " = @MODULE_WD_QS, [MODULE_RECORD_ORG] = @MODULE_RECORD_ORG, [RECORD_ADMIN] = @RE"& _ - "CORD_ADMIN, [USERID_FK_INT_ECM] = @USERID_FK_INT_ECM, [DATE_FORMAT] = @DATE_FORM"& _ - "AT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANG"& _ - "ED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@I"& _ - "sNull_PRENAME = 1 AND [PRENAME] IS NULL) OR ([PRENAME] = @Original_PRENAME)) AND"& _ - " ((@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([USER"& _ - "NAME] = @Original_USERNAME) AND ((@IsNull_SHORTNAME = 1 AND [SHORTNAME] IS NULL)"& _ - " OR ([SHORTNAME] = @Original_SHORTNAME)) AND ((@IsNull_EMAIL = 1 AND [EMAIL] IS "& _ - "NULL) OR ([EMAIL] = @Original_EMAIL)) AND ([LANGUAGE] = @Original_LANGUAGE) AND "& _ - "([GENERAL_VIEWER] = @Original_GENERAL_VIEWER) AND ((@IsNull_COMMENT = 1 AND [COM"& _ - "MENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([WAN_ENVIRONMENT] = @Ori"& _ - "ginal_WAN_ENVIRONMENT) AND ([LOGGED_IN] = @Original_LOGGED_IN) AND ((@IsNull_LOG"& _ - "GED_WHERE = 1 AND [LOGGED_WHERE] IS NULL) OR ([LOGGED_WHERE] = @Original_LOGGED_"& _ - "WHERE)) AND ((@IsNull_LOG_IN_WHEN = 1 AND [LOG_IN_WHEN] IS NULL) OR ([LOG_IN_WHE"& _ - "N] = @Original_LOG_IN_WHEN)) AND ((@IsNull_LOG_OUT_WHEN = 1 AND [LOG_OUT_WHEN] I"& _ - "S NULL) OR ([LOG_OUT_WHEN] = @Original_LOG_OUT_WHEN)) AND ([PM_RIGHT_FILE_DELETE"& _ - "] = @Original_PM_RIGHT_FILE_DELETE) AND ([MODULE_GI] = @Original_MODULE_GI) AND "& _ - "([GI_ADMIN] = @Original_GI_ADMIN) AND ([MODULE_WD_QS] = @Original_MODULE_WD_QS) "& _ - "AND ([MODULE_RECORD_ORG] = @Original_MODULE_RECORD_ORG) AND ([RECORD_ADMIN] = @O"& _ - "riginal_RECORD_ADMIN) AND ([USERID_FK_INT_ECM] = @Original_USERID_FK_INT_ECM) AN"& _ - "D ([DATE_FORMAT] = @Original_DATE_FORMAT) AND ([ADDED_WHO] = @Original_ADDED_WHO"& _ - ") AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Ori"& _ - "ginal_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ("& _ - "[CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHAN"& _ - "GED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID,"& _ - " PRENAME, NAME, USERNAME, SHORTNAME, EMAIL, LANGUAGE, GENERAL_VIEWER, COMMENT, W"& _ - "AN_ENVIRONMENT, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, PM_RIGHT_FIL"& _ - "E_DELETE, MODULE_GI, GI_ADMIN, MODULE_WD_QS, MODULE_RECORD_ORG, RECORD_ADMIN, US"& _ - "ERID_FK_INT_ECM, DATE_FORMAT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN F"& _ - "ROM TBDD_USER WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", 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("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GENERAL_VIEWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GENERAL_VIEWER", 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("@WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOGGED_IN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_IN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOGGED_WHERE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_WHERE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_IN_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_IN_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_OUT_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_OUT_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_RIGHT_FILE_DELETE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_RIGHT_FILE_DELETE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_GI", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_GI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GI_ADMIN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GI_ADMIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_WD_QS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_WD_QS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_RECORD_ORG", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_RECORD_ORG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ADMIN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ADMIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERID_FK_INT_ECM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERID_FK_INT_ECM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATE_FORMAT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", 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_PRENAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRENAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", 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_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORTNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORTNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EMAIL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GENERAL_VIEWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GENERAL_VIEWER", 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_WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOGGED_IN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_IN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LOGGED_WHERE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_WHERE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOGGED_WHERE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_WHERE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LOG_IN_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_IN_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOG_IN_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_IN_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LOG_OUT_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_OUT_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOG_OUT_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_OUT_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PM_RIGHT_FILE_DELETE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_RIGHT_FILE_DELETE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MODULE_GI", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_GI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GI_ADMIN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GI_ADMIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MODULE_WD_QS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_WD_QS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MODULE_RECORD_ORG", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_RECORD_ORG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_RECORD_ADMIN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ADMIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERID_FK_INT_ECM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERID_FK_INT_ECM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATE_FORMAT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", 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_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_USERDataTable) 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_USERDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As UserDataSet.TBDD_USERDataTable = New UserDataSet.TBDD_USERDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_USERDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_USER") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete( _ - ByVal Original_GUID As Integer, _ - ByVal Original_PRENAME As String, _ - ByVal Original_NAME As String, _ - ByVal Original_USERNAME As String, _ - ByVal Original_SHORTNAME As String, _ - ByVal Original_EMAIL As String, _ - ByVal Original_LANGUAGE As String, _ - ByVal Original_GENERAL_VIEWER As String, _ - ByVal Original_COMMENT As String, _ - ByVal Original_WAN_ENVIRONMENT As Boolean, _ - ByVal Original_LOGGED_IN As Boolean, _ - ByVal Original_LOGGED_WHERE As String, _ - ByVal Original_LOG_IN_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_LOG_OUT_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_PM_RIGHT_FILE_DELETE As Boolean, _ - ByVal Original_MODULE_GI As Boolean, _ - ByVal Original_GI_ADMIN As Boolean, _ - ByVal Original_MODULE_WD_QS As Boolean, _ - ByVal Original_MODULE_RECORD_ORG As Boolean, _ - ByVal Original_RECORD_ADMIN As Boolean, _ - ByVal Original_USERID_FK_INT_ECM As Integer, _ - ByVal Original_DATE_FORMAT 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_PRENAME 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_PRENAME,String) - End If - If (Original_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_NAME,String) - End If - If (Original_USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_USERNAME") - Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_USERNAME,String) - End If - If (Original_SHORTNAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_SHORTNAME,String) - End If - If (Original_EMAIL Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_EMAIL,String) - End If - If (Original_LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_LANGUAGE") - Else - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_LANGUAGE,String) - End If - 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) - 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_MODULE_GI,Boolean) - Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_GI_ADMIN,Boolean) - Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_MODULE_WD_QS,Boolean) - Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_MODULE_RECORD_ORG,Boolean) - Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_RECORD_ADMIN,Boolean) - Me.Adapter.DeleteCommand.Parameters(28).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(29).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(30).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(31).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(31).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(32).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(33).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(34).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(33).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(34).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(35).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(36).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(35).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(36).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 GENERAL_VIEWER As String, _ - ByVal COMMENT As String, _ - ByVal WAN_ENVIRONMENT As Boolean, _ - ByVal LOGGED_IN As Boolean, _ - ByVal LOGGED_WHERE As String, _ - ByVal LOG_IN_WHEN As Global.System.Nullable(Of Date), _ - ByVal LOG_OUT_WHEN As Global.System.Nullable(Of Date), _ - ByVal PM_RIGHT_FILE_DELETE As Boolean, _ - ByVal MODULE_GI As Boolean, _ - ByVal GI_ADMIN As Boolean, _ - ByVal MODULE_WD_QS As Boolean, _ - ByVal MODULE_RECORD_ORG As Boolean, _ - ByVal RECORD_ADMIN As Boolean, _ - ByVal USERID_FK_INT_ECM As Integer, _ - ByVal DATE_FORMAT 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 (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 (GENERAL_VIEWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("GENERAL_VIEWER") - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(GENERAL_VIEWER,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(COMMENT,String) - End If - Me.Adapter.InsertCommand.Parameters(8).Value = CType(WAN_ENVIRONMENT,Boolean) - Me.Adapter.InsertCommand.Parameters(9).Value = CType(LOGGED_IN,Boolean) - If (LOGGED_WHERE Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(LOGGED_WHERE,String) - End If - If (LOG_IN_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(11).Value = CType(LOG_IN_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value - End If - If (LOG_OUT_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(12).Value = CType(LOG_OUT_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value - End If - Me.Adapter.InsertCommand.Parameters(13).Value = CType(PM_RIGHT_FILE_DELETE,Boolean) - Me.Adapter.InsertCommand.Parameters(14).Value = CType(MODULE_GI,Boolean) - Me.Adapter.InsertCommand.Parameters(15).Value = CType(GI_ADMIN,Boolean) - Me.Adapter.InsertCommand.Parameters(16).Value = CType(MODULE_WD_QS,Boolean) - Me.Adapter.InsertCommand.Parameters(17).Value = CType(MODULE_RECORD_ORG,Boolean) - Me.Adapter.InsertCommand.Parameters(18).Value = CType(RECORD_ADMIN,Boolean) - Me.Adapter.InsertCommand.Parameters(19).Value = CType(USERID_FK_INT_ECM,Integer) - If (DATE_FORMAT Is Nothing) Then - Throw New Global.System.ArgumentNullException("DATE_FORMAT") - Else - Me.Adapter.InsertCommand.Parameters(20).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(21).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(22).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(23).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(24).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(24).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 PRENAME As String, _ - ByVal NAME As String, _ - ByVal USERNAME As String, _ - ByVal SHORTNAME As String, _ - ByVal EMAIL As String, _ - ByVal LANGUAGE As String, _ - ByVal GENERAL_VIEWER As String, _ - ByVal COMMENT As String, _ - ByVal WAN_ENVIRONMENT As Boolean, _ - ByVal LOGGED_IN As Boolean, _ - ByVal LOGGED_WHERE As String, _ - ByVal LOG_IN_WHEN As Global.System.Nullable(Of Date), _ - ByVal LOG_OUT_WHEN As Global.System.Nullable(Of Date), _ - ByVal PM_RIGHT_FILE_DELETE As Boolean, _ - ByVal MODULE_GI As Boolean, _ - ByVal GI_ADMIN As Boolean, _ - ByVal MODULE_WD_QS As Boolean, _ - ByVal MODULE_RECORD_ORG As Boolean, _ - ByVal RECORD_ADMIN As Boolean, _ - ByVal USERID_FK_INT_ECM As Integer, _ - ByVal DATE_FORMAT 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_PRENAME As String, _ - ByVal Original_NAME As String, _ - ByVal Original_USERNAME As String, _ - ByVal Original_SHORTNAME As String, _ - ByVal Original_EMAIL As String, _ - ByVal Original_LANGUAGE As String, _ - ByVal Original_GENERAL_VIEWER As String, _ - ByVal Original_COMMENT As String, _ - ByVal Original_WAN_ENVIRONMENT As Boolean, _ - ByVal Original_LOGGED_IN As Boolean, _ - ByVal Original_LOGGED_WHERE As String, _ - ByVal Original_LOG_IN_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_LOG_OUT_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_PM_RIGHT_FILE_DELETE As Boolean, _ - ByVal Original_MODULE_GI As Boolean, _ - ByVal Original_GI_ADMIN As Boolean, _ - ByVal Original_MODULE_WD_QS As Boolean, _ - ByVal Original_MODULE_RECORD_ORG As Boolean, _ - ByVal Original_RECORD_ADMIN As Boolean, _ - ByVal Original_USERID_FK_INT_ECM As Integer, _ - ByVal Original_DATE_FORMAT 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 - 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 (GENERAL_VIEWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("GENERAL_VIEWER") - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GENERAL_VIEWER,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(COMMENT,String) - End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(WAN_ENVIRONMENT,Boolean) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(LOGGED_IN,Boolean) - If (LOGGED_WHERE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(LOGGED_WHERE,String) - End If - If (LOG_IN_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(LOG_IN_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value - End If - If (LOG_OUT_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(LOG_OUT_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(PM_RIGHT_FILE_DELETE,Boolean) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(MODULE_GI,Boolean) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(GI_ADMIN,Boolean) - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(MODULE_WD_QS,Boolean) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(MODULE_RECORD_ORG,Boolean) - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(RECORD_ADMIN,Boolean) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(USERID_FK_INT_ECM,Integer) - If (DATE_FORMAT Is Nothing) Then - Throw New Global.System.ArgumentNullException("DATE_FORMAT") - Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(DATE_FORMAT,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_GUID,Integer) - If (Original_PRENAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_PRENAME,String) - End If - If (Original_NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_NAME,String) - End If - If (Original_USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_USERNAME") - Else - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_USERNAME,String) - End If - If (Original_SHORTNAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_SHORTNAME,String) - End If - If (Original_EMAIL Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_EMAIL,String) - End If - If (Original_LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_LANGUAGE") - Else - Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_LANGUAGE,String) - End If - If (Original_GENERAL_VIEWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_GENERAL_VIEWER") - Else - Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_GENERAL_VIEWER,String) - End If - If (Original_COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_COMMENT,String) - End If - Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_WAN_ENVIRONMENT,Boolean) - Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_LOGGED_IN,Boolean) - If (Original_LOGGED_WHERE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_LOGGED_WHERE,String) - End If - If (Original_LOG_IN_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_LOG_IN_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value - End If - If (Original_LOG_OUT_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_LOG_OUT_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_PM_RIGHT_FILE_DELETE,Boolean) - Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_MODULE_GI,Boolean) - Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_GI_ADMIN,Boolean) - Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_MODULE_WD_QS,Boolean) - Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_MODULE_RECORD_ORG,Boolean) - Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_RECORD_ADMIN,Boolean) - Me.Adapter.UpdateCommand.Parameters(53).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.UpdateCommand.Parameters(54).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.UpdateCommand.Parameters(55).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(56).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(62).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 PRENAME As String, _ - ByVal NAME As String, _ - ByVal USERNAME As String, _ - ByVal SHORTNAME As String, _ - ByVal EMAIL As String, _ - ByVal LANGUAGE As String, _ - ByVal GENERAL_VIEWER As String, _ - ByVal COMMENT As String, _ - ByVal WAN_ENVIRONMENT As Boolean, _ - ByVal LOGGED_IN As Boolean, _ - ByVal LOGGED_WHERE As String, _ - ByVal LOG_IN_WHEN As Global.System.Nullable(Of Date), _ - ByVal LOG_OUT_WHEN As Global.System.Nullable(Of Date), _ - ByVal PM_RIGHT_FILE_DELETE As Boolean, _ - ByVal MODULE_GI As Boolean, _ - ByVal GI_ADMIN As Boolean, _ - ByVal MODULE_WD_QS As Boolean, _ - ByVal MODULE_RECORD_ORG As Boolean, _ - ByVal RECORD_ADMIN As Boolean, _ - ByVal USERID_FK_INT_ECM As Integer, _ - ByVal DATE_FORMAT 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_PRENAME As String, _ - ByVal Original_NAME As String, _ - ByVal Original_USERNAME As String, _ - ByVal Original_SHORTNAME As String, _ - ByVal Original_EMAIL As String, _ - ByVal Original_LANGUAGE As String, _ - ByVal Original_GENERAL_VIEWER As String, _ - ByVal Original_COMMENT As String, _ - ByVal Original_WAN_ENVIRONMENT As Boolean, _ - ByVal Original_LOGGED_IN As Boolean, _ - ByVal Original_LOGGED_WHERE As String, _ - ByVal Original_LOG_IN_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_LOG_OUT_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_PM_RIGHT_FILE_DELETE As Boolean, _ - ByVal Original_MODULE_GI As Boolean, _ - ByVal Original_GI_ADMIN As Boolean, _ - ByVal Original_MODULE_WD_QS As Boolean, _ - ByVal Original_MODULE_RECORD_ORG As Boolean, _ - ByVal Original_RECORD_ADMIN As Boolean, _ - ByVal Original_USERID_FK_INT_ECM As Integer, _ - ByVal Original_DATE_FORMAT 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(PRENAME, NAME, USERNAME, SHORTNAME, EMAIL, LANGUAGE, GENERAL_VIEWER, COMMENT, WAN_ENVIRONMENT, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, PM_RIGHT_FILE_DELETE, MODULE_GI, GI_ADMIN, MODULE_WD_QS, MODULE_RECORD_ORG, RECORD_ADMIN, USERID_FK_INT_ECM, DATE_FORMAT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_PRENAME, Original_NAME, Original_USERNAME, Original_SHORTNAME, Original_EMAIL, Original_LANGUAGE, Original_GENERAL_VIEWER, Original_COMMENT, Original_WAN_ENVIRONMENT, Original_LOGGED_IN, Original_LOGGED_WHERE, Original_LOG_IN_WHEN, Original_LOG_OUT_WHEN, Original_PM_RIGHT_FILE_DELETE, Original_MODULE_GI, Original_GI_ADMIN, Original_MODULE_WD_QS, Original_MODULE_RECORD_ORG, Original_RECORD_ADMIN, Original_USERID_FK_INT_ECM, Original_DATE_FORMAT, 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. ''' @@ -7441,11 +6253,18 @@ Namespace UserDataSetTableAdapters _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + 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 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.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("@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 FillByGroupId(ByVal dataTable As UserDataSet.TBDD_GROUPS_USERDataTable, ByVal GROUP_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GROUP_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 GetDataByGroupId(ByVal GROUP_ID As Integer) As UserDataSet.TBDD_GROUPS_USERDataTable + 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.Fill(dataTable) + Return dataTable + End Function + _ @@ -10156,6 +9001,1014 @@ Namespace UserDataSetTableAdapters End Function End Class + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_USERTableAdapter + 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_USER" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") + tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") + tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") + tableMapping.ColumnMappings.Add("GENERAL_VIEWER", "GENERAL_VIEWER") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("WAN_ENVIRONMENT", "WAN_ENVIRONMENT") + tableMapping.ColumnMappings.Add("LOGGED_IN", "LOGGED_IN") + tableMapping.ColumnMappings.Add("LOGGED_WHERE", "LOGGED_WHERE") + tableMapping.ColumnMappings.Add("LOG_IN_WHEN", "LOG_IN_WHEN") + tableMapping.ColumnMappings.Add("LOG_OUT_WHEN", "LOG_OUT_WHEN") + tableMapping.ColumnMappings.Add("PM_RIGHT_FILE_DELETE", "PM_RIGHT_FILE_DELETE") + tableMapping.ColumnMappings.Add("USERID_FK_INT_ECM", "USERID_FK_INT_ECM") + tableMapping.ColumnMappings.Add("DATE_FORMAT", "DATE_FORMAT") + 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_USER] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_PRENAME = "& _ + "1 AND [PRENAME] IS NULL) OR ([PRENAME] = @Original_PRENAME)) AND ((@IsNull_NAME "& _ + "= 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([USERNAME] = @Origina"& _ + "l_USERNAME) AND ((@IsNull_SHORTNAME = 1 AND [SHORTNAME] IS NULL) OR ([SHORTNAME]"& _ + " = @Original_SHORTNAME)) AND ((@IsNull_EMAIL = 1 AND [EMAIL] IS NULL) OR ([EMAIL"& _ + "] = @Original_EMAIL)) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([GENERAL_VIEWER"& _ + "] = @Original_GENERAL_VIEWER) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) O"& _ + "R ([COMMENT] = @Original_COMMENT)) AND ([WAN_ENVIRONMENT] = @Original_WAN_ENVIRO"& _ + "NMENT) AND ([LOGGED_IN] = @Original_LOGGED_IN) AND ((@IsNull_LOGGED_WHERE = 1 AN"& _ + "D [LOGGED_WHERE] IS NULL) OR ([LOGGED_WHERE] = @Original_LOGGED_WHERE)) AND ((@I"& _ + "sNull_LOG_IN_WHEN = 1 AND [LOG_IN_WHEN] IS NULL) OR ([LOG_IN_WHEN] = @Original_L"& _ + "OG_IN_WHEN)) AND ((@IsNull_LOG_OUT_WHEN = 1 AND [LOG_OUT_WHEN] IS NULL) OR ([LOG"& _ + "_OUT_WHEN] = @Original_LOG_OUT_WHEN)) AND ([PM_RIGHT_FILE_DELETE] = @Original_PM"& _ + "_RIGHT_FILE_DELETE) AND ([USERID_FK_INT_ECM] = @Original_USERID_FK_INT_ECM) AND "& _ + "([DATE_FORMAT] = @Original_DATE_FORMAT) AND ([ADDED_WHO] = @Original_ADDED_WHO) "& _ + "AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Origi"& _ + "nal_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([C"& _ + "HANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGE"& _ + "D_WHEN] IS NULL) OR ([CHANGED_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_PRENAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRENAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", 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_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORTNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORTNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EMAIL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GENERAL_VIEWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GENERAL_VIEWER", 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("@Original_WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOGGED_IN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_IN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LOGGED_WHERE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_WHERE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOGGED_WHERE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_WHERE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LOG_IN_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_IN_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOG_IN_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_IN_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LOG_OUT_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_OUT_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOG_OUT_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_OUT_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PM_RIGHT_FILE_DELETE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_RIGHT_FILE_DELETE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERID_FK_INT_ECM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERID_FK_INT_ECM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATE_FORMAT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", Global.System.Data.DataRowVersion.Original, false, 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_USER] ([PRENAME], [NAME], [USERNAME], [SHORTNAME], [EMAIL], [LA"& _ + "NGUAGE], [GENERAL_VIEWER], [COMMENT], [WAN_ENVIRONMENT], [LOGGED_IN], [LOGGED_WH"& _ + "ERE], [LOG_IN_WHEN], [LOG_OUT_WHEN], [PM_RIGHT_FILE_DELETE], [USERID_FK_INT_ECM]"& _ + ", [DATE_FORMAT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUE"& _ + "S (@PRENAME, @NAME, @USERNAME, @SHORTNAME, @EMAIL, @LANGUAGE, @GENERAL_VIEWER, @"& _ + "COMMENT, @WAN_ENVIRONMENT, @LOGGED_IN, @LOGGED_WHERE, @LOG_IN_WHEN, @LOG_OUT_WHE"& _ + "N, @PM_RIGHT_FILE_DELETE, @USERID_FK_INT_ECM, @DATE_FORMAT, @ADDED_WHO, @ADDED_W"& _ + "HEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, SHORTN"& _ + "AME, EMAIL, LANGUAGE, GENERAL_VIEWER, COMMENT, WAN_ENVIRONMENT, LOGGED_IN, LOGGE"& _ + "D_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, PM_RIGHT_FILE_DELETE, USERID_FK_INT_ECM, DAT"& _ + "E_FORMAT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_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("@PRENAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + 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("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GENERAL_VIEWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GENERAL_VIEWER", 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("@WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOGGED_IN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_IN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOGGED_WHERE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_WHERE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_IN_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_IN_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_OUT_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_OUT_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_RIGHT_FILE_DELETE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_RIGHT_FILE_DELETE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERID_FK_INT_ECM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERID_FK_INT_ECM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATE_FORMAT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", 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_USER] SET [PRENAME] = @PRENAME, [NAME] = @NAME, [USERNAME] = @USERNA"& _ + "ME, [SHORTNAME] = @SHORTNAME, [EMAIL] = @EMAIL, [LANGUAGE] = @LANGUAGE, [GENERAL"& _ + "_VIEWER] = @GENERAL_VIEWER, [COMMENT] = @COMMENT, [WAN_ENVIRONMENT] = @WAN_ENVIR"& _ + "ONMENT, [LOGGED_IN] = @LOGGED_IN, [LOGGED_WHERE] = @LOGGED_WHERE, [LOG_IN_WHEN] "& _ + "= @LOG_IN_WHEN, [LOG_OUT_WHEN] = @LOG_OUT_WHEN, [PM_RIGHT_FILE_DELETE] = @PM_RIG"& _ + "HT_FILE_DELETE, [USERID_FK_INT_ECM] = @USERID_FK_INT_ECM, [DATE_FORMAT] = @DATE_"& _ + "FORMAT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @C"& _ + "HANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND "& _ + "((@IsNull_PRENAME = 1 AND [PRENAME] IS NULL) OR ([PRENAME] = @Original_PRENAME))"& _ + " AND ((@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND (["& _ + "USERNAME] = @Original_USERNAME) AND ((@IsNull_SHORTNAME = 1 AND [SHORTNAME] IS N"& _ + "ULL) OR ([SHORTNAME] = @Original_SHORTNAME)) AND ((@IsNull_EMAIL = 1 AND [EMAIL]"& _ + " IS NULL) OR ([EMAIL] = @Original_EMAIL)) AND ([LANGUAGE] = @Original_LANGUAGE) "& _ + "AND ([GENERAL_VIEWER] = @Original_GENERAL_VIEWER) AND ((@IsNull_COMMENT = 1 AND "& _ + "[COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([WAN_ENVIRONMENT] = "& _ + "@Original_WAN_ENVIRONMENT) AND ([LOGGED_IN] = @Original_LOGGED_IN) AND ((@IsNull"& _ + "_LOGGED_WHERE = 1 AND [LOGGED_WHERE] IS NULL) OR ([LOGGED_WHERE] = @Original_LOG"& _ + "GED_WHERE)) AND ((@IsNull_LOG_IN_WHEN = 1 AND [LOG_IN_WHEN] IS NULL) OR ([LOG_IN"& _ + "_WHEN] = @Original_LOG_IN_WHEN)) AND ((@IsNull_LOG_OUT_WHEN = 1 AND [LOG_OUT_WHE"& _ + "N] IS NULL) OR ([LOG_OUT_WHEN] = @Original_LOG_OUT_WHEN)) AND ([PM_RIGHT_FILE_DE"& _ + "LETE] = @Original_PM_RIGHT_FILE_DELETE) AND ([USERID_FK_INT_ECM] = @Original_USE"& _ + "RID_FK_INT_ECM) AND ([DATE_FORMAT] = @Original_DATE_FORMAT) AND ([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"& _ + ")));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PRENAME, NAME, USERNAME, SHORTNAME, EMAIL, LANGUAGE, GENERAL_"& _ + "VIEWER, COMMENT, WAN_ENVIRONMENT, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_"& _ + "WHEN, PM_RIGHT_FILE_DELETE, USERID_FK_INT_ECM, DATE_FORMAT, ADDED_WHO, ADDED_WHE"& _ + "N, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", 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("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GENERAL_VIEWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GENERAL_VIEWER", 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("@WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOGGED_IN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_IN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOGGED_WHERE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_WHERE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_IN_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_IN_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_OUT_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_OUT_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_RIGHT_FILE_DELETE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_RIGHT_FILE_DELETE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERID_FK_INT_ECM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERID_FK_INT_ECM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATE_FORMAT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", 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_PRENAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRENAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", 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_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORTNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORTNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_EMAIL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GENERAL_VIEWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GENERAL_VIEWER", 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_WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOGGED_IN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_IN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LOGGED_WHERE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_WHERE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOGGED_WHERE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_WHERE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LOG_IN_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_IN_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOG_IN_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_IN_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LOG_OUT_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_OUT_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOG_OUT_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_OUT_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PM_RIGHT_FILE_DELETE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_RIGHT_FILE_DELETE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERID_FK_INT_ECM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERID_FK_INT_ECM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATE_FORMAT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATE_FORMAT", 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(1) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBDD_USER.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_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 T1.GUID, T1.PRENAME, T1.NAME, T1.USERNAME, T1.SHORTNAME, T1.EMAIL, " & + "T1.LANGUAGE, T1.GENERAL_VIEWER, T1.COMMENT, T1.WAN_ENVIRONMENT, T1.LOGGED_IN, T1" & + ".LOGGED_WHERE, T1.LOG_IN_WHEN, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " T1.LOG_OUT_WHEN, T1.PM" & + "_RIGHT_FILE_DELETE, T1.USERID_FK_INT_ECM, T1.DATE_FORMAT, T1.ADDED_WHO, T1.ADDED" & + "_WHEN, T1.CHANGED_WHO, T1.CHANGED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_USER AS T1 INNER JO" & + "IN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBDD_GROUPS_USER AS T2 ON T1.GUID = T2.USER_ID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHE" & + "RE (T2.GROUP_ID = @GROUP_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, "", "", "")) + End Sub + + + Public Overridable Overloads Function Fill(ByVal dataTable As UserDataSet.TBDD_USERDataTable) 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 Overridable Overloads Function GetData() As UserDataSet.TBDD_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As UserDataSet.TBDD_USERDataTable = New UserDataSet.TBDD_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + + Public Overridable Overloads Function FillByGroupId(ByVal dataTable As UserDataSet.TBDD_USERDataTable, ByVal GROUP_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GROUP_ID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + + Public Overridable Overloads Function GetDataByGroupId(ByVal GROUP_ID As Integer) As UserDataSet.TBDD_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GROUP_ID, Integer) + Dim dataTable As UserDataSet.TBDD_USERDataTable = New UserDataSet.TBDD_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + + Public Overridable Overloads Function Update(ByVal dataTable As UserDataSet.TBDD_USERDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_USER") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete( _ + ByVal Original_GUID As Integer, _ + ByVal Original_PRENAME As String, _ + ByVal Original_NAME As String, _ + ByVal Original_USERNAME As String, _ + ByVal Original_SHORTNAME As String, _ + ByVal Original_EMAIL As String, _ + ByVal Original_LANGUAGE As String, _ + ByVal Original_GENERAL_VIEWER As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_WAN_ENVIRONMENT As Boolean, _ + ByVal Original_LOGGED_IN As Boolean, _ + ByVal Original_LOGGED_WHERE As String, _ + ByVal Original_LOG_IN_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_LOG_OUT_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_PM_RIGHT_FILE_DELETE As Boolean, _ + ByVal Original_USERID_FK_INT_ECM As Integer, _ + ByVal Original_DATE_FORMAT 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_PRENAME 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_PRENAME,String) + End If + If (Original_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_NAME,String) + End If + If (Original_USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_USERNAME") + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_USERNAME,String) + End If + If (Original_SHORTNAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_SHORTNAME,String) + End If + If (Original_EMAIL Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_EMAIL,String) + End If + If (Original_LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LANGUAGE") + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_LANGUAGE,String) + End If + 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) + 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 GENERAL_VIEWER As String, _ + ByVal COMMENT As String, _ + ByVal WAN_ENVIRONMENT As Boolean, _ + ByVal LOGGED_IN As Boolean, _ + ByVal LOGGED_WHERE As String, _ + ByVal LOG_IN_WHEN As Global.System.Nullable(Of Date), _ + ByVal LOG_OUT_WHEN As Global.System.Nullable(Of Date), _ + ByVal PM_RIGHT_FILE_DELETE As Boolean, _ + ByVal USERID_FK_INT_ECM As Integer, _ + ByVal DATE_FORMAT 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 (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 (GENERAL_VIEWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("GENERAL_VIEWER") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(GENERAL_VIEWER,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(COMMENT,String) + End If + Me.Adapter.InsertCommand.Parameters(8).Value = CType(WAN_ENVIRONMENT,Boolean) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(LOGGED_IN,Boolean) + If (LOGGED_WHERE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(LOGGED_WHERE,String) + End If + If (LOG_IN_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(11).Value = CType(LOG_IN_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + If (LOG_OUT_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(12).Value = CType(LOG_OUT_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(13).Value = CType(PM_RIGHT_FILE_DELETE,Boolean) + Me.Adapter.InsertCommand.Parameters(14).Value = CType(USERID_FK_INT_ECM,Integer) + If (DATE_FORMAT Is Nothing) Then + Throw New Global.System.ArgumentNullException("DATE_FORMAT") + Else + Me.Adapter.InsertCommand.Parameters(15).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(16).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(17).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(18).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(19).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(19).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 PRENAME As String, _ + ByVal NAME As String, _ + ByVal USERNAME As String, _ + ByVal SHORTNAME As String, _ + ByVal EMAIL As String, _ + ByVal LANGUAGE As String, _ + ByVal GENERAL_VIEWER As String, _ + ByVal COMMENT As String, _ + ByVal WAN_ENVIRONMENT As Boolean, _ + ByVal LOGGED_IN As Boolean, _ + ByVal LOGGED_WHERE As String, _ + ByVal LOG_IN_WHEN As Global.System.Nullable(Of Date), _ + ByVal LOG_OUT_WHEN As Global.System.Nullable(Of Date), _ + ByVal PM_RIGHT_FILE_DELETE As Boolean, _ + ByVal USERID_FK_INT_ECM As Integer, _ + ByVal DATE_FORMAT 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_PRENAME As String, _ + ByVal Original_NAME As String, _ + ByVal Original_USERNAME As String, _ + ByVal Original_SHORTNAME As String, _ + ByVal Original_EMAIL As String, _ + ByVal Original_LANGUAGE As String, _ + ByVal Original_GENERAL_VIEWER As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_WAN_ENVIRONMENT As Boolean, _ + ByVal Original_LOGGED_IN As Boolean, _ + ByVal Original_LOGGED_WHERE As String, _ + ByVal Original_LOG_IN_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_LOG_OUT_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_PM_RIGHT_FILE_DELETE As Boolean, _ + ByVal Original_USERID_FK_INT_ECM As Integer, _ + ByVal Original_DATE_FORMAT 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 + 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 (GENERAL_VIEWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("GENERAL_VIEWER") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GENERAL_VIEWER,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(WAN_ENVIRONMENT,Boolean) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(LOGGED_IN,Boolean) + If (LOGGED_WHERE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(LOGGED_WHERE,String) + End If + If (LOG_IN_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(LOG_IN_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + If (LOG_OUT_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(LOG_OUT_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(PM_RIGHT_FILE_DELETE,Boolean) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(USERID_FK_INT_ECM,Integer) + If (DATE_FORMAT Is Nothing) Then + Throw New Global.System.ArgumentNullException("DATE_FORMAT") + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(DATE_FORMAT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_GUID,Integer) + If (Original_PRENAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_PRENAME,String) + End If + If (Original_NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_NAME,String) + End If + If (Original_USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_USERNAME") + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_USERNAME,String) + End If + If (Original_SHORTNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_SHORTNAME,String) + End If + If (Original_EMAIL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_EMAIL,String) + End If + If (Original_LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LANGUAGE") + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_LANGUAGE,String) + End If + If (Original_GENERAL_VIEWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_GENERAL_VIEWER") + Else + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_GENERAL_VIEWER,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_WAN_ENVIRONMENT,Boolean) + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_LOGGED_IN,Boolean) + If (Original_LOGGED_WHERE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_LOGGED_WHERE,String) + End If + If (Original_LOG_IN_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_LOG_IN_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value + End If + If (Original_LOG_OUT_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_LOG_OUT_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_PM_RIGHT_FILE_DELETE,Boolean) + Me.Adapter.UpdateCommand.Parameters(43).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.UpdateCommand.Parameters(44).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.UpdateCommand.Parameters(45).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(52).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 PRENAME As String, _ + ByVal NAME As String, _ + ByVal USERNAME As String, _ + ByVal SHORTNAME As String, _ + ByVal EMAIL As String, _ + ByVal LANGUAGE As String, _ + ByVal GENERAL_VIEWER As String, _ + ByVal COMMENT As String, _ + ByVal WAN_ENVIRONMENT As Boolean, _ + ByVal LOGGED_IN As Boolean, _ + ByVal LOGGED_WHERE As String, _ + ByVal LOG_IN_WHEN As Global.System.Nullable(Of Date), _ + ByVal LOG_OUT_WHEN As Global.System.Nullable(Of Date), _ + ByVal PM_RIGHT_FILE_DELETE As Boolean, _ + ByVal USERID_FK_INT_ECM As Integer, _ + ByVal DATE_FORMAT 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_PRENAME As String, _ + ByVal Original_NAME As String, _ + ByVal Original_USERNAME As String, _ + ByVal Original_SHORTNAME As String, _ + ByVal Original_EMAIL As String, _ + ByVal Original_LANGUAGE As String, _ + ByVal Original_GENERAL_VIEWER As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_WAN_ENVIRONMENT As Boolean, _ + ByVal Original_LOGGED_IN As Boolean, _ + ByVal Original_LOGGED_WHERE As String, _ + ByVal Original_LOG_IN_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_LOG_OUT_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_PM_RIGHT_FILE_DELETE As Boolean, _ + ByVal Original_USERID_FK_INT_ECM As Integer, _ + ByVal Original_DATE_FORMAT 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(PRENAME, NAME, USERNAME, SHORTNAME, EMAIL, LANGUAGE, GENERAL_VIEWER, COMMENT, WAN_ENVIRONMENT, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, PM_RIGHT_FILE_DELETE, USERID_FK_INT_ECM, DATE_FORMAT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_PRENAME, Original_NAME, Original_USERNAME, Original_SHORTNAME, Original_EMAIL, Original_LANGUAGE, Original_GENERAL_VIEWER, Original_COMMENT, Original_WAN_ENVIRONMENT, Original_LOGGED_IN, Original_LOGGED_WHERE, Original_LOG_IN_WHEN, Original_LOG_OUT_WHEN, Original_PM_RIGHT_FILE_DELETE, Original_USERID_FK_INT_ECM, Original_DATE_FORMAT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function + End Class + ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' @@ -10169,8 +10022,6 @@ Namespace UserDataSetTableAdapters Private _updateOrder As UpdateOrderOption - Private _tBDD_USERTableAdapter As TBDD_USERTableAdapter - Private _tBDD_USER_GROUPSTableAdapter As TBDD_USER_GROUPSTableAdapter Private _tBDD_GROUPS_USERTableAdapter As TBDD_GROUPS_USERTableAdapter @@ -10183,6 +10034,8 @@ Namespace UserDataSetTableAdapters Private _tBDD_CLIENT_USERTableAdapter As TBDD_CLIENT_USERTableAdapter + Private _tBDD_USERTableAdapter As TBDD_USERTableAdapter + Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection @@ -10198,20 +10051,6 @@ Namespace UserDataSetTableAdapters End Set End Property - _ - Public Property TBDD_USERTableAdapter() As TBDD_USERTableAdapter - Get - Return Me._tBDD_USERTableAdapter - End Get - Set - Me._tBDD_USERTableAdapter = value - End Set - End Property - _ + Public Property TBDD_USERTableAdapter() As TBDD_USERTableAdapter + Get + Return Me._tBDD_USERTableAdapter + End Get + Set + Me._tBDD_USERTableAdapter = value + End Set + End Property + _ Public Property BackupDataSetBeforeUpdate() As Boolean @@ -10315,10 +10168,6 @@ Namespace UserDataSetTableAdapters If (Not (Me._connection) Is Nothing) Then Return Me._connection End If - If ((Not (Me._tBDD_USERTableAdapter) Is Nothing) _ - AndAlso (Not (Me._tBDD_USERTableAdapter.Connection) Is Nothing)) Then - Return Me._tBDD_USERTableAdapter.Connection - End If If ((Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_USER_GROUPSTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_USER_GROUPSTableAdapter.Connection @@ -10343,6 +10192,10 @@ Namespace UserDataSetTableAdapters AndAlso (Not (Me._tBDD_CLIENT_USERTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_CLIENT_USERTableAdapter.Connection End If + If ((Not (Me._tBDD_USERTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_USERTableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_USERTableAdapter.Connection + End If Return Nothing End Get Set @@ -10356,9 +10209,6 @@ Namespace UserDataSetTableAdapters Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 - If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then - count = (count + 1) - End If If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then count = (count + 1) End If @@ -10377,6 +10227,9 @@ Namespace UserDataSetTableAdapters If (Not (Me._tBDD_CLIENT_USERTableAdapter) Is Nothing) Then count = (count + 1) End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + count = (count + 1) + End If Return count End Get End Property @@ -10388,15 +10241,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_USERTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.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_USERTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -10424,6 +10268,15 @@ Namespace UserDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.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_USERTableAdapter.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) @@ -10461,14 +10314,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_USERTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_USERTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -10493,6 +10338,14 @@ Namespace UserDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_USERTableAdapter.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) _ @@ -10551,6 +10404,14 @@ Namespace UserDataSetTableAdapters 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) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_USERTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBDD_CLIENTTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CLIENT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -10575,14 +10436,6 @@ Namespace UserDataSetTableAdapters 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) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_USERTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If Return result End Function @@ -10624,11 +10477,6 @@ Namespace UserDataSetTableAdapters If (dataSet.HasChanges = false) Then Return 0 End If - If ((Not (Me._tBDD_USERTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_USERTableAdapter.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_USER_GROUPSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_USER_GROUPSTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ @@ -10659,6 +10507,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_USERTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_USERTableAdapter.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"& _ @@ -10693,15 +10546,6 @@ Namespace UserDataSetTableAdapters Try '---- Prepare for update ----------- ' - If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then - revertConnections.Add(Me._tBDD_USERTableAdapter, Me._tBDD_USERTableAdapter.Connection) - Me._tBDD_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBDD_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) - If Me._tBDD_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBDD_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false - adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_USERTableAdapter.Adapter) - End If - End If If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_USER_GROUPSTableAdapter, Me._tBDD_USER_GROUPSTableAdapter.Connection) Me._tBDD_USER_GROUPSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) @@ -10756,6 +10600,15 @@ Namespace UserDataSetTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_CLIENT_USERTableAdapter.Adapter) End If End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_USERTableAdapter, Me._tBDD_USERTableAdapter.Connection) + Me._tBDD_USERTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_USERTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_USERTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_USERTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_USERTableAdapter.Adapter) + End If + End If ' '---- Perform updates ----------- ' @@ -10816,10 +10669,6 @@ Namespace UserDataSetTableAdapters If workConnOpened Then workConnection.Close End If - If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then - Me._tBDD_USERTableAdapter.Connection = CType(revertConnections(Me._tBDD_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) - Me._tBDD_USERTableAdapter.Transaction = Nothing - End If If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then Me._tBDD_USER_GROUPSTableAdapter.Connection = CType(revertConnections(Me._tBDD_USER_GROUPSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_USER_GROUPSTableAdapter.Transaction = Nothing @@ -10844,6 +10693,10 @@ Namespace UserDataSetTableAdapters Me._tBDD_CLIENT_USERTableAdapter.Connection = CType(revertConnections(Me._tBDD_CLIENT_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_CLIENT_USERTableAdapter.Transaction = Nothing End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Me._tBDD_USERTableAdapter.Connection = CType(revertConnections(Me._tBDD_USERTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_USERTableAdapter.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.xsc b/DDUserManager/DDUserManager/UserDataSet.xsc index dd78706..05b0199 100644 --- a/DDUserManager/DDUserManager/UserDataSet.xsc +++ b/DDUserManager/DDUserManager/UserDataSet.xsc @@ -5,31 +5,5 @@ the code is regenerated. --> - - - - - - - - - - - - - - - - - - - - - - - - - - - + \ No newline at end of file diff --git a/DDUserManager/DDUserManager/UserDataSet.xsd b/DDUserManager/DDUserManager/UserDataSet.xsd index a48aac3..e0d2fa7 100644 --- a/DDUserManager/DDUserManager/UserDataSet.xsd +++ b/DDUserManager/DDUserManager/UserDataSet.xsd @@ -7,196 +7,6 @@ - - - - - - DELETE FROM [TBDD_USER] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_PRENAME = 1 AND [PRENAME] IS NULL) OR ([PRENAME] = @Original_PRENAME)) AND ((@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([USERNAME] = @Original_USERNAME) AND ((@IsNull_SHORTNAME = 1 AND [SHORTNAME] IS NULL) OR ([SHORTNAME] = @Original_SHORTNAME)) AND ((@IsNull_EMAIL = 1 AND [EMAIL] IS NULL) OR ([EMAIL] = @Original_EMAIL)) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([GENERAL_VIEWER] = @Original_GENERAL_VIEWER) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([WAN_ENVIRONMENT] = @Original_WAN_ENVIRONMENT) AND ([LOGGED_IN] = @Original_LOGGED_IN) AND ((@IsNull_LOGGED_WHERE = 1 AND [LOGGED_WHERE] IS NULL) OR ([LOGGED_WHERE] = @Original_LOGGED_WHERE)) AND ((@IsNull_LOG_IN_WHEN = 1 AND [LOG_IN_WHEN] IS NULL) OR ([LOG_IN_WHEN] = @Original_LOG_IN_WHEN)) AND ((@IsNull_LOG_OUT_WHEN = 1 AND [LOG_OUT_WHEN] IS NULL) OR ([LOG_OUT_WHEN] = @Original_LOG_OUT_WHEN)) AND ([PM_RIGHT_FILE_DELETE] = @Original_PM_RIGHT_FILE_DELETE) AND ([MODULE_GI] = @Original_MODULE_GI) AND ([GI_ADMIN] = @Original_GI_ADMIN) AND ([MODULE_WD_QS] = @Original_MODULE_WD_QS) AND ([MODULE_RECORD_ORG] = @Original_MODULE_RECORD_ORG) AND ([RECORD_ADMIN] = @Original_RECORD_ADMIN) AND ([USERID_FK_INT_ECM] = @Original_USERID_FK_INT_ECM) AND ([DATE_FORMAT] = @Original_DATE_FORMAT) AND ([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_USER] ([PRENAME], [NAME], [USERNAME], [SHORTNAME], [EMAIL], [LANGUAGE], [GENERAL_VIEWER], [COMMENT], [WAN_ENVIRONMENT], [LOGGED_IN], [LOGGED_WHERE], [LOG_IN_WHEN], [LOG_OUT_WHEN], [PM_RIGHT_FILE_DELETE], [MODULE_GI], [GI_ADMIN], [MODULE_WD_QS], [MODULE_RECORD_ORG], [RECORD_ADMIN], [USERID_FK_INT_ECM], [DATE_FORMAT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@PRENAME, @NAME, @USERNAME, @SHORTNAME, @EMAIL, @LANGUAGE, @GENERAL_VIEWER, @COMMENT, @WAN_ENVIRONMENT, @LOGGED_IN, @LOGGED_WHERE, @LOG_IN_WHEN, @LOG_OUT_WHEN, @PM_RIGHT_FILE_DELETE, @MODULE_GI, @GI_ADMIN, @MODULE_WD_QS, @MODULE_RECORD_ORG, @RECORD_ADMIN, @USERID_FK_INT_ECM, @DATE_FORMAT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); -SELECT GUID, PRENAME, NAME, USERNAME, SHORTNAME, EMAIL, LANGUAGE, GENERAL_VIEWER, COMMENT, WAN_ENVIRONMENT, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, PM_RIGHT_FILE_DELETE, MODULE_GI, GI_ADMIN, MODULE_WD_QS, MODULE_RECORD_ORG, RECORD_ADMIN, USERID_FK_INT_ECM, DATE_FORMAT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - SELECT TBDD_USER.* -FROM TBDD_USER - - - - - - UPDATE [TBDD_USER] SET [PRENAME] = @PRENAME, [NAME] = @NAME, [USERNAME] = @USERNAME, [SHORTNAME] = @SHORTNAME, [EMAIL] = @EMAIL, [LANGUAGE] = @LANGUAGE, [GENERAL_VIEWER] = @GENERAL_VIEWER, [COMMENT] = @COMMENT, [WAN_ENVIRONMENT] = @WAN_ENVIRONMENT, [LOGGED_IN] = @LOGGED_IN, [LOGGED_WHERE] = @LOGGED_WHERE, [LOG_IN_WHEN] = @LOG_IN_WHEN, [LOG_OUT_WHEN] = @LOG_OUT_WHEN, [PM_RIGHT_FILE_DELETE] = @PM_RIGHT_FILE_DELETE, [MODULE_GI] = @MODULE_GI, [GI_ADMIN] = @GI_ADMIN, [MODULE_WD_QS] = @MODULE_WD_QS, [MODULE_RECORD_ORG] = @MODULE_RECORD_ORG, [RECORD_ADMIN] = @RECORD_ADMIN, [USERID_FK_INT_ECM] = @USERID_FK_INT_ECM, [DATE_FORMAT] = @DATE_FORMAT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_PRENAME = 1 AND [PRENAME] IS NULL) OR ([PRENAME] = @Original_PRENAME)) AND ((@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([USERNAME] = @Original_USERNAME) AND ((@IsNull_SHORTNAME = 1 AND [SHORTNAME] IS NULL) OR ([SHORTNAME] = @Original_SHORTNAME)) AND ((@IsNull_EMAIL = 1 AND [EMAIL] IS NULL) OR ([EMAIL] = @Original_EMAIL)) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([GENERAL_VIEWER] = @Original_GENERAL_VIEWER) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([WAN_ENVIRONMENT] = @Original_WAN_ENVIRONMENT) AND ([LOGGED_IN] = @Original_LOGGED_IN) AND ((@IsNull_LOGGED_WHERE = 1 AND [LOGGED_WHERE] IS NULL) OR ([LOGGED_WHERE] = @Original_LOGGED_WHERE)) AND ((@IsNull_LOG_IN_WHEN = 1 AND [LOG_IN_WHEN] IS NULL) OR ([LOG_IN_WHEN] = @Original_LOG_IN_WHEN)) AND ((@IsNull_LOG_OUT_WHEN = 1 AND [LOG_OUT_WHEN] IS NULL) OR ([LOG_OUT_WHEN] = @Original_LOG_OUT_WHEN)) AND ([PM_RIGHT_FILE_DELETE] = @Original_PM_RIGHT_FILE_DELETE) AND ([MODULE_GI] = @Original_MODULE_GI) AND ([GI_ADMIN] = @Original_GI_ADMIN) AND ([MODULE_WD_QS] = @Original_MODULE_WD_QS) AND ([MODULE_RECORD_ORG] = @Original_MODULE_RECORD_ORG) AND ([RECORD_ADMIN] = @Original_RECORD_ADMIN) AND ([USERID_FK_INT_ECM] = @Original_USERID_FK_INT_ECM) AND ([DATE_FORMAT] = @Original_DATE_FORMAT) AND ([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))); -SELECT GUID, PRENAME, NAME, USERNAME, SHORTNAME, EMAIL, LANGUAGE, GENERAL_VIEWER, COMMENT, WAN_ENVIRONMENT, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, PM_RIGHT_FILE_DELETE, MODULE_GI, GI_ADMIN, MODULE_WD_QS, MODULE_RECORD_ORG, RECORD_ADMIN, USERID_FK_INT_ECM, DATE_FORMAT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -283,14 +93,14 @@ SELECT GUID, NAME, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FRO - + SELECT T2.GUID, T2.NAME, T2.COMMENT, T2.ADDED_WHO, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CHANGED_WHEN FROM TBDD_GROUPS_USER AS T1 INNER JOIN TBDD_USER_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) - + @@ -381,7 +191,21 @@ SELECT GUID, USER_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHA - + + + + + SELECT T2.GUID, T2.EMAIL, T2.USERNAME, T2.PRENAME, T2.NAME +FROM TBDD_GROUPS_USER AS T1 INNER JOIN + TBDD_USER AS T2 ON T1.USER_ID = T2.GUID +WHERE (T1.GROUP_ID = @GROUP_ID) + + + + + + + @@ -808,6 +632,186 @@ SELECT GUID, USER_ID, CLIENT_ID, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBDD_CLIENT + + + + + + DELETE FROM [TBDD_USER] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_PRENAME = 1 AND [PRENAME] IS NULL) OR ([PRENAME] = @Original_PRENAME)) AND ((@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([USERNAME] = @Original_USERNAME) AND ((@IsNull_SHORTNAME = 1 AND [SHORTNAME] IS NULL) OR ([SHORTNAME] = @Original_SHORTNAME)) AND ((@IsNull_EMAIL = 1 AND [EMAIL] IS NULL) OR ([EMAIL] = @Original_EMAIL)) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([GENERAL_VIEWER] = @Original_GENERAL_VIEWER) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([WAN_ENVIRONMENT] = @Original_WAN_ENVIRONMENT) AND ([LOGGED_IN] = @Original_LOGGED_IN) AND ((@IsNull_LOGGED_WHERE = 1 AND [LOGGED_WHERE] IS NULL) OR ([LOGGED_WHERE] = @Original_LOGGED_WHERE)) AND ((@IsNull_LOG_IN_WHEN = 1 AND [LOG_IN_WHEN] IS NULL) OR ([LOG_IN_WHEN] = @Original_LOG_IN_WHEN)) AND ((@IsNull_LOG_OUT_WHEN = 1 AND [LOG_OUT_WHEN] IS NULL) OR ([LOG_OUT_WHEN] = @Original_LOG_OUT_WHEN)) AND ([PM_RIGHT_FILE_DELETE] = @Original_PM_RIGHT_FILE_DELETE) AND ([USERID_FK_INT_ECM] = @Original_USERID_FK_INT_ECM) AND ([DATE_FORMAT] = @Original_DATE_FORMAT) AND ([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_USER] ([PRENAME], [NAME], [USERNAME], [SHORTNAME], [EMAIL], [LANGUAGE], [GENERAL_VIEWER], [COMMENT], [WAN_ENVIRONMENT], [LOGGED_IN], [LOGGED_WHERE], [LOG_IN_WHEN], [LOG_OUT_WHEN], [PM_RIGHT_FILE_DELETE], [USERID_FK_INT_ECM], [DATE_FORMAT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@PRENAME, @NAME, @USERNAME, @SHORTNAME, @EMAIL, @LANGUAGE, @GENERAL_VIEWER, @COMMENT, @WAN_ENVIRONMENT, @LOGGED_IN, @LOGGED_WHERE, @LOG_IN_WHEN, @LOG_OUT_WHEN, @PM_RIGHT_FILE_DELETE, @USERID_FK_INT_ECM, @DATE_FORMAT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN); +SELECT GUID, PRENAME, NAME, USERNAME, SHORTNAME, EMAIL, LANGUAGE, GENERAL_VIEWER, COMMENT, WAN_ENVIRONMENT, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, PM_RIGHT_FILE_DELETE, USERID_FK_INT_ECM, DATE_FORMAT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT TBDD_USER.* +FROM TBDD_USER + + + + + + UPDATE [TBDD_USER] SET [PRENAME] = @PRENAME, [NAME] = @NAME, [USERNAME] = @USERNAME, [SHORTNAME] = @SHORTNAME, [EMAIL] = @EMAIL, [LANGUAGE] = @LANGUAGE, [GENERAL_VIEWER] = @GENERAL_VIEWER, [COMMENT] = @COMMENT, [WAN_ENVIRONMENT] = @WAN_ENVIRONMENT, [LOGGED_IN] = @LOGGED_IN, [LOGGED_WHERE] = @LOGGED_WHERE, [LOG_IN_WHEN] = @LOG_IN_WHEN, [LOG_OUT_WHEN] = @LOG_OUT_WHEN, [PM_RIGHT_FILE_DELETE] = @PM_RIGHT_FILE_DELETE, [USERID_FK_INT_ECM] = @USERID_FK_INT_ECM, [DATE_FORMAT] = @DATE_FORMAT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_PRENAME = 1 AND [PRENAME] IS NULL) OR ([PRENAME] = @Original_PRENAME)) AND ((@IsNull_NAME = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([USERNAME] = @Original_USERNAME) AND ((@IsNull_SHORTNAME = 1 AND [SHORTNAME] IS NULL) OR ([SHORTNAME] = @Original_SHORTNAME)) AND ((@IsNull_EMAIL = 1 AND [EMAIL] IS NULL) OR ([EMAIL] = @Original_EMAIL)) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([GENERAL_VIEWER] = @Original_GENERAL_VIEWER) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([WAN_ENVIRONMENT] = @Original_WAN_ENVIRONMENT) AND ([LOGGED_IN] = @Original_LOGGED_IN) AND ((@IsNull_LOGGED_WHERE = 1 AND [LOGGED_WHERE] IS NULL) OR ([LOGGED_WHERE] = @Original_LOGGED_WHERE)) AND ((@IsNull_LOG_IN_WHEN = 1 AND [LOG_IN_WHEN] IS NULL) OR ([LOG_IN_WHEN] = @Original_LOG_IN_WHEN)) AND ((@IsNull_LOG_OUT_WHEN = 1 AND [LOG_OUT_WHEN] IS NULL) OR ([LOG_OUT_WHEN] = @Original_LOG_OUT_WHEN)) AND ([PM_RIGHT_FILE_DELETE] = @Original_PM_RIGHT_FILE_DELETE) AND ([USERID_FK_INT_ECM] = @Original_USERID_FK_INT_ECM) AND ([DATE_FORMAT] = @Original_DATE_FORMAT) AND ([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))); +SELECT GUID, PRENAME, NAME, USERNAME, SHORTNAME, EMAIL, LANGUAGE, GENERAL_VIEWER, COMMENT, WAN_ENVIRONMENT, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, PM_RIGHT_FILE_DELETE, USERID_FK_INT_ECM, DATE_FORMAT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT T1.GUID, T1.PRENAME, T1.NAME, T1.USERNAME, T1.SHORTNAME, T1.EMAIL, T1.LANGUAGE, T1.GENERAL_VIEWER, T1.COMMENT, T1.WAN_ENVIRONMENT, T1.LOGGED_IN, T1.LOGGED_WHERE, T1.LOG_IN_WHEN, + T1.LOG_OUT_WHEN, T1.PM_RIGHT_FILE_DELETE, T1.USERID_FK_INT_ECM, T1.DATE_FORMAT, T1.ADDED_WHO, T1.ADDED_WHEN, T1.CHANGED_WHO, T1.CHANGED_WHEN +FROM TBDD_USER AS T1 INNER JOIN + TBDD_GROUPS_USER AS T2 ON T1.GUID = T2.USER_ID +WHERE (T2.GROUP_ID = @GROUP_ID) + + + + + + + + @@ -816,111 +820,7 @@ SELECT GUID, USER_ID, CLIENT_ID, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBDD_CLIENT - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + @@ -957,7 +857,7 @@ SELECT GUID, USER_ID, CLIENT_ID, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBDD_CLIENT - + @@ -989,7 +889,7 @@ SELECT GUID, USER_ID, CLIENT_ID, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBDD_CLIENT - + @@ -1093,7 +993,7 @@ SELECT GUID, USER_ID, CLIENT_ID, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBDD_CLIENT - + @@ -1118,7 +1018,7 @@ SELECT GUID, USER_ID, CLIENT_ID, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBDD_CLIENT - + @@ -1183,7 +1083,7 @@ SELECT GUID, USER_ID, CLIENT_ID, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBDD_CLIENT - + @@ -1207,13 +1107,108 @@ SELECT GUID, USER_ID, CLIENT_ID, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBDD_CLIENT + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - - - @@ -1237,14 +1232,18 @@ SELECT GUID, USER_ID, CLIENT_ID, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBDD_CLIENT + + + + - + + + - - diff --git a/DDUserManager/DDUserManager/UserDataSet.xss b/DDUserManager/DDUserManager/UserDataSet.xss index 2212102..413e5d4 100644 --- a/DDUserManager/DDUserManager/UserDataSet.xss +++ b/DDUserManager/DDUserManager/UserDataSet.xss @@ -4,42 +4,30 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - + + + + + + + - + - 213 + 212 257 - 213 + 212 315 - - - - 753 - 354 - - - 336 - 354 - - - - + 1227 @@ -51,23 +39,7 @@ - - - - 949 - 364 - - - 949 - 637 - - - 1001 - 637 - - - - + 505 @@ -83,14 +55,46 @@ - + - 793 - 364 + 782 + 397 - 793 + 782 + 405 + + + 361 + 405 + + + + + + + 961 + 397 + + + 961 + 444 + + + 1001 + 444 + + + + + + + 799 + 397 + + + 799 479 diff --git a/DDUserManager/DDUserManager/frmMain.Designer.vb b/DDUserManager/DDUserManager/frmMain.Designer.vb index 393a935..9083526 100644 --- a/DDUserManager/DDUserManager/frmMain.Designer.vb +++ b/DDUserManager/DDUserManager/frmMain.Designer.vb @@ -22,6 +22,7 @@ Partial Class frmMain 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() Dim GUIDLabel As System.Windows.Forms.Label Dim PRENAMELabel As System.Windows.Forms.Label Dim NAMELabel As System.Windows.Forms.Label @@ -58,7 +59,7 @@ Partial Class frmMain Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.DATE_FORMATTextBox = New System.Windows.Forms.TextBox() - Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource() + Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.UserDataSet = New DDUserManager.UserDataSet() Me.PRENAMETextBox = New System.Windows.Forms.TextBox() Me.WAN_ENVIRONMENTCheckBox = New System.Windows.Forms.CheckBox() @@ -75,28 +76,7 @@ Partial Class frmMain Me.colPRENAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colUSERNAME = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colSHORTNAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colEMAIL = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colLANGUAGE = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colGENERAL_VIEWER = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colCOMMENT = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colWAN_ENVIRONMENT = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colLOGGED_IN = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colLOGGED_WHERE = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colLOG_IN_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colLOG_OUT_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colPM_RIGHT_FILE_DELETE = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colMODULE_GI = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colGI_ADMIN = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colMODULE_WD_QS = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colMODULE_RECORD_ORG = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colRECORD_ADMIN = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colUSERID_FK_INT_ECM = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colDATE_FORMAT = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colCHANGED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colCHANGED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() Me.Label2 = New System.Windows.Forms.Label() Me.GroupBox3 = New System.Windows.Forms.GroupBox() Me.CHANGED_WHENDateTimePicker = New System.Windows.Forms.DateTimePicker() @@ -105,52 +85,35 @@ Partial Class frmMain Me.ADDED_WHENDateTimePicker = New System.Windows.Forms.DateTimePicker() Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() Me.Label1 = New System.Windows.Forms.Label() - Me.ListBox1 = New System.Windows.Forms.ListBox() - Me.TBDD_CLIENTBindingSource = New System.Windows.Forms.BindingSource() - Me.lbGroups = New System.Windows.Forms.ListBox() - Me.TBDD_USER_GROUPSBindingSource = New System.Windows.Forms.BindingSource() + Me.listClients = New System.Windows.Forms.ListBox() + Me.TBDD_CLIENTBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.listGroups = New System.Windows.Forms.ListBox() + Me.TBDD_USER_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() Me.tabGroupAssign = New DevExpress.XtraTab.XtraTabPage() - Me.GroupBox8 = New System.Windows.Forms.GroupBox() - Me.GridControl1 = New DevExpress.XtraGrid.GridControl() - Me.tBDD_USERBindingSource1 = New System.Windows.Forms.BindingSource() - Me.UserDataSet1 = New DDUserManager.UserDataSet() - Me.gvUsersToGroup = New DevExpress.XtraGrid.Views.Grid.GridView() - Me.colGUID1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.gridAllGroups = New DevExpress.XtraGrid.GridControl() + Me.gvAllGroups = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colNAME2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCOMMENT2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.gridUsersAssigned = New DevExpress.XtraGrid.GridControl() + Me.gvUsersAssigned = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridView3 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.gridAllUsers = New DevExpress.XtraGrid.GridControl() + Me.gvAllUsers = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colUSERNAME1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colPRENAME1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colUSERNAME1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colSHORTNAME1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colEMAIL1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colLANGUAGE1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colGENERAL_VIEWER1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colCOMMENT1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colWAN_ENVIRONMENT1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colLOGGED_IN1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colLOGGED_WHERE1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colLOG_IN_WHEN1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colLOG_OUT_WHEN1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colPM_RIGHT_FILE_DELETE1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colMODULE_GI1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colGI_ADMIN1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colMODULE_WD_QS1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colMODULE_RECORD_ORG1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colRECORD_ADMIN1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colUSERID_FK_INT_ECM1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colDATE_FORMAT1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colADDED_WHO1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colADDED_WHEN1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colCHANGED_WHO1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.colCHANGED_WHEN1 = New DevExpress.XtraGrid.Columns.GridColumn() - Me.Button6 = New System.Windows.Forms.Button() - Me.Button5 = New System.Windows.Forms.Button() - Me.GroupBox7 = New System.Windows.Forms.GroupBox() - Me.Button4 = New System.Windows.Forms.Button() - Me.Button1 = New System.Windows.Forms.Button() - Me.Label3 = New System.Windows.Forms.Label() - Me.ComboBox1 = New System.Windows.Forms.ComboBox() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() Me.tabClientAssign = New DevExpress.XtraTab.XtraTabPage() - Me.TBDD_USERBindingNavigator = New System.Windows.Forms.BindingNavigator() + Me.TBDD_USERBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() @@ -174,7 +137,7 @@ Partial Class frmMain Me.GUIDTextBox1 = New System.Windows.Forms.TextBox() Me.NAMETextBox1 = New System.Windows.Forms.TextBox() Me.COMMENTTextBox1 = New System.Windows.Forms.TextBox() - Me.TBDD_USER_GROUPSBindingNavigator = New System.Windows.Forms.BindingNavigator() + Me.TBDD_USER_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() @@ -187,7 +150,7 @@ Partial Class frmMain Me.BindingNavigatorMoveLastItem1 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorSeparator5 = New System.Windows.Forms.ToolStripSeparator() Me.tabPageClients = New DevExpress.XtraTab.XtraTabPage() - Me.TBDD_CLIENTBindingNavigator = New System.Windows.Forms.BindingNavigator() + Me.TBDD_CLIENTBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem2 = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorCountItem2 = New System.Windows.Forms.ToolStripLabel() Me.BindingNavigatorDeleteItem2 = New System.Windows.Forms.ToolStripButton() @@ -209,17 +172,18 @@ Partial Class frmMain Me.SHORTNAMETextBox1 = New System.Windows.Forms.TextBox() Me.CLIENT_NAMETextBox = New System.Windows.Forms.TextBox() Me.GUIDTextBox2 = New System.Windows.Forms.TextBox() + 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_USERBindingSource = New System.Windows.Forms.BindingSource() Me.TBDD_GROUPS_USERTableAdapter = New DDUserManager.UserDataSetTableAdapters.TBDD_GROUPS_USERTableAdapter() - Me.TBDD_CLIENT_USERBindingSource = New System.Windows.Forms.BindingSource() + Me.TBDD_CLIENT_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBDD_CLIENT_USERTableAdapter = New DDUserManager.UserDataSetTableAdapters.TBDD_CLIENT_USERTableAdapter() Me.TBDD_USER_GROUPSTableAdapter = New DDUserManager.UserDataSetTableAdapters.TBDD_USER_GROUPSTableAdapter() - Me.TBDD_USER_MODULESBindingSource = New System.Windows.Forms.BindingSource() + Me.TBDD_USER_MODULESBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBDD_USER_MODULESTableAdapter = New DDUserManager.UserDataSetTableAdapters.TBDD_USER_MODULESTableAdapter() Me.TBDD_CLIENTTableAdapter = New DDUserManager.UserDataSetTableAdapters.TBDD_CLIENTTableAdapter() - Me.TbdD_USERTableAdapter1 = New DDUserManager.UserDataSetTableAdapters.TBDD_USERTableAdapter() + Me.SplitContainer2 = New System.Windows.Forms.SplitContainer() + Me.SplitContainer3 = New System.Windows.Forms.SplitContainer() GUIDLabel = New System.Windows.Forms.Label() PRENAMELabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label() @@ -268,12 +232,14 @@ Partial Class frmMain CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).BeginInit() Me.XtraTabControl2.SuspendLayout() Me.tabGroupAssign.SuspendLayout() - Me.GroupBox8.SuspendLayout() - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.tBDD_USERBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.UserDataSet1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.gvUsersToGroup, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox7.SuspendLayout() + CType(Me.gridAllGroups, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gvAllGroups, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gridUsersAssigned, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gvUsersAssigned, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gridAllUsers, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gvAllUsers, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_USERBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() Me.TBDD_USERBindingNavigator.SuspendLayout() Me.tabPageGroups.SuspendLayout() @@ -289,6 +255,14 @@ Partial Class frmMain CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_CLIENT_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_USER_MODULESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer2.Panel1.SuspendLayout() + Me.SplitContainer2.Panel2.SuspendLayout() + Me.SplitContainer2.SuspendLayout() + CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer3.Panel1.SuspendLayout() + Me.SplitContainer3.Panel2.SuspendLayout() + Me.SplitContainer3.SuspendLayout() Me.SuspendLayout() ' 'GUIDLabel @@ -595,8 +569,8 @@ Partial Class frmMain Me.SplitContainer1.Panel1.Controls.Add(Me.Label2) Me.SplitContainer1.Panel1.Controls.Add(Me.GroupBox3) Me.SplitContainer1.Panel1.Controls.Add(Me.Label1) - Me.SplitContainer1.Panel1.Controls.Add(Me.ListBox1) - Me.SplitContainer1.Panel1.Controls.Add(Me.lbGroups) + Me.SplitContainer1.Panel1.Controls.Add(Me.listClients) + Me.SplitContainer1.Panel1.Controls.Add(Me.listGroups) ' 'SplitContainer1.Panel2 ' @@ -740,7 +714,7 @@ Partial Class frmMain ' 'gvUsers ' - Me.gvUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colPRENAME, Me.colNAME, Me.colUSERNAME, Me.colSHORTNAME, Me.colEMAIL, Me.colLANGUAGE, Me.colGENERAL_VIEWER, Me.colCOMMENT, Me.colWAN_ENVIRONMENT, Me.colLOGGED_IN, Me.colLOGGED_WHERE, Me.colLOG_IN_WHEN, Me.colLOG_OUT_WHEN, Me.colPM_RIGHT_FILE_DELETE, Me.colMODULE_GI, Me.colGI_ADMIN, Me.colMODULE_WD_QS, Me.colMODULE_RECORD_ORG, Me.colRECORD_ADMIN, Me.colUSERID_FK_INT_ECM, Me.colDATE_FORMAT, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colCHANGED_WHO, Me.colCHANGED_WHEN}) + Me.gvUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colPRENAME, Me.colNAME, Me.colUSERNAME, Me.colEMAIL}) Me.gvUsers.GridControl = Me.GridUsers Me.gvUsers.Name = "gvUsers" Me.gvUsers.OptionsBehavior.Editable = False @@ -774,159 +748,12 @@ Partial Class frmMain Me.colUSERNAME.Visible = True Me.colUSERNAME.VisibleIndex = 3 ' - 'colSHORTNAME - ' - Me.colSHORTNAME.FieldName = "SHORTNAME" - Me.colSHORTNAME.Name = "colSHORTNAME" - Me.colSHORTNAME.Visible = True - Me.colSHORTNAME.VisibleIndex = 4 - ' 'colEMAIL ' Me.colEMAIL.FieldName = "EMAIL" Me.colEMAIL.Name = "colEMAIL" Me.colEMAIL.Visible = True - Me.colEMAIL.VisibleIndex = 5 - ' - 'colLANGUAGE - ' - Me.colLANGUAGE.FieldName = "LANGUAGE" - Me.colLANGUAGE.Name = "colLANGUAGE" - Me.colLANGUAGE.Visible = True - Me.colLANGUAGE.VisibleIndex = 6 - ' - 'colGENERAL_VIEWER - ' - Me.colGENERAL_VIEWER.FieldName = "GENERAL_VIEWER" - Me.colGENERAL_VIEWER.Name = "colGENERAL_VIEWER" - Me.colGENERAL_VIEWER.Visible = True - Me.colGENERAL_VIEWER.VisibleIndex = 7 - ' - 'colCOMMENT - ' - Me.colCOMMENT.FieldName = "COMMENT" - Me.colCOMMENT.Name = "colCOMMENT" - Me.colCOMMENT.Visible = True - Me.colCOMMENT.VisibleIndex = 8 - ' - 'colWAN_ENVIRONMENT - ' - Me.colWAN_ENVIRONMENT.FieldName = "WAN_ENVIRONMENT" - Me.colWAN_ENVIRONMENT.Name = "colWAN_ENVIRONMENT" - Me.colWAN_ENVIRONMENT.Visible = True - Me.colWAN_ENVIRONMENT.VisibleIndex = 9 - ' - 'colLOGGED_IN - ' - Me.colLOGGED_IN.FieldName = "LOGGED_IN" - Me.colLOGGED_IN.Name = "colLOGGED_IN" - Me.colLOGGED_IN.Visible = True - Me.colLOGGED_IN.VisibleIndex = 10 - ' - 'colLOGGED_WHERE - ' - Me.colLOGGED_WHERE.FieldName = "LOGGED_WHERE" - Me.colLOGGED_WHERE.Name = "colLOGGED_WHERE" - Me.colLOGGED_WHERE.Visible = True - Me.colLOGGED_WHERE.VisibleIndex = 11 - ' - 'colLOG_IN_WHEN - ' - Me.colLOG_IN_WHEN.FieldName = "LOG_IN_WHEN" - Me.colLOG_IN_WHEN.Name = "colLOG_IN_WHEN" - Me.colLOG_IN_WHEN.Visible = True - Me.colLOG_IN_WHEN.VisibleIndex = 12 - ' - 'colLOG_OUT_WHEN - ' - Me.colLOG_OUT_WHEN.FieldName = "LOG_OUT_WHEN" - Me.colLOG_OUT_WHEN.Name = "colLOG_OUT_WHEN" - Me.colLOG_OUT_WHEN.Visible = True - Me.colLOG_OUT_WHEN.VisibleIndex = 13 - ' - 'colPM_RIGHT_FILE_DELETE - ' - Me.colPM_RIGHT_FILE_DELETE.FieldName = "PM_RIGHT_FILE_DELETE" - Me.colPM_RIGHT_FILE_DELETE.Name = "colPM_RIGHT_FILE_DELETE" - Me.colPM_RIGHT_FILE_DELETE.Visible = True - Me.colPM_RIGHT_FILE_DELETE.VisibleIndex = 14 - ' - 'colMODULE_GI - ' - Me.colMODULE_GI.FieldName = "MODULE_GI" - Me.colMODULE_GI.Name = "colMODULE_GI" - Me.colMODULE_GI.Visible = True - Me.colMODULE_GI.VisibleIndex = 15 - ' - 'colGI_ADMIN - ' - Me.colGI_ADMIN.FieldName = "GI_ADMIN" - Me.colGI_ADMIN.Name = "colGI_ADMIN" - Me.colGI_ADMIN.Visible = True - Me.colGI_ADMIN.VisibleIndex = 16 - ' - 'colMODULE_WD_QS - ' - Me.colMODULE_WD_QS.FieldName = "MODULE_WD_QS" - Me.colMODULE_WD_QS.Name = "colMODULE_WD_QS" - Me.colMODULE_WD_QS.Visible = True - Me.colMODULE_WD_QS.VisibleIndex = 17 - ' - 'colMODULE_RECORD_ORG - ' - Me.colMODULE_RECORD_ORG.FieldName = "MODULE_RECORD_ORG" - Me.colMODULE_RECORD_ORG.Name = "colMODULE_RECORD_ORG" - Me.colMODULE_RECORD_ORG.Visible = True - Me.colMODULE_RECORD_ORG.VisibleIndex = 18 - ' - 'colRECORD_ADMIN - ' - Me.colRECORD_ADMIN.FieldName = "RECORD_ADMIN" - Me.colRECORD_ADMIN.Name = "colRECORD_ADMIN" - Me.colRECORD_ADMIN.Visible = True - Me.colRECORD_ADMIN.VisibleIndex = 19 - ' - 'colUSERID_FK_INT_ECM - ' - Me.colUSERID_FK_INT_ECM.FieldName = "USERID_FK_INT_ECM" - Me.colUSERID_FK_INT_ECM.Name = "colUSERID_FK_INT_ECM" - Me.colUSERID_FK_INT_ECM.Visible = True - Me.colUSERID_FK_INT_ECM.VisibleIndex = 20 - ' - 'colDATE_FORMAT - ' - Me.colDATE_FORMAT.FieldName = "DATE_FORMAT" - Me.colDATE_FORMAT.Name = "colDATE_FORMAT" - Me.colDATE_FORMAT.Visible = True - Me.colDATE_FORMAT.VisibleIndex = 21 - ' - 'colADDED_WHO - ' - Me.colADDED_WHO.FieldName = "ADDED_WHO" - Me.colADDED_WHO.Name = "colADDED_WHO" - Me.colADDED_WHO.Visible = True - Me.colADDED_WHO.VisibleIndex = 22 - ' - 'colADDED_WHEN - ' - Me.colADDED_WHEN.FieldName = "ADDED_WHEN" - Me.colADDED_WHEN.Name = "colADDED_WHEN" - Me.colADDED_WHEN.Visible = True - Me.colADDED_WHEN.VisibleIndex = 23 - ' - 'colCHANGED_WHO - ' - Me.colCHANGED_WHO.FieldName = "CHANGED_WHO" - Me.colCHANGED_WHO.Name = "colCHANGED_WHO" - Me.colCHANGED_WHO.Visible = True - Me.colCHANGED_WHO.VisibleIndex = 24 - ' - 'colCHANGED_WHEN - ' - Me.colCHANGED_WHEN.FieldName = "CHANGED_WHEN" - Me.colCHANGED_WHEN.Name = "colCHANGED_WHEN" - Me.colCHANGED_WHEN.Visible = True - Me.colCHANGED_WHEN.VisibleIndex = 25 + Me.colEMAIL.VisibleIndex = 4 ' 'Label2 ' @@ -1009,30 +836,30 @@ Partial Class frmMain Me.Label1.TabIndex = 61 Me.Label1.Text = "Zugewiesene Gruppen:" ' - 'ListBox1 + 'listClients ' - Me.ListBox1.DataSource = Me.TBDD_CLIENTBindingSource - Me.ListBox1.DisplayMember = "CLIENT_NAME" - Me.ListBox1.FormattingEnabled = True - Me.ListBox1.Location = New System.Drawing.Point(466, 190) - Me.ListBox1.Name = "ListBox1" - Me.ListBox1.Size = New System.Drawing.Size(272, 121) - Me.ListBox1.TabIndex = 60 + Me.listClients.DataSource = Me.TBDD_CLIENTBindingSource + Me.listClients.DisplayMember = "CLIENT_NAME" + Me.listClients.FormattingEnabled = True + Me.listClients.Location = New System.Drawing.Point(466, 190) + Me.listClients.Name = "listClients" + Me.listClients.Size = New System.Drawing.Size(272, 121) + Me.listClients.TabIndex = 60 ' 'TBDD_CLIENTBindingSource ' Me.TBDD_CLIENTBindingSource.DataMember = "TBDD_CLIENT" Me.TBDD_CLIENTBindingSource.DataSource = Me.UserDataSet ' - 'lbGroups + 'listGroups ' - Me.lbGroups.DataSource = Me.TBDD_USER_GROUPSBindingSource - Me.lbGroups.DisplayMember = "NAME" - Me.lbGroups.FormattingEnabled = True - Me.lbGroups.Location = New System.Drawing.Point(466, 33) - Me.lbGroups.Name = "lbGroups" - Me.lbGroups.Size = New System.Drawing.Size(272, 121) - Me.lbGroups.TabIndex = 59 + Me.listGroups.DataSource = Me.TBDD_USER_GROUPSBindingSource + Me.listGroups.DisplayMember = "NAME" + Me.listGroups.FormattingEnabled = True + Me.listGroups.Location = New System.Drawing.Point(466, 33) + Me.listGroups.Name = "listGroups" + Me.listGroups.Size = New System.Drawing.Size(272, 121) + Me.listGroups.TabIndex = 59 ' 'TBDD_USER_GROUPSBindingSource ' @@ -1051,62 +878,169 @@ Partial Class frmMain ' 'tabGroupAssign ' - Me.tabGroupAssign.Controls.Add(Me.GroupBox8) - Me.tabGroupAssign.Controls.Add(Me.GroupBox7) - Me.tabGroupAssign.Controls.Add(Me.Label3) - Me.tabGroupAssign.Controls.Add(Me.ComboBox1) + Me.tabGroupAssign.Controls.Add(Me.SplitContainer2) Me.tabGroupAssign.Image = Global.DDUserManager.My.Resources.Resources.group Me.tabGroupAssign.Name = "tabGroupAssign" Me.tabGroupAssign.Size = New System.Drawing.Size(1187, 345) Me.tabGroupAssign.Text = "Gruppen Zuordnung" ' - 'GroupBox8 + 'Label5 ' - Me.GroupBox8.Controls.Add(Me.GridControl1) - Me.GroupBox8.Controls.Add(Me.Button6) - Me.GroupBox8.Controls.Add(Me.Button5) - Me.GroupBox8.Location = New System.Drawing.Point(338, 56) - Me.GroupBox8.Name = "GroupBox8" - Me.GroupBox8.Size = New System.Drawing.Size(496, 267) - Me.GroupBox8.TabIndex = 5 - Me.GroupBox8.TabStop = False - Me.GroupBox8.Text = "Ausgewählte Benutzer:" + Me.Label5.AutoSize = True + Me.Label5.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Label5.Location = New System.Drawing.Point(0, 6) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(119, 13) + Me.Label5.TabIndex = 7 + Me.Label5.Text = "Zugeordnete Benutzer:" ' - 'GridControl1 + 'Label4 ' - Me.GridControl1.DataSource = Me.tBDD_USERBindingSource1 - Me.GridControl1.Location = New System.Drawing.Point(6, 20) - Me.GridControl1.MainView = Me.gvUsersToGroup - Me.GridControl1.Name = "GridControl1" - Me.GridControl1.Size = New System.Drawing.Size(448, 193) - Me.GridControl1.TabIndex = 5 - Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gvUsersToGroup}) + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(3, 5) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(111, 13) + Me.Label4.TabIndex = 7 + Me.Label4.Text = "Verfügbare Benutzer:" ' - 'tBDD_USERBindingSource1 + 'Label3 ' - Me.tBDD_USERBindingSource1.DataMember = "TBDD_USER" - Me.tBDD_USERBindingSource1.DataSource = Me.UserDataSet1 - Me.tBDD_USERBindingSource1.Sort = "" + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(3, 5) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(109, 13) + Me.Label3.TabIndex = 7 + Me.Label3.Text = "Verfügbare Gruppen:" ' - 'UserDataSet1 + 'gridAllGroups ' - Me.UserDataSet1.DataSetName = "UserDataSet" - Me.UserDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + Me.gridAllGroups.DataSource = Me.TBDD_USER_GROUPSBindingSource + Me.gridAllGroups.Location = New System.Drawing.Point(0, 19) + Me.gridAllGroups.MainView = Me.gvAllGroups + Me.gridAllGroups.Name = "gridAllGroups" + Me.gridAllGroups.Size = New System.Drawing.Size(372, 326) + Me.gridAllGroups.TabIndex = 6 + Me.gridAllGroups.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gvAllGroups}) ' - 'gvUsersToGroup + 'gvAllGroups ' - Me.gvUsersToGroup.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID1, Me.colPRENAME1, Me.colNAME1, Me.colUSERNAME1, Me.colSHORTNAME1, Me.colEMAIL1, Me.colLANGUAGE1, Me.colGENERAL_VIEWER1, Me.colCOMMENT1, Me.colWAN_ENVIRONMENT1, Me.colLOGGED_IN1, Me.colLOGGED_WHERE1, Me.colLOG_IN_WHEN1, Me.colLOG_OUT_WHEN1, Me.colPM_RIGHT_FILE_DELETE1, Me.colMODULE_GI1, Me.colGI_ADMIN1, Me.colMODULE_WD_QS1, Me.colMODULE_RECORD_ORG1, Me.colRECORD_ADMIN1, Me.colUSERID_FK_INT_ECM1, Me.colDATE_FORMAT1, Me.colADDED_WHO1, Me.colADDED_WHEN1, Me.colCHANGED_WHO1, Me.colCHANGED_WHEN1}) - Me.gvUsersToGroup.GridControl = Me.GridControl1 - Me.gvUsersToGroup.Name = "gvUsersToGroup" - Me.gvUsersToGroup.OptionsSelection.MultiSelect = True - Me.gvUsersToGroup.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect + Me.gvAllGroups.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME2, Me.colCOMMENT2}) + Me.gvAllGroups.GridControl = Me.gridAllGroups + Me.gvAllGroups.Name = "gvAllGroups" + Me.gvAllGroups.OptionsBehavior.Editable = False + Me.gvAllGroups.OptionsBehavior.ReadOnly = True + Me.gvAllGroups.OptionsDetail.EnableMasterViewMode = False ' - 'colGUID1 + 'colNAME2 ' - Me.colGUID1.FieldName = "GUID" - Me.colGUID1.Name = "colGUID1" - Me.colGUID1.Visible = True - Me.colGUID1.VisibleIndex = 0 + Me.colNAME2.Caption = "Name" + Me.colNAME2.FieldName = "NAME" + Me.colNAME2.Name = "colNAME2" + Me.colNAME2.Visible = True + Me.colNAME2.VisibleIndex = 0 + ' + 'colCOMMENT2 + ' + Me.colCOMMENT2.Caption = "Comment" + Me.colCOMMENT2.FieldName = "COMMENT" + Me.colCOMMENT2.Name = "colCOMMENT2" + Me.colCOMMENT2.Visible = True + Me.colCOMMENT2.VisibleIndex = 1 + ' + 'gridUsersAssigned + ' + Me.gridUsersAssigned.AllowDrop = True + Me.gridUsersAssigned.DataSource = Me.TBDD_USERBindingSource + Me.gridUsersAssigned.Dock = System.Windows.Forms.DockStyle.Bottom + Me.gridUsersAssigned.Location = New System.Drawing.Point(0, 19) + Me.gridUsersAssigned.MainView = Me.gvUsersAssigned + Me.gridUsersAssigned.Name = "gridUsersAssigned" + Me.gridUsersAssigned.Size = New System.Drawing.Size(443, 326) + Me.gridUsersAssigned.TabIndex = 5 + Me.gridUsersAssigned.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gvUsersAssigned, Me.GridView3}) + ' + 'gvUsersAssigned + ' + Me.gvUsersAssigned.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn1, Me.GridColumn2, Me.GridColumn3, Me.GridColumn4, Me.GridColumn5}) + Me.gvUsersAssigned.GridControl = Me.gridUsersAssigned + Me.gvUsersAssigned.Name = "gvUsersAssigned" + Me.gvUsersAssigned.OptionsBehavior.Editable = False + Me.gvUsersAssigned.OptionsBehavior.ReadOnly = True + Me.gvUsersAssigned.OptionsDetail.EnableMasterViewMode = False + Me.gvUsersAssigned.OptionsSelection.MultiSelect = True + Me.gvUsersAssigned.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect + Me.gvUsersAssigned.OptionsView.ShowAutoFilterRow = True + ' + 'GridColumn1 + ' + Me.GridColumn1.FieldName = "GUID" + Me.GridColumn1.Name = "GridColumn1" + Me.GridColumn1.Visible = True + Me.GridColumn1.VisibleIndex = 1 + ' + 'GridColumn2 + ' + Me.GridColumn2.FieldName = "PRENAME" + Me.GridColumn2.Name = "GridColumn2" + Me.GridColumn2.Visible = True + Me.GridColumn2.VisibleIndex = 2 + ' + 'GridColumn3 + ' + Me.GridColumn3.FieldName = "NAME" + Me.GridColumn3.Name = "GridColumn3" + Me.GridColumn3.Visible = True + Me.GridColumn3.VisibleIndex = 3 + ' + 'GridColumn4 + ' + Me.GridColumn4.FieldName = "USERNAME" + Me.GridColumn4.Name = "GridColumn4" + Me.GridColumn4.Visible = True + Me.GridColumn4.VisibleIndex = 4 + ' + 'GridColumn5 + ' + Me.GridColumn5.FieldName = "EMAIL" + Me.GridColumn5.Name = "GridColumn5" + Me.GridColumn5.Visible = True + Me.GridColumn5.VisibleIndex = 5 + ' + 'GridView3 + ' + Me.GridView3.GridControl = Me.gridUsersAssigned + Me.GridView3.Name = "GridView3" + ' + 'gridAllUsers + ' + Me.gridAllUsers.AllowDrop = True + Me.gridAllUsers.DataSource = Me.TBDD_USERBindingSource + Me.gridAllUsers.Dock = System.Windows.Forms.DockStyle.Bottom + Me.gridAllUsers.Location = New System.Drawing.Point(0, 19) + Me.gridAllUsers.MainView = Me.gvAllUsers + Me.gridAllUsers.Name = "gridAllUsers" + Me.gridAllUsers.Size = New System.Drawing.Size(364, 326) + Me.gridAllUsers.TabIndex = 5 + Me.gridAllUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gvAllUsers, Me.GridView1}) + ' + 'gvAllUsers + ' + Me.gvAllUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colUSERNAME1, Me.colPRENAME1, Me.colNAME1}) + Me.gvAllUsers.GridControl = Me.gridAllUsers + Me.gvAllUsers.Name = "gvAllUsers" + Me.gvAllUsers.OptionsBehavior.Editable = False + Me.gvAllUsers.OptionsBehavior.ReadOnly = True + Me.gvAllUsers.OptionsDetail.EnableMasterViewMode = False + Me.gvAllUsers.OptionsSelection.MultiSelect = True + Me.gvAllUsers.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CheckBoxRowSelect + Me.gvAllUsers.OptionsView.ShowAutoFilterRow = True + ' + 'colUSERNAME1 + ' + Me.colUSERNAME1.FieldName = "USERNAME" + Me.colUSERNAME1.Name = "colUSERNAME1" + Me.colUSERNAME1.Visible = True + Me.colUSERNAME1.VisibleIndex = 3 ' 'colPRENAME1 ' @@ -1122,230 +1056,10 @@ Partial Class frmMain Me.colNAME1.Visible = True Me.colNAME1.VisibleIndex = 2 ' - 'colUSERNAME1 + 'GridView1 ' - Me.colUSERNAME1.FieldName = "USERNAME" - Me.colUSERNAME1.Name = "colUSERNAME1" - Me.colUSERNAME1.Visible = True - Me.colUSERNAME1.VisibleIndex = 3 - ' - 'colSHORTNAME1 - ' - Me.colSHORTNAME1.FieldName = "SHORTNAME" - Me.colSHORTNAME1.Name = "colSHORTNAME1" - Me.colSHORTNAME1.Visible = True - Me.colSHORTNAME1.VisibleIndex = 4 - ' - 'colEMAIL1 - ' - Me.colEMAIL1.FieldName = "EMAIL" - Me.colEMAIL1.Name = "colEMAIL1" - Me.colEMAIL1.Visible = True - Me.colEMAIL1.VisibleIndex = 5 - ' - 'colLANGUAGE1 - ' - Me.colLANGUAGE1.FieldName = "LANGUAGE" - Me.colLANGUAGE1.Name = "colLANGUAGE1" - Me.colLANGUAGE1.Visible = True - Me.colLANGUAGE1.VisibleIndex = 6 - ' - 'colGENERAL_VIEWER1 - ' - Me.colGENERAL_VIEWER1.FieldName = "GENERAL_VIEWER" - Me.colGENERAL_VIEWER1.Name = "colGENERAL_VIEWER1" - Me.colGENERAL_VIEWER1.Visible = True - Me.colGENERAL_VIEWER1.VisibleIndex = 7 - ' - 'colCOMMENT1 - ' - Me.colCOMMENT1.FieldName = "COMMENT" - Me.colCOMMENT1.Name = "colCOMMENT1" - Me.colCOMMENT1.Visible = True - Me.colCOMMENT1.VisibleIndex = 8 - ' - 'colWAN_ENVIRONMENT1 - ' - Me.colWAN_ENVIRONMENT1.FieldName = "WAN_ENVIRONMENT" - Me.colWAN_ENVIRONMENT1.Name = "colWAN_ENVIRONMENT1" - Me.colWAN_ENVIRONMENT1.Visible = True - Me.colWAN_ENVIRONMENT1.VisibleIndex = 9 - ' - 'colLOGGED_IN1 - ' - Me.colLOGGED_IN1.FieldName = "LOGGED_IN" - Me.colLOGGED_IN1.Name = "colLOGGED_IN1" - Me.colLOGGED_IN1.Visible = True - Me.colLOGGED_IN1.VisibleIndex = 10 - ' - 'colLOGGED_WHERE1 - ' - Me.colLOGGED_WHERE1.FieldName = "LOGGED_WHERE" - Me.colLOGGED_WHERE1.Name = "colLOGGED_WHERE1" - Me.colLOGGED_WHERE1.Visible = True - Me.colLOGGED_WHERE1.VisibleIndex = 11 - ' - 'colLOG_IN_WHEN1 - ' - Me.colLOG_IN_WHEN1.FieldName = "LOG_IN_WHEN" - Me.colLOG_IN_WHEN1.Name = "colLOG_IN_WHEN1" - Me.colLOG_IN_WHEN1.Visible = True - Me.colLOG_IN_WHEN1.VisibleIndex = 12 - ' - 'colLOG_OUT_WHEN1 - ' - Me.colLOG_OUT_WHEN1.FieldName = "LOG_OUT_WHEN" - Me.colLOG_OUT_WHEN1.Name = "colLOG_OUT_WHEN1" - Me.colLOG_OUT_WHEN1.Visible = True - Me.colLOG_OUT_WHEN1.VisibleIndex = 13 - ' - 'colPM_RIGHT_FILE_DELETE1 - ' - Me.colPM_RIGHT_FILE_DELETE1.FieldName = "PM_RIGHT_FILE_DELETE" - Me.colPM_RIGHT_FILE_DELETE1.Name = "colPM_RIGHT_FILE_DELETE1" - Me.colPM_RIGHT_FILE_DELETE1.Visible = True - Me.colPM_RIGHT_FILE_DELETE1.VisibleIndex = 14 - ' - 'colMODULE_GI1 - ' - Me.colMODULE_GI1.FieldName = "MODULE_GI" - Me.colMODULE_GI1.Name = "colMODULE_GI1" - Me.colMODULE_GI1.Visible = True - Me.colMODULE_GI1.VisibleIndex = 15 - ' - 'colGI_ADMIN1 - ' - Me.colGI_ADMIN1.FieldName = "GI_ADMIN" - Me.colGI_ADMIN1.Name = "colGI_ADMIN1" - Me.colGI_ADMIN1.Visible = True - Me.colGI_ADMIN1.VisibleIndex = 16 - ' - 'colMODULE_WD_QS1 - ' - Me.colMODULE_WD_QS1.FieldName = "MODULE_WD_QS" - Me.colMODULE_WD_QS1.Name = "colMODULE_WD_QS1" - Me.colMODULE_WD_QS1.Visible = True - Me.colMODULE_WD_QS1.VisibleIndex = 17 - ' - 'colMODULE_RECORD_ORG1 - ' - Me.colMODULE_RECORD_ORG1.FieldName = "MODULE_RECORD_ORG" - Me.colMODULE_RECORD_ORG1.Name = "colMODULE_RECORD_ORG1" - Me.colMODULE_RECORD_ORG1.Visible = True - Me.colMODULE_RECORD_ORG1.VisibleIndex = 18 - ' - 'colRECORD_ADMIN1 - ' - Me.colRECORD_ADMIN1.FieldName = "RECORD_ADMIN" - Me.colRECORD_ADMIN1.Name = "colRECORD_ADMIN1" - Me.colRECORD_ADMIN1.Visible = True - Me.colRECORD_ADMIN1.VisibleIndex = 19 - ' - 'colUSERID_FK_INT_ECM1 - ' - Me.colUSERID_FK_INT_ECM1.FieldName = "USERID_FK_INT_ECM" - Me.colUSERID_FK_INT_ECM1.Name = "colUSERID_FK_INT_ECM1" - Me.colUSERID_FK_INT_ECM1.Visible = True - Me.colUSERID_FK_INT_ECM1.VisibleIndex = 20 - ' - 'colDATE_FORMAT1 - ' - Me.colDATE_FORMAT1.FieldName = "DATE_FORMAT" - Me.colDATE_FORMAT1.Name = "colDATE_FORMAT1" - Me.colDATE_FORMAT1.Visible = True - Me.colDATE_FORMAT1.VisibleIndex = 21 - ' - 'colADDED_WHO1 - ' - Me.colADDED_WHO1.FieldName = "ADDED_WHO" - Me.colADDED_WHO1.Name = "colADDED_WHO1" - Me.colADDED_WHO1.Visible = True - Me.colADDED_WHO1.VisibleIndex = 22 - ' - 'colADDED_WHEN1 - ' - Me.colADDED_WHEN1.FieldName = "ADDED_WHEN" - Me.colADDED_WHEN1.Name = "colADDED_WHEN1" - Me.colADDED_WHEN1.Visible = True - Me.colADDED_WHEN1.VisibleIndex = 23 - ' - 'colCHANGED_WHO1 - ' - Me.colCHANGED_WHO1.FieldName = "CHANGED_WHO" - Me.colCHANGED_WHO1.Name = "colCHANGED_WHO1" - Me.colCHANGED_WHO1.Visible = True - Me.colCHANGED_WHO1.VisibleIndex = 24 - ' - 'colCHANGED_WHEN1 - ' - Me.colCHANGED_WHEN1.FieldName = "CHANGED_WHEN" - Me.colCHANGED_WHEN1.Name = "colCHANGED_WHEN1" - Me.colCHANGED_WHEN1.Visible = True - Me.colCHANGED_WHEN1.VisibleIndex = 25 - ' - 'Button6 - ' - Me.Button6.Location = New System.Drawing.Point(269, 219) - Me.Button6.Name = "Button6" - Me.Button6.Size = New System.Drawing.Size(185, 23) - Me.Button6.TabIndex = 4 - Me.Button6.Text = "aus Gruppe entfernen" - Me.Button6.UseVisualStyleBackColor = True - ' - 'Button5 - ' - Me.Button5.Location = New System.Drawing.Point(6, 219) - Me.Button5.Name = "Button5" - Me.Button5.Size = New System.Drawing.Size(185, 23) - Me.Button5.TabIndex = 4 - Me.Button5.Text = "zu Gruppe hinzufügen" - Me.Button5.UseVisualStyleBackColor = True - ' - 'GroupBox7 - ' - Me.GroupBox7.Controls.Add(Me.Button4) - Me.GroupBox7.Controls.Add(Me.Button1) - Me.GroupBox7.Location = New System.Drawing.Point(10, 56) - Me.GroupBox7.Name = "GroupBox7" - Me.GroupBox7.Size = New System.Drawing.Size(322, 100) - Me.GroupBox7.TabIndex = 5 - Me.GroupBox7.TabStop = False - Me.GroupBox7.Text = "Aktuellen Benutzer:" - ' - 'Button4 - ' - Me.Button4.Location = New System.Drawing.Point(9, 49) - Me.Button4.Name = "Button4" - Me.Button4.Size = New System.Drawing.Size(185, 23) - Me.Button4.TabIndex = 4 - Me.Button4.Text = "aus Gruppe entfernen" - Me.Button4.UseVisualStyleBackColor = True - ' - 'Button1 - ' - Me.Button1.Location = New System.Drawing.Point(9, 20) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(185, 23) - Me.Button1.TabIndex = 4 - Me.Button1.Text = "zu Gruppe hinzufügen" - Me.Button1.UseVisualStyleBackColor = True - ' - 'Label3 - ' - Me.Label3.AutoSize = True - Me.Label3.Location = New System.Drawing.Point(16, 23) - Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(109, 13) - Me.Label3.TabIndex = 2 - Me.Label3.Text = "Verfügbare Gruppen:" - ' - 'ComboBox1 - ' - Me.ComboBox1.FormattingEnabled = True - Me.ComboBox1.Location = New System.Drawing.Point(135, 20) - Me.ComboBox1.Name = "ComboBox1" - Me.ComboBox1.Size = New System.Drawing.Size(197, 21) - Me.ComboBox1.TabIndex = 1 + Me.GridView1.GridControl = Me.gridAllUsers + Me.GridView1.Name = "GridView1" ' 'tabClientAssign ' @@ -1889,6 +1603,11 @@ Partial Class frmMain Me.GUIDTextBox2.Size = New System.Drawing.Size(100, 21) Me.GUIDTextBox2.TabIndex = 1 ' + 'TBDD_GROUPS_USERBindingSource + ' + Me.TBDD_GROUPS_USERBindingSource.DataMember = "FK_TBDD_GROUPS_USER_USER_ID" + Me.TBDD_GROUPS_USERBindingSource.DataSource = Me.TBDD_USERBindingSource + ' 'TBDD_USERTableAdapter ' Me.TBDD_USERTableAdapter.ClearBeforeFill = True @@ -1905,11 +1624,6 @@ Partial Class frmMain Me.TableAdapterManager.TBDD_USERTableAdapter = Me.TBDD_USERTableAdapter Me.TableAdapterManager.UpdateOrder = DDUserManager.UserDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' - 'TBDD_GROUPS_USERBindingSource - ' - Me.TBDD_GROUPS_USERBindingSource.DataMember = "FK_TBDD_GROUPS_USER_USER_ID" - Me.TBDD_GROUPS_USERBindingSource.DataSource = Me.TBDD_USERBindingSource - ' 'TBDD_GROUPS_USERTableAdapter ' Me.TBDD_GROUPS_USERTableAdapter.ClearBeforeFill = True @@ -1940,9 +1654,42 @@ Partial Class frmMain ' Me.TBDD_CLIENTTableAdapter.ClearBeforeFill = True ' - 'TbdD_USERTableAdapter1 + 'SplitContainer2 ' - Me.TbdD_USERTableAdapter1.ClearBeforeFill = True + Me.SplitContainer2.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer2.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer2.Name = "SplitContainer2" + ' + 'SplitContainer2.Panel1 + ' + Me.SplitContainer2.Panel1.Controls.Add(Me.SplitContainer3) + ' + 'SplitContainer2.Panel2 + ' + Me.SplitContainer2.Panel2.Controls.Add(Me.Label5) + Me.SplitContainer2.Panel2.Controls.Add(Me.gridUsersAssigned) + Me.SplitContainer2.Size = New System.Drawing.Size(1187, 345) + Me.SplitContainer2.SplitterDistance = 740 + Me.SplitContainer2.TabIndex = 8 + ' + 'SplitContainer3 + ' + Me.SplitContainer3.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer3.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer3.Name = "SplitContainer3" + ' + 'SplitContainer3.Panel1 + ' + Me.SplitContainer3.Panel1.Controls.Add(Me.Label3) + Me.SplitContainer3.Panel1.Controls.Add(Me.gridAllGroups) + ' + 'SplitContainer3.Panel2 + ' + Me.SplitContainer3.Panel2.Controls.Add(Me.Label4) + Me.SplitContainer3.Panel2.Controls.Add(Me.gridAllUsers) + Me.SplitContainer3.Size = New System.Drawing.Size(740, 345) + Me.SplitContainer3.SplitterDistance = 372 + Me.SplitContainer3.TabIndex = 0 ' 'frmMain ' @@ -1974,13 +1721,14 @@ Partial Class frmMain CType(Me.XtraTabControl2, System.ComponentModel.ISupportInitialize).EndInit() Me.XtraTabControl2.ResumeLayout(False) Me.tabGroupAssign.ResumeLayout(False) - Me.tabGroupAssign.PerformLayout() - Me.GroupBox8.ResumeLayout(False) - CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.tBDD_USERBindingSource1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.UserDataSet1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.gvUsersToGroup, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox7.ResumeLayout(False) + CType(Me.gridAllGroups, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gvAllGroups, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gridUsersAssigned, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gvUsersAssigned, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gridAllUsers, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gvAllUsers, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_USERBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() Me.TBDD_USERBindingNavigator.ResumeLayout(False) Me.TBDD_USERBindingNavigator.PerformLayout() @@ -2005,6 +1753,17 @@ Partial Class frmMain CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_CLIENT_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_USER_MODULESBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer2.Panel1.ResumeLayout(False) + Me.SplitContainer2.Panel2.ResumeLayout(False) + Me.SplitContainer2.Panel2.PerformLayout() + CType(Me.SplitContainer2, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer2.ResumeLayout(False) + Me.SplitContainer3.Panel1.ResumeLayout(False) + Me.SplitContainer3.Panel1.PerformLayout() + Me.SplitContainer3.Panel2.ResumeLayout(False) + Me.SplitContainer3.Panel2.PerformLayout() + CType(Me.SplitContainer3, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer3.ResumeLayout(False) Me.ResumeLayout(False) End Sub @@ -2053,30 +1812,9 @@ Partial Class frmMain Friend WithEvents colPRENAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colUSERNAME As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colSHORTNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colEMAIL As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colLANGUAGE As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colGENERAL_VIEWER As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colCOMMENT As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colWAN_ENVIRONMENT As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colLOGGED_IN As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colLOGGED_WHERE As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colLOG_IN_WHEN As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colLOG_OUT_WHEN As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colPM_RIGHT_FILE_DELETE As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colMODULE_GI As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colGI_ADMIN As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colMODULE_WD_QS As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colMODULE_RECORD_ORG As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colRECORD_ADMIN As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colUSERID_FK_INT_ECM As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colDATE_FORMAT As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colADDED_WHO As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colCHANGED_WHO As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colCHANGED_WHEN As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents lbGroups As ListBox - Friend WithEvents ListBox1 As ListBox + Friend WithEvents listGroups As ListBox + Friend WithEvents listClients As ListBox Friend WithEvents Label2 As Label Friend WithEvents Label1 As Label Friend WithEvents TBDD_GROUPS_USERBindingSource As BindingSource @@ -2135,45 +1873,29 @@ Partial Class frmMain Friend WithEvents ToolStripButton1 As ToolStripButton Friend WithEvents SplitContainer1 As SplitContainer Friend WithEvents XtraTabControl2 As DevExpress.XtraTab.XtraTabControl - Friend WithEvents tabGroupAssign As DevExpress.XtraTab.XtraTabPage Friend WithEvents tabClientAssign As DevExpress.XtraTab.XtraTabPage - Friend WithEvents Label3 As Label - Friend WithEvents ComboBox1 As ComboBox - Friend WithEvents GroupBox8 As GroupBox - Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl - Friend WithEvents tBDD_USERBindingSource1 As BindingSource - Friend WithEvents UserDataSet1 As UserDataSet - Friend WithEvents gvUsersToGroup As DevExpress.XtraGrid.Views.Grid.GridView - Friend WithEvents colGUID1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents tabGroupAssign As DevExpress.XtraTab.XtraTabPage + Friend WithEvents gridAllUsers As DevExpress.XtraGrid.GridControl + Friend WithEvents gvAllUsers As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents colPRENAME1 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colNAME1 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colUSERNAME1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colSHORTNAME1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colEMAIL1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colLANGUAGE1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colGENERAL_VIEWER1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colCOMMENT1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colWAN_ENVIRONMENT1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colLOGGED_IN1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colLOGGED_WHERE1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colLOG_IN_WHEN1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colLOG_OUT_WHEN1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colPM_RIGHT_FILE_DELETE1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colMODULE_GI1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colGI_ADMIN1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colMODULE_WD_QS1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colMODULE_RECORD_ORG1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colRECORD_ADMIN1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colUSERID_FK_INT_ECM1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colDATE_FORMAT1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colADDED_WHO1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colADDED_WHEN1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colCHANGED_WHO1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents colCHANGED_WHEN1 As DevExpress.XtraGrid.Columns.GridColumn - Friend WithEvents Button6 As Button - Friend WithEvents Button5 As Button - Friend WithEvents GroupBox7 As GroupBox - Friend WithEvents Button4 As Button - Friend WithEvents Button1 As Button - Friend WithEvents TbdD_USERTableAdapter1 As UserDataSetTableAdapters.TBDD_USERTableAdapter + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents gridAllGroups As DevExpress.XtraGrid.GridControl + Friend WithEvents gvAllGroups As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colNAME2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents Label5 As Label + Friend WithEvents Label4 As Label + Friend WithEvents Label3 As Label + Friend WithEvents gridUsersAssigned As DevExpress.XtraGrid.GridControl + Friend WithEvents gvUsersAssigned As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridView3 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colCOMMENT2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents SplitContainer2 As SplitContainer + Friend WithEvents SplitContainer3 As SplitContainer End Class diff --git a/DDUserManager/DDUserManager/frmMain.resx b/DDUserManager/DDUserManager/frmMain.resx index d1b4ec8..0d52b2c 100644 --- a/DDUserManager/DDUserManager/frmMain.resx +++ b/DDUserManager/DDUserManager/frmMain.resx @@ -219,11 +219,8 @@ 489, 56 - - 1158, 95 - - - 17, 134 + + 489, 56 693, 17 @@ -330,12 +327,6 @@ 268, 95 - - 489, 56 - - - 17, 134 - 672, 95 @@ -470,15 +461,15 @@ 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + 905, 17 + 331, 17 520, 17 - - 905, 17 - 1152, 17 @@ -500,10 +491,7 @@ 473, 95 - - 142, 134 - - 134 + 230 \ No newline at end of file diff --git a/DDUserManager/DDUserManager/frmMain.vb b/DDUserManager/DDUserManager/frmMain.vb index 62e8a5a..6caa6b4 100644 --- a/DDUserManager/DDUserManager/frmMain.vb +++ b/DDUserManager/DDUserManager/frmMain.vb @@ -1,4 +1,7 @@ -Imports DevExpress.XtraGrid.Columns +Imports DevExpress.XtraGrid +Imports DevExpress.XtraGrid.Views.Grid +Imports DDUserManager.UserDataSet +Imports DevExpress.XtraGrid.Views.Grid.ViewInfo ''' ''' Anmerkungen: @@ -6,17 +9,8 @@ ''' https://stackoverflow.com/questions/21270697/argumentoutofrangeexception-with-data-binding-when-debugger-is-running-vs2010#28550637 ''' ''' - - Public Class frmMain - Public Sub New() - ' Dieser Aufruf ist für den Designer erforderlich. - InitializeComponent() - - ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. - ' This line of code is generated by Data Source Configuration Wizard - TbdD_USERTableAdapter1.Fill(UserDataSet1.TBDD_USER) - End Sub + Public downHitInfo As GridHitInfo Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try @@ -29,68 +23,30 @@ Public Class frmMain Catch ex As Exception MessageBox.Show($"Error in frmMain_Load: {ex.Message}") End Try - - gvUsers.Columns.Clear() - gvUsers.Columns.AddRange(GetUserGridColumns()) - gvUsers.BestFitColumns() - - gvUsersToGroup.Columns.Clear() - gvUsersToGroup.Columns.AddRange(GetUserGridColumns()) - gvUsersToGroup.BestFitColumns() End Sub - Private Function GetUserGridColumns() As GridColumn() - Dim columns As GridColumn() = { - New GridColumn() With { - .FieldName = "GUID", - .Name = "GUID", - .Caption = "GUID", - .VisibleIndex = 0 - }, - New GridColumn() With { - .FieldName = "USERNAME", - .Name = "USERNAME", - .Caption = "Benutzer", - .VisibleIndex = 1 - }, - New GridColumn() With { - .FieldName = "PRENAME", - .Name = "PRENAME", - .Caption = "Vorname", - .VisibleIndex = 2 - }, - New GridColumn() With { - .FieldName = "NAME", - .Name = "NAME", - .Caption = "Nachname", - .VisibleIndex = 3 - }, - New GridColumn() With { - .FieldName = "EMAIL", - .Name = "EMAIL", - .Caption = "Email", - .VisibleIndex = 4 - } - } - - Return columns - End Function - - Private Sub UpdateClientsForUser(username As String) +#Region "User Details" + Private Function GetClientsForUser(username As String) As DataTable Try - TBDD_CLIENTTableAdapter.FillByUsername(UserDataSet.TBDD_CLIENT, USERNAMETextBox.Text) + Dim dt As New TBDD_CLIENTDataTable() + TBDD_CLIENTTableAdapter.FillByUsername(dt, username) + + Return dt Catch ex As Exception MessageBox.Show($"Error in UpdateClientsForUser: {ex.Message}") End Try - End Sub + End Function - Private Sub UpdateGroupsForUser(username As String) + Private Function GetGroupsForUser(username As String) As DataTable Try - TBDD_USER_GROUPSTableAdapter.FillByUsername(UserDataSet.TBDD_USER_GROUPS, USERNAMETextBox.Text) + Dim dt As New TBDD_USER_GROUPSDataTable() + TBDD_USER_GROUPSTableAdapter.FillByUsername(dt, username) + + Return dt Catch ex As Exception MessageBox.Show($"Error in UpdateGroupsForUser: {ex.Message}") End Try - End Sub + End Function Private Sub TBDD_USERBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBDD_USERBindingNavigatorSaveItem.Click Validate() @@ -98,18 +54,108 @@ Public Class frmMain TableAdapterManager.UpdateAll(UserDataSet) End Sub - - Private Sub TBDD_USERBindingSource_PositionChanged(sender As Object, e As EventArgs) Handles TBDD_USERBindingSource.PositionChanged + Private Sub TBDD_USERBindingSource_Update(sender As Object, e As EventArgs) Handles TBDD_USERBindingSource.PositionChanged, TBDD_USERBindingSource.ListChanged If USERNAMETextBox.Text <> String.Empty Then - UpdateClientsForUser(USERNAMETextBox.Text) - UpdateGroupsForUser(USERNAMETextBox.Text) + listGroups.DataSource = GetGroupsForUser(USERNAMETextBox.Text) + listClients.DataSource = GetClientsForUser(USERNAMETextBox.Text) + End If + End Sub +#End Region + +#Region "Group Stuff" + + Private Sub grvwAllGroups_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles gvAllGroups.FocusedRowChanged + If e.FocusedRowHandle = -1 Then + Exit Sub + End If + + Dim view As GridView = sender + Dim row As TBDD_USER_GROUPSRow = view.GetDataRow(e.FocusedRowHandle) + Dim groupId As String = row.GUID + + Dim dt As New TBDD_USERDataTable() + TBDD_USERTableAdapter.FillByGroupId(dt, groupId) + + gridUsersAssigned.DataSource = dt + End Sub + + Private Sub gvAllUsers_MouseDown(sender As Object, e As MouseEventArgs) Handles gvAllUsers.MouseDown + Dim view As GridView = sender + downHitInfo = Nothing + Dim hitInfo As GridHitInfo = view.CalcHitInfo(New Point(e.X, e.Y)) + + If ModifierKeys <> Keys.None Then + Return + End If + + If e.Button = MouseButtons.Left And hitInfo.RowHandle >= 0 Then + downHitInfo = hitInfo End If End Sub - Private Sub TBDD_USERBindingSource_ListChanged(sender As Object, e As System.ComponentModel.ListChangedEventArgs) Handles TBDD_USERBindingSource.ListChanged - If USERNAMETextBox.Text <> String.Empty Then - UpdateClientsForUser(USERNAMETextBox.Text) - UpdateGroupsForUser(USERNAMETextBox.Text) + Private Sub gvAllUsers_MouseMove(sender As Object, e As MouseEventArgs) Handles gvAllUsers.MouseMove + Dim view As GridView = sender + + If e.Button = MouseButtons.Left And Not IsNothing(downHitInfo) Then + Dim dragSize As Size = SystemInformation.DragSize + Dim dragRect As New Rectangle(New Point(downHitInfo.HitPoint.X - dragSize.Width / 2, downHitInfo.HitPoint.Y - dragSize.Height / 2), dragSize) + + If dragRect.Contains(New Point(e.X, e.Y)) Then + Dim row As TBDD_USERRow = view.GetDataRow(downHitInfo.RowHandle) + view.GridControl.DoDragDrop(row, DragDropEffects.Move) + downHitInfo = Nothing + + Console.WriteLine("DoDragDrop") + + DevExpress.Utils.DXMouseEventArgs.GetMouseArgs(e).Handled = True + End If End If End Sub + + 'Private Sub gridAllUsers_DragOver(sender As Object, e As DragEventArgs) Handles gridAllUsers.DragOver + ' Console.WriteLine("gridAllUsers_DragOver") + + ' If e.Data.GetDataPresent(GetType(TBDD_USERRow)) Then + ' e.Effect = DragDropEffects.Move + ' Else + ' e.Effect = DragDropEffects.None + ' End If + 'End Sub + + 'Private Sub gridAllUsers_DragDrop(sender As Object, e As DragEventArgs) Handles gridAllUsers.DragDrop + ' Console.WriteLine("gridAllUsers_DragDrop") + + ' Dim grid As GridControl = sender + ' Dim table As DataTable = grid.DataSource + ' Dim row As TBDD_USERRow = e.Data.GetData(GetType(TBDD_USERRow)) + + 'End Sub + + Private Sub gridUsersAssigned_DragDrop(sender As Object, e As DragEventArgs) Handles gridUsersAssigned.DragDrop + Console.WriteLine("gridUsersAssigned_DragOver") + + Dim grid As GridControl = sender + Dim table As DataTable = grid.DataSource + Dim row As TBDD_USERRow = e.Data.GetData(GetType(TBDD_USERRow)) + + 'If Not IsNothing(row) And Not table.Rows.Contains(row) Then + If Not IsNothing(row) Then + table.ImportRow(row) + End If + + End Sub + + Private Sub gridUsersAssigned_DragOver(sender As Object, e As DragEventArgs) Handles gridUsersAssigned.DragOver + Console.WriteLine("gridUsersAssigned_DragOver") + + If e.Data.GetDataPresent(GetType(TBDD_USERRow)) Then + e.Effect = DragDropEffects.Move + Else + e.Effect = DragDropEffects.None + End If + End Sub + + +#End Region + End Class