From c88602a95574451f2301c5d9b76e8721ba4cfbc8 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 26 Apr 2018 14:19:12 +0200 Subject: [PATCH] jj: Add Drag'n'Drop for Group Assignments --- .../DDUserManager/UserDataSet.Designer.vb | 8287 ++++++++--------- DDUserManager/DDUserManager/UserDataSet.xsc | 28 +- DDUserManager/DDUserManager/UserDataSet.xsd | 635 +- DDUserManager/DDUserManager/UserDataSet.xss | 82 +- .../DDUserManager/frmMain.Designer.vb | 884 +- DDUserManager/DDUserManager/frmMain.resx | 24 +- DDUserManager/DDUserManager/frmMain.vb | 186 +- 7 files changed, 4856 insertions(+), 5270 deletions(-) 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,58 +512,23 @@ Partial Public Class UserDataSet _ Public Delegate Sub TBDD_CLIENT_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CLIENT_USERRowChangeEvent) + _ + Public Delegate Sub TBDD_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USERRowChangeEvent) + ''' '''Represents the strongly named DataTable class. ''' _ - Partial Public Class TBDD_USERDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_USERRow) + Partial Public Class TBDD_USER_GROUPSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_USER_GROUPSRow) 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 @@ -579,7 +541,7 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBDD_USER" + Me.TableName = "TBDD_USER_GROUPS" Me.BeginInit Me.InitClass Me.EndInit @@ -618,14 +580,6 @@ Partial Public Class UserDataSet 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 @@ -636,356 +590,130 @@ Partial Public Class UserDataSet _ - Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSERNAME + Return Me.columnCOMMENT End Get End Property _ - Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnSHORTNAME + Return Me.columnADDED_WHO End Get End Property _ - Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnEMAIL + Return Me.columnADDED_WHEN End Get End Property _ - Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnLANGUAGE + Return Me.columnCHANGED_WHO End Get End Property _ - Public ReadOnly Property GENERAL_VIEWERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnGENERAL_VIEWER + Return Me.columnCHANGED_WHEN End Get End Property _ - Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer Get - Return Me.columnCOMMENT + Return Me.Rows.Count End Get End Property _ - Public ReadOnly Property WAN_ENVIRONMENTColumn() As Global.System.Data.DataColumn + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USER_GROUPSRow Get - Return Me.columnWAN_ENVIRONMENT + Return CType(Me.Rows(index),TBDD_USER_GROUPSRow) End Get End Property - _ - Public ReadOnly Property LOGGED_INColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLOGGED_IN - End Get - End Property + _ + Public Event TBDD_USER_GROUPSRowChanging As TBDD_USER_GROUPSRowChangeEventHandler - _ - Public ReadOnly Property LOGGED_WHEREColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLOGGED_WHERE - End Get - End Property + _ + Public Event TBDD_USER_GROUPSRowChanged As TBDD_USER_GROUPSRowChangeEventHandler - _ - Public ReadOnly Property LOG_IN_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLOG_IN_WHEN - End Get - End Property + _ + Public Event TBDD_USER_GROUPSRowDeleting As TBDD_USER_GROUPSRowChangeEventHandler - _ - Public ReadOnly Property LOG_OUT_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLOG_OUT_WHEN - End Get - End Property + _ + Public Event TBDD_USER_GROUPSRowDeleted As TBDD_USER_GROUPSRowChangeEventHandler _ - Public ReadOnly Property PM_RIGHT_FILE_DELETEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPM_RIGHT_FILE_DELETE - End Get - End Property + Public Overloads Sub AddTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) + Me.Rows.Add(row) + End Sub _ - Public ReadOnly Property MODULE_GIColumn() As Global.System.Data.DataColumn - Get - Return Me.columnMODULE_GI - End Get - End Property + Public Overloads Function AddTBDD_USER_GROUPSRow(ByVal NAME As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_USER_GROUPSRow + Dim rowTBDD_USER_GROUPSRow As TBDD_USER_GROUPSRow = CType(Me.NewRow,TBDD_USER_GROUPSRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBDD_USER_GROUPSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_USER_GROUPSRow) + Return rowTBDD_USER_GROUPSRow + End Function _ - Public ReadOnly Property GI_ADMINColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGI_ADMIN - End Get - End Property + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USER_GROUPSRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USER_GROUPSRow) + End Function _ - Public ReadOnly Property MODULE_WD_QSColumn() As Global.System.Data.DataColumn - Get - Return Me.columnMODULE_WD_QS - End Get - End Property + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_USER_GROUPSDataTable = CType(MyBase.Clone,TBDD_USER_GROUPSDataTable) + cln.InitVars + Return cln + End Function _ - Public ReadOnly Property MODULE_RECORD_ORGColumn() As Global.System.Data.DataColumn - Get - Return Me.columnMODULE_RECORD_ORG - End Get - End Property + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_USER_GROUPSDataTable() + End Function _ - 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 + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) - Me.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) @@ -1001,58 +729,36 @@ Partial Public Class UserDataSet Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true - Me.columnPRENAME.MaxLength = 50 Me.columnNAME.MaxLength = 50 - Me.columnUSERNAME.AllowDBNull = false - Me.columnUSERNAME.MaxLength = 50 - Me.columnSHORTNAME.MaxLength = 30 - Me.columnEMAIL.MaxLength = 100 - Me.columnLANGUAGE.AllowDBNull = false - Me.columnLANGUAGE.MaxLength = 5 - Me.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.columnCOMMENT.MaxLength = 200 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) + Public Function NewTBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow + Return CType(Me.NewRow,TBDD_USER_GROUPSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_USERRow(builder) + Return New TBDD_USER_GROUPSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_USERRow) + Return GetType(TBDD_USER_GROUPSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_USERRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowChanged(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + If (Not (Me.TBDD_USER_GROUPSRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowChanged(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) End If End Sub @@ -1060,8 +766,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_USERRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowChanging(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + If (Not (Me.TBDD_USER_GROUPSRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowChanging(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) End If End Sub @@ -1069,8 +775,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_USERRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowDeleted(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + If (Not (Me.TBDD_USER_GROUPSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowDeleted(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) End If End Sub @@ -1078,14 +784,14 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_USERRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowDeleting(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + If (Not (Me.TBDD_USER_GROUPSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowDeleting(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) + Public Sub RemoveTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) Me.Rows.Remove(row) End Sub @@ -1112,7 +818,7 @@ Partial Public Class UserDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_USERDataTable" + attribute2.FixedValue = "TBDD_USER_GROUPSDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -1161,12 +867,14 @@ Partial Public Class UserDataSet ''' _ - Partial Public Class TBDD_USER_GROUPSDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_USER_GROUPSRow) + Partial Public Class TBDD_GROUPS_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPS_USERRow) Private columnGUID As Global.System.Data.DataColumn - Private columnNAME As Global.System.Data.DataColumn + Private columnUSER_ID As Global.System.Data.DataColumn + + Private columnGROUP_ID As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn @@ -1182,7 +890,7 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBDD_USER_GROUPS" + Me.TableName = "TBDD_GROUPS_USER" Me.BeginInit Me.InitClass Me.EndInit @@ -1223,9 +931,17 @@ Partial Public Class UserDataSet _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnNAME + Return Me.columnUSER_ID + End Get + End Property + + _ + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP_ID End Get End Property @@ -1280,50 +996,56 @@ Partial Public Class UserDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USER_GROUPSRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPS_USERRow Get - Return CType(Me.Rows(index),TBDD_USER_GROUPSRow) + Return CType(Me.Rows(index),TBDD_GROUPS_USERRow) End Get End Property _ - Public Event TBDD_USER_GROUPSRowChanging As TBDD_USER_GROUPSRowChangeEventHandler + Public Event TBDD_GROUPS_USERRowChanging As TBDD_GROUPS_USERRowChangeEventHandler _ - Public Event TBDD_USER_GROUPSRowChanged As TBDD_USER_GROUPSRowChangeEventHandler + Public Event TBDD_GROUPS_USERRowChanged As TBDD_GROUPS_USERRowChangeEventHandler _ - Public Event TBDD_USER_GROUPSRowDeleting As TBDD_USER_GROUPSRowChangeEventHandler + Public Event TBDD_GROUPS_USERRowDeleting As TBDD_GROUPS_USERRowChangeEventHandler _ - Public Event TBDD_USER_GROUPSRowDeleted As TBDD_USER_GROUPSRowChangeEventHandler + Public Event TBDD_GROUPS_USERRowDeleted As TBDD_GROUPS_USERRowChangeEventHandler _ - Public Overloads Sub AddTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) + Public Overloads Sub AddTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBDD_USER_GROUPSRow(ByVal NAME As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_USER_GROUPSRow - Dim rowTBDD_USER_GROUPSRow As TBDD_USER_GROUPSRow = CType(Me.NewRow,TBDD_USER_GROUPSRow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - rowTBDD_USER_GROUPSRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_USER_GROUPSRow) - Return rowTBDD_USER_GROUPSRow + Public Overloads Function AddTBDD_GROUPS_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID As TBDD_USER_GROUPSRow, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GROUPS_USERRow + Dim rowTBDD_GROUPS_USERRow As TBDD_GROUPS_USERRow = CType(Me.NewRow,TBDD_GROUPS_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID(0) + End If + If (Not (parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID(0) + End If + rowTBDD_GROUPS_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_GROUPS_USERRow) + Return rowTBDD_GROUPS_USERRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USER_GROUPSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USER_GROUPSRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_USERRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_USER_GROUPSDataTable = CType(MyBase.Clone,TBDD_USER_GROUPSDataTable) + Dim cln As TBDD_GROUPS_USERDataTable = CType(MyBase.Clone,TBDD_GROUPS_USERDataTable) cln.InitVars Return cln End Function @@ -1331,14 +1053,15 @@ Partial Public Class UserDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_USER_GROUPSDataTable() + Return New TBDD_GROUPS_USERDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnNAME = MyBase.Columns("NAME") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") @@ -1351,8 +1074,10 @@ Partial Public Class UserDataSet Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) - Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNAME) + Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_ID) + Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP_ID) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) @@ -1370,36 +1095,38 @@ Partial Public Class UserDataSet Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true - Me.columnNAME.MaxLength = 50 + Me.columnUSER_ID.AllowDBNull = false + Me.columnGROUP_ID.AllowDBNull = false Me.columnCOMMENT.MaxLength = 200 + Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ - Public Function NewTBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow - Return CType(Me.NewRow,TBDD_USER_GROUPSRow) + Public Function NewTBDD_GROUPS_USERRow() As TBDD_GROUPS_USERRow + Return CType(Me.NewRow,TBDD_GROUPS_USERRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_USER_GROUPSRow(builder) + Return New TBDD_GROUPS_USERRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_USER_GROUPSRow) + Return GetType(TBDD_GROUPS_USERRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_USER_GROUPSRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_USER_GROUPSRowChanged(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + If (Not (Me.TBDD_GROUPS_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowChanged(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) End If End Sub @@ -1407,8 +1134,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_USER_GROUPSRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_USER_GROUPSRowChanging(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + If (Not (Me.TBDD_GROUPS_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowChanging(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) End If End Sub @@ -1416,8 +1143,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_USER_GROUPSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_USER_GROUPSRowDeleted(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + If (Not (Me.TBDD_GROUPS_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowDeleted(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) End If End Sub @@ -1425,14 +1152,14 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_USER_GROUPSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_USER_GROUPSRowDeleting(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + If (Not (Me.TBDD_GROUPS_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowDeleting(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) + Public Sub RemoveTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) Me.Rows.Remove(row) End Sub @@ -1459,7 +1186,7 @@ Partial Public Class UserDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_USER_GROUPSDataTable" + attribute2.FixedValue = "TBDD_GROUPS_USERDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -1508,16 +1235,40 @@ Partial Public Class UserDataSet ''' _ - Partial Public Class TBDD_GROUPS_USERDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPS_USERRow) + Partial Public Class TBDD_MODULESDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_MODULESRow) Private columnGUID As Global.System.Data.DataColumn - Private columnUSER_ID As Global.System.Data.DataColumn + Private columnNAME As Global.System.Data.DataColumn - Private columnGROUP_ID As Global.System.Data.DataColumn + Private columnSHORT_NAME As Global.System.Data.DataColumn - Private columnCOMMENT As Global.System.Data.DataColumn + Private columnLICENSE As Global.System.Data.DataColumn + + Private columnPRODUCT_VERSION As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnVERSION_DELIMITER As Global.System.Data.DataColumn + + Private columnFILE_DELIMITER As Global.System.Data.DataColumn + + Private columnBIT1 As Global.System.Data.DataColumn + + Private columnBIT2 As Global.System.Data.DataColumn + + Private columnSTRING1 As Global.System.Data.DataColumn + + Private columnSTRING2 As Global.System.Data.DataColumn + + Private columnBACKGROUND_IMAGE As Global.System.Data.DataColumn + + Private columnPRODUCT_NAME1 As Global.System.Data.DataColumn + + Private columnPRODUCT_NAME2 As Global.System.Data.DataColumn + + Private columnVERSION_UPATE_PATH As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn @@ -1531,7 +1282,7 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBDD_GROUPS_USER" + Me.TableName = "TBDD_MODULES" Me.BeginInit Me.InitClass Me.EndInit @@ -1572,25 +1323,121 @@ Partial Public Class UserDataSet _ - Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSER_ID + Return Me.columnNAME End Get End Property _ - Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SHORT_NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnGROUP_ID + Return Me.columnSHORT_NAME End Get End Property _ - Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property LICENSEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCOMMENT + Return Me.columnLICENSE + End Get + End Property + + _ + Public ReadOnly Property PRODUCT_VERSIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPRODUCT_VERSION + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE + End Get + End Property + + _ + Public ReadOnly Property VERSION_DELIMITERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERSION_DELIMITER + End Get + End Property + + _ + Public ReadOnly Property FILE_DELIMITERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFILE_DELIMITER + End Get + End Property + + _ + Public ReadOnly Property BIT1Column() As Global.System.Data.DataColumn + Get + Return Me.columnBIT1 + End Get + End Property + + _ + Public ReadOnly Property BIT2Column() As Global.System.Data.DataColumn + Get + Return Me.columnBIT2 + End Get + End Property + + _ + Public ReadOnly Property STRING1Column() As Global.System.Data.DataColumn + Get + Return Me.columnSTRING1 + End Get + End Property + + _ + Public ReadOnly Property STRING2Column() As Global.System.Data.DataColumn + Get + Return Me.columnSTRING2 + End Get + End Property + + _ + Public ReadOnly Property BACKGROUND_IMAGEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBACKGROUND_IMAGE + End Get + End Property + + _ + Public ReadOnly Property PRODUCT_NAME1Column() As Global.System.Data.DataColumn + Get + Return Me.columnPRODUCT_NAME1 + End Get + End Property + + _ + Public ReadOnly Property PRODUCT_NAME2Column() As Global.System.Data.DataColumn + Get + Return Me.columnPRODUCT_NAME2 + End Get + End Property + + _ + Public ReadOnly Property VERSION_UPATE_PATHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERSION_UPATE_PATH End Get End Property @@ -1637,56 +1484,69 @@ Partial Public Class UserDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPS_USERRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_MODULESRow Get - Return CType(Me.Rows(index),TBDD_GROUPS_USERRow) + Return CType(Me.Rows(index),TBDD_MODULESRow) End Get End Property _ - Public Event TBDD_GROUPS_USERRowChanging As TBDD_GROUPS_USERRowChangeEventHandler + Public Event TBDD_MODULESRowChanging As TBDD_MODULESRowChangeEventHandler _ - Public Event TBDD_GROUPS_USERRowChanged As TBDD_GROUPS_USERRowChangeEventHandler + Public Event TBDD_MODULESRowChanged As TBDD_MODULESRowChangeEventHandler _ - Public Event TBDD_GROUPS_USERRowDeleting As TBDD_GROUPS_USERRowChangeEventHandler + Public Event TBDD_MODULESRowDeleting As TBDD_MODULESRowChangeEventHandler _ - Public Event TBDD_GROUPS_USERRowDeleted As TBDD_GROUPS_USERRowChangeEventHandler + Public Event TBDD_MODULESRowDeleted As TBDD_MODULESRowChangeEventHandler _ - Public Overloads Sub AddTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) + Public Overloads Sub AddTBDD_MODULESRow(ByVal row As TBDD_MODULESRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBDD_GROUPS_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID As TBDD_USER_GROUPSRow, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GROUPS_USERRow - Dim rowTBDD_GROUPS_USERRow As TBDD_GROUPS_USERRow = CType(Me.NewRow,TBDD_GROUPS_USERRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - If (Not (parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID) Is Nothing) Then - columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID(0) - End If - If (Not (parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID) Is Nothing) Then - columnValuesArray(2) = parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID(0) - End If - rowTBDD_GROUPS_USERRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_GROUPS_USERRow) - Return rowTBDD_GROUPS_USERRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_USERRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_USERRow) - End Function - + Public Overloads Function AddTBDD_MODULESRow( _ + ByVal NAME As String, _ + ByVal SHORT_NAME As String, _ + ByVal LICENSE As String, _ + ByVal PRODUCT_VERSION As String, _ + ByVal ACTIVE As Boolean, _ + ByVal VERSION_DELIMITER As String, _ + ByVal FILE_DELIMITER As String, _ + ByVal BIT1 As Boolean, _ + ByVal BIT2 As Boolean, _ + ByVal STRING1 As String, _ + ByVal STRING2 As String, _ + ByVal BACKGROUND_IMAGE() As Byte, _ + ByVal PRODUCT_NAME1 As String, _ + ByVal PRODUCT_NAME2 As String, _ + ByVal VERSION_UPATE_PATH As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date) As TBDD_MODULESRow + Dim rowTBDD_MODULESRow As TBDD_MODULESRow = CType(Me.NewRow,TBDD_MODULESRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, SHORT_NAME, LICENSE, PRODUCT_VERSION, ACTIVE, VERSION_DELIMITER, FILE_DELIMITER, BIT1, BIT2, STRING1, STRING2, BACKGROUND_IMAGE, PRODUCT_NAME1, PRODUCT_NAME2, VERSION_UPATE_PATH, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBDD_MODULESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_MODULESRow) + Return rowTBDD_MODULESRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_MODULESRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_MODULESRow) + End Function + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_GROUPS_USERDataTable = CType(MyBase.Clone,TBDD_GROUPS_USERDataTable) + Dim cln As TBDD_MODULESDataTable = CType(MyBase.Clone,TBDD_MODULESDataTable) cln.InitVars Return cln End Function @@ -1694,16 +1554,28 @@ Partial Public Class UserDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_GROUPS_USERDataTable() + Return New TBDD_MODULESDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnUSER_ID = MyBase.Columns("USER_ID") - Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") - Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnSHORT_NAME = MyBase.Columns("SHORT_NAME") + Me.columnLICENSE = MyBase.Columns("LICENSE") + Me.columnPRODUCT_VERSION = MyBase.Columns("PRODUCT_VERSION") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnVERSION_DELIMITER = MyBase.Columns("VERSION_DELIMITER") + Me.columnFILE_DELIMITER = MyBase.Columns("FILE_DELIMITER") + Me.columnBIT1 = MyBase.Columns("BIT1") + Me.columnBIT2 = MyBase.Columns("BIT2") + Me.columnSTRING1 = MyBase.Columns("STRING1") + Me.columnSTRING2 = MyBase.Columns("STRING2") + Me.columnBACKGROUND_IMAGE = MyBase.Columns("BACKGROUND_IMAGE") + Me.columnPRODUCT_NAME1 = MyBase.Columns("PRODUCT_NAME1") + Me.columnPRODUCT_NAME2 = MyBase.Columns("PRODUCT_NAME2") + Me.columnVERSION_UPATE_PATH = MyBase.Columns("VERSION_UPATE_PATH") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") @@ -1715,12 +1587,36 @@ Partial Public Class UserDataSet Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) - Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSER_ID) - Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGROUP_ID) - Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnSHORT_NAME = New Global.System.Data.DataColumn("SHORT_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSHORT_NAME) + Me.columnLICENSE = New Global.System.Data.DataColumn("LICENSE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLICENSE) + Me.columnPRODUCT_VERSION = New Global.System.Data.DataColumn("PRODUCT_VERSION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRODUCT_VERSION) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnVERSION_DELIMITER = New Global.System.Data.DataColumn("VERSION_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERSION_DELIMITER) + Me.columnFILE_DELIMITER = New Global.System.Data.DataColumn("FILE_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFILE_DELIMITER) + Me.columnBIT1 = New Global.System.Data.DataColumn("BIT1", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBIT1) + Me.columnBIT2 = New Global.System.Data.DataColumn("BIT2", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBIT2) + Me.columnSTRING1 = New Global.System.Data.DataColumn("STRING1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTRING1) + Me.columnSTRING2 = New Global.System.Data.DataColumn("STRING2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTRING2) + Me.columnBACKGROUND_IMAGE = New Global.System.Data.DataColumn("BACKGROUND_IMAGE", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBACKGROUND_IMAGE) + Me.columnPRODUCT_NAME1 = New Global.System.Data.DataColumn("PRODUCT_NAME1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRODUCT_NAME1) + Me.columnPRODUCT_NAME2 = New Global.System.Data.DataColumn("PRODUCT_NAME2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRODUCT_NAME2) + Me.columnVERSION_UPATE_PATH = New Global.System.Data.DataColumn("VERSION_UPATE_PATH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERSION_UPATE_PATH) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) @@ -1736,38 +1632,54 @@ Partial Public Class UserDataSet Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true - Me.columnUSER_ID.AllowDBNull = false - Me.columnGROUP_ID.AllowDBNull = false - Me.columnCOMMENT.MaxLength = 200 - Me.columnADDED_WHO.AllowDBNull = false + Me.columnNAME.MaxLength = 50 + Me.columnSHORT_NAME.MaxLength = 20 + Me.columnLICENSE.AllowDBNull = false + Me.columnLICENSE.MaxLength = 2000 + Me.columnPRODUCT_VERSION.AllowDBNull = false + Me.columnPRODUCT_VERSION.MaxLength = 20 + Me.columnACTIVE.AllowDBNull = false + Me.columnVERSION_DELIMITER.AllowDBNull = false + Me.columnVERSION_DELIMITER.MaxLength = 1 + Me.columnFILE_DELIMITER.AllowDBNull = false + Me.columnFILE_DELIMITER.MaxLength = 1 + Me.columnBIT1.AllowDBNull = false + Me.columnBIT2.AllowDBNull = false + Me.columnSTRING1.MaxLength = 50 + Me.columnSTRING2.MaxLength = 50 + Me.columnPRODUCT_NAME1.AllowDBNull = false + Me.columnPRODUCT_NAME1.MaxLength = 200 + Me.columnPRODUCT_NAME2.MaxLength = 200 + Me.columnVERSION_UPATE_PATH.AllowDBNull = false + Me.columnVERSION_UPATE_PATH.MaxLength = 500 Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ - Public Function NewTBDD_GROUPS_USERRow() As TBDD_GROUPS_USERRow - Return CType(Me.NewRow,TBDD_GROUPS_USERRow) + Public Function NewTBDD_MODULESRow() As TBDD_MODULESRow + Return CType(Me.NewRow,TBDD_MODULESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_GROUPS_USERRow(builder) + Return New TBDD_MODULESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_GROUPS_USERRow) + Return GetType(TBDD_MODULESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_GROUPS_USERRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_USERRowChanged(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + If (Not (Me.TBDD_MODULESRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_MODULESRowChanged(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) End If End Sub @@ -1775,8 +1687,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_GROUPS_USERRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_USERRowChanging(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + If (Not (Me.TBDD_MODULESRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_MODULESRowChanging(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) End If End Sub @@ -1784,8 +1696,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_GROUPS_USERRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_USERRowDeleted(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + If (Not (Me.TBDD_MODULESRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_MODULESRowDeleted(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) End If End Sub @@ -1793,14 +1705,14 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_GROUPS_USERRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_USERRowDeleting(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + If (Not (Me.TBDD_MODULESRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_MODULESRowDeleting(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) + Public Sub RemoveTBDD_MODULESRow(ByVal row As TBDD_MODULESRow) Me.Rows.Remove(row) End Sub @@ -1827,7 +1739,7 @@ Partial Public Class UserDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_GROUPS_USERDataTable" + attribute2.FixedValue = "TBDD_MODULESDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -1876,54 +1788,28 @@ Partial Public Class UserDataSet ''' _ - Partial Public Class TBDD_MODULESDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_MODULESRow) + Partial Public Class TBDD_USER_MODULESDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_USER_MODULESRow) Private columnGUID As Global.System.Data.DataColumn - Private columnNAME As Global.System.Data.DataColumn - - Private columnSHORT_NAME As Global.System.Data.DataColumn - - Private columnLICENSE As Global.System.Data.DataColumn - - Private columnPRODUCT_VERSION As Global.System.Data.DataColumn - - Private columnACTIVE As Global.System.Data.DataColumn - - Private columnVERSION_DELIMITER As Global.System.Data.DataColumn - - Private columnFILE_DELIMITER As Global.System.Data.DataColumn - - Private columnBIT1 As Global.System.Data.DataColumn - - Private columnBIT2 As Global.System.Data.DataColumn - - Private columnSTRING1 As Global.System.Data.DataColumn - - Private columnSTRING2 As Global.System.Data.DataColumn - - Private columnBACKGROUND_IMAGE As Global.System.Data.DataColumn + Private columnUSER_ID As Global.System.Data.DataColumn - Private columnPRODUCT_NAME1 As Global.System.Data.DataColumn + Private columnMODULE_ID As Global.System.Data.DataColumn - Private columnPRODUCT_NAME2 As Global.System.Data.DataColumn + Private columnIS_ADMIN As Global.System.Data.DataColumn - Private columnVERSION_UPATE_PATH As Global.System.Data.DataColumn + Private columnCOMMENT As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn - - Private columnCHANGED_WHEN As Global.System.Data.DataColumn - _ Public Sub New() MyBase.New - Me.TableName = "TBDD_MODULES" + Me.TableName = "TBDD_USER_MODULES" Me.BeginInit Me.InitClass Me.EndInit @@ -1964,230 +1850,113 @@ Partial Public Class UserDataSet _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnNAME + Return Me.columnUSER_ID End Get End Property _ - Public ReadOnly Property SHORT_NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property MODULE_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnSHORT_NAME + Return Me.columnMODULE_ID End Get End Property _ - Public ReadOnly Property LICENSEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property IS_ADMINColumn() As Global.System.Data.DataColumn Get - Return Me.columnLICENSE + Return Me.columnIS_ADMIN End Get End Property _ - Public ReadOnly Property PRODUCT_VERSIONColumn() As Global.System.Data.DataColumn + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get - Return Me.columnPRODUCT_VERSION + Return Me.columnCOMMENT End Get End Property _ - Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnACTIVE + Return Me.columnADDED_WHO End Get End Property _ - Public ReadOnly Property VERSION_DELIMITERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnVERSION_DELIMITER + Return Me.columnADDED_WHEN End Get End Property _ - Public ReadOnly Property FILE_DELIMITERColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer Get - Return Me.columnFILE_DELIMITER + Return Me.Rows.Count End Get End Property _ - Public ReadOnly Property BIT1Column() As Global.System.Data.DataColumn + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USER_MODULESRow Get - Return Me.columnBIT1 + Return CType(Me.Rows(index),TBDD_USER_MODULESRow) End Get End Property - _ - Public ReadOnly Property BIT2Column() As Global.System.Data.DataColumn - Get - Return Me.columnBIT2 - End Get - End Property + _ + Public Event TBDD_USER_MODULESRowChanging As TBDD_USER_MODULESRowChangeEventHandler - _ - Public ReadOnly Property STRING1Column() As Global.System.Data.DataColumn - Get - Return Me.columnSTRING1 - End Get - End Property + _ + Public Event TBDD_USER_MODULESRowChanged As TBDD_USER_MODULESRowChangeEventHandler - _ - Public ReadOnly Property STRING2Column() As Global.System.Data.DataColumn - Get - Return Me.columnSTRING2 - End Get - End Property + _ + Public Event TBDD_USER_MODULESRowDeleting As TBDD_USER_MODULESRowChangeEventHandler + + _ + Public Event TBDD_USER_MODULESRowDeleted As TBDD_USER_MODULESRowChangeEventHandler _ - Public ReadOnly Property BACKGROUND_IMAGEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnBACKGROUND_IMAGE - End Get - End Property + Public Overloads Sub AddTBDD_USER_MODULESRow(ByVal row As TBDD_USER_MODULESRow) + Me.Rows.Add(row) + End Sub _ - Public ReadOnly Property PRODUCT_NAME1Column() As Global.System.Data.DataColumn - Get - Return Me.columnPRODUCT_NAME1 - End Get - End Property - - _ - Public ReadOnly Property PRODUCT_NAME2Column() As Global.System.Data.DataColumn - Get - Return Me.columnPRODUCT_NAME2 - End Get - End Property - - _ - Public ReadOnly Property VERSION_UPATE_PATHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnVERSION_UPATE_PATH - End Get - End Property - - _ - 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_MODULESRow - Get - Return CType(Me.Rows(index),TBDD_MODULESRow) - End Get - End Property - - _ - Public Event TBDD_MODULESRowChanging As TBDD_MODULESRowChangeEventHandler - - _ - Public Event TBDD_MODULESRowChanged As TBDD_MODULESRowChangeEventHandler - - _ - Public Event TBDD_MODULESRowDeleting As TBDD_MODULESRowChangeEventHandler - - _ - Public Event TBDD_MODULESRowDeleted As TBDD_MODULESRowChangeEventHandler - - _ - Public Overloads Sub AddTBDD_MODULESRow(ByVal row As TBDD_MODULESRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBDD_MODULESRow( _ - ByVal NAME As String, _ - ByVal SHORT_NAME As String, _ - ByVal LICENSE As String, _ - ByVal PRODUCT_VERSION As String, _ - ByVal ACTIVE As Boolean, _ - ByVal VERSION_DELIMITER As String, _ - ByVal FILE_DELIMITER As String, _ - ByVal BIT1 As Boolean, _ - ByVal BIT2 As Boolean, _ - ByVal STRING1 As String, _ - ByVal STRING2 As String, _ - ByVal BACKGROUND_IMAGE() As Byte, _ - ByVal PRODUCT_NAME1 As String, _ - ByVal PRODUCT_NAME2 As String, _ - ByVal VERSION_UPATE_PATH As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Date) As TBDD_MODULESRow - Dim rowTBDD_MODULESRow As TBDD_MODULESRow = CType(Me.NewRow,TBDD_MODULESRow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, SHORT_NAME, LICENSE, PRODUCT_VERSION, ACTIVE, VERSION_DELIMITER, FILE_DELIMITER, BIT1, BIT2, STRING1, STRING2, BACKGROUND_IMAGE, PRODUCT_NAME1, PRODUCT_NAME2, VERSION_UPATE_PATH, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - rowTBDD_MODULESRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_MODULESRow) - Return rowTBDD_MODULESRow + Public Overloads Function AddTBDD_USER_MODULESRow(ByVal parentTBDD_USERRowByFK_TBDD_USER_MODULES2_USER_ID As TBDD_USERRow, ByVal parentTBDD_MODULESRowByFK_TBDD_USER_MODULES_MODULE_ID As TBDD_MODULESRow, ByVal IS_ADMIN As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBDD_USER_MODULESRow + Dim rowTBDD_USER_MODULESRow As TBDD_USER_MODULESRow = CType(Me.NewRow,TBDD_USER_MODULESRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, IS_ADMIN, COMMENT, ADDED_WHO, ADDED_WHEN} + If (Not (parentTBDD_USERRowByFK_TBDD_USER_MODULES2_USER_ID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_USER_MODULES2_USER_ID(0) + End If + If (Not (parentTBDD_MODULESRowByFK_TBDD_USER_MODULES_MODULE_ID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_MODULESRowByFK_TBDD_USER_MODULES_MODULE_ID(0) + End If + rowTBDD_USER_MODULESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_USER_MODULESRow) + Return rowTBDD_USER_MODULESRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_MODULESRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_MODULESRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USER_MODULESRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USER_MODULESRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_MODULESDataTable = CType(MyBase.Clone,TBDD_MODULESDataTable) + Dim cln As TBDD_USER_MODULESDataTable = CType(MyBase.Clone,TBDD_USER_MODULESDataTable) cln.InitVars Return cln End Function @@ -2195,32 +1964,19 @@ Partial Public Class UserDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_MODULESDataTable() + Return New TBDD_USER_MODULESDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnSHORT_NAME = MyBase.Columns("SHORT_NAME") - Me.columnLICENSE = MyBase.Columns("LICENSE") - Me.columnPRODUCT_VERSION = MyBase.Columns("PRODUCT_VERSION") - Me.columnACTIVE = MyBase.Columns("ACTIVE") - Me.columnVERSION_DELIMITER = MyBase.Columns("VERSION_DELIMITER") - Me.columnFILE_DELIMITER = MyBase.Columns("FILE_DELIMITER") - Me.columnBIT1 = MyBase.Columns("BIT1") - Me.columnBIT2 = MyBase.Columns("BIT2") - Me.columnSTRING1 = MyBase.Columns("STRING1") - Me.columnSTRING2 = MyBase.Columns("STRING2") - Me.columnBACKGROUND_IMAGE = MyBase.Columns("BACKGROUND_IMAGE") - Me.columnPRODUCT_NAME1 = MyBase.Columns("PRODUCT_NAME1") - Me.columnPRODUCT_NAME2 = MyBase.Columns("PRODUCT_NAME2") - Me.columnVERSION_UPATE_PATH = MyBase.Columns("VERSION_UPATE_PATH") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnMODULE_ID = MyBase.Columns("MODULE_ID") + Me.columnIS_ADMIN = MyBase.Columns("IS_ADMIN") + Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ - Public Function NewTBDD_MODULESRow() As TBDD_MODULESRow - Return CType(Me.NewRow,TBDD_MODULESRow) + Public Function NewTBDD_USER_MODULESRow() As TBDD_USER_MODULESRow + Return CType(Me.NewRow,TBDD_USER_MODULESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_MODULESRow(builder) + Return New TBDD_USER_MODULESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_MODULESRow) + Return GetType(TBDD_USER_MODULESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_MODULESRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_MODULESRowChanged(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) + If (Not (Me.TBDD_USER_MODULESRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_USER_MODULESRowChanged(Me, New TBDD_USER_MODULESRowChangeEvent(CType(e.Row,TBDD_USER_MODULESRow), e.Action)) End If End Sub @@ -2328,8 +2041,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_MODULESRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_MODULESRowChanging(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) + If (Not (Me.TBDD_USER_MODULESRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_USER_MODULESRowChanging(Me, New TBDD_USER_MODULESRowChangeEvent(CType(e.Row,TBDD_USER_MODULESRow), e.Action)) End If End Sub @@ -2337,8 +2050,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_MODULESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_MODULESRowDeleted(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) + If (Not (Me.TBDD_USER_MODULESRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_USER_MODULESRowDeleted(Me, New TBDD_USER_MODULESRowChangeEvent(CType(e.Row,TBDD_USER_MODULESRow), e.Action)) End If End Sub @@ -2346,14 +2059,14 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_MODULESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_MODULESRowDeleting(Me, New TBDD_MODULESRowChangeEvent(CType(e.Row,TBDD_MODULESRow), e.Action)) + If (Not (Me.TBDD_USER_MODULESRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_USER_MODULESRowDeleting(Me, New TBDD_USER_MODULESRowChangeEvent(CType(e.Row,TBDD_USER_MODULESRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_MODULESRow(ByVal row As TBDD_MODULESRow) + Public Sub RemoveTBDD_USER_MODULESRow(ByVal row As TBDD_USER_MODULESRow) Me.Rows.Remove(row) End Sub @@ -2380,7 +2093,7 @@ Partial Public Class UserDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_MODULESDataTable" + attribute2.FixedValue = "TBDD_USER_MODULESDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -2429,16 +2142,20 @@ Partial Public Class UserDataSet ''' _ - Partial Public Class TBDD_USER_MODULESDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_USER_MODULESRow) + Partial Public Class TBDD_CLIENTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_CLIENTRow) Private columnGUID As Global.System.Data.DataColumn - Private columnUSER_ID As Global.System.Data.DataColumn + Private columnCLIENT_NAME As Global.System.Data.DataColumn - Private columnMODULE_ID As Global.System.Data.DataColumn + Private columnSHORTNAME As Global.System.Data.DataColumn - Private columnIS_ADMIN As Global.System.Data.DataColumn + Private columnLICENSE_PMO As Global.System.Data.DataColumn + + Private columnLICENSE_GI As Global.System.Data.DataColumn + + Private columnLICENSE_PM As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn @@ -2446,11 +2163,15 @@ Partial Public Class UserDataSet Private columnADDED_WHEN As Global.System.Data.DataColumn + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + _ Public Sub New() MyBase.New - Me.TableName = "TBDD_USER_MODULES" + Me.TableName = "TBDD_CLIENT" Me.BeginInit Me.InitClass Me.EndInit @@ -2491,25 +2212,41 @@ Partial Public Class UserDataSet _ - Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CLIENT_NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSER_ID + Return Me.columnCLIENT_NAME End Get End Property _ - Public ReadOnly Property MODULE_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnMODULE_ID + Return Me.columnSHORTNAME End Get End Property _ - Public ReadOnly Property IS_ADMINColumn() As Global.System.Data.DataColumn + Public ReadOnly Property LICENSE_PMOColumn() As Global.System.Data.DataColumn Get - Return Me.columnIS_ADMIN + Return Me.columnLICENSE_PMO + End Get + End Property + + _ + Public ReadOnly Property LICENSE_GIColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLICENSE_GI + End Get + End Property + + _ + Public ReadOnly Property LICENSE_PMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLICENSE_PM End Get End Property @@ -2537,6 +2274,22 @@ Partial Public Class UserDataSet End Get End Property + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + _ @@ -2548,56 +2301,50 @@ Partial Public Class UserDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USER_MODULESRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CLIENTRow Get - Return CType(Me.Rows(index),TBDD_USER_MODULESRow) + Return CType(Me.Rows(index),TBDD_CLIENTRow) End Get End Property _ - Public Event TBDD_USER_MODULESRowChanging As TBDD_USER_MODULESRowChangeEventHandler + Public Event TBDD_CLIENTRowChanging As TBDD_CLIENTRowChangeEventHandler _ - Public Event TBDD_USER_MODULESRowChanged As TBDD_USER_MODULESRowChangeEventHandler + Public Event TBDD_CLIENTRowChanged As TBDD_CLIENTRowChangeEventHandler _ - Public Event TBDD_USER_MODULESRowDeleting As TBDD_USER_MODULESRowChangeEventHandler + Public Event TBDD_CLIENTRowDeleting As TBDD_CLIENTRowChangeEventHandler _ - Public Event TBDD_USER_MODULESRowDeleted As TBDD_USER_MODULESRowChangeEventHandler + Public Event TBDD_CLIENTRowDeleted As TBDD_CLIENTRowChangeEventHandler _ - Public Overloads Sub AddTBDD_USER_MODULESRow(ByVal row As TBDD_USER_MODULESRow) + Public Overloads Sub AddTBDD_CLIENTRow(ByVal row As TBDD_CLIENTRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBDD_USER_MODULESRow(ByVal parentTBDD_USERRowByFK_TBDD_USER_MODULES2_USER_ID As TBDD_USERRow, ByVal parentTBDD_MODULESRowByFK_TBDD_USER_MODULES_MODULE_ID As TBDD_MODULESRow, ByVal IS_ADMIN As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBDD_USER_MODULESRow - Dim rowTBDD_USER_MODULESRow As TBDD_USER_MODULESRow = CType(Me.NewRow,TBDD_USER_MODULESRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, IS_ADMIN, COMMENT, ADDED_WHO, ADDED_WHEN} - If (Not (parentTBDD_USERRowByFK_TBDD_USER_MODULES2_USER_ID) Is Nothing) Then - columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_USER_MODULES2_USER_ID(0) - End If - If (Not (parentTBDD_MODULESRowByFK_TBDD_USER_MODULES_MODULE_ID) Is Nothing) Then - columnValuesArray(2) = parentTBDD_MODULESRowByFK_TBDD_USER_MODULES_MODULE_ID(0) - End If - rowTBDD_USER_MODULESRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_USER_MODULESRow) - Return rowTBDD_USER_MODULESRow + Public Overloads Function AddTBDD_CLIENTRow(ByVal CLIENT_NAME As String, ByVal SHORTNAME As String, ByVal LICENSE_PMO As String, ByVal LICENSE_GI As String, ByVal LICENSE_PM As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_CLIENTRow + Dim rowTBDD_CLIENTRow As TBDD_CLIENTRow = CType(Me.NewRow,TBDD_CLIENTRow) + Dim columnValuesArray() As Object = New Object() {Nothing, CLIENT_NAME, SHORTNAME, LICENSE_PMO, LICENSE_GI, LICENSE_PM, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBDD_CLIENTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_CLIENTRow) + Return rowTBDD_CLIENTRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USER_MODULESRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USER_MODULESRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_CLIENTRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CLIENTRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_USER_MODULESDataTable = CType(MyBase.Clone,TBDD_USER_MODULESDataTable) + Dim cln As TBDD_CLIENTDataTable = CType(MyBase.Clone,TBDD_CLIENTDataTable) cln.InitVars Return cln End Function @@ -2605,19 +2352,23 @@ Partial Public Class UserDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_USER_MODULESDataTable() + Return New TBDD_CLIENTDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnUSER_ID = MyBase.Columns("USER_ID") - Me.columnMODULE_ID = MyBase.Columns("MODULE_ID") - Me.columnIS_ADMIN = MyBase.Columns("IS_ADMIN") + Me.columnCLIENT_NAME = MyBase.Columns("CLIENT_NAME") + Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") + Me.columnLICENSE_PMO = MyBase.Columns("LICENSE_PMO") + Me.columnLICENSE_GI = MyBase.Columns("LICENSE_GI") + Me.columnLICENSE_PM = MyBase.Columns("LICENSE_PM") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ - Public Function NewTBDD_USER_MODULESRow() As TBDD_USER_MODULESRow - Return CType(Me.NewRow,TBDD_USER_MODULESRow) + Public Function NewTBDD_CLIENTRow() As TBDD_CLIENTRow + Return CType(Me.NewRow,TBDD_CLIENTRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_USER_MODULESRow(builder) + Return New TBDD_CLIENTRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_USER_MODULESRow) + Return GetType(TBDD_CLIENTRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_USER_MODULESRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_USER_MODULESRowChanged(Me, New TBDD_USER_MODULESRowChangeEvent(CType(e.Row,TBDD_USER_MODULESRow), e.Action)) + If (Not (Me.TBDD_CLIENTRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENTRowChanged(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) End If End Sub @@ -2682,8 +2449,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_USER_MODULESRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_USER_MODULESRowChanging(Me, New TBDD_USER_MODULESRowChangeEvent(CType(e.Row,TBDD_USER_MODULESRow), e.Action)) + If (Not (Me.TBDD_CLIENTRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENTRowChanging(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) End If End Sub @@ -2691,8 +2458,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_USER_MODULESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_USER_MODULESRowDeleted(Me, New TBDD_USER_MODULESRowChangeEvent(CType(e.Row,TBDD_USER_MODULESRow), e.Action)) + If (Not (Me.TBDD_CLIENTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENTRowDeleted(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) End If End Sub @@ -2700,14 +2467,14 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_USER_MODULESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_USER_MODULESRowDeleting(Me, New TBDD_USER_MODULESRowChangeEvent(CType(e.Row,TBDD_USER_MODULESRow), e.Action)) + If (Not (Me.TBDD_CLIENTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENTRowDeleting(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_USER_MODULESRow(ByVal row As TBDD_USER_MODULESRow) + Public Sub RemoveTBDD_CLIENTRow(ByVal row As TBDD_CLIENTRow) Me.Rows.Remove(row) End Sub @@ -2734,7 +2501,7 @@ Partial Public Class UserDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_USER_MODULESDataTable" + attribute2.FixedValue = "TBDD_CLIENTDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -2783,20 +2550,14 @@ Partial Public Class UserDataSet ''' _ - Partial Public Class TBDD_CLIENTDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_CLIENTRow) + Partial Public Class TBDD_CLIENT_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_CLIENT_USERRow) Private columnGUID As Global.System.Data.DataColumn - Private columnCLIENT_NAME As Global.System.Data.DataColumn - - Private columnSHORTNAME As Global.System.Data.DataColumn - - Private columnLICENSE_PMO As Global.System.Data.DataColumn - - Private columnLICENSE_GI As Global.System.Data.DataColumn + Private columnUSER_ID As Global.System.Data.DataColumn - Private columnLICENSE_PM As Global.System.Data.DataColumn + Private columnCLIENT_ID As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn @@ -2804,15 +2565,11 @@ Partial Public Class UserDataSet Private columnADDED_WHEN As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn - - Private columnCHANGED_WHEN As Global.System.Data.DataColumn - _ Public Sub New() MyBase.New - Me.TableName = "TBDD_CLIENT" + Me.TableName = "TBDD_CLIENT_USER" Me.BeginInit Me.InitClass Me.EndInit @@ -2853,41 +2610,17 @@ Partial Public Class UserDataSet _ - Public ReadOnly Property CLIENT_NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCLIENT_NAME - End Get - End Property - - _ - Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSHORTNAME - End Get - End Property - - _ - Public ReadOnly Property LICENSE_PMOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLICENSE_PMO - End Get - End Property - - _ - Public ReadOnly Property LICENSE_GIColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnLICENSE_GI + Return Me.columnUSER_ID End Get End Property _ - Public ReadOnly Property LICENSE_PMColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CLIENT_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnLICENSE_PM + Return Me.columnCLIENT_ID End Get End Property @@ -2915,22 +2648,6 @@ Partial Public Class UserDataSet End Get End Property - _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHO - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - _ @@ -2942,50 +2659,56 @@ Partial Public Class UserDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CLIENTRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CLIENT_USERRow Get - Return CType(Me.Rows(index),TBDD_CLIENTRow) + Return CType(Me.Rows(index),TBDD_CLIENT_USERRow) End Get End Property _ - Public Event TBDD_CLIENTRowChanging As TBDD_CLIENTRowChangeEventHandler + Public Event TBDD_CLIENT_USERRowChanging As TBDD_CLIENT_USERRowChangeEventHandler _ - Public Event TBDD_CLIENTRowChanged As TBDD_CLIENTRowChangeEventHandler + Public Event TBDD_CLIENT_USERRowChanged As TBDD_CLIENT_USERRowChangeEventHandler _ - Public Event TBDD_CLIENTRowDeleting As TBDD_CLIENTRowChangeEventHandler + Public Event TBDD_CLIENT_USERRowDeleting As TBDD_CLIENT_USERRowChangeEventHandler _ - Public Event TBDD_CLIENTRowDeleted As TBDD_CLIENTRowChangeEventHandler + Public Event TBDD_CLIENT_USERRowDeleted As TBDD_CLIENT_USERRowChangeEventHandler _ - Public Overloads Sub AddTBDD_CLIENTRow(ByVal row As TBDD_CLIENTRow) + Public Overloads Sub AddTBDD_CLIENT_USERRow(ByVal row As TBDD_CLIENT_USERRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBDD_CLIENTRow(ByVal CLIENT_NAME As String, ByVal SHORTNAME As String, ByVal LICENSE_PMO As String, ByVal LICENSE_GI As String, ByVal LICENSE_PM As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_CLIENTRow - Dim rowTBDD_CLIENTRow As TBDD_CLIENTRow = CType(Me.NewRow,TBDD_CLIENTRow) - Dim columnValuesArray() As Object = New Object() {Nothing, CLIENT_NAME, SHORTNAME, LICENSE_PMO, LICENSE_GI, LICENSE_PM, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - rowTBDD_CLIENTRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_CLIENTRow) - Return rowTBDD_CLIENTRow + Public Overloads Function AddTBDD_CLIENT_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_CLIENT_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_CLIENTRowByFK_TBDD_CLIENT_USER_GROUP_ID As TBDD_CLIENTRow, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBDD_CLIENT_USERRow + Dim rowTBDD_CLIENT_USERRow As TBDD_CLIENT_USERRow = CType(Me.NewRow,TBDD_CLIENT_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, COMMENT, ADDED_WHO, ADDED_WHEN} + If (Not (parentTBDD_USERRowByFK_TBDD_CLIENT_USER_USER_ID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_CLIENT_USER_USER_ID(0) + End If + If (Not (parentTBDD_CLIENTRowByFK_TBDD_CLIENT_USER_GROUP_ID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_CLIENTRowByFK_TBDD_CLIENT_USER_GROUP_ID(0) + End If + rowTBDD_CLIENT_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_CLIENT_USERRow) + Return rowTBDD_CLIENT_USERRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_CLIENTRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CLIENTRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_CLIENT_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CLIENT_USERRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_CLIENTDataTable = CType(MyBase.Clone,TBDD_CLIENTDataTable) + Dim cln As TBDD_CLIENT_USERDataTable = CType(MyBase.Clone,TBDD_CLIENT_USERDataTable) cln.InitVars Return cln End Function @@ -2993,23 +2716,18 @@ Partial Public Class UserDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_CLIENTDataTable() + Return New TBDD_CLIENT_USERDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnCLIENT_NAME = MyBase.Columns("CLIENT_NAME") - Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") - Me.columnLICENSE_PMO = MyBase.Columns("LICENSE_PMO") - Me.columnLICENSE_GI = MyBase.Columns("LICENSE_GI") - Me.columnLICENSE_PM = MyBase.Columns("LICENSE_PM") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnCLIENT_ID = MyBase.Columns("CLIENT_ID") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ - Public Function NewTBDD_CLIENTRow() As TBDD_CLIENTRow - Return CType(Me.NewRow,TBDD_CLIENTRow) + Public Function NewTBDD_CLIENT_USERRow() As TBDD_CLIENT_USERRow + Return CType(Me.NewRow,TBDD_CLIENT_USERRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_CLIENTRow(builder) + Return New TBDD_CLIENT_USERRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_CLIENTRow) + Return GetType(TBDD_CLIENT_USERRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_CLIENTRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENTRowChanged(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) + If (Not (Me.TBDD_CLIENT_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENT_USERRowChanged(Me, New TBDD_CLIENT_USERRowChangeEvent(CType(e.Row,TBDD_CLIENT_USERRow), e.Action)) End If End Sub @@ -3090,8 +2789,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_CLIENTRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENTRowChanging(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) + If (Not (Me.TBDD_CLIENT_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENT_USERRowChanging(Me, New TBDD_CLIENT_USERRowChangeEvent(CType(e.Row,TBDD_CLIENT_USERRow), e.Action)) End If End Sub @@ -3099,8 +2798,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_CLIENTRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENTRowDeleted(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) + If (Not (Me.TBDD_CLIENT_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENT_USERRowDeleted(Me, New TBDD_CLIENT_USERRowChangeEvent(CType(e.Row,TBDD_CLIENT_USERRow), e.Action)) End If End Sub @@ -3108,14 +2807,14 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_CLIENTRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENTRowDeleting(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) + If (Not (Me.TBDD_CLIENT_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENT_USERRowDeleting(Me, New TBDD_CLIENT_USERRowChangeEvent(CType(e.Row,TBDD_CLIENT_USERRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_CLIENTRow(ByVal row As TBDD_CLIENTRow) + Public Sub RemoveTBDD_CLIENT_USERRow(ByVal row As TBDD_CLIENT_USERRow) Me.Rows.Remove(row) End Sub @@ -3142,7 +2841,7 @@ Partial Public Class UserDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_CLIENTDataTable" + attribute2.FixedValue = "TBDD_CLIENT_USERDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -3191,26 +2890,56 @@ Partial Public Class UserDataSet ''' _ - Partial Public Class TBDD_CLIENT_USERDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_CLIENT_USERRow) + Partial Public Class TBDD_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_USERRow) Private columnGUID As Global.System.Data.DataColumn - Private columnUSER_ID As Global.System.Data.DataColumn + Private columnPRENAME As Global.System.Data.DataColumn - Private columnCLIENT_ID As Global.System.Data.DataColumn + Private columnNAME As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnSHORTNAME As Global.System.Data.DataColumn + + Private columnEMAIL As Global.System.Data.DataColumn + + Private columnLANGUAGE As Global.System.Data.DataColumn + + Private 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 + _ Public Sub New() MyBase.New - Me.TableName = "TBDD_CLIENT_USER" + Me.TableName = "TBDD_USER" Me.BeginInit Me.InitClass Me.EndInit @@ -3251,141 +2980,320 @@ Partial Public Class UserDataSet _ - Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSER_ID + Return Me.columnPRENAME End Get End Property _ - Public ReadOnly Property CLIENT_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCLIENT_ID + Return Me.columnNAME End Get End Property _ - Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCOMMENT + Return Me.columnUSERNAME End Get End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHO + Return Me.columnSHORTNAME End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHEN + Return Me.columnEMAIL End Get End Property _ - Public ReadOnly Property Count() As Integer + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ + Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn Get - Return Me.Rows.Count + Return Me.columnLANGUAGE End Get End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CLIENT_USERRow + Public ReadOnly Property GENERAL_VIEWERColumn() As Global.System.Data.DataColumn Get - Return CType(Me.Rows(index),TBDD_CLIENT_USERRow) + Return Me.columnGENERAL_VIEWER End Get End Property - _ - Public Event TBDD_CLIENT_USERRowChanging As TBDD_CLIENT_USERRowChangeEventHandler - - _ - Public Event TBDD_CLIENT_USERRowChanged As TBDD_CLIENT_USERRowChangeEventHandler - - _ - Public Event TBDD_CLIENT_USERRowDeleting As TBDD_CLIENT_USERRowChangeEventHandler + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property - _ - Public Event TBDD_CLIENT_USERRowDeleted As TBDD_CLIENT_USERRowChangeEventHandler + _ + Public ReadOnly Property WAN_ENVIRONMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWAN_ENVIRONMENT + End Get + End Property _ - Public Overloads Sub AddTBDD_CLIENT_USERRow(ByVal row As TBDD_CLIENT_USERRow) - Me.Rows.Add(row) - End Sub + Public ReadOnly Property LOGGED_INColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOGGED_IN + End Get + End Property _ - Public Overloads Function AddTBDD_CLIENT_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_CLIENT_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_CLIENTRowByFK_TBDD_CLIENT_USER_GROUP_ID As TBDD_CLIENTRow, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBDD_CLIENT_USERRow - Dim rowTBDD_CLIENT_USERRow As TBDD_CLIENT_USERRow = CType(Me.NewRow,TBDD_CLIENT_USERRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, COMMENT, ADDED_WHO, ADDED_WHEN} - If (Not (parentTBDD_USERRowByFK_TBDD_CLIENT_USER_USER_ID) Is Nothing) Then - columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_CLIENT_USER_USER_ID(0) - End If - If (Not (parentTBDD_CLIENTRowByFK_TBDD_CLIENT_USER_GROUP_ID) Is Nothing) Then - columnValuesArray(2) = parentTBDD_CLIENTRowByFK_TBDD_CLIENT_USER_GROUP_ID(0) - End If - rowTBDD_CLIENT_USERRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_CLIENT_USERRow) - Return rowTBDD_CLIENT_USERRow - End Function + Public ReadOnly Property LOGGED_WHEREColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOGGED_WHERE + End Get + End Property _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_CLIENT_USERRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CLIENT_USERRow) - End Function + Public ReadOnly Property LOG_IN_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOG_IN_WHEN + End Get + End Property _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_CLIENT_USERDataTable = CType(MyBase.Clone,TBDD_CLIENT_USERDataTable) - cln.InitVars - Return cln - End Function + Public ReadOnly Property LOG_OUT_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOG_OUT_WHEN + End Get + End Property _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_CLIENT_USERDataTable() - End Function + Public ReadOnly Property PM_RIGHT_FILE_DELETEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPM_RIGHT_FILE_DELETE + End Get + End Property _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnUSER_ID = MyBase.Columns("USER_ID") - Me.columnCLIENT_ID = MyBase.Columns("CLIENT_ID") - Me.columnCOMMENT = MyBase.Columns("COMMENT") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - End Sub + Public ReadOnly Property USERID_FK_INT_ECMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERID_FK_INT_ECM + End Get + End Property _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSER_ID) - Me.columnCLIENT_ID = New Global.System.Data.DataColumn("CLIENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCLIENT_ID) + 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 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.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 @@ -3393,36 +3301,53 @@ Partial Public Class UserDataSet Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true - Me.columnUSER_ID.AllowDBNull = false - Me.columnCLIENT_ID.AllowDBNull = false - Me.columnCOMMENT.MaxLength = 200 + 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_CLIENT_USERRow() As TBDD_CLIENT_USERRow - Return CType(Me.NewRow,TBDD_CLIENT_USERRow) + Public Function NewTBDD_USERRow() As TBDD_USERRow + Return CType(Me.NewRow,TBDD_USERRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_CLIENT_USERRow(builder) + Return New TBDD_USERRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_CLIENT_USERRow) + Return GetType(TBDD_USERRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_CLIENT_USERRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENT_USERRowChanged(Me, New TBDD_CLIENT_USERRowChangeEvent(CType(e.Row,TBDD_CLIENT_USERRow), e.Action)) + If (Not (Me.TBDD_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowChanged(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) End If End Sub @@ -3430,8 +3355,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_CLIENT_USERRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENT_USERRowChanging(Me, New TBDD_CLIENT_USERRowChangeEvent(CType(e.Row,TBDD_CLIENT_USERRow), e.Action)) + If (Not (Me.TBDD_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowChanging(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) End If End Sub @@ -3439,8 +3364,8 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_CLIENT_USERRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENT_USERRowDeleted(Me, New TBDD_CLIENT_USERRowChangeEvent(CType(e.Row,TBDD_CLIENT_USERRow), e.Action)) + If (Not (Me.TBDD_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowDeleted(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) End If End Sub @@ -3448,14 +3373,14 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_CLIENT_USERRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENT_USERRowDeleting(Me, New TBDD_CLIENT_USERRowChangeEvent(CType(e.Row,TBDD_CLIENT_USERRow), e.Action)) + If (Not (Me.TBDD_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowDeleting(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_CLIENT_USERRow(ByVal row As TBDD_CLIENT_USERRow) + Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) Me.Rows.Remove(row) End Sub @@ -3482,7 +3407,7 @@ Partial Public Class UserDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_CLIENT_USERDataTable" + attribute2.FixedValue = "TBDD_USERDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -3529,289 +3454,262 @@ Partial Public Class UserDataSet ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBDD_USERRow + Partial Public Class TBDD_USER_GROUPSRow Inherits Global.System.Data.DataRow - Private tableTBDD_USER As TBDD_USERDataTable + Private tableTBDD_USER_GROUPS As TBDD_USER_GROUPSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) + Me.tableTBDD_USER_GROUPS = CType(Me.Table,TBDD_USER_GROUPSDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer) + Return CType(Me(Me.tableTBDD_USER_GROUPS.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_USER.GUIDColumn) = value + Me(Me.tableTBDD_USER_GROUPS.GUIDColumn) = value End Set End Property _ - Public Property PRENAME() As String + Public Property NAME() As String Get Try - Return CType(Me(Me.tableTBDD_USER.PRENAMEColumn),String) + Return CType(Me(Me.tableTBDD_USER_GROUPS.NAMEColumn),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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER_GROUPS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.PRENAMEColumn) = value + Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = value End Set End Property _ - Public Property NAME() As String + Public Property COMMENT() As String Get Try - Return CType(Me(Me.tableTBDD_USER.NAMEColumn),String) + Return CType(Me(Me.tableTBDD_USER_GROUPS.COMMENTColumn),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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_USER_GROUPS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.NAMEColumn) = value + Me(Me.tableTBDD_USER_GROUPS.COMMENTColumn) = value End Set End Property _ - Public Property USERNAME() As String + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String) + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_USER_GROUPS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_USER.USERNAMEColumn) = value + Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn) = value End Set End Property _ - Public Property SHORTNAME() As String + Public Property ADDED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_USER.SHORTNAMEColumn),String) + Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn),Date) 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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER_GROUPS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.SHORTNAMEColumn) = value + Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = value End Set End Property _ - Public Property EMAIL() As String + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBDD_USER.EMAILColumn),String) + Return CType(Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn),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) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_USER_GROUPS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.EMAILColumn) = value + Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = value End Set End Property _ - Public Property LANGUAGE() As String + Public Property CHANGED_WHEN() As Date Get - Return CType(Me(Me.tableTBDD_USER.LANGUAGEColumn),String) + Try + Return CType(Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_USER_GROUPS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_USER.LANGUAGEColumn) = value + Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = 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 Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.NAMEColumn) + End Function _ - 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 Sub SetNAMENull() + Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.COMMENTColumn) + End Function _ - 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 Sub SetCOMMENTNull() + Me(Me.tableTBDD_USER_GROUPS.COMMENTColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn) + End Function _ - 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 Sub SetADDED_WHONull() + Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) + End Function _ - 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 Sub SetADDED_WHENNull() + Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) + End Function _ - 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 Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub _ - 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 Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() + If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID") Is Nothing) Then + Return New TBDD_GROUPS_USERRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_GROUPS_USERRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_GROUPS_USERRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable _ - Public Property MODULE_RECORD_ORG() As Boolean + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_GROUPS_USER = CType(Me.Table,TBDD_GROUPS_USERDataTable) + End Sub + + _ + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_USER.MODULE_RECORD_ORGColumn),Boolean) + Return CType(Me(Me.tableTBDD_GROUPS_USER.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_USER.MODULE_RECORD_ORGColumn) = value + Me(Me.tableTBDD_GROUPS_USER.GUIDColumn) = value End Set End Property _ - Public Property RECORD_ADMIN() As Boolean + Public Property USER_ID() As Integer Get - Return CType(Me(Me.tableTBDD_USER.RECORD_ADMINColumn),Boolean) + Return CType(Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn),Integer) End Get Set - Me(Me.tableTBDD_USER.RECORD_ADMINColumn) = value + Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn) = value End Set End Property _ - Public Property USERID_FK_INT_ECM() As Integer + Public Property GROUP_ID() As Integer Get - Return CType(Me(Me.tableTBDD_USER.USERID_FK_INT_ECMColumn),Integer) + Return CType(Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn),Integer) End Get Set - Me(Me.tableTBDD_USER.USERID_FK_INT_ECMColumn) = value + Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn) = value End Set End Property _ - Public Property DATE_FORMAT() As String + Public Property COMMENT() As String Get - Return CType(Me(Me.tableTBDD_USER.DATE_FORMATColumn),String) + Try + Return CType(Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_GROUPS_USER ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_USER.DATE_FORMATColumn) = value + Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn) = value End Set End Property @@ -3819,10 +3717,10 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn) = value End Set End Property @@ -3831,13 +3729,13 @@ Partial Public Class UserDataSet Public Property ADDED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_USER.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GROUPS_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = value End Set End Property @@ -3846,13 +3744,13 @@ Partial Public Class UserDataSet Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBDD_USER.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = value + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = value End Set End Property @@ -3861,202 +3759,110 @@ Partial Public Class UserDataSet Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_USER.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = value + Me(Me.tableTBDD_GROUPS_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 Property TBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_USER_GROUPSRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")) + End Set + End Property _ - Public Sub SetEMAILNull() - Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull - End Sub + Public Property TBDD_USERRow() As TBDD_USERRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_USERRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")) + End Set + End Property _ Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.COMMENTColumn) + Return Me.IsNull(Me.tableTBDD_GROUPS_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 + Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn) + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn) + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() - Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn) + Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ - Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() - If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_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 ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBDD_USER_GROUPSRow + Partial Public Class TBDD_MODULESRow Inherits Global.System.Data.DataRow - Private tableTBDD_USER_GROUPS As TBDD_USER_GROUPSDataTable + Private tableTBDD_MODULES As TBDD_MODULESDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_USER_GROUPS = CType(Me.Table,TBDD_USER_GROUPSDataTable) + Me.tableTBDD_MODULES = CType(Me.Table,TBDD_MODULESDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_USER_GROUPS.GUIDColumn),Integer) + Return CType(Me(Me.tableTBDD_MODULES.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_USER_GROUPS.GUIDColumn) = value + Me(Me.tableTBDD_MODULES.GUIDColumn) = value End Set End Property @@ -4065,576 +3871,641 @@ Partial Public Class UserDataSet Public Property NAME() As String Get Try - Return CType(Me(Me.tableTBDD_USER_GROUPS.NAMEColumn),String) + Return CType(Me(Me.tableTBDD_MODULES.NAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER_GROUPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_MODULES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = value + Me(Me.tableTBDD_MODULES.NAMEColumn) = value End Set End Property _ - Public Property COMMENT() As String + Public Property SHORT_NAME() As String Get Try - Return CType(Me(Me.tableTBDD_USER_GROUPS.COMMENTColumn),String) + Return CType(Me(Me.tableTBDD_MODULES.SHORT_NAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_USER_GROUPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORT_NAME in Tabelle TBDD_MODULES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER_GROUPS.COMMENTColumn) = value + Me(Me.tableTBDD_MODULES.SHORT_NAMEColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property LICENSE() As String Get - Try - Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_USER_GROUPS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_MODULES.LICENSEColumn),String) End Get Set - Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn) = value + Me(Me.tableTBDD_MODULES.LICENSEColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property PRODUCT_VERSION() As String Get - Try - Return CType(Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER_GROUPS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_MODULES.PRODUCT_VERSIONColumn),String) End Get Set - Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = value + Me(Me.tableTBDD_MODULES.PRODUCT_VERSIONColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property ACTIVE() As Boolean Get - Try - Return CType(Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_USER_GROUPS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_MODULES.ACTIVEColumn),Boolean) End Get Set - Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = value + Me(Me.tableTBDD_MODULES.ACTIVEColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property VERSION_DELIMITER() As String Get - Try - Return CType(Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_USER_GROUPS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_MODULES.VERSION_DELIMITERColumn),String) End Get Set - Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = value + Me(Me.tableTBDD_MODULES.VERSION_DELIMITERColumn) = value End Set End Property _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER_GROUPS.NAMEColumn) - End Function - - _ - Public Sub SetNAMENull() - Me(Me.tableTBDD_USER_GROUPS.NAMEColumn) = Global.System.Convert.DBNull - End Sub + Public Property FILE_DELIMITER() As String + Get + Return CType(Me(Me.tableTBDD_MODULES.FILE_DELIMITERColumn),String) + End Get + Set + Me(Me.tableTBDD_MODULES.FILE_DELIMITERColumn) = value + End Set + End Property _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER_GROUPS.COMMENTColumn) - End Function + Public Property BIT1() As Boolean + Get + Return CType(Me(Me.tableTBDD_MODULES.BIT1Column),Boolean) + End Get + Set + Me(Me.tableTBDD_MODULES.BIT1Column) = value + End Set + End Property _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBDD_USER_GROUPS.COMMENTColumn) = Global.System.Convert.DBNull - End Sub + Public Property BIT2() As Boolean + Get + Return CType(Me(Me.tableTBDD_MODULES.BIT2Column),Boolean) + End Get + Set + Me(Me.tableTBDD_MODULES.BIT2Column) = value + End Set + End Property _ - Public Function IsADDED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn) - End Function + Public Property STRING1() As String + Get + Try + Return CType(Me(Me.tableTBDD_MODULES.STRING1Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STRING1 in Tabelle TBDD_MODULES ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_MODULES.STRING1Column) = value + End Set + End Property _ - Public Sub SetADDED_WHONull() - Me(Me.tableTBDD_USER_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_USER_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow() - If (Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID") Is Nothing) Then - Return New TBDD_GROUPS_USERRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_GROUPS_USERRow()) - End If - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBDD_GROUPS_USERRow - Inherits Global.System.Data.DataRow - - Private tableTBDD_GROUPS_USER As TBDD_GROUPS_USERDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBDD_GROUPS_USER = CType(Me.Table,TBDD_GROUPS_USERDataTable) - End Sub - - _ - Public Property GUID() As Integer + Public Property STRING2() As String Get - Return CType(Me(Me.tableTBDD_GROUPS_USER.GUIDColumn),Integer) + Try + Return CType(Me(Me.tableTBDD_MODULES.STRING2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STRING2 in Tabelle TBDD_MODULES ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_GROUPS_USER.GUIDColumn) = value + Me(Me.tableTBDD_MODULES.STRING2Column) = value End Set End Property _ - Public Property USER_ID() As Integer + Public Property BACKGROUND_IMAGE() As Byte() Get - Return CType(Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn),Integer) + Try + Return CType(Me(Me.tableTBDD_MODULES.BACKGROUND_IMAGEColumn),Byte()) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BACKGROUND_IMAGE in Tabelle TBDD_MODULES ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_GROUPS_USER.USER_IDColumn) = value + Me(Me.tableTBDD_MODULES.BACKGROUND_IMAGEColumn) = value End Set End Property _ - Public Property GROUP_ID() As Integer + Public Property PRODUCT_NAME1() As String Get - Return CType(Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn),Integer) + Return CType(Me(Me.tableTBDD_MODULES.PRODUCT_NAME1Column),String) End Get Set - Me(Me.tableTBDD_GROUPS_USER.GROUP_IDColumn) = value + Me(Me.tableTBDD_MODULES.PRODUCT_NAME1Column) = value End Set End Property _ - Public Property COMMENT() As String + Public Property PRODUCT_NAME2() As String Get Try - Return CType(Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn),String) + Return CType(Me(Me.tableTBDD_MODULES.PRODUCT_NAME2Column),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_GROUPS_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRODUCT_NAME2 in Tabelle TBDD_MODULES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn) = value + Me(Me.tableTBDD_MODULES.PRODUCT_NAME2Column) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property VERSION_UPATE_PATH() As String Get - Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBDD_MODULES.VERSION_UPATE_PATHColumn),String) End Get Set - Me(Me.tableTBDD_GROUPS_USER.ADDED_WHOColumn) = value + Me(Me.tableTBDD_MODULES.VERSION_UPATE_PATHColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property ADDED_WHO() As String Get Try - Return CType(Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBDD_MODULES.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GROUPS_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_MODULES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = value + Me(Me.tableTBDD_MODULES.ADDED_WHOColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property ADDED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBDD_MODULES.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_MODULES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = value + Me(Me.tableTBDD_MODULES.ADDED_WHENColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBDD_MODULES.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS_USER ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_MODULES ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = value + Me(Me.tableTBDD_MODULES.CHANGED_WHOColumn) = value End Set End Property _ - Public Property TBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow + Public Property CHANGED_WHEN() As Date Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_USER_GROUPSRow) + Try + Return CType(Me(Me.tableTBDD_MODULES.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_MODULES ist DBNull.", e) + End Try End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_GROUP_ID")) + Me(Me.tableTBDD_MODULES.CHANGED_WHENColumn) = value End Set End Property _ - Public Property TBDD_USERRow() As TBDD_USERRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")),TBDD_USERRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_GROUPS_USER_USER_ID")) - End Set - End Property + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_MODULES.NAMEColumn) + End Function _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS_USER.COMMENTColumn) + Public Sub SetNAMENull() + Me(Me.tableTBDD_MODULES.NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSHORT_NAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_MODULES.SHORT_NAMEColumn) End Function _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn) = Global.System.Convert.DBNull + Public Sub SetSHORT_NAMENull() + Me(Me.tableTBDD_MODULES.SHORT_NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSTRING1Null() As Boolean + Return Me.IsNull(Me.tableTBDD_MODULES.STRING1Column) + End Function + + _ + Public Sub SetSTRING1Null() + Me(Me.tableTBDD_MODULES.STRING1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSTRING2Null() As Boolean + Return Me.IsNull(Me.tableTBDD_MODULES.STRING2Column) + End Function + + _ + Public Sub SetSTRING2Null() + Me(Me.tableTBDD_MODULES.STRING2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBACKGROUND_IMAGENull() As Boolean + Return Me.IsNull(Me.tableTBDD_MODULES.BACKGROUND_IMAGEColumn) + End Function + + _ + Public Sub SetBACKGROUND_IMAGENull() + Me(Me.tableTBDD_MODULES.BACKGROUND_IMAGEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPRODUCT_NAME2Null() As Boolean + Return Me.IsNull(Me.tableTBDD_MODULES.PRODUCT_NAME2Column) + End Function + + _ + Public Sub SetPRODUCT_NAME2Null() + Me(Me.tableTBDD_MODULES.PRODUCT_NAME2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_MODULES.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBDD_MODULES.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) + Return Me.IsNull(Me.tableTBDD_MODULES.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_GROUPS_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBDD_MODULES.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) + Return Me.IsNull(Me.tableTBDD_MODULES.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() - Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Me(Me.tableTBDD_MODULES.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) + Return Me.IsNull(Me.tableTBDD_MODULES.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBDD_MODULES.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub + + _ + Public Function GetTBDD_USER_MODULESRows() As TBDD_USER_MODULESRow() + If (Me.Table.ChildRelations("FK_TBDD_USER_MODULES_MODULE_ID") Is Nothing) Then + Return New TBDD_USER_MODULESRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_USER_MODULES_MODULE_ID")),TBDD_USER_MODULESRow()) + End If + End Function End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBDD_MODULESRow + Partial Public Class TBDD_USER_MODULESRow Inherits Global.System.Data.DataRow - Private tableTBDD_MODULES As TBDD_MODULESDataTable + Private tableTBDD_USER_MODULES As TBDD_USER_MODULESDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_MODULES = CType(Me.Table,TBDD_MODULESDataTable) + Me.tableTBDD_USER_MODULES = CType(Me.Table,TBDD_USER_MODULESDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_MODULES.GUIDColumn),Integer) + Return CType(Me(Me.tableTBDD_USER_MODULES.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_MODULES.GUIDColumn) = value + Me(Me.tableTBDD_USER_MODULES.GUIDColumn) = value End Set End Property _ - Public Property NAME() As String + Public Property USER_ID() As Integer Get - Try - Return CType(Me(Me.tableTBDD_MODULES.NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_MODULES ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_USER_MODULES.USER_IDColumn),Integer) End Get Set - Me(Me.tableTBDD_MODULES.NAMEColumn) = value + Me(Me.tableTBDD_USER_MODULES.USER_IDColumn) = value End Set End Property _ - Public Property SHORT_NAME() As String + Public Property MODULE_ID() As Integer Get - Try - Return CType(Me(Me.tableTBDD_MODULES.SHORT_NAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORT_NAME in Tabelle TBDD_MODULES ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_USER_MODULES.MODULE_IDColumn),Integer) End Get Set - Me(Me.tableTBDD_MODULES.SHORT_NAMEColumn) = value + Me(Me.tableTBDD_USER_MODULES.MODULE_IDColumn) = value End Set End Property _ - Public Property LICENSE() As String + Public Property IS_ADMIN() As Boolean Get - Return CType(Me(Me.tableTBDD_MODULES.LICENSEColumn),String) + Return CType(Me(Me.tableTBDD_USER_MODULES.IS_ADMINColumn),Boolean) End Get Set - Me(Me.tableTBDD_MODULES.LICENSEColumn) = value + Me(Me.tableTBDD_USER_MODULES.IS_ADMINColumn) = value End Set End Property _ - Public Property PRODUCT_VERSION() As String + Public Property COMMENT() As String Get - Return CType(Me(Me.tableTBDD_MODULES.PRODUCT_VERSIONColumn),String) + Try + Return CType(Me(Me.tableTBDD_USER_MODULES.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_USER_MODULES ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_MODULES.PRODUCT_VERSIONColumn) = value + Me(Me.tableTBDD_USER_MODULES.COMMENTColumn) = value End Set End Property _ - Public Property ACTIVE() As Boolean + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBDD_MODULES.ACTIVEColumn),Boolean) + Try + Return CType(Me(Me.tableTBDD_USER_MODULES.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_USER_MODULES ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_MODULES.ACTIVEColumn) = value + Me(Me.tableTBDD_USER_MODULES.ADDED_WHOColumn) = value End Set End Property _ - Public Property VERSION_DELIMITER() As String + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBDD_MODULES.VERSION_DELIMITERColumn),String) + Try + Return CType(Me(Me.tableTBDD_USER_MODULES.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_MODULES ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_MODULES.VERSION_DELIMITERColumn) = value + Me(Me.tableTBDD_USER_MODULES.ADDED_WHENColumn) = value End Set End Property _ - Public Property FILE_DELIMITER() As String + Public Property TBDD_MODULESRow() As TBDD_MODULESRow Get - Return CType(Me(Me.tableTBDD_MODULES.FILE_DELIMITERColumn),String) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_USER_MODULES_MODULE_ID")),TBDD_MODULESRow) End Get Set - Me(Me.tableTBDD_MODULES.FILE_DELIMITERColumn) = value + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_USER_MODULES_MODULE_ID")) End Set End Property _ - Public Property BIT1() As Boolean + Public Property TBDD_USERRow() As TBDD_USERRow Get - Return CType(Me(Me.tableTBDD_MODULES.BIT1Column),Boolean) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_USER_MODULES2_USER_ID")),TBDD_USERRow) End Get Set - Me(Me.tableTBDD_MODULES.BIT1Column) = value + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_USER_MODULES2_USER_ID")) End Set End Property _ - Public Property BIT2() As Boolean + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_MODULES.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_USER_MODULES.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_MODULES.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBDD_USER_MODULES.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER_MODULES.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_USER_MODULES.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_CLIENTRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_CLIENT As TBDD_CLIENTDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_CLIENT = CType(Me.Table,TBDD_CLIENTDataTable) + End Sub + + _ + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_MODULES.BIT2Column),Boolean) + Return CType(Me(Me.tableTBDD_CLIENT.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_MODULES.BIT2Column) = value + Me(Me.tableTBDD_CLIENT.GUIDColumn) = value End Set End Property _ - Public Property STRING1() As String + Public Property CLIENT_NAME() As String Get - Try - Return CType(Me(Me.tableTBDD_MODULES.STRING1Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STRING1 in Tabelle TBDD_MODULES ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_CLIENT.CLIENT_NAMEColumn),String) End Get Set - Me(Me.tableTBDD_MODULES.STRING1Column) = value + Me(Me.tableTBDD_CLIENT.CLIENT_NAMEColumn) = value End Set End Property _ - Public Property STRING2() As String + Public Property SHORTNAME() As String Get Try - Return CType(Me(Me.tableTBDD_MODULES.STRING2Column),String) + Return CType(Me(Me.tableTBDD_CLIENT.SHORTNAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STRING2 in Tabelle TBDD_MODULES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORTNAME in Tabelle TBDD_CLIENT ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_MODULES.STRING2Column) = value + Me(Me.tableTBDD_CLIENT.SHORTNAMEColumn) = value End Set End Property _ - Public Property BACKGROUND_IMAGE() As Byte() + Public Property LICENSE_PMO() As String Get - Try - Return CType(Me(Me.tableTBDD_MODULES.BACKGROUND_IMAGEColumn),Byte()) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BACKGROUND_IMAGE in Tabelle TBDD_MODULES ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_CLIENT.LICENSE_PMOColumn),String) End Get Set - Me(Me.tableTBDD_MODULES.BACKGROUND_IMAGEColumn) = value + Me(Me.tableTBDD_CLIENT.LICENSE_PMOColumn) = value End Set End Property _ - Public Property PRODUCT_NAME1() As String + Public Property LICENSE_GI() As String Get - Return CType(Me(Me.tableTBDD_MODULES.PRODUCT_NAME1Column),String) + Return CType(Me(Me.tableTBDD_CLIENT.LICENSE_GIColumn),String) End Get Set - Me(Me.tableTBDD_MODULES.PRODUCT_NAME1Column) = value + Me(Me.tableTBDD_CLIENT.LICENSE_GIColumn) = value End Set End Property _ - Public Property PRODUCT_NAME2() As String + Public Property LICENSE_PM() As String Get - Try - Return CType(Me(Me.tableTBDD_MODULES.PRODUCT_NAME2Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRODUCT_NAME2 in Tabelle TBDD_MODULES ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_CLIENT.LICENSE_PMColumn),String) End Get Set - Me(Me.tableTBDD_MODULES.PRODUCT_NAME2Column) = value + Me(Me.tableTBDD_CLIENT.LICENSE_PMColumn) = value End Set End Property _ - Public Property VERSION_UPATE_PATH() As String + Public Property COMMENT() As String Get - Return CType(Me(Me.tableTBDD_MODULES.VERSION_UPATE_PATHColumn),String) + Try + Return CType(Me(Me.tableTBDD_CLIENT.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_CLIENT ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBDD_MODULES.VERSION_UPATE_PATHColumn) = value + Me(Me.tableTBDD_CLIENT.COMMENTColumn) = value End Set End Property @@ -4642,14 +4513,10 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property ADDED_WHO() As String Get - Try - Return CType(Me(Me.tableTBDD_MODULES.ADDED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_MODULES ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_CLIENT.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBDD_MODULES.ADDED_WHOColumn) = value + Me(Me.tableTBDD_CLIENT.ADDED_WHOColumn) = value End Set End Property @@ -4658,13 +4525,13 @@ Partial Public Class UserDataSet Public Property ADDED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_MODULES.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBDD_CLIENT.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_MODULES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_CLIENT ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_MODULES.ADDED_WHENColumn) = value + Me(Me.tableTBDD_CLIENT.ADDED_WHENColumn) = value End Set End Property @@ -4673,13 +4540,13 @@ Partial Public Class UserDataSet Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBDD_MODULES.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBDD_CLIENT.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_MODULES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_CLIENT ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_MODULES.CHANGED_WHOColumn) = value + Me(Me.tableTBDD_CLIENT.CHANGED_WHOColumn) = value End Set End Property @@ -4688,170 +4555,110 @@ Partial Public Class UserDataSet Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_MODULES.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBDD_CLIENT.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_MODULES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_CLIENT ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_MODULES.CHANGED_WHENColumn) = value + Me(Me.tableTBDD_CLIENT.CHANGED_WHENColumn) = value End Set End Property _ - Public Function IsNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_MODULES.NAMEColumn) + Public Function IsSHORTNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_CLIENT.SHORTNAMEColumn) End Function _ - Public Sub SetNAMENull() - Me(Me.tableTBDD_MODULES.NAMEColumn) = Global.System.Convert.DBNull + Public Sub SetSHORTNAMENull() + Me(Me.tableTBDD_CLIENT.SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSHORT_NAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_MODULES.SHORT_NAMEColumn) + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CLIENT.COMMENTColumn) End Function _ - Public Sub SetSHORT_NAMENull() - Me(Me.tableTBDD_MODULES.SHORT_NAMEColumn) = Global.System.Convert.DBNull + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_CLIENT.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSTRING1Null() As Boolean - Return Me.IsNull(Me.tableTBDD_MODULES.STRING1Column) + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CLIENT.ADDED_WHENColumn) End Function _ - Public Sub SetSTRING1Null() - Me(Me.tableTBDD_MODULES.STRING1Column) = Global.System.Convert.DBNull + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_CLIENT.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSTRING2Null() As Boolean - Return Me.IsNull(Me.tableTBDD_MODULES.STRING2Column) + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_CLIENT.CHANGED_WHOColumn) End Function _ - Public Sub SetSTRING2Null() - Me(Me.tableTBDD_MODULES.STRING2Column) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_CLIENT.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsBACKGROUND_IMAGENull() As Boolean - Return Me.IsNull(Me.tableTBDD_MODULES.BACKGROUND_IMAGEColumn) + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CLIENT.CHANGED_WHENColumn) End Function _ - Public Sub SetBACKGROUND_IMAGENull() - Me(Me.tableTBDD_MODULES.BACKGROUND_IMAGEColumn) = Global.System.Convert.DBNull + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_CLIENT.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsPRODUCT_NAME2Null() As Boolean - Return Me.IsNull(Me.tableTBDD_MODULES.PRODUCT_NAME2Column) - End Function - - _ - Public Sub SetPRODUCT_NAME2Null() - Me(Me.tableTBDD_MODULES.PRODUCT_NAME2Column) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_MODULES.ADDED_WHOColumn) - End Function - - _ - Public Sub SetADDED_WHONull() - Me(Me.tableTBDD_MODULES.ADDED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_MODULES.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_MODULES.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_MODULES.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBDD_MODULES.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_MODULES.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBDD_MODULES.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function GetTBDD_USER_MODULESRows() As TBDD_USER_MODULESRow() - If (Me.Table.ChildRelations("FK_TBDD_USER_MODULES_MODULE_ID") Is Nothing) Then - Return New TBDD_USER_MODULESRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_USER_MODULES_MODULE_ID")),TBDD_USER_MODULESRow()) - End If + Public Function GetTBDD_CLIENT_USERRows() As TBDD_CLIENT_USERRow() + If (Me.Table.ChildRelations("FK_TBDD_CLIENT_USER_GROUP_ID") Is Nothing) Then + Return New TBDD_CLIENT_USERRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_CLIENT_USER_GROUP_ID")),TBDD_CLIENT_USERRow()) + End If End Function End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBDD_USER_MODULESRow + Partial Public Class TBDD_CLIENT_USERRow Inherits Global.System.Data.DataRow - Private tableTBDD_USER_MODULES As TBDD_USER_MODULESDataTable + Private tableTBDD_CLIENT_USER As TBDD_CLIENT_USERDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_USER_MODULES = CType(Me.Table,TBDD_USER_MODULESDataTable) + Me.tableTBDD_CLIENT_USER = CType(Me.Table,TBDD_CLIENT_USERDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_USER_MODULES.GUIDColumn),Integer) + Return CType(Me(Me.tableTBDD_CLIENT_USER.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_USER_MODULES.GUIDColumn) = value + Me(Me.tableTBDD_CLIENT_USER.GUIDColumn) = value End Set End Property @@ -4859,32 +4666,21 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property USER_ID() As Integer Get - Return CType(Me(Me.tableTBDD_USER_MODULES.USER_IDColumn),Integer) - End Get - Set - Me(Me.tableTBDD_USER_MODULES.USER_IDColumn) = value - End Set - End Property - - _ - Public Property MODULE_ID() As Integer - Get - Return CType(Me(Me.tableTBDD_USER_MODULES.MODULE_IDColumn),Integer) + Return CType(Me(Me.tableTBDD_CLIENT_USER.USER_IDColumn),Integer) End Get Set - Me(Me.tableTBDD_USER_MODULES.MODULE_IDColumn) = value + Me(Me.tableTBDD_CLIENT_USER.USER_IDColumn) = value End Set End Property _ - Public Property IS_ADMIN() As Boolean + Public Property CLIENT_ID() As Integer Get - Return CType(Me(Me.tableTBDD_USER_MODULES.IS_ADMINColumn),Boolean) + Return CType(Me(Me.tableTBDD_CLIENT_USER.CLIENT_IDColumn),Integer) End Get Set - Me(Me.tableTBDD_USER_MODULES.IS_ADMINColumn) = value + Me(Me.tableTBDD_CLIENT_USER.CLIENT_IDColumn) = value End Set End Property @@ -4893,13 +4689,13 @@ Partial Public Class UserDataSet Public Property COMMENT() As String Get Try - Return CType(Me(Me.tableTBDD_USER_MODULES.COMMENTColumn),String) + Return CType(Me(Me.tableTBDD_CLIENT_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_MODULES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_CLIENT_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER_MODULES.COMMENTColumn) = value + Me(Me.tableTBDD_CLIENT_USER.COMMENTColumn) = value End Set End Property @@ -4908,13 +4704,13 @@ Partial Public Class UserDataSet Public Property ADDED_WHO() As String Get Try - Return CType(Me(Me.tableTBDD_USER_MODULES.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBDD_CLIENT_USER.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_USER_MODULES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_CLIENT_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER_MODULES.ADDED_WHOColumn) = value + Me(Me.tableTBDD_CLIENT_USER.ADDED_WHOColumn) = value End Set End Property @@ -4923,24 +4719,24 @@ Partial Public Class UserDataSet Public Property ADDED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_USER_MODULES.ADDED_WHENColumn),Date) + Return CType(Me(Me.tableTBDD_CLIENT_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_MODULES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_CLIENT_USER ist DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_USER_MODULES.ADDED_WHENColumn) = value + Me(Me.tableTBDD_CLIENT_USER.ADDED_WHENColumn) = value End Set End Property _ - Public Property TBDD_MODULESRow() As TBDD_MODULESRow + Public Property TBDD_CLIENTRow() As TBDD_CLIENTRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_USER_MODULES_MODULE_ID")),TBDD_MODULESRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_CLIENT_USER_GROUP_ID")),TBDD_CLIENTRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_USER_MODULES_MODULE_ID")) + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_CLIENT_USER_GROUP_ID")) End Set End Property @@ -4948,84 +4744,114 @@ Partial Public Class UserDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property TBDD_USERRow() As TBDD_USERRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_USER_MODULES2_USER_ID")),TBDD_USERRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_CLIENT_USER_USER_ID")),TBDD_USERRow) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_USER_MODULES2_USER_ID")) + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_CLIENT_USER_USER_ID")) End Set End Property _ Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER_MODULES.COMMENTColumn) + Return Me.IsNull(Me.tableTBDD_CLIENT_USER.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() - Me(Me.tableTBDD_USER_MODULES.COMMENTColumn) = Global.System.Convert.DBNull + Me(Me.tableTBDD_CLIENT_USER.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER_MODULES.ADDED_WHOColumn) + Return Me.IsNull(Me.tableTBDD_CLIENT_USER.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() - Me(Me.tableTBDD_USER_MODULES.ADDED_WHOColumn) = Global.System.Convert.DBNull + Me(Me.tableTBDD_CLIENT_USER.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_USER_MODULES.ADDED_WHENColumn) + Return Me.IsNull(Me.tableTBDD_CLIENT_USER.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_USER_MODULES.ADDED_WHENColumn) = Global.System.Convert.DBNull + Me(Me.tableTBDD_CLIENT_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBDD_CLIENTRow + Partial Public Class TBDD_USERRow Inherits Global.System.Data.DataRow - Private tableTBDD_CLIENT As TBDD_CLIENTDataTable + Private tableTBDD_USER As TBDD_USERDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_CLIENT = CType(Me.Table,TBDD_CLIENTDataTable) + Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_CLIENT.GUIDColumn),Integer) + Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_CLIENT.GUIDColumn) = value + Me(Me.tableTBDD_USER.GUIDColumn) = value End Set End Property _ - Public Property CLIENT_NAME() As String + Public Property PRENAME() As String Get - Return CType(Me(Me.tableTBDD_CLIENT.CLIENT_NAMEColumn),String) + 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_CLIENT.CLIENT_NAMEColumn) = value + 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 @@ -5034,46 +4860,50 @@ Partial Public Class UserDataSet Public Property SHORTNAME() As String Get Try - Return CType(Me(Me.tableTBDD_CLIENT.SHORTNAMEColumn),String) + 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_CLIENT ist DBNull.", e) + 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_CLIENT.SHORTNAMEColumn) = value + Me(Me.tableTBDD_USER.SHORTNAMEColumn) = value End Set End Property _ - Public Property LICENSE_PMO() As String + Public Property EMAIL() As String Get - Return CType(Me(Me.tableTBDD_CLIENT.LICENSE_PMOColumn),String) + 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_CLIENT.LICENSE_PMOColumn) = value + Me(Me.tableTBDD_USER.EMAILColumn) = value End Set End Property _ - Public Property LICENSE_GI() As String + Public Property LANGUAGE() As String Get - Return CType(Me(Me.tableTBDD_CLIENT.LICENSE_GIColumn),String) + Return CType(Me(Me.tableTBDD_USER.LANGUAGEColumn),String) End Get Set - Me(Me.tableTBDD_CLIENT.LICENSE_GIColumn) = value + Me(Me.tableTBDD_USER.LANGUAGEColumn) = value End Set End Property _ - Public Property LICENSE_PM() As String + Public Property GENERAL_VIEWER() As String Get - Return CType(Me(Me.tableTBDD_CLIENT.LICENSE_PMColumn),String) + Return CType(Me(Me.tableTBDD_USER.GENERAL_VIEWERColumn),String) End Get Set - Me(Me.tableTBDD_CLIENT.LICENSE_PMColumn) = value + Me(Me.tableTBDD_USER.GENERAL_VIEWERColumn) = value End Set End Property @@ -5082,361 +4912,365 @@ Partial Public Class UserDataSet Public Property COMMENT() As String Get Try - Return CType(Me(Me.tableTBDD_CLIENT.COMMENTColumn),String) + 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_CLIENT ist DBNull.", e) + 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_CLIENT.COMMENTColumn) = value + Me(Me.tableTBDD_USER.COMMENTColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property WAN_ENVIRONMENT() As Boolean Get - Return CType(Me(Me.tableTBDD_CLIENT.ADDED_WHOColumn),String) + Return CType(Me(Me.tableTBDD_USER.WAN_ENVIRONMENTColumn),Boolean) End Get Set - Me(Me.tableTBDD_CLIENT.ADDED_WHOColumn) = value + Me(Me.tableTBDD_USER.WAN_ENVIRONMENTColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + 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_CLIENT.ADDED_WHENColumn),Date) + 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 ADDED_WHEN in Tabelle TBDD_CLIENT ist DBNull.", e) + 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_CLIENT.ADDED_WHENColumn) = value + Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property LOG_IN_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_CLIENT.CHANGED_WHOColumn),String) + 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 CHANGED_WHO in Tabelle TBDD_CLIENT ist DBNull.", e) + 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_CLIENT.CHANGED_WHOColumn) = value + Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property LOG_OUT_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_CLIENT.CHANGED_WHENColumn),Date) + 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 CHANGED_WHEN in Tabelle TBDD_CLIENT ist DBNull.", e) + 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_CLIENT.CHANGED_WHENColumn) = value + Me(Me.tableTBDD_USER.LOG_OUT_WHENColumn) = value End Set End Property _ - Public Function IsSHORTNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_CLIENT.SHORTNAMEColumn) - End Function - - _ - Public Sub SetSHORTNAMENull() - Me(Me.tableTBDD_CLIENT.SHORTNAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CLIENT.COMMENTColumn) - End Function - - _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBDD_CLIENT.COMMENTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CLIENT.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_CLIENT.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_CLIENT.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBDD_CLIENT.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CLIENT.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBDD_CLIENT.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function GetTBDD_CLIENT_USERRows() As TBDD_CLIENT_USERRow() - If (Me.Table.ChildRelations("FK_TBDD_CLIENT_USER_GROUP_ID") Is Nothing) Then - Return New TBDD_CLIENT_USERRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_CLIENT_USER_GROUP_ID")),TBDD_CLIENT_USERRow()) - End If - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBDD_CLIENT_USERRow - Inherits Global.System.Data.DataRow - - Private tableTBDD_CLIENT_USER As TBDD_CLIENT_USERDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBDD_CLIENT_USER = CType(Me.Table,TBDD_CLIENT_USERDataTable) - End Sub + 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 GUID() As Integer + Public Property USERID_FK_INT_ECM() As Integer Get - Return CType(Me(Me.tableTBDD_CLIENT_USER.GUIDColumn),Integer) + Return CType(Me(Me.tableTBDD_USER.USERID_FK_INT_ECMColumn),Integer) End Get Set - Me(Me.tableTBDD_CLIENT_USER.GUIDColumn) = value + Me(Me.tableTBDD_USER.USERID_FK_INT_ECMColumn) = value End Set End Property _ - Public Property USER_ID() As Integer + Public Property DATE_FORMAT() As String Get - Return CType(Me(Me.tableTBDD_CLIENT_USER.USER_IDColumn),Integer) + Return CType(Me(Me.tableTBDD_USER.DATE_FORMATColumn),String) End Get Set - Me(Me.tableTBDD_CLIENT_USER.USER_IDColumn) = value + Me(Me.tableTBDD_USER.DATE_FORMATColumn) = value End Set End Property _ - Public Property CLIENT_ID() As Integer + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBDD_CLIENT_USER.CLIENT_IDColumn),Integer) + Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBDD_CLIENT_USER.CLIENT_IDColumn) = value + Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value End Set End Property _ - Public Property COMMENT() As String + Public Property ADDED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_CLIENT_USER.COMMENTColumn),String) + 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 COMMENT in Tabelle TBDD_CLIENT_USER ist DBNull.", e) + 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_CLIENT_USER.COMMENTColumn) = value + Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBDD_CLIENT_USER.ADDED_WHOColumn),String) + 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 ADDED_WHO in Tabelle TBDD_CLIENT_USER ist DBNull.", e) + 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_CLIENT_USER.ADDED_WHOColumn) = value + Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBDD_CLIENT_USER.ADDED_WHENColumn),Date) + 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 ADDED_WHEN in Tabelle TBDD_CLIENT_USER ist DBNull.", e) + 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_CLIENT_USER.ADDED_WHENColumn) = value + Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = value End Set End Property _ - Public Property TBDD_CLIENTRow() As TBDD_CLIENTRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_CLIENT_USER_GROUP_ID")),TBDD_CLIENTRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_CLIENT_USER_GROUP_ID")) - End Set - End Property + Public Function IsPRENAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn) + End Function _ - Public Property TBDD_USERRow() As TBDD_USERRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBDD_CLIENT_USER_USER_ID")),TBDD_USERRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBDD_CLIENT_USER_USER_ID")) - End Set - End Property + Public Sub SetPRENAMENull() + Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull + End Sub _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CLIENT_USER.COMMENTColumn) + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn) End Function _ - Public Sub SetCOMMENTNull() - Me(Me.tableTBDD_CLIENT_USER.COMMENTColumn) = Global.System.Convert.DBNull + Public Sub SetNAMENull() + Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADDED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBDD_CLIENT_USER.ADDED_WHOColumn) + Public Function IsSHORTNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.SHORTNAMEColumn) End Function _ - Public Sub SetADDED_WHONull() - Me(Me.tableTBDD_CLIENT_USER.ADDED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetSHORTNAMENull() + Me(Me.tableTBDD_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CLIENT_USER.ADDED_WHENColumn) + Public Function IsEMAILNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn) End Function _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBDD_CLIENT_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetEMAILNull() + Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull End Sub - 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 Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.COMMENTColumn) + End Function _ - Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Public Sub SetCOMMENTNull() + Me(Me.tableTBDD_USER.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ - Public ReadOnly Property Row() As TBDD_USERRow - Get - Return Me.eventRow - End Get - End Property + Public Function IsLOGGED_WHERENull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.LOGGED_WHEREColumn) + End Function _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_USER_GROUPSRowChangeEvent - Inherits Global.System.EventArgs + Public Sub SetLOGGED_WHERENull() + Me(Me.tableTBDD_USER.LOGGED_WHEREColumn) = Global.System.Convert.DBNull + End Sub - Private eventRow As TBDD_USER_GROUPSRow + _ + Public Function IsLOG_IN_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.LOG_IN_WHENColumn) + End Function - Private eventAction As Global.System.Data.DataRowAction + _ + Public Sub SetLOG_IN_WHENNull() + Me(Me.tableTBDD_USER.LOG_IN_WHENColumn) = Global.System.Convert.DBNull + End Sub _ - Public Sub New(ByVal row As TBDD_USER_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + 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 ReadOnly Property Row() As TBDD_USER_GROUPSRow - Get - Return Me.eventRow - End Get - End Property + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn) + End Function _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + 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 + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_USER_GROUPSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_USER_GROUPSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_USER_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_USER_GROUPSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get @@ -5622,6 +5456,42 @@ 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 @@ -5635,7 +5505,7 @@ Namespace UserDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_USERTableAdapter + Partial Public Class TBDD_USER_GROUPSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -5752,29 +5622,10 @@ Namespace UserDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_USER" + tableMapping.DataSetTable = "TBDD_USER_GROUPS" 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") @@ -5782,59 +5633,21 @@ Namespace UserDataSetTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_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.CommandText = "DELETE FROM [TBDD_USER_GROUPS] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAM"& _ + "E = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ((@IsNull_COMMENT = "& _ + "1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED"& _ + "_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND (("& _ + "@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_AD"& _ + "DED_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)))" 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("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) @@ -5844,141 +5657,44 @@ Namespace UserDataSetTableAdapters 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.CommandText = "INSERT INTO [TBDD_USER_GROUPS] ([NAME], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CH"& _ + "ANGED_WHO], [CHANGED_WHEN]) VALUES (@NAME, @COMMENT, @ADDED_WHO, @ADDED_WHEN, @C"& _ + "HANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, COMMENT, ADDED_WHO, ADDED_WHEN, "& _ + "CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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.CommandText = "UPDATE [TBDD_USER_GROUPS] SET [NAME] = @NAME, [COMMENT] = @COMMENT, [ADDED_WHO] ="& _ + " @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_"& _ + "WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = 1 AN"& _ + "D [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ((@IsNull_COMMENT = 1 AND [C"& _ + "OMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1"& _ + " AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_"& _ + "ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN"& _ + ")) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = "& _ + "@Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NUL"& _ + "L) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, COMMENT, "& _ + "ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GU"& _ + "ID = @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("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) @@ -5999,18 +5715,26 @@ 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_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER" + Me._commandCollection(0).CommandText = "SELECT TBDD_USER_GROUPS.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER_GROUPS" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT T2.GUID, T2.NAME, T2.COMMENT, T2.ADDED_WHO, T2.ADDED_WHEN, T2.CHANG"& _ + "ED_WHO, T2.CHANGED_WHEN"&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_GROUPS AS T2 ON T1.GROUP_ID = T2.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER AS T3 ON T1.USER_ID = T3.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + "(T3.USERNAME = @USERNAME)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_USERDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_USER_GROUPSDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -6023,9 +5747,43 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As UserDataSet.TBDD_USERDataTable + Public Overloads Overridable Function GetData() As UserDataSet.TBDD_USER_GROUPSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As UserDataSet.TBDD_USERDataTable = New UserDataSet.TBDD_USERDataTable() + Dim dataTable As UserDataSet.TBDD_USER_GROUPSDataTable = New UserDataSet.TBDD_USER_GROUPSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByUsername(ByVal dataTable As UserDataSet.TBDD_USER_GROUPSDataTable, ByVal USERNAME As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByUsername(ByVal USERNAME As String) As UserDataSet.TBDD_USER_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + End If + Dim dataTable As UserDataSet.TBDD_USER_GROUPSDataTable = New UserDataSet.TBDD_USER_GROUPSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -6033,7 +5791,7 @@ Namespace UserDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_USERDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_USER_GROUPSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -6041,7 +5799,7 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_USER") + Return Me.Adapter.Update(dataSet, "TBDD_USER_GROUPS") 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 + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_PRENAME Is Nothing) Then + If (Original_NAME Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_PRENAME,String) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_NAME,String) End If - If (Original_NAME Is Nothing) Then + If (Original_COMMENT 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) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_COMMENT,String) End If If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(30).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).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) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).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 + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).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 + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).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) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).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) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).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 + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).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) _ @@ -6220,395 +5883,131 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert( _ - ByVal 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 + Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (NAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) End If - If (NAME Is Nothing) Then + If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) End If - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) End If - If (SHORTNAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(SHORTNAME,String) + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value End If - If (EMAIL Is Nothing) Then + If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(EMAIL,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHO,String) End If - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE,String) + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value End If - If (GENERAL_VIEWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("GENERAL_VIEWER") + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal NAME As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(GENERAL_VIEWER,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) End If If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(1).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 + If (ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).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) + Me.Adapter.UpdateCommand.Parameters(2).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") + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHEN.Value,Date) 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 + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(4).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 + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_PRENAME,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) 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") + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_GENERAL_VIEWER,String) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_NAME,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") + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(54).Value = CType(Original_DATE_FORMAT,String) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_COMMENT,String) End If If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(12).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) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ADDED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(56).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(57).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_CHANGED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_CHANGED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(62).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -6628,59 +6027,8 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update( _ - ByVal 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) + Public Overloads Overridable Function Update(ByVal NAME As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(NAME, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_NAME, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class @@ -6693,7 +6041,7 @@ Namespace UserDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_USER_GROUPSTableAdapter + Partial Public Class TBDD_GROUPS_USERTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -6810,9 +6158,10 @@ Namespace UserDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_USER_GROUPS" + tableMapping.DataSetTable = "TBDD_GROUPS_USER" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") @@ -6821,21 +6170,20 @@ Namespace UserDataSetTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_USER_GROUPS] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAM"& _ - "E = 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ((@IsNull_COMMENT = "& _ - "1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED"& _ - "_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND (("& _ - "@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_AD"& _ - "DED_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)))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_GROUPS_USER] WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = "& _ + "@Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ((@IsNull_COMMENT ="& _ + " 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) 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 [CHANGE"& _ + "D_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGE"& _ + "D_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WH"& _ + "EN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) @@ -6845,12 +6193,14 @@ Namespace UserDataSetTableAdapters 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_GROUPS] ([NAME], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CH"& _ - "ANGED_WHO], [CHANGED_WHEN]) VALUES (@NAME, @COMMENT, @ADDED_WHO, @ADDED_WHEN, @C"& _ - "HANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, COMMENT, ADDED_WHO, ADDED_WHEN, "& _ - "CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_GROUPS_USER] ([USER_ID], [GROUP_ID], [COMMENT], [ADDED_WHO], [A"& _ + "DDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@USER_ID, @GROUP_ID, @COMMENT"& _ + ", @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, "& _ + "GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GR"& _ + "OUPS_USER WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 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("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -6858,31 +6208,31 @@ Namespace UserDataSetTableAdapters 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_GROUPS] SET [NAME] = @NAME, [COMMENT] = @COMMENT, [ADDED_WHO] ="& _ - " @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_"& _ - "WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = 1 AN"& _ - "D [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ((@IsNull_COMMENT = 1 AND [C"& _ - "OMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1"& _ - " AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_"& _ - "ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN"& _ - ")) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = "& _ - "@Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NUL"& _ - "L) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, COMMENT, "& _ - "ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GU"& _ - "ID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_GROUPS_USER] SET [USER_ID] = @USER_ID, [GROUP_ID] = @GROUP_ID, [COMM"& _ + "ENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_"& _ + "WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_G"& _ + "UID) AND ([USER_ID] = @Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) A"& _ + "ND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMEN"& _ + "T)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [AD"& _ + "DED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANG"& _ + "ED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)"& _ + ") AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] "& _ + "= @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GROUP_ID, COMMENT, ADDED_WHO"& _ + ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = @GUI"& _ + "D)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) @@ -6906,23 +6256,22 @@ Namespace UserDataSetTableAdapters 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_GROUPS.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER_GROUPS" + Me._commandCollection(0).CommandText = "SELECT TBDD_GROUPS_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_USER" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT T2.GUID, T2.NAME, T2.COMMENT, T2.ADDED_WHO, T2.ADDED_WHEN, T2.CHANG"& _ - "ED_WHO, T2.CHANGED_WHEN"&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_GROUPS AS T2 ON T1.GROUP_ID = T2.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER AS T3 ON T1.USER_ID = T3.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - "(T3.USERNAME = @USERNAME)" + Me._commandCollection(1).CommandText = "SELECT T2.GUID, T2.EMAIL, T2.USERNAME, T2.PRENAME, T2.NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBDD_GROUPS_USER AS T1 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER AS T2 ON"& _ + " T1.USER_ID = T2.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T1.GROUP_ID = @GROUP_ID)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_USER_GROUPSDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_GROUPS_USERDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -6935,9 +6284,9 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As UserDataSet.TBDD_USER_GROUPSDataTable + Public Overloads Overridable Function GetData() As UserDataSet.TBDD_GROUPS_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As UserDataSet.TBDD_USER_GROUPSDataTable = New UserDataSet.TBDD_USER_GROUPSDataTable() + Dim dataTable As UserDataSet.TBDD_GROUPS_USERDataTable = New UserDataSet.TBDD_GROUPS_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -6946,13 +6295,9 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _ - Public Overloads Overridable Function FillByUsername(ByVal dataTable As UserDataSet.TBDD_USER_GROUPSDataTable, ByVal USERNAME As String) As Integer + Public Overloads Overridable Function FillByGroupId(ByVal dataTable As UserDataSet.TBDD_GROUPS_USERDataTable, ByVal GROUP_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(1) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) - End If + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GROUP_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -6964,14 +6309,10 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _ - Public Overloads Overridable Function GetDataByUsername(ByVal USERNAME As String) As UserDataSet.TBDD_USER_GROUPSDataTable + Public Overloads Overridable Function GetDataByGroupId(ByVal GROUP_ID As Integer) As UserDataSet.TBDD_GROUPS_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(1) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) - End If - Dim dataTable As UserDataSet.TBDD_USER_GROUPSDataTable = New UserDataSet.TBDD_USER_GROUPSDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GROUP_ID,Integer) + Dim dataTable As UserDataSet.TBDD_GROUPS_USERDataTable = New UserDataSet.TBDD_GROUPS_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -6979,7 +6320,7 @@ Namespace UserDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_USER_GROUPSDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_GROUPS_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -6987,7 +6328,7 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_USER_GROUPS") + Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_USER") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_GROUP_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_NAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_NAME,String) - End If + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_USER_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_GROUP_ID,Integer) If (Original_COMMENT Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value @@ -7025,32 +6361,30 @@ Namespace UserDataSetTableAdapters Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_COMMENT,String) End If If (Original_ADDED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN.Value,Date) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHEN.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHEN.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).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) _ @@ -7071,36 +6405,33 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - If (NAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) - End If + Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) End If If (ADDED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHEN.Value,Date) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHO,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) Else - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(6).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) _ @@ -7121,57 +6452,63 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal NAME As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer - If (NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) - End If + Public Overloads Overridable Function Update( _ + ByVal USER_ID As Integer, _ + ByVal GROUP_ID As Integer, _ + ByVal COMMENT As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_USER_ID As Integer, _ + ByVal Original_GROUP_ID As Integer, _ + ByVal Original_COMMENT As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String) End If If (ADDED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) - If (Original_NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_NAME,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GROUP_ID,Integer) If (Original_COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_COMMENT,String) End If If (Original_ADDED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then @@ -7215,8 +6552,8 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal NAME As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(NAME, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_NAME, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_GROUP_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(USER_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_USER_ID, Original_GROUP_ID, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class @@ -7229,7 +6566,7 @@ Namespace UserDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_GROUPS_USERTableAdapter + Partial Public Class TBDD_MODULESTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -7346,11 +6683,23 @@ Namespace UserDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_GROUPS_USER" + tableMapping.DataSetTable = "TBDD_MODULES" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") - tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("SHORT_NAME", "SHORT_NAME") + tableMapping.ColumnMappings.Add("LICENSE", "LICENSE") + tableMapping.ColumnMappings.Add("PRODUCT_VERSION", "PRODUCT_VERSION") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("VERSION_DELIMITER", "VERSION_DELIMITER") + tableMapping.ColumnMappings.Add("FILE_DELIMITER", "FILE_DELIMITER") + tableMapping.ColumnMappings.Add("BIT1", "BIT1") + tableMapping.ColumnMappings.Add("BIT2", "BIT2") + tableMapping.ColumnMappings.Add("STRING1", "STRING1") + tableMapping.ColumnMappings.Add("STRING2", "STRING2") + tableMapping.ColumnMappings.Add("BACKGROUND_IMAGE", "BACKGROUND_IMAGE") + tableMapping.ColumnMappings.Add("PRODUCT_NAME1", "PRODUCT_NAME1") + tableMapping.ColumnMappings.Add("PRODUCT_NAME2", "PRODUCT_NAME2") + tableMapping.ColumnMappings.Add("VERSION_UPATE_PATH", "VERSION_UPATE_PATH") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") @@ -7358,20 +6707,45 @@ Namespace UserDataSetTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_GROUPS_USER] WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = "& _ - "@Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ((@IsNull_COMMENT ="& _ - " 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) 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 [CHANGE"& _ - "D_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGE"& _ - "D_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WH"& _ - "EN)))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_MODULES] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = "& _ + "1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ((@IsNull_SHORT_NAME = 1"& _ + " AND [SHORT_NAME] IS NULL) OR ([SHORT_NAME] = @Original_SHORT_NAME)) AND ([LICEN"& _ + "SE] = @Original_LICENSE) AND ([PRODUCT_VERSION] = @Original_PRODUCT_VERSION) AND"& _ + " ([ACTIVE] = @Original_ACTIVE) AND ([VERSION_DELIMITER] = @Original_VERSION_DELI"& _ + "MITER) AND ([FILE_DELIMITER] = @Original_FILE_DELIMITER) AND ([BIT1] = @Original"& _ + "_BIT1) AND ([BIT2] = @Original_BIT2) AND ((@IsNull_STRING1 = 1 AND [STRING1] IS "& _ + "NULL) OR ([STRING1] = @Original_STRING1)) AND ((@IsNull_STRING2 = 1 AND [STRING2"& _ + "] IS NULL) OR ([STRING2] = @Original_STRING2)) AND ([PRODUCT_NAME1] = @Original_"& _ + "PRODUCT_NAME1) AND ((@IsNull_PRODUCT_NAME2 = 1 AND [PRODUCT_NAME2] IS NULL) OR ("& _ + "[PRODUCT_NAME2] = @Original_PRODUCT_NAME2)) AND ([VERSION_UPATE_PATH] = @Origina"& _ + "l_VERSION_UPATE_PATH) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR (["& _ + "ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN]"& _ + " IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = "& _ + "1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@"& _ + "IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Origin"& _ + "al_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORT_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LICENSE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_VERSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_VERSION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STRING1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STRING2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PRODUCT_NAME2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERSION_UPATE_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_UPATE_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) @@ -7381,46 +6755,107 @@ Namespace UserDataSetTableAdapters Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_GROUPS_USER] ([USER_ID], [GROUP_ID], [COMMENT], [ADDED_WHO], [A"& _ - "DDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@USER_ID, @GROUP_ID, @COMMENT"& _ - ", @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, "& _ - "GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GR"& _ - "OUPS_USER WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_MODULES] ([NAME], [SHORT_NAME], [LICENSE], [PRODUCT_VERSION], ["& _ + "ACTIVE], [VERSION_DELIMITER], [FILE_DELIMITER], [BIT1], [BIT2], [STRING1], [STRI"& _ + "NG2], [BACKGROUND_IMAGE], [PRODUCT_NAME1], [PRODUCT_NAME2], [VERSION_UPATE_PATH]"& _ + ", [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@NAME, @SHOR"& _ + "T_NAME, @LICENSE, @PRODUCT_VERSION, @ACTIVE, @VERSION_DELIMITER, @FILE_DELIMITER"& _ + ", @BIT1, @BIT2, @STRING1, @STRING2, @BACKGROUND_IMAGE, @PRODUCT_NAME1, @PRODUCT_"& _ + "NAME2, @VERSION_UPATE_PATH, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN"& _ + ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, SHORT_NAME, LICENSE, PRODUCT_VERSION, ACTIVE, VERSION_DEL"& _ + "IMITER, FILE_DELIMITER, BIT1, BIT2, STRING1, STRING2, BACKGROUND_IMAGE, PRODUCT_"& _ + "NAME1, PRODUCT_NAME2, VERSION_UPATE_PATH, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ + "ANGED_WHEN FROM TBDD_MODULES WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 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("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_VERSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_VERSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BACKGROUND_IMAGE", Global.System.Data.SqlDbType.VarBinary, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BACKGROUND_IMAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_UPATE_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_UPATE_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_GROUPS_USER] SET [USER_ID] = @USER_ID, [GROUP_ID] = @GROUP_ID, [COMM"& _ - "ENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_"& _ - "WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_G"& _ - "UID) AND ([USER_ID] = @Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) A"& _ - "ND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMEN"& _ - "T)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [AD"& _ - "DED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANG"& _ - "ED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)"& _ - ") AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] "& _ - "= @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GROUP_ID, COMMENT, ADDED_WHO"& _ - ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = @GUI"& _ - "D)" + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_MODULES] SET [NAME] = @NAME, [SHORT_NAME] = @SHORT_NAME, [LICENSE] ="& _ + " @LICENSE, [PRODUCT_VERSION] = @PRODUCT_VERSION, [ACTIVE] = @ACTIVE, [VERSION_DE"& _ + "LIMITER] = @VERSION_DELIMITER, [FILE_DELIMITER] = @FILE_DELIMITER, [BIT1] = @BIT"& _ + "1, [BIT2] = @BIT2, [STRING1] = @STRING1, [STRING2] = @STRING2, [BACKGROUND_IMAGE"& _ + "] = @BACKGROUND_IMAGE, [PRODUCT_NAME1] = @PRODUCT_NAME1, [PRODUCT_NAME2] = @PROD"& _ + "UCT_NAME2, [VERSION_UPATE_PATH] = @VERSION_UPATE_PATH, [ADDED_WHO] = @ADDED_WHO,"& _ + " [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHA"& _ + "NGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = 1 AND [NAME] IS "& _ + "NULL) OR ([NAME] = @Original_NAME)) AND ((@IsNull_SHORT_NAME = 1 AND [SHORT_NAME"& _ + "] IS NULL) OR ([SHORT_NAME] = @Original_SHORT_NAME)) AND ([LICENSE] = @Original_"& _ + "LICENSE) AND ([PRODUCT_VERSION] = @Original_PRODUCT_VERSION) AND ([ACTIVE] = @Or"& _ + "iginal_ACTIVE) AND ([VERSION_DELIMITER] = @Original_VERSION_DELIMITER) AND ([FIL"& _ + "E_DELIMITER] = @Original_FILE_DELIMITER) AND ([BIT1] = @Original_BIT1) AND ([BIT"& _ + "2] = @Original_BIT2) AND ((@IsNull_STRING1 = 1 AND [STRING1] IS NULL) OR ([STRIN"& _ + "G1] = @Original_STRING1)) AND ((@IsNull_STRING2 = 1 AND [STRING2] IS NULL) OR (["& _ + "STRING2] = @Original_STRING2)) AND ([PRODUCT_NAME1] = @Original_PRODUCT_NAME1) A"& _ + "ND ((@IsNull_PRODUCT_NAME2 = 1 AND [PRODUCT_NAME2] IS NULL) OR ([PRODUCT_NAME2] "& _ + "= @Original_PRODUCT_NAME2)) AND ([VERSION_UPATE_PATH] = @Original_VERSION_UPATE_"& _ + "PATH) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Or"& _ + "iginal_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([A"& _ + "DDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_W"& _ + "HO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_W"& _ + "HEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)"& _ + "));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, SHORT_NAME, LICENSE, PRODUCT_VERSION, ACTIVE, VERSION_DE"& _ + "LIMITER, FILE_DELIMITER, BIT1, BIT2, STRING1, STRING2, BACKGROUND_IMAGE, PRODUCT"& _ + "_NAME1, PRODUCT_NAME2, VERSION_UPATE_PATH, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ + "HANGED_WHEN FROM TBDD_MODULES WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_VERSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_VERSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BACKGROUND_IMAGE", Global.System.Data.SqlDbType.VarBinary, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BACKGROUND_IMAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_UPATE_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_UPATE_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORT_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LICENSE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_VERSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_VERSION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STRING1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STRING2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PRODUCT_NAME2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERSION_UPATE_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_UPATE_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) @@ -7444,7 +6879,7 @@ Namespace UserDataSetTableAdapters Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBDD_GROUPS_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_USER" + Me._commandCollection(0).CommandText = "SELECT TBDD_MODULES.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_MODULES" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub @@ -7452,7 +6887,7 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ - Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_GROUPS_USERDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_MODULESDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -7465,9 +6900,9 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As UserDataSet.TBDD_GROUPS_USERDataTable + Public Overloads Overridable Function GetData() As UserDataSet.TBDD_MODULESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As UserDataSet.TBDD_GROUPS_USERDataTable = New UserDataSet.TBDD_GROUPS_USERDataTable() + Dim dataTable As UserDataSet.TBDD_MODULESDataTable = New UserDataSet.TBDD_MODULESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -7475,7 +6910,7 @@ Namespace UserDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_GROUPS_USERDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_MODULESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -7483,7 +6918,7 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_USER") + Return Me.Adapter.Update(dataSet, "TBDD_MODULES") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_GROUP_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Public Overloads Overridable Function Delete( _ + ByVal Original_GUID As Integer, _ + ByVal Original_NAME As String, _ + ByVal Original_SHORT_NAME As String, _ + ByVal Original_LICENSE As String, _ + ByVal Original_PRODUCT_VERSION As String, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_VERSION_DELIMITER As String, _ + ByVal Original_FILE_DELIMITER As String, _ + ByVal Original_BIT1 As Boolean, _ + ByVal Original_BIT2 As Boolean, _ + ByVal Original_STRING1 As String, _ + ByVal Original_STRING2 As String, _ + ByVal Original_PRODUCT_NAME1 As String, _ + ByVal Original_PRODUCT_NAME2 As String, _ + ByVal Original_VERSION_UPATE_PATH As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_USER_ID,Integer) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_GROUP_ID,Integer) - If (Original_COMMENT Is Nothing) Then + If (Original_NAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_NAME,String) + End If + If (Original_SHORT_NAME Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_COMMENT,String) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SHORT_NAME,String) + End If + If (Original_LICENSE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LICENSE") + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_LICENSE,String) + End If + If (Original_PRODUCT_VERSION Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PRODUCT_VERSION") + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_PRODUCT_VERSION,String) + End If + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ACTIVE,Boolean) + If (Original_VERSION_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_VERSION_DELIMITER") + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_VERSION_DELIMITER,String) + End If + If (Original_FILE_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_FILE_DELIMITER") + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_FILE_DELIMITER,String) + End If + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_BIT1,Boolean) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_BIT2,Boolean) + If (Original_STRING1 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_STRING1,String) + End If + If (Original_STRING2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_STRING2,String) + End If + If (Original_PRODUCT_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PRODUCT_NAME1") + Else + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_PRODUCT_NAME1,String) + End If + If (Original_PRODUCT_NAME2 Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_PRODUCT_NAME2,String) + End If + If (Original_VERSION_UPATE_PATH Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_VERSION_UPATE_PATH") + Else + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_VERSION_UPATE_PATH,String) End If If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHEN.Value,Date) + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_ADDED_WHEN.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHEN.Value,Date) + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_CHANGED_WHEN.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ @@ -7560,33 +7075,108 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Public Overloads Overridable Function Insert( _ + ByVal NAME As String, _ + ByVal SHORT_NAME As String, _ + ByVal LICENSE As String, _ + ByVal PRODUCT_VERSION As String, _ + ByVal ACTIVE As Boolean, _ + ByVal VERSION_DELIMITER As String, _ + ByVal FILE_DELIMITER As String, _ + ByVal BIT1 As Boolean, _ + ByVal BIT2 As Boolean, _ + ByVal STRING1 As String, _ + ByVal STRING2 As String, _ + ByVal BACKGROUND_IMAGE() As Byte, _ + ByVal PRODUCT_NAME1 As String, _ + ByVal PRODUCT_NAME2 As String, _ + ByVal VERSION_UPATE_PATH As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + End If + If (SHORT_NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SHORT_NAME,String) + End If + If (LICENSE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LICENSE") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(LICENSE,String) + End If + If (PRODUCT_VERSION Is Nothing) Then + Throw New Global.System.ArgumentNullException("PRODUCT_VERSION") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(PRODUCT_VERSION,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (VERSION_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("VERSION_DELIMITER") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(VERSION_DELIMITER,String) + End If + If (FILE_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("FILE_DELIMITER") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(FILE_DELIMITER,String) + End If + Me.Adapter.InsertCommand.Parameters(7).Value = CType(BIT1,Boolean) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(BIT2,Boolean) + If (STRING1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(STRING1,String) + End If + If (STRING2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(STRING2,String) + End If + If (BACKGROUND_IMAGE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(BACKGROUND_IMAGE,Byte()) + End If + If (PRODUCT_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PRODUCT_NAME1") + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(PRODUCT_NAME1,String) + End If + If (PRODUCT_NAME2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(PRODUCT_NAME2,String) + End If + If (VERSION_UPATE_PATH Is Nothing) Then + Throw New Global.System.ArgumentNullException("VERSION_UPATE_PATH") + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(VERSION_UPATE_PATH,String) End If If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(15).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) + Me.Adapter.InsertCommand.Parameters(16).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + Me.Adapter.InsertCommand.Parameters(17).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + Me.Adapter.InsertCommand.Parameters(18).Value = CType(CHANGED_WHEN.Value,Date) Else - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ @@ -7608,86 +7198,226 @@ Namespace UserDataSetTableAdapters Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ Public Overloads Overridable Function Update( _ - ByVal USER_ID As Integer, _ - ByVal GROUP_ID As Integer, _ - ByVal COMMENT As String, _ + ByVal NAME As String, _ + ByVal SHORT_NAME As String, _ + ByVal LICENSE As String, _ + ByVal PRODUCT_VERSION As String, _ + ByVal ACTIVE As Boolean, _ + ByVal VERSION_DELIMITER As String, _ + ByVal FILE_DELIMITER As String, _ + ByVal BIT1 As Boolean, _ + ByVal BIT2 As Boolean, _ + ByVal STRING1 As String, _ + ByVal STRING2 As String, _ + ByVal BACKGROUND_IMAGE() As Byte, _ + ByVal PRODUCT_NAME1 As String, _ + ByVal PRODUCT_NAME2 As String, _ + ByVal VERSION_UPATE_PATH As String, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Integer, _ - ByVal Original_USER_ID As Integer, _ - ByVal Original_GROUP_ID As Integer, _ - ByVal Original_COMMENT As String, _ + ByVal Original_NAME As String, _ + ByVal Original_SHORT_NAME As String, _ + ByVal Original_LICENSE As String, _ + ByVal Original_PRODUCT_VERSION As String, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_VERSION_DELIMITER As String, _ + ByVal Original_FILE_DELIMITER As String, _ + ByVal Original_BIT1 As Boolean, _ + ByVal Original_BIT2 As Boolean, _ + ByVal Original_STRING1 As String, _ + ByVal Original_STRING2 As String, _ + ByVal Original_PRODUCT_NAME1 As String, _ + ByVal Original_PRODUCT_NAME2 As String, _ + ByVal Original_VERSION_UPATE_PATH As String, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + If (SHORT_NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SHORT_NAME,String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) + If (LICENSE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LICENSE") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LICENSE,String) End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + If (PRODUCT_VERSION Is Nothing) Then + Throw New Global.System.ArgumentNullException("PRODUCT_VERSION") Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(PRODUCT_VERSION,String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (VERSION_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("VERSION_DELIMITER") Else - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(VERSION_DELIMITER,String) End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_USER_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GROUP_ID,Integer) - If (Original_COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) + If (FILE_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("FILE_DELIMITER") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(FILE_DELIMITER,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(BIT1,Boolean) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(BIT2,Boolean) + If (STRING1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(STRING1,String) + End If + If (STRING2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(STRING2,String) + End If + If (BACKGROUND_IMAGE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(BACKGROUND_IMAGE,Byte()) + End If + If (PRODUCT_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PRODUCT_NAME1") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(PRODUCT_NAME1,String) + End If + If (PRODUCT_NAME2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(PRODUCT_NAME2,String) + End If + If (VERSION_UPATE_PATH Is Nothing) Then + Throw New Global.System.ArgumentNullException("VERSION_UPATE_PATH") + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(VERSION_UPATE_PATH,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_GUID,Integer) + If (Original_NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_NAME,String) + End If + If (Original_SHORT_NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_SHORT_NAME,String) + End If + If (Original_LICENSE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LICENSE") + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_LICENSE,String) + End If + If (Original_PRODUCT_VERSION Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PRODUCT_VERSION") + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_PRODUCT_VERSION,String) + End If + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_ACTIVE,Boolean) + If (Original_VERSION_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_VERSION_DELIMITER") + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_VERSION_DELIMITER,String) + End If + If (Original_FILE_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_FILE_DELIMITER") + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_FILE_DELIMITER,String) + End If + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_BIT1,Boolean) + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_BIT2,Boolean) + If (Original_STRING1 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_STRING1,String) + End If + If (Original_STRING2 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_STRING2,String) + End If + If (Original_PRODUCT_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PRODUCT_NAME1") + Else + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_PRODUCT_NAME1,String) + End If + If (Original_PRODUCT_NAME2 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_PRODUCT_NAME2,String) + End If + If (Original_VERSION_UPATE_PATH Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_VERSION_UPATE_PATH") + Else + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_VERSION_UPATE_PATH,String) End If If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_ADDED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_ADDED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_CHANGED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_CHANGED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(46).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(47).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 @@ -7707,8 +7437,46 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_GROUP_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(USER_ID, GROUP_ID, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_USER_ID, Original_GROUP_ID, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + Public Overloads Overridable Function Update( _ + ByVal NAME As String, _ + ByVal SHORT_NAME As String, _ + ByVal LICENSE As String, _ + ByVal PRODUCT_VERSION As String, _ + ByVal ACTIVE As Boolean, _ + ByVal VERSION_DELIMITER As String, _ + ByVal FILE_DELIMITER As String, _ + ByVal BIT1 As Boolean, _ + ByVal BIT2 As Boolean, _ + ByVal STRING1 As String, _ + ByVal STRING2 As String, _ + ByVal BACKGROUND_IMAGE() As Byte, _ + ByVal PRODUCT_NAME1 As String, _ + ByVal PRODUCT_NAME2 As String, _ + ByVal VERSION_UPATE_PATH As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_NAME As String, _ + ByVal Original_SHORT_NAME As String, _ + ByVal Original_LICENSE As String, _ + ByVal Original_PRODUCT_VERSION As String, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_VERSION_DELIMITER As String, _ + ByVal Original_FILE_DELIMITER As String, _ + ByVal Original_BIT1 As Boolean, _ + ByVal Original_BIT2 As Boolean, _ + ByVal Original_STRING1 As String, _ + ByVal Original_STRING2 As String, _ + ByVal Original_PRODUCT_NAME1 As String, _ + ByVal Original_PRODUCT_NAME2 As String, _ + ByVal Original_VERSION_UPATE_PATH As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(NAME, SHORT_NAME, LICENSE, PRODUCT_VERSION, ACTIVE, VERSION_DELIMITER, FILE_DELIMITER, BIT1, BIT2, STRING1, STRING2, BACKGROUND_IMAGE, PRODUCT_NAME1, PRODUCT_NAME2, VERSION_UPATE_PATH, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_NAME, Original_SHORT_NAME, Original_LICENSE, Original_PRODUCT_VERSION, Original_ACTIVE, Original_VERSION_DELIMITER, Original_FILE_DELIMITER, Original_BIT1, Original_BIT2, Original_STRING1, Original_STRING2, Original_PRODUCT_NAME1, Original_PRODUCT_NAME2, Original_VERSION_UPATE_PATH, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class @@ -7721,7 +7489,7 @@ Namespace UserDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_MODULESTableAdapter + Partial Public Class TBDD_USER_MODULESTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -7838,186 +7606,75 @@ Namespace UserDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_MODULES" + tableMapping.DataSetTable = "TBDD_USER_MODULES" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("SHORT_NAME", "SHORT_NAME") - tableMapping.ColumnMappings.Add("LICENSE", "LICENSE") - tableMapping.ColumnMappings.Add("PRODUCT_VERSION", "PRODUCT_VERSION") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("VERSION_DELIMITER", "VERSION_DELIMITER") - tableMapping.ColumnMappings.Add("FILE_DELIMITER", "FILE_DELIMITER") - tableMapping.ColumnMappings.Add("BIT1", "BIT1") - tableMapping.ColumnMappings.Add("BIT2", "BIT2") - tableMapping.ColumnMappings.Add("STRING1", "STRING1") - tableMapping.ColumnMappings.Add("STRING2", "STRING2") - tableMapping.ColumnMappings.Add("BACKGROUND_IMAGE", "BACKGROUND_IMAGE") - tableMapping.ColumnMappings.Add("PRODUCT_NAME1", "PRODUCT_NAME1") - tableMapping.ColumnMappings.Add("PRODUCT_NAME2", "PRODUCT_NAME2") - tableMapping.ColumnMappings.Add("VERSION_UPATE_PATH", "VERSION_UPATE_PATH") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("MODULE_ID", "MODULE_ID") + tableMapping.ColumnMappings.Add("IS_ADMIN", "IS_ADMIN") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_MODULES] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = "& _ - "1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ((@IsNull_SHORT_NAME = 1"& _ - " AND [SHORT_NAME] IS NULL) OR ([SHORT_NAME] = @Original_SHORT_NAME)) AND ([LICEN"& _ - "SE] = @Original_LICENSE) AND ([PRODUCT_VERSION] = @Original_PRODUCT_VERSION) AND"& _ - " ([ACTIVE] = @Original_ACTIVE) AND ([VERSION_DELIMITER] = @Original_VERSION_DELI"& _ - "MITER) AND ([FILE_DELIMITER] = @Original_FILE_DELIMITER) AND ([BIT1] = @Original"& _ - "_BIT1) AND ([BIT2] = @Original_BIT2) AND ((@IsNull_STRING1 = 1 AND [STRING1] IS "& _ - "NULL) OR ([STRING1] = @Original_STRING1)) AND ((@IsNull_STRING2 = 1 AND [STRING2"& _ - "] IS NULL) OR ([STRING2] = @Original_STRING2)) AND ([PRODUCT_NAME1] = @Original_"& _ - "PRODUCT_NAME1) AND ((@IsNull_PRODUCT_NAME2 = 1 AND [PRODUCT_NAME2] IS NULL) OR ("& _ - "[PRODUCT_NAME2] = @Original_PRODUCT_NAME2)) AND ([VERSION_UPATE_PATH] = @Origina"& _ - "l_VERSION_UPATE_PATH) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR (["& _ - "ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN]"& _ - " IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = "& _ - "1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@"& _ - "IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Origin"& _ - "al_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_USER_MODULES] WHERE (([GUID] = @Original_GUID) AND ([USER_ID] ="& _ + " @Original_USER_ID) AND ([MODULE_ID] = @Original_MODULE_ID) AND ([IS_ADMIN] = @O"& _ + "riginal_IS_ADMIN) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT]"& _ + " = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ("& _ + "[ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN"& _ + "] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORT_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LICENSE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_VERSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_VERSION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STRING1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STRING2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PRODUCT_NAME2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERSION_UPATE_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_UPATE_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MODULE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IS_ADMIN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ADMIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_MODULES] ([NAME], [SHORT_NAME], [LICENSE], [PRODUCT_VERSION], ["& _ - "ACTIVE], [VERSION_DELIMITER], [FILE_DELIMITER], [BIT1], [BIT2], [STRING1], [STRI"& _ - "NG2], [BACKGROUND_IMAGE], [PRODUCT_NAME1], [PRODUCT_NAME2], [VERSION_UPATE_PATH]"& _ - ", [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@NAME, @SHOR"& _ - "T_NAME, @LICENSE, @PRODUCT_VERSION, @ACTIVE, @VERSION_DELIMITER, @FILE_DELIMITER"& _ - ", @BIT1, @BIT2, @STRING1, @STRING2, @BACKGROUND_IMAGE, @PRODUCT_NAME1, @PRODUCT_"& _ - "NAME2, @VERSION_UPATE_PATH, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN"& _ - ");"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, SHORT_NAME, LICENSE, PRODUCT_VERSION, ACTIVE, VERSION_DEL"& _ - "IMITER, FILE_DELIMITER, BIT1, BIT2, STRING1, STRING2, BACKGROUND_IMAGE, PRODUCT_"& _ - "NAME1, PRODUCT_NAME2, VERSION_UPATE_PATH, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ - "ANGED_WHEN FROM TBDD_MODULES WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_USER_MODULES] ([USER_ID], [MODULE_ID], [IS_ADMIN], [COMMENT], ["& _ + "ADDED_WHO], [ADDED_WHEN]) VALUES (@USER_ID, @MODULE_ID, @IS_ADMIN, @COMMENT, @AD"& _ + "DED_WHO, @ADDED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, MODULE_ID, IS_ADMIN, COMMENT, ADDE"& _ + "D_WHO, ADDED_WHEN FROM TBDD_USER_MODULES WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_VERSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_VERSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BACKGROUND_IMAGE", Global.System.Data.SqlDbType.VarBinary, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BACKGROUND_IMAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_UPATE_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_UPATE_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_ADMIN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ADMIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_MODULES] SET [NAME] = @NAME, [SHORT_NAME] = @SHORT_NAME, [LICENSE] ="& _ - " @LICENSE, [PRODUCT_VERSION] = @PRODUCT_VERSION, [ACTIVE] = @ACTIVE, [VERSION_DE"& _ - "LIMITER] = @VERSION_DELIMITER, [FILE_DELIMITER] = @FILE_DELIMITER, [BIT1] = @BIT"& _ - "1, [BIT2] = @BIT2, [STRING1] = @STRING1, [STRING2] = @STRING2, [BACKGROUND_IMAGE"& _ - "] = @BACKGROUND_IMAGE, [PRODUCT_NAME1] = @PRODUCT_NAME1, [PRODUCT_NAME2] = @PROD"& _ - "UCT_NAME2, [VERSION_UPATE_PATH] = @VERSION_UPATE_PATH, [ADDED_WHO] = @ADDED_WHO,"& _ - " [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHA"& _ - "NGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_NAME = 1 AND [NAME] IS "& _ - "NULL) OR ([NAME] = @Original_NAME)) AND ((@IsNull_SHORT_NAME = 1 AND [SHORT_NAME"& _ - "] IS NULL) OR ([SHORT_NAME] = @Original_SHORT_NAME)) AND ([LICENSE] = @Original_"& _ - "LICENSE) AND ([PRODUCT_VERSION] = @Original_PRODUCT_VERSION) AND ([ACTIVE] = @Or"& _ - "iginal_ACTIVE) AND ([VERSION_DELIMITER] = @Original_VERSION_DELIMITER) AND ([FIL"& _ - "E_DELIMITER] = @Original_FILE_DELIMITER) AND ([BIT1] = @Original_BIT1) AND ([BIT"& _ - "2] = @Original_BIT2) AND ((@IsNull_STRING1 = 1 AND [STRING1] IS NULL) OR ([STRIN"& _ - "G1] = @Original_STRING1)) AND ((@IsNull_STRING2 = 1 AND [STRING2] IS NULL) OR (["& _ - "STRING2] = @Original_STRING2)) AND ([PRODUCT_NAME1] = @Original_PRODUCT_NAME1) A"& _ - "ND ((@IsNull_PRODUCT_NAME2 = 1 AND [PRODUCT_NAME2] IS NULL) OR ([PRODUCT_NAME2] "& _ - "= @Original_PRODUCT_NAME2)) AND ([VERSION_UPATE_PATH] = @Original_VERSION_UPATE_"& _ - "PATH) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Or"& _ - "iginal_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([A"& _ - "DDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_W"& _ - "HO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_W"& _ - "HEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)"& _ - "));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, SHORT_NAME, LICENSE, PRODUCT_VERSION, ACTIVE, VERSION_DE"& _ - "LIMITER, FILE_DELIMITER, BIT1, BIT2, STRING1, STRING2, BACKGROUND_IMAGE, PRODUCT"& _ - "_NAME1, PRODUCT_NAME2, VERSION_UPATE_PATH, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ - "HANGED_WHEN FROM TBDD_MODULES WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_USER_MODULES] SET [USER_ID] = @USER_ID, [MODULE_ID] = @MODULE_ID, [I"& _ + "S_ADMIN] = @IS_ADMIN, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHE"& _ + "N] = @ADDED_WHEN WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = @Original_USE"& _ + "R_ID) AND ([MODULE_ID] = @Original_MODULE_ID) AND ([IS_ADMIN] = @Original_IS_ADM"& _ + "IN) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_C"& _ + "OMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = "& _ + "@Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR "& _ + "([ADDED_WHEN] = @Original_ADDED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, MODULE_ID, IS_AD"& _ + "MIN, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBDD_USER_MODULES WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_VERSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_VERSION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BACKGROUND_IMAGE", Global.System.Data.SqlDbType.VarBinary, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BACKGROUND_IMAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRODUCT_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_UPATE_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_UPATE_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_ADMIN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ADMIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SHORT_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SHORT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LICENSE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_VERSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_VERSION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STRING1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_STRING2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_NAME1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PRODUCT_NAME2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRODUCT_NAME2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRODUCT_NAME2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VERSION_UPATE_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_UPATE_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MODULE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IS_ADMIN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ADMIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub @@ -8034,7 +7691,7 @@ Namespace UserDataSetTableAdapters Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBDD_MODULES.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_MODULES" + Me._commandCollection(0).CommandText = "SELECT TBDD_USER_MODULES.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER_MODULES" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub @@ -8042,7 +7699,7 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ - Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_MODULESDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_USER_MODULESDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -8055,9 +7712,9 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As UserDataSet.TBDD_MODULESDataTable + Public Overloads Overridable Function GetData() As UserDataSet.TBDD_USER_MODULESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As UserDataSet.TBDD_MODULESDataTable = New UserDataSet.TBDD_MODULESDataTable() + Dim dataTable As UserDataSet.TBDD_USER_MODULESDataTable = New UserDataSet.TBDD_USER_MODULESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -8065,7 +7722,7 @@ Namespace UserDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_MODULESDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_USER_MODULESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -8073,7 +7730,7 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_MODULES") + Return Me.Adapter.Update(dataSet, "TBDD_USER_MODULES") End Function _ - Public Overloads Overridable Function Delete( _ - ByVal Original_GUID As Integer, _ - ByVal Original_NAME As String, _ - ByVal Original_SHORT_NAME As String, _ - ByVal Original_LICENSE As String, _ - ByVal Original_PRODUCT_VERSION As String, _ - ByVal Original_ACTIVE As Boolean, _ - ByVal Original_VERSION_DELIMITER As String, _ - ByVal Original_FILE_DELIMITER As String, _ - ByVal Original_BIT1 As Boolean, _ - ByVal Original_BIT2 As Boolean, _ - ByVal Original_STRING1 As String, _ - ByVal Original_STRING2 As String, _ - ByVal Original_PRODUCT_NAME1 As String, _ - ByVal Original_PRODUCT_NAME2 As String, _ - ByVal Original_VERSION_UPATE_PATH As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_MODULE_ID As Integer, ByVal Original_IS_ADMIN As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_NAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_USER_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_MODULE_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_IS_ADMIN,Boolean) + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_NAME,String) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_COMMENT,String) End If - If (Original_SHORT_NAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + If (Original_ADDED_WHO 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(3).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SHORT_NAME,String) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) End If - If (Original_LICENSE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_LICENSE") + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_LICENSE,String) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If - If (Original_PRODUCT_VERSION Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PRODUCT_VERSION") - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_PRODUCT_VERSION,String) + 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 - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ACTIVE,Boolean) - If (Original_VERSION_DELIMITER Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_VERSION_DELIMITER") + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal MODULE_ID As Integer, ByVal IS_ADMIN As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(MODULE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(IS_ADMIN,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_VERSION_DELIMITER,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) End If - If (Original_FILE_DELIMITER Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_FILE_DELIMITER") + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_FILE_DELIMITER,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) End If - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_BIT1,Boolean) - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_BIT2,Boolean) - If (Original_STRING1 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_STRING1,String) - End If - If (Original_STRING2 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_STRING2,String) - End If - If (Original_PRODUCT_NAME1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PRODUCT_NAME1") - Else - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_PRODUCT_NAME1,String) - End If - If (Original_PRODUCT_NAME2 Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_PRODUCT_NAME2,String) - End If - If (Original_VERSION_UPATE_PATH Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_VERSION_UPATE_PATH") - Else - Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_VERSION_UPATE_PATH,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(5).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) _ + 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.DeleteCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open End If Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close + Me.Adapter.InsertCommand.Connection.Close End If End Try End Function @@ -8229,121 +7833,63 @@ Namespace UserDataSetTableAdapters _ - Public Overloads Overridable Function Insert( _ - ByVal NAME As String, _ - ByVal SHORT_NAME As String, _ - ByVal LICENSE As String, _ - ByVal PRODUCT_VERSION As String, _ - ByVal ACTIVE As Boolean, _ - ByVal VERSION_DELIMITER As String, _ - ByVal FILE_DELIMITER As String, _ - ByVal BIT1 As Boolean, _ - ByVal BIT2 As Boolean, _ - ByVal STRING1 As String, _ - ByVal STRING2 As String, _ - ByVal BACKGROUND_IMAGE() As Byte, _ - ByVal PRODUCT_NAME1 As String, _ - ByVal PRODUCT_NAME2 As String, _ - ByVal VERSION_UPATE_PATH As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - If (NAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) - End If - If (SHORT_NAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SHORT_NAME,String) - End If - If (LICENSE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LICENSE") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(LICENSE,String) - End If - If (PRODUCT_VERSION Is Nothing) Then - Throw New Global.System.ArgumentNullException("PRODUCT_VERSION") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(PRODUCT_VERSION,String) - End If - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) - If (VERSION_DELIMITER Is Nothing) Then - Throw New Global.System.ArgumentNullException("VERSION_DELIMITER") - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(VERSION_DELIMITER,String) - End If - If (FILE_DELIMITER Is Nothing) Then - Throw New Global.System.ArgumentNullException("FILE_DELIMITER") - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(FILE_DELIMITER,String) - End If - Me.Adapter.InsertCommand.Parameters(7).Value = CType(BIT1,Boolean) - Me.Adapter.InsertCommand.Parameters(8).Value = CType(BIT2,Boolean) - If (STRING1 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(STRING1,String) - End If - If (STRING2 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(STRING2,String) - End If - If (BACKGROUND_IMAGE Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(11).Value = CType(BACKGROUND_IMAGE,Byte()) - End If - If (PRODUCT_NAME1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("PRODUCT_NAME1") - Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(PRODUCT_NAME1,String) - End If - If (PRODUCT_NAME2 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(13).Value = CType(PRODUCT_NAME2,String) - End If - If (VERSION_UPATE_PATH Is Nothing) Then - Throw New Global.System.ArgumentNullException("VERSION_UPATE_PATH") + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal MODULE_ID As Integer, ByVal IS_ADMIN As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_MODULE_ID As Integer, ByVal Original_IS_ADMIN As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(MODULE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IS_ADMIN,Boolean) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(14).Value = CType(VERSION_UPATE_PATH,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) End If If (ADDED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(15).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(16).Value = CType(ADDED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.InsertCommand.Parameters(16).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_MODULE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_IS_ADMIN,Boolean) + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(17).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_COMMENT,String) End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(18).Value = CType(CHANGED_WHEN.Value,Date) + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ADDED_WHO,String) End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(16).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.InsertCommand.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open End If Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close + Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function @@ -8352,286 +7898,8 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update( _ - ByVal NAME As String, _ - ByVal SHORT_NAME As String, _ - ByVal LICENSE As String, _ - ByVal PRODUCT_VERSION As String, _ - ByVal ACTIVE As Boolean, _ - ByVal VERSION_DELIMITER As String, _ - ByVal FILE_DELIMITER As String, _ - ByVal BIT1 As Boolean, _ - ByVal BIT2 As Boolean, _ - ByVal STRING1 As String, _ - ByVal STRING2 As String, _ - ByVal BACKGROUND_IMAGE() As Byte, _ - ByVal PRODUCT_NAME1 As String, _ - ByVal PRODUCT_NAME2 As String, _ - ByVal VERSION_UPATE_PATH As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_NAME As String, _ - ByVal Original_SHORT_NAME As String, _ - ByVal Original_LICENSE As String, _ - ByVal Original_PRODUCT_VERSION As String, _ - ByVal Original_ACTIVE As Boolean, _ - ByVal Original_VERSION_DELIMITER As String, _ - ByVal Original_FILE_DELIMITER As String, _ - ByVal Original_BIT1 As Boolean, _ - ByVal Original_BIT2 As Boolean, _ - ByVal Original_STRING1 As String, _ - ByVal Original_STRING2 As String, _ - ByVal Original_PRODUCT_NAME1 As String, _ - ByVal Original_PRODUCT_NAME2 As String, _ - ByVal Original_VERSION_UPATE_PATH As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal GUID As Integer) As Integer - If (NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) - End If - If (SHORT_NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SHORT_NAME,String) - End If - If (LICENSE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LICENSE") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LICENSE,String) - End If - If (PRODUCT_VERSION Is Nothing) Then - Throw New Global.System.ArgumentNullException("PRODUCT_VERSION") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(PRODUCT_VERSION,String) - End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) - If (VERSION_DELIMITER Is Nothing) Then - Throw New Global.System.ArgumentNullException("VERSION_DELIMITER") - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(VERSION_DELIMITER,String) - End If - If (FILE_DELIMITER Is Nothing) Then - Throw New Global.System.ArgumentNullException("FILE_DELIMITER") - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(FILE_DELIMITER,String) - End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(BIT1,Boolean) - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(BIT2,Boolean) - If (STRING1 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(STRING1,String) - End If - If (STRING2 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(STRING2,String) - End If - If (BACKGROUND_IMAGE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(BACKGROUND_IMAGE,Byte()) - End If - If (PRODUCT_NAME1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("PRODUCT_NAME1") - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(PRODUCT_NAME1,String) - End If - If (PRODUCT_NAME2 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(PRODUCT_NAME2,String) - End If - If (VERSION_UPATE_PATH Is Nothing) Then - Throw New Global.System.ArgumentNullException("VERSION_UPATE_PATH") - Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(VERSION_UPATE_PATH,String) - End If - If (ADDED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_GUID,Integer) - If (Original_NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_NAME,String) - End If - If (Original_SHORT_NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_SHORT_NAME,String) - End If - If (Original_LICENSE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_LICENSE") - Else - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_LICENSE,String) - End If - If (Original_PRODUCT_VERSION Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PRODUCT_VERSION") - Else - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_PRODUCT_VERSION,String) - End If - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_ACTIVE,Boolean) - If (Original_VERSION_DELIMITER Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_VERSION_DELIMITER") - Else - Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_VERSION_DELIMITER,String) - End If - If (Original_FILE_DELIMITER Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_FILE_DELIMITER") - Else - Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_FILE_DELIMITER,String) - End If - Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_BIT1,Boolean) - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_BIT2,Boolean) - If (Original_STRING1 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_STRING1,String) - End If - If (Original_STRING2 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_STRING2,String) - End If - If (Original_PRODUCT_NAME1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PRODUCT_NAME1") - Else - Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_PRODUCT_NAME1,String) - End If - If (Original_PRODUCT_NAME2 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_PRODUCT_NAME2,String) - End If - If (Original_VERSION_UPATE_PATH Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_VERSION_UPATE_PATH") - Else - Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_VERSION_UPATE_PATH,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(39).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(40).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(39).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(41).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(41).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(42).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(45).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_CHANGED_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(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 NAME As String, _ - ByVal SHORT_NAME As String, _ - ByVal LICENSE As String, _ - ByVal PRODUCT_VERSION As String, _ - ByVal ACTIVE As Boolean, _ - ByVal VERSION_DELIMITER As String, _ - ByVal FILE_DELIMITER As String, _ - ByVal BIT1 As Boolean, _ - ByVal BIT2 As Boolean, _ - ByVal STRING1 As String, _ - ByVal STRING2 As String, _ - ByVal BACKGROUND_IMAGE() As Byte, _ - ByVal PRODUCT_NAME1 As String, _ - ByVal PRODUCT_NAME2 As String, _ - ByVal VERSION_UPATE_PATH As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_NAME As String, _ - ByVal Original_SHORT_NAME As String, _ - ByVal Original_LICENSE As String, _ - ByVal Original_PRODUCT_VERSION As String, _ - ByVal Original_ACTIVE As Boolean, _ - ByVal Original_VERSION_DELIMITER As String, _ - ByVal Original_FILE_DELIMITER As String, _ - ByVal Original_BIT1 As Boolean, _ - ByVal Original_BIT2 As Boolean, _ - ByVal Original_STRING1 As String, _ - ByVal Original_STRING2 As String, _ - ByVal Original_PRODUCT_NAME1 As String, _ - ByVal Original_PRODUCT_NAME2 As String, _ - ByVal Original_VERSION_UPATE_PATH As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(NAME, SHORT_NAME, LICENSE, PRODUCT_VERSION, ACTIVE, VERSION_DELIMITER, FILE_DELIMITER, BIT1, BIT2, STRING1, STRING2, BACKGROUND_IMAGE, PRODUCT_NAME1, PRODUCT_NAME2, VERSION_UPATE_PATH, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_NAME, Original_SHORT_NAME, Original_LICENSE, Original_PRODUCT_VERSION, Original_ACTIVE, Original_VERSION_DELIMITER, Original_FILE_DELIMITER, Original_BIT1, Original_BIT2, Original_STRING1, Original_STRING2, Original_PRODUCT_NAME1, Original_PRODUCT_NAME2, Original_VERSION_UPATE_PATH, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal MODULE_ID As Integer, ByVal IS_ADMIN As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_MODULE_ID As Integer, ByVal Original_IS_ADMIN As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(USER_ID, MODULE_ID, IS_ADMIN, COMMENT, ADDED_WHO, ADDED_WHEN, Original_GUID, Original_USER_ID, Original_MODULE_ID, Original_IS_ADMIN, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_GUID) End Function End Class @@ -8644,7 +7912,7 @@ Namespace UserDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_USER_MODULESTableAdapter + Partial Public Class TBDD_CLIENTTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -8761,75 +8029,113 @@ Namespace UserDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_USER_MODULES" + tableMapping.DataSetTable = "TBDD_CLIENT" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") - tableMapping.ColumnMappings.Add("MODULE_ID", "MODULE_ID") - tableMapping.ColumnMappings.Add("IS_ADMIN", "IS_ADMIN") + tableMapping.ColumnMappings.Add("CLIENT_NAME", "CLIENT_NAME") + tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") + tableMapping.ColumnMappings.Add("LICENSE_PMO", "LICENSE_PMO") + tableMapping.ColumnMappings.Add("LICENSE_GI", "LICENSE_GI") + tableMapping.ColumnMappings.Add("LICENSE_PM", "LICENSE_PM") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_USER_MODULES] WHERE (([GUID] = @Original_GUID) AND ([USER_ID] ="& _ - " @Original_USER_ID) AND ([MODULE_ID] = @Original_MODULE_ID) AND ([IS_ADMIN] = @O"& _ - "riginal_IS_ADMIN) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT]"& _ - " = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ("& _ - "[ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN"& _ - "] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_CLIENT] WHERE (([GUID] = @Original_GUID) AND ([CLIENT_NAME] = @"& _ + "Original_CLIENT_NAME) AND ((@IsNull_SHORTNAME = 1 AND [SHORTNAME] IS NULL) OR (["& _ + "SHORTNAME] = @Original_SHORTNAME)) AND ([LICENSE_PMO] = @Original_LICENSE_PMO) A"& _ + "ND ([LICENSE_GI] = @Original_LICENSE_GI) AND ([LICENSE_PM] = @Original_LICENSE_P"& _ + "M) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_CO"& _ + "MMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND"& _ + " [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_C"& _ + "HANGED_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_WH"& _ + "EN] = @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("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MODULE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IS_ADMIN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ADMIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CLIENT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_NAME", 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("@Original_LICENSE_PMO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_PMO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LICENSE_GI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_GI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LICENSE_PM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_PM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_USER_MODULES] ([USER_ID], [MODULE_ID], [IS_ADMIN], [COMMENT], ["& _ - "ADDED_WHO], [ADDED_WHEN]) VALUES (@USER_ID, @MODULE_ID, @IS_ADMIN, @COMMENT, @AD"& _ - "DED_WHO, @ADDED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, MODULE_ID, IS_ADMIN, COMMENT, ADDE"& _ - "D_WHO, ADDED_WHEN FROM TBDD_USER_MODULES WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_CLIENT] ([CLIENT_NAME], [SHORTNAME], [LICENSE_PMO], [LICENSE_GI"& _ + "], [LICENSE_PM], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_W"& _ + "HEN]) VALUES (@CLIENT_NAME, @SHORTNAME, @LICENSE_PMO, @LICENSE_GI, @LICENSE_PM, "& _ + "@COMMENT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, C"& _ + "LIENT_NAME, SHORTNAME, LICENSE_PMO, LICENSE_GI, LICENSE_PM, COMMENT, ADDED_WHO, "& _ + "ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_CLIENT WHERE (GUID = SCOPE_IDENT"& _ + "ITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_ADMIN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ADMIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_NAME", 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("@LICENSE_PMO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_PMO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE_GI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_GI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE_PM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_PM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_USER_MODULES] SET [USER_ID] = @USER_ID, [MODULE_ID] = @MODULE_ID, [I"& _ - "S_ADMIN] = @IS_ADMIN, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHE"& _ - "N] = @ADDED_WHEN WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = @Original_USE"& _ - "R_ID) AND ([MODULE_ID] = @Original_MODULE_ID) AND ([IS_ADMIN] = @Original_IS_ADM"& _ - "IN) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_C"& _ - "OMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = "& _ - "@Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR "& _ - "([ADDED_WHEN] = @Original_ADDED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, MODULE_ID, IS_AD"& _ - "MIN, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBDD_USER_MODULES WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_CLIENT] SET [CLIENT_NAME] = @CLIENT_NAME, [SHORTNAME] = @SHORTNAME, "& _ + "[LICENSE_PMO] = @LICENSE_PMO, [LICENSE_GI] = @LICENSE_GI, [LICENSE_PM] = @LICENS"& _ + "E_PM, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN"& _ + ", [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = "& _ + "@Original_GUID) AND ([CLIENT_NAME] = @Original_CLIENT_NAME) AND ((@IsNull_SHORTN"& _ + "AME = 1 AND [SHORTNAME] IS NULL) OR ([SHORTNAME] = @Original_SHORTNAME)) AND ([L"& _ + "ICENSE_PMO] = @Original_LICENSE_PMO) AND ([LICENSE_GI] = @Original_LICENSE_GI) A"& _ + "ND ([LICENSE_PM] = @Original_LICENSE_PM) AND ((@IsNull_COMMENT = 1 AND [COMMENT]"& _ + " IS NULL) OR ([COMMENT] = @Original_COMMENT)) 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 G"& _ + "UID, CLIENT_NAME, SHORTNAME, LICENSE_PMO, LICENSE_GI, LICENSE_PM, COMMENT, ADDED"& _ + "_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_CLIENT WHERE (GUID = @GUID"& _ + ")" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MODULE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IS_ADMIN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ADMIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_NAME", 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("@LICENSE_PMO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_PMO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE_GI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_GI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE_PM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_PM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MODULE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MODULE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_IS_ADMIN", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "IS_ADMIN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CLIENT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_NAME", 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("@Original_LICENSE_PMO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_PMO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LICENSE_GI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_GI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LICENSE_PM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_PM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub @@ -8843,18 +8149,28 @@ 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_USER_MODULES.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER_MODULES" + Me._commandCollection(0).CommandText = "SELECT TBDD_CLIENT.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CLIENT" 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.CLIENT_NAME, T2.SHORTNAME, T2.LICENSE_PMO, T2.LICENSE_G"& _ + "I, T2.LICENSE_PM, T2.COMMENT, T2.ADDED_WHO, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CH"& _ + "ANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CLIENT_USER AS T1 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_CLIENT AS T2 ON T1.CLIENT_ID = T2.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_USER AS T3 ON T1.USER_ID = T3.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T3.USERNAME = @U"& _ + "SERNAME)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_USER_MODULESDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_CLIENTDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -8867,9 +8183,43 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As UserDataSet.TBDD_USER_MODULESDataTable + Public Overloads Overridable Function GetData() As UserDataSet.TBDD_CLIENTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As UserDataSet.TBDD_USER_MODULESDataTable = New UserDataSet.TBDD_USER_MODULESDataTable() + Dim dataTable As UserDataSet.TBDD_CLIENTDataTable = New UserDataSet.TBDD_CLIENTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByUsername(ByVal dataTable As UserDataSet.TBDD_CLIENTDataTable, ByVal USERNAME As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataByUsername(ByVal USERNAME As String) As UserDataSet.TBDD_CLIENTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + End If + Dim dataTable As UserDataSet.TBDD_CLIENTDataTable = New UserDataSet.TBDD_CLIENTDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -8877,7 +8227,7 @@ Namespace UserDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_USER_MODULESDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_CLIENTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -8885,7 +8235,7 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_USER_MODULES") + Return Me.Adapter.Update(dataSet, "TBDD_CLIENT") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_MODULE_ID As Integer, ByVal Original_IS_ADMIN As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_CLIENT_NAME As String, ByVal Original_SHORTNAME As String, ByVal Original_LICENSE_PMO As String, ByVal Original_LICENSE_GI As String, ByVal Original_LICENSE_PM As String, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_USER_ID,Integer) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_MODULE_ID,Integer) - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_IS_ADMIN,Boolean) + If (Original_CLIENT_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_CLIENT_NAME") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CLIENT_NAME,String) + End If + If (Original_SHORTNAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SHORTNAME,String) + End If + If (Original_LICENSE_PMO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LICENSE_PMO") + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_LICENSE_PMO,String) + End If + If (Original_LICENSE_GI Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LICENSE_GI") + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_LICENSE_GI,String) + End If + If (Original_LICENSE_PM Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LICENSE_PM") + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_LICENSE_PM,String) + End If If (Original_COMMENT Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_COMMENT,String) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_COMMENT,String) End If If (Original_ADDED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value,Date) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_ADDED_WHEN.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO 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_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(15).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) _ @@ -8951,29 +8337,61 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal MODULE_ID As Integer, ByVal IS_ADMIN As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(MODULE_ID,Integer) - Me.Adapter.InsertCommand.Parameters(2).Value = CType(IS_ADMIN,Boolean) + Public Overloads Overridable Function Insert(ByVal CLIENT_NAME As String, ByVal SHORTNAME As String, ByVal LICENSE_PMO As String, ByVal LICENSE_GI As String, ByVal LICENSE_PM As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (CLIENT_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("CLIENT_NAME") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(CLIENT_NAME,String) + End If + If (SHORTNAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SHORTNAME,String) + End If + If (LICENSE_PMO Is Nothing) Then + Throw New Global.System.ArgumentNullException("LICENSE_PMO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(LICENSE_PMO,String) + End If + If (LICENSE_GI Is Nothing) Then + Throw New Global.System.ArgumentNullException("LICENSE_GI") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(LICENSE_GI,String) + End If + If (LICENSE_PM Is Nothing) Then + Throw New Global.System.ArgumentNullException("LICENSE_PM") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(LICENSE_PM,String) + End If If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(COMMENT,String) End If If (ADDED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHEN.Value,Date) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.InsertCommand.Parameters(5).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 + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery @@ -8989,51 +8407,141 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal MODULE_ID As Integer, ByVal IS_ADMIN As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_MODULE_ID As Integer, ByVal Original_IS_ADMIN As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(MODULE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IS_ADMIN,Boolean) + Public Overloads Overridable Function Update( _ + ByVal CLIENT_NAME As String, _ + ByVal SHORTNAME As String, _ + ByVal LICENSE_PMO As String, _ + ByVal LICENSE_GI As String, _ + ByVal LICENSE_PM As String, _ + ByVal COMMENT As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_CLIENT_NAME As String, _ + ByVal Original_SHORTNAME As String, _ + ByVal Original_LICENSE_PMO As String, _ + ByVal Original_LICENSE_GI As String, _ + ByVal Original_LICENSE_PM As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + If (CLIENT_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("CLIENT_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CLIENT_NAME,String) + End If + If (SHORTNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SHORTNAME,String) + End If + If (LICENSE_PMO Is Nothing) Then + Throw New Global.System.ArgumentNullException("LICENSE_PMO") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LICENSE_PMO,String) + End If + If (LICENSE_GI Is Nothing) Then + Throw New Global.System.ArgumentNullException("LICENSE_GI") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LICENSE_GI,String) + End If + If (LICENSE_PM Is Nothing) Then + Throw New Global.System.ArgumentNullException("LICENSE_PM") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(LICENSE_PM,String) + End If If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(COMMENT,String) End If If (ADDED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_USER_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_MODULE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_IS_ADMIN,Boolean) - If (Original_COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If - If (Original_ADDED_WHO Is Nothing) Then + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Integer) + If (Original_CLIENT_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_CLIENT_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_CLIENT_NAME,String) + End If + If (Original_SHORTNAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_SHORTNAME,String) + End If + If (Original_LICENSE_PMO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LICENSE_PMO") + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_LICENSE_PMO,String) + End If + If (Original_LICENSE_GI Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LICENSE_GI") + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_LICENSE_GI,String) + End If + If (Original_LICENSE_PM Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LICENSE_PM") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_LICENSE_PM,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_COMMENT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ADDED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ADDED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Integer) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(26).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 @@ -9053,8 +8561,29 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal MODULE_ID As Integer, ByVal IS_ADMIN As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_MODULE_ID As Integer, ByVal Original_IS_ADMIN As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(USER_ID, MODULE_ID, IS_ADMIN, COMMENT, ADDED_WHO, ADDED_WHEN, Original_GUID, Original_USER_ID, Original_MODULE_ID, Original_IS_ADMIN, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_GUID) + Public Overloads Overridable Function Update( _ + ByVal CLIENT_NAME As String, _ + ByVal SHORTNAME As String, _ + ByVal LICENSE_PMO As String, _ + ByVal LICENSE_GI As String, _ + ByVal LICENSE_PM As String, _ + ByVal COMMENT As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_CLIENT_NAME As String, _ + ByVal Original_SHORTNAME As String, _ + ByVal Original_LICENSE_PMO As String, _ + ByVal Original_LICENSE_GI As String, _ + ByVal Original_LICENSE_PM As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(CLIENT_NAME, SHORTNAME, LICENSE_PMO, LICENSE_GI, LICENSE_PM, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_CLIENT_NAME, Original_SHORTNAME, Original_LICENSE_PMO, Original_LICENSE_GI, Original_LICENSE_PM, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class @@ -9067,7 +8596,7 @@ Namespace UserDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_CLIENTTableAdapter + Partial Public Class TBDD_CLIENT_USERTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -9184,113 +8713,70 @@ Namespace UserDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_CLIENT" + tableMapping.DataSetTable = "TBDD_CLIENT_USER" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("CLIENT_NAME", "CLIENT_NAME") - tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") - tableMapping.ColumnMappings.Add("LICENSE_PMO", "LICENSE_PMO") - tableMapping.ColumnMappings.Add("LICENSE_GI", "LICENSE_GI") - tableMapping.ColumnMappings.Add("LICENSE_PM", "LICENSE_PM") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("CLIENT_ID", "CLIENT_ID") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_CLIENT] WHERE (([GUID] = @Original_GUID) AND ([CLIENT_NAME] = @"& _ - "Original_CLIENT_NAME) AND ((@IsNull_SHORTNAME = 1 AND [SHORTNAME] IS NULL) OR (["& _ - "SHORTNAME] = @Original_SHORTNAME)) AND ([LICENSE_PMO] = @Original_LICENSE_PMO) A"& _ - "ND ([LICENSE_GI] = @Original_LICENSE_GI) AND ([LICENSE_PM] = @Original_LICENSE_P"& _ - "M) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_CO"& _ - "MMENT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND"& _ - " [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_C"& _ - "HANGED_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_WH"& _ - "EN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_CLIENT_USER] WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = "& _ + "@Original_USER_ID) AND ([CLIENT_ID] = @Original_CLIENT_ID) AND ((@IsNull_COMMENT"& _ + " = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_AD"& _ + "DED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND"& _ + " ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original"& _ + "_ADDED_WHEN)))" 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("@Original_CLIENT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_NAME", 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("@Original_LICENSE_PMO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_PMO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LICENSE_GI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_GI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LICENSE_PM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_PM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CLIENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_CLIENT] ([CLIENT_NAME], [SHORTNAME], [LICENSE_PMO], [LICENSE_GI"& _ - "], [LICENSE_PM], [COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_W"& _ - "HEN]) VALUES (@CLIENT_NAME, @SHORTNAME, @LICENSE_PMO, @LICENSE_GI, @LICENSE_PM, "& _ - "@COMMENT, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, C"& _ - "LIENT_NAME, SHORTNAME, LICENSE_PMO, LICENSE_GI, LICENSE_PM, COMMENT, ADDED_WHO, "& _ - "ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_CLIENT WHERE (GUID = SCOPE_IDENT"& _ - "ITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_CLIENT_USER] ([USER_ID], [CLIENT_ID], [COMMENT], [ADDED_WHO], ["& _ + "ADDED_WHEN]) VALUES (@USER_ID, @CLIENT_ID, @COMMENT, @ADDED_WHO, @ADDED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "SELECT GUID, USER_ID, CLIENT_ID, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBDD_CLIENT"& _ + "_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("@CLIENT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_NAME", 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("@LICENSE_PMO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_PMO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE_GI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_GI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE_PM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_PM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_CLIENT] SET [CLIENT_NAME] = @CLIENT_NAME, [SHORTNAME] = @SHORTNAME, "& _ - "[LICENSE_PMO] = @LICENSE_PMO, [LICENSE_GI] = @LICENSE_GI, [LICENSE_PM] = @LICENS"& _ - "E_PM, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN"& _ - ", [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = "& _ - "@Original_GUID) AND ([CLIENT_NAME] = @Original_CLIENT_NAME) AND ((@IsNull_SHORTN"& _ - "AME = 1 AND [SHORTNAME] IS NULL) OR ([SHORTNAME] = @Original_SHORTNAME)) AND ([L"& _ - "ICENSE_PMO] = @Original_LICENSE_PMO) AND ([LICENSE_GI] = @Original_LICENSE_GI) A"& _ - "ND ([LICENSE_PM] = @Original_LICENSE_PM) AND ((@IsNull_COMMENT = 1 AND [COMMENT]"& _ - " IS NULL) OR ([COMMENT] = @Original_COMMENT)) 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 G"& _ - "UID, CLIENT_NAME, SHORTNAME, LICENSE_PMO, LICENSE_GI, LICENSE_PM, COMMENT, ADDED"& _ - "_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_CLIENT WHERE (GUID = @GUID"& _ - ")" + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_CLIENT_USER] SET [USER_ID] = @USER_ID, [CLIENT_ID] = @CLIENT_ID, [CO"& _ + "MMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN WHERE (("& _ + "[GUID] = @Original_GUID) AND ([USER_ID] = @Original_USER_ID) AND ([CLIENT_ID] = "& _ + "@Original_CLIENT_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMME"& _ + "NT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) O"& _ + "R ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_W"& _ + "HEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID,"& _ + " CLIENT_ID, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBDD_CLIENT_USER WHERE (GUID = @"& _ + "GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_NAME", 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("@LICENSE_PMO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_PMO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE_GI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_GI", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE_PM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_PM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CLIENT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_NAME", 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("@Original_LICENSE_PMO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_PMO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LICENSE_GI", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_GI", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LICENSE_PM", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE_PM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CLIENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub @@ -9304,28 +8790,18 @@ Namespace UserDataSetTableAdapters _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + 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_CLIENT.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CLIENT" + Me._commandCollection(0).CommandText = "SELECT TBDD_CLIENT_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CLIENT_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.CLIENT_NAME, T2.SHORTNAME, T2.LICENSE_PMO, T2.LICENSE_G"& _ - "I, T2.LICENSE_PM, T2.COMMENT, T2.ADDED_WHO, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CH"& _ - "ANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CLIENT_USER AS T1 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBDD_CLIENT AS T2 ON T1.CLIENT_ID = T2.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBDD_USER AS T3 ON T1.USER_ID = T3.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T3.USERNAME = @U"& _ - "SERNAME)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_CLIENTDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_CLIENT_USERDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -9338,43 +8814,9 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As UserDataSet.TBDD_CLIENTDataTable + Public Overloads Overridable Function GetData() As UserDataSet.TBDD_CLIENT_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As UserDataSet.TBDD_CLIENTDataTable = New UserDataSet.TBDD_CLIENTDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function FillByUsername(ByVal dataTable As UserDataSet.TBDD_CLIENTDataTable, ByVal USERNAME As String) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(1) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) - End If - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetDataByUsername(ByVal USERNAME As String) As UserDataSet.TBDD_CLIENTDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(1) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) - End If - Dim dataTable As UserDataSet.TBDD_CLIENTDataTable = New UserDataSet.TBDD_CLIENTDataTable() + Dim dataTable As UserDataSet.TBDD_CLIENT_USERDataTable = New UserDataSet.TBDD_CLIENT_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -9382,7 +8824,7 @@ Namespace UserDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_CLIENTDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As UserDataSet.TBDD_CLIENT_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -9390,7 +8832,7 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As UserDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_CLIENT") + Return Me.Adapter.Update(dataSet, "TBDD_CLIENT_USER") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_CLIENT_NAME As String, ByVal Original_SHORTNAME As String, ByVal Original_LICENSE_PMO As String, ByVal Original_LICENSE_GI As String, ByVal Original_LICENSE_PM As String, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_CLIENT_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_CLIENT_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_CLIENT_NAME") - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CLIENT_NAME,String) - End If - If (Original_SHORTNAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SHORTNAME,String) - End If - If (Original_LICENSE_PMO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_LICENSE_PMO") - Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_LICENSE_PMO,String) - End If - If (Original_LICENSE_GI Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_LICENSE_GI") - Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_LICENSE_GI,String) - End If - If (Original_LICENSE_PM Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_LICENSE_PM") - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_LICENSE_PM,String) - End If + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_USER_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CLIENT_ID,Integer) If (Original_COMMENT Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_COMMENT,String) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_COMMENT,String) End If If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO 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_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_CHANGED_WHEN.Value,Date) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).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) _ @@ -9492,56 +8897,23 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal CLIENT_NAME As String, ByVal SHORTNAME As String, ByVal LICENSE_PMO As String, ByVal LICENSE_GI As String, ByVal LICENSE_PM As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - If (CLIENT_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("CLIENT_NAME") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(CLIENT_NAME,String) - End If - If (SHORTNAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SHORTNAME,String) - End If - If (LICENSE_PMO Is Nothing) Then - Throw New Global.System.ArgumentNullException("LICENSE_PMO") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(LICENSE_PMO,String) - End If - If (LICENSE_GI Is Nothing) Then - Throw New Global.System.ArgumentNullException("LICENSE_GI") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(LICENSE_GI,String) - End If - If (LICENSE_PM Is Nothing) Then - Throw New Global.System.ArgumentNullException("LICENSE_PM") - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(LICENSE_PM,String) - End If + Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal CLIENT_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(CLIENT_ID,Integer) If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(COMMENT,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) End If If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(4).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) _ @@ -9562,141 +8934,49 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update( _ - ByVal CLIENT_NAME As String, _ - ByVal SHORTNAME As String, _ - ByVal LICENSE_PMO As String, _ - ByVal LICENSE_GI As String, _ - ByVal LICENSE_PM As String, _ - ByVal COMMENT As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_CLIENT_NAME As String, _ - ByVal Original_SHORTNAME As String, _ - ByVal Original_LICENSE_PMO As String, _ - ByVal Original_LICENSE_GI As String, _ - ByVal Original_LICENSE_PM As String, _ - ByVal Original_COMMENT As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal GUID As Integer) As Integer - If (CLIENT_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("CLIENT_NAME") + Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal CLIENT_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_CLIENT_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CLIENT_ID,Integer) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CLIENT_NAME,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String) End If - If (SHORTNAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + If (ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SHORTNAME,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If - If (LICENSE_PMO Is Nothing) Then - Throw New Global.System.ArgumentNullException("LICENSE_PMO") + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LICENSE_PMO,String) - End If - If (LICENSE_GI Is Nothing) Then - Throw New Global.System.ArgumentNullException("LICENSE_GI") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LICENSE_GI,String) - End If - If (LICENSE_PM Is Nothing) Then - Throw New Global.System.ArgumentNullException("LICENSE_PM") - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(LICENSE_PM,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(COMMENT,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Integer) - If (Original_CLIENT_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_CLIENT_NAME") - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_CLIENT_NAME,String) - End If - If (Original_SHORTNAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_SHORTNAME,String) - End If - If (Original_LICENSE_PMO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_LICENSE_PMO") - Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_LICENSE_PMO,String) - End If - If (Original_LICENSE_GI Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_LICENSE_GI") - Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_LICENSE_GI,String) - End If - If (Original_LICENSE_PM Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_LICENSE_PM") - Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_LICENSE_PM,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_CLIENT_ID,Integer) If (Original_COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_COMMENT,String) End If If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_CHANGED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ADDED_WHEN.Value,Date) Else - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(14).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 @@ -9716,29 +8996,8 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update( _ - ByVal CLIENT_NAME As String, _ - ByVal SHORTNAME As String, _ - ByVal LICENSE_PMO As String, _ - ByVal LICENSE_GI As String, _ - ByVal LICENSE_PM As String, _ - ByVal COMMENT As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_CLIENT_NAME As String, _ - ByVal Original_SHORTNAME As String, _ - ByVal Original_LICENSE_PMO As String, _ - ByVal Original_LICENSE_GI As String, _ - ByVal Original_LICENSE_PM As String, _ - ByVal Original_COMMENT As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(CLIENT_NAME, SHORTNAME, LICENSE_PMO, LICENSE_GI, LICENSE_PM, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_CLIENT_NAME, Original_SHORTNAME, Original_LICENSE_PMO, Original_LICENSE_GI, Original_LICENSE_PM, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal CLIENT_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_CLIENT_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(USER_ID, CLIENT_ID, COMMENT, ADDED_WHO, ADDED_WHEN, Original_GUID, Original_USER_ID, Original_CLIENT_ID, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_GUID) End Function End Class @@ -9751,7 +9010,7 @@ Namespace UserDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_CLIENT_USERTableAdapter + Partial Public Class TBDD_USERTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -9868,70 +9127,203 @@ Namespace UserDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_CLIENT_USER" + tableMapping.DataSetTable = "TBDD_USER" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") - tableMapping.ColumnMappings.Add("CLIENT_ID", "CLIENT_ID") + 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_CLIENT_USER] WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = "& _ - "@Original_USER_ID) AND ([CLIENT_ID] = @Original_CLIENT_ID) AND ((@IsNull_COMMENT"& _ - " = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_AD"& _ - "DED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND"& _ - " ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original"& _ - "_ADDED_WHEN)))" + 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("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CLIENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.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("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_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_CLIENT_USER] ([USER_ID], [CLIENT_ID], [COMMENT], [ADDED_WHO], ["& _ - "ADDED_WHEN]) VALUES (@USER_ID, @CLIENT_ID, @COMMENT, @ADDED_WHO, @ADDED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ - "SELECT GUID, USER_ID, CLIENT_ID, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBDD_CLIENT"& _ - "_USER WHERE (GUID = SCOPE_IDENTITY())" + 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("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.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_CLIENT_USER] SET [USER_ID] = @USER_ID, [CLIENT_ID] = @CLIENT_ID, [CO"& _ - "MMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN WHERE (("& _ - "[GUID] = @Original_GUID) AND ([USER_ID] = @Original_USER_ID) AND ([CLIENT_ID] = "& _ - "@Original_CLIENT_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMME"& _ - "NT] = @Original_COMMENT)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) O"& _ - "R ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_W"& _ - "HEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID,"& _ - " CLIENT_ID, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBDD_CLIENT_USER WHERE (GUID = @"& _ - "GUID)" + 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("@USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CLIENT_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_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 @@ -9945,49 +9337,86 @@ 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_CLIENT_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CLIENT_USER" + 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 Overloads Overridable Function Fill(ByVal dataTable As UserDataSet.TBDD_CLIENT_USERDataTable) As Integer + + + 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 + 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_CLIENT_USERDataTable + + + Public Overridable Overloads Function GetData() As UserDataSet.TBDD_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As UserDataSet.TBDD_CLIENT_USERDataTable = New UserDataSet.TBDD_CLIENT_USERDataTable() + 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_CLIENT_USERDataTable) As Integer + + + 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_CLIENT_USER") + Return Me.Adapter.Update(dataSet, "TBDD_USER") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_CLIENT_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer + 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) - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_USER_ID,Integer) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_CLIENT_ID,Integer) - If (Original_COMMENT Is Nothing) Then + 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_COMMENT,String) + 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 - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN.Value,Date) + 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(7).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + 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) _ @@ -10052,86 +9585,365 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal CLIENT_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(CLIENT_ID,Integer) + 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(2).Value = Global.System.DBNull.Value + 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.InsertCommand.Parameters(2).Value = CType(COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_EMAIL,String) End If - If (ADDED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + If (Original_LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LANGUAGE") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_LANGUAGE,String) End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) + If (Original_GENERAL_VIEWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_GENERAL_VIEWER") Else - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_GENERAL_VIEWER,String) End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + If (Original_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 - 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 USER_ID As Integer, ByVal CLIENT_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_CLIENT_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CLIENT_ID,Integer) - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + 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(2).Value = CType(COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_LOGGED_WHERE,String) End If - If (ADDED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + 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(3).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) + 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(4).Value = Global.System.DBNull.Value + 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(5).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_USER_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_CLIENT_ID,Integer) - If (Original_COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + 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(8).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_DATE_FORMAT,String) End If If (Original_ADDED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ADDED_WHEN.Value,Date) + 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(12).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GUID,Integer) + 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 @@ -10151,8 +9963,49 @@ Namespace UserDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal CLIENT_ID As Integer, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_CLIENT_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(USER_ID, CLIENT_ID, COMMENT, ADDED_WHO, ADDED_WHEN, Original_GUID, Original_USER_ID, Original_CLIENT_ID, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_GUID) + 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 @@ -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,119 +632,195 @@ 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) + + + + + + + + + + + + + + + + + @@ -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,93 +4,97 @@ 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 + 1227 + 342 - 336 - 354 + 1227 + 427 - + - 1227 - 342 + 505 + 333 - 1227 - 427 + 505 + 496 + + + 573 + 496 - + - 949 - 364 + 782 + 397 - 949 - 637 + 782 + 405 - 1001 - 637 + 361 + 405 - + - 505 - 333 + 961 + 397 - 505 - 496 + 961 + 444 - 573 - 496 + 1001 + 444 - + - 793 - 364 + 799 + 397 - 793 + 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 - ' - 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:" - ' - 'GridControl1 + 'Label5 ' - 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.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:" ' - 'tBDD_USERBindingSource1 + 'Label4 ' - Me.tBDD_USERBindingSource1.DataMember = "TBDD_USER" - Me.tBDD_USERBindingSource1.DataSource = Me.UserDataSet1 - Me.tBDD_USERBindingSource1.Sort = "" + 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:" ' - 'UserDataSet1 + 'Label3 ' - Me.UserDataSet1.DataSetName = "UserDataSet" - Me.UserDataSet1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + 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:" ' - 'gvUsersToGroup + 'gridAllGroups ' - 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.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}) + ' + 'gvAllGroups + ' + 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 + ' + 'colNAME2 + ' + 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 ' - 'colGUID1 + 'colUSERNAME1 ' - Me.colGUID1.FieldName = "GUID" - Me.colGUID1.Name = "colGUID1" - Me.colGUID1.Visible = True - Me.colGUID1.VisibleIndex = 0 + 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 - ' - 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 + 'GridView1 ' - 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.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 ' - Me.TbdD_USERTableAdapter1.ClearBeforeFill = True + '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 - 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) +#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 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