MS_07.03.2016
This commit is contained in:
SchreiberM
316
app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb
generated
316
app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb
generated
@@ -7384,7 +7384,7 @@ Partial Public Class DD_DMSDataSet
|
||||
Me.columnGUID.Unique = true
|
||||
Me.columnBEZEICHNUNG.MaxLength = 50
|
||||
Me.columnEINGANGSART_ID.AllowDBNull = false
|
||||
Me.columnEINGANGSART_ID.DefaultValue = CType(1, Byte)
|
||||
Me.columnEINGANGSART_ID.DefaultValue = CType(1,Byte)
|
||||
Me.columnKURZNAME.AllowDBNull = false
|
||||
Me.columnKURZNAME.MaxLength = 50
|
||||
Me.columnZIEL_PFAD.AllowDBNull = false
|
||||
@@ -10172,6 +10172,8 @@ Partial Public Class DD_DMSDataSet
|
||||
|
||||
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
|
||||
|
||||
Private columnCOMMENT As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -10255,6 +10257,14 @@ Partial Public Class DD_DMSDataSet
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnCOMMENT
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -10292,9 +10302,9 @@ Partial Public Class DD_DMSDataSet
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Overloads Function AddTBDD_USER_GROUPSRow(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_USER_GROUPSRow
|
||||
Public Overloads Function AddTBDD_USER_GROUPSRow(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COMMENT As String) 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, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT}
|
||||
rowTBDD_USER_GROUPSRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowTBDD_USER_GROUPSRow)
|
||||
Return rowTBDD_USER_GROUPSRow
|
||||
@@ -10329,6 +10339,7 @@ Partial Public Class DD_DMSDataSet
|
||||
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
|
||||
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
|
||||
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
|
||||
Me.columnCOMMENT = MyBase.Columns("COMMENT")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -10346,6 +10357,8 @@ Partial Public Class DD_DMSDataSet
|
||||
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.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnCOMMENT)
|
||||
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
|
||||
@@ -10357,6 +10370,7 @@ Partial Public Class DD_DMSDataSet
|
||||
Me.columnADDED_WHO.AllowDBNull = false
|
||||
Me.columnADDED_WHO.MaxLength = 50
|
||||
Me.columnCHANGED_WHO.MaxLength = 50
|
||||
Me.columnCOMMENT.MaxLength = 200
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -10854,6 +10868,8 @@ Partial Public Class DD_DMSDataSet
|
||||
|
||||
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
|
||||
|
||||
Private columnCOMMENT As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -10945,6 +10961,14 @@ Partial Public Class DD_DMSDataSet
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnCOMMENT
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -10982,9 +11006,9 @@ Partial Public Class DD_DMSDataSet
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Overloads Function AddTBDD_GROUPS_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID As TBDD_USER_GROUPSRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GROUPS_USERRow
|
||||
Public Overloads Function AddTBDD_GROUPS_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID As TBDD_USER_GROUPSRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COMMENT As String) As TBDD_GROUPS_USERRow
|
||||
Dim rowTBDD_GROUPS_USERRow As TBDD_GROUPS_USERRow = CType(Me.NewRow,TBDD_GROUPS_USERRow)
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT}
|
||||
If (Not (parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID) Is Nothing) Then
|
||||
columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID(0)
|
||||
End If
|
||||
@@ -11026,6 +11050,7 @@ Partial Public Class DD_DMSDataSet
|
||||
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
|
||||
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
|
||||
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
|
||||
Me.columnCOMMENT = MyBase.Columns("COMMENT")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -11045,6 +11070,8 @@ Partial Public Class DD_DMSDataSet
|
||||
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.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnCOMMENT)
|
||||
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
|
||||
@@ -11057,6 +11084,7 @@ Partial Public Class DD_DMSDataSet
|
||||
Me.columnADDED_WHO.AllowDBNull = false
|
||||
Me.columnADDED_WHO.MaxLength = 50
|
||||
Me.columnCHANGED_WHO.MaxLength = 50
|
||||
Me.columnCOMMENT.MaxLength = 200
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -23707,6 +23735,21 @@ Partial Public Class DD_DMSDataSet
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property COMMENT() As String
|
||||
Get
|
||||
Try
|
||||
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 COMMENT in Tabelle TBDD_USER_GROUPS ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBDD_USER_GROUPS.COMMENTColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IsNAMENull() As Boolean
|
||||
@@ -23755,6 +23798,18 @@ Partial Public Class DD_DMSDataSet
|
||||
Me(Me.tableTBDD_USER_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IsCOMMENTNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBDD_USER_GROUPS.COMMENTColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetCOMMENTNull()
|
||||
Me(Me.tableTBDD_USER_GROUPS.COMMENTColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function GetTBDD_GROUPS_USERRows() As TBDD_GROUPS_USERRow()
|
||||
@@ -24011,6 +24066,21 @@ Partial Public Class DD_DMSDataSet
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property COMMENT() As String
|
||||
Get
|
||||
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_GROUPS_USER.COMMENTColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property TBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow
|
||||
@@ -24068,6 +24138,18 @@ Partial Public Class DD_DMSDataSet
|
||||
Public Sub SetCHANGED_WHENNull()
|
||||
Me(Me.tableTBDD_GROUPS_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IsCOMMENTNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBDD_GROUPS_USER.COMMENTColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetCOMMENTNull()
|
||||
Me(Me.tableTBDD_GROUPS_USER.COMMENTColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
@@ -36644,6 +36726,7 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN")
|
||||
tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
|
||||
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
|
||||
tableMapping.ColumnMappings.Add("COMMENT", "COMMENT")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.DeleteCommand.Connection = Me.Connection
|
||||
@@ -36652,21 +36735,24 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.InsertCommand.Connection = Me.Connection
|
||||
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _
|
||||
" (@NAME,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_W"& _
|
||||
"HO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_IDENTITY())"
|
||||
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, ADDED_WHO, COMMENT)"& _
|
||||
""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@ADDED_WHO,@COMMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO, AD"& _
|
||||
"DED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_ID"& _
|
||||
"ENTITY())"
|
||||
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.UpdateCommand.Connection = Me.Connection
|
||||
Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, CHANGED_WHO = @CH"& _
|
||||
"ANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO,"& _
|
||||
" ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = @GUID"& _
|
||||
")"
|
||||
"ANGED_WHO, COMMENT = @COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _
|
||||
"UID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUP"& _
|
||||
"S WHERE (GUID = @GUID)"
|
||||
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
End Sub
|
||||
@@ -36684,7 +36770,8 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
|
||||
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(0).Connection = Me.Connection
|
||||
Me._commandCollection(0).CommandText = "SELECT TBDD_USER_GROUPS.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER_GROUPS"
|
||||
Me._commandCollection(0).CommandText = "SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMME"& _
|
||||
"NT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER_GROUPS"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
End Sub
|
||||
|
||||
@@ -36765,7 +36852,7 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
|
||||
Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal ADDED_WHO As String) As Integer
|
||||
Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal COMMENT As String) As Integer
|
||||
If (NAME Is Nothing) Then
|
||||
Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
@@ -36776,6 +36863,11 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String)
|
||||
End If
|
||||
If (COMMENT Is Nothing) Then
|
||||
Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String)
|
||||
End If
|
||||
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
|
||||
@@ -36795,7 +36887,7 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
|
||||
Public Overloads Overridable Function Update(ByVal NAME As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
Public Overloads Overridable Function Update(ByVal NAME As String, ByVal CHANGED_WHO As String, ByVal COMMENT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
If (NAME Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
@@ -36806,8 +36898,13 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Integer)
|
||||
If (COMMENT Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(4).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
|
||||
@@ -37137,71 +37234,37 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN")
|
||||
tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
|
||||
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
|
||||
tableMapping.ColumnMappings.Add("COMMENT", "COMMENT")
|
||||
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 ([ADDED_WHO] = @Ori"& _
|
||||
"ginal_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADD"& _
|
||||
"ED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO"& _
|
||||
"] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHE"& _
|
||||
"N = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))"& _
|
||||
""
|
||||
Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)"
|
||||
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.InsertCommand.Connection = Me.Connection
|
||||
Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_GROUPS_USER] ([USER_ID], [GROUP_ID], [ADDED_WHO], [ADDED_WHEN],"& _
|
||||
" [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@USER_ID, @GROUP_ID, @ADDED_WHO, @ADDED_"& _
|
||||
"WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, "& _
|
||||
"ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = SCOPE_"& _
|
||||
"IDENTITY())"
|
||||
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, GROUP_ID, ADDED_"& _
|
||||
"WHO, COMMENT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@GROUP_ID,@ADDED_WHO,@COMMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _
|
||||
"GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM T"& _
|
||||
"BDD_GROUPS_USER WHERE (GUID = SCOPE_IDENTITY())"
|
||||
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand = 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, [ADDE"& _
|
||||
"D_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, ["& _
|
||||
"CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ([USER_ID] = "& _
|
||||
"@Original_USER_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO] = @Ori"& _
|
||||
"ginal_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADD"& _
|
||||
"ED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO"& _
|
||||
"] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHE"& _
|
||||
"N = 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, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_W"& _
|
||||
"HEN FROM TBDD_GROUPS_USER WHERE (GUID = @GUID)"
|
||||
Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET USER_ID = @USER_ID, GROUP_ID = "& _
|
||||
"@GROUP_ID, CHANGED_WHO = @CHANGED_WHO, COMMENT = @COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = "& _
|
||||
"@Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGE"& _
|
||||
"D_WHO, CHANGED_WHEN FROM TBDD_GROUPS_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("@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("@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("@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, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -37217,7 +37280,8 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
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 GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _
|
||||
"D_WHEN, COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_USER"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
End Sub
|
||||
|
||||
@@ -37277,36 +37341,8 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
|
||||
Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_USER_ID As Integer, ByVal Original_GROUP_ID As Integer, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer
|
||||
Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer
|
||||
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_USER_ID,Integer)
|
||||
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_GROUP_ID,Integer)
|
||||
If (Original_ADDED_WHO Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("Original_ADDED_WHO")
|
||||
Else
|
||||
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHO,String)
|
||||
End If
|
||||
If (Original_ADDED_WHEN.HasValue = true) Then
|
||||
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object)
|
||||
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN.Value,Date)
|
||||
Else
|
||||
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object)
|
||||
Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value
|
||||
End If
|
||||
If (Original_CHANGED_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(6).Value = CType(0,Object)
|
||||
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHO,String)
|
||||
End If
|
||||
If (Original_CHANGED_WHEN.HasValue = true) Then
|
||||
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object)
|
||||
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHEN.Value,Date)
|
||||
Else
|
||||
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object)
|
||||
Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value
|
||||
End If
|
||||
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
|
||||
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
||||
<> Global.System.Data.ConnectionState.Open) Then
|
||||
@@ -37326,7 +37362,7 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 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
|
||||
Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal COMMENT As String) As Integer
|
||||
Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer)
|
||||
Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer)
|
||||
If (ADDED_WHO Is Nothing) Then
|
||||
@@ -37334,20 +37370,10 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String)
|
||||
End If
|
||||
If (ADDED_WHEN.HasValue = true) Then
|
||||
Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHEN.Value,Date)
|
||||
Else
|
||||
If (COMMENT Is Nothing) Then
|
||||
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
||||
End If
|
||||
If (CHANGED_WHO Is Nothing) Then
|
||||
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(4).Value = CType(CHANGED_WHO,String)
|
||||
End If
|
||||
If (CHANGED_WHEN.HasValue = true) Then
|
||||
Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date)
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
||||
Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,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) _
|
||||
@@ -37368,59 +37394,21 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 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_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
|
||||
Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal CHANGED_WHO As String, ByVal COMMENT As String, ByVal Original_GUID As Integer, 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 (ADDED_WHO Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("ADDED_WHO")
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ADDED_WHO,String)
|
||||
End If
|
||||
If (ADDED_WHEN.HasValue = true) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHEN.Value,Date)
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(3).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(2).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String)
|
||||
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String)
|
||||
End If
|
||||
If (CHANGED_WHEN.HasValue = true) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHEN.Value,Date)
|
||||
If (COMMENT Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
||||
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String)
|
||||
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_GROUP_ID,Integer)
|
||||
If (Original_ADDED_WHO Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("Original_ADDED_WHO")
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_ADDED_WHO,String)
|
||||
End If
|
||||
If (Original_ADDED_WHEN.HasValue = true) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(0,Object)
|
||||
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ADDED_WHEN.Value,Date)
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(1,Object)
|
||||
Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value
|
||||
End If
|
||||
If (Original_CHANGED_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.UpdateCommand.Parameters(12).Value = CType(0,Object)
|
||||
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CHANGED_WHO,String)
|
||||
End If
|
||||
If (Original_CHANGED_WHEN.HasValue = true) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object)
|
||||
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_CHANGED_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)
|
||||
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(5).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
|
||||
@@ -37435,14 +37423,6 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
End If
|
||||
End Try
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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 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_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, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_USER_ID, Original_GROUP_ID, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID)
|
||||
End Function
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
|
||||
Reference in New Issue
Block a user