MS Adminsitration
This commit is contained in:
174
GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb
generated
174
GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb
generated
@@ -585,8 +585,7 @@ Partial Public Class DSIDB_Stammdaten
|
||||
MyBase.Columns.Add(Me.columnCHANGED_WHEN)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
||||
Me.columnGUID.AutoIncrement = true
|
||||
Me.columnGUID.AutoIncrementSeed = -1
|
||||
Me.columnGUID.AutoIncrementStep = -1
|
||||
Me.columnGUID.AutoIncrementSeed = 1
|
||||
Me.columnGUID.AllowDBNull = false
|
||||
Me.columnGUID.ReadOnly = true
|
||||
Me.columnGUID.Unique = true
|
||||
@@ -595,9 +594,7 @@ Partial Public Class DSIDB_Stammdaten
|
||||
Me.columnTITLE.MaxLength = 500
|
||||
Me.columnINHERITS_ATTRIBUTES.AllowDBNull = false
|
||||
Me.columnCOMMENT.MaxLength = 1000
|
||||
Me.columnADDED_WHO.AllowDBNull = false
|
||||
Me.columnADDED_WHO.MaxLength = 30
|
||||
Me.columnADDED_WHEN.AllowDBNull = false
|
||||
Me.columnCHANGED_WHO.MaxLength = 30
|
||||
End Sub
|
||||
|
||||
@@ -764,6 +761,8 @@ Partial Public Class DSIDB_Stammdaten
|
||||
|
||||
Private columnDELETED_WHEN As Global.System.Data.DataColumn
|
||||
|
||||
Private columnATTR_TYPE As Global.System.Data.DataColumn
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Sub New()
|
||||
@@ -911,6 +910,14 @@ Partial Public Class DSIDB_Stammdaten
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public ReadOnly Property ATTR_TYPEColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnATTR_TYPE
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _
|
||||
Global.System.ComponentModel.Browsable(false)> _
|
||||
@@ -948,9 +955,9 @@ Partial Public Class DSIDB_Stammdaten
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Overloads Function AddTBIDB_ATTRIBUTERow(ByVal TITLE As String, ByVal parentTBIDB_ATTRIBUTE_TYPERowByFK_TYP_ID As TBIDB_ATTRIBUTE_TYPERow, ByVal MULTI_CONTEXT As Boolean, ByVal VIEW_SEQUENCE As Integer, ByVal VIEW_VISIBLE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal DELETED As Boolean, ByVal DELETED_WHO As String, ByVal DELETED_WHEN As Date) As TBIDB_ATTRIBUTERow
|
||||
Public Overloads Function AddTBIDB_ATTRIBUTERow(ByVal TITLE As String, ByVal parentTBIDB_ATTRIBUTE_TYPERowByFK_TYP_ID As TBIDB_ATTRIBUTE_TYPERow, ByVal MULTI_CONTEXT As Boolean, ByVal VIEW_SEQUENCE As Integer, ByVal VIEW_VISIBLE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal DELETED As Boolean, ByVal DELETED_WHO As String, ByVal DELETED_WHEN As Date, ByVal ATTR_TYPE As String) As TBIDB_ATTRIBUTERow
|
||||
Dim rowTBIDB_ATTRIBUTERow As TBIDB_ATTRIBUTERow = CType(Me.NewRow,TBIDB_ATTRIBUTERow)
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, Nothing, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN}
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, Nothing, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN, ATTR_TYPE}
|
||||
If (Not (parentTBIDB_ATTRIBUTE_TYPERowByFK_TYP_ID) Is Nothing) Then
|
||||
columnValuesArray(2) = parentTBIDB_ATTRIBUTE_TYPERowByFK_TYP_ID(0)
|
||||
End If
|
||||
@@ -996,6 +1003,7 @@ Partial Public Class DSIDB_Stammdaten
|
||||
Me.columnDELETED = MyBase.Columns("DELETED")
|
||||
Me.columnDELETED_WHO = MyBase.Columns("DELETED_WHO")
|
||||
Me.columnDELETED_WHEN = MyBase.Columns("DELETED_WHEN")
|
||||
Me.columnATTR_TYPE = MyBase.Columns("ATTR_TYPE")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -1029,10 +1037,11 @@ Partial Public Class DSIDB_Stammdaten
|
||||
MyBase.Columns.Add(Me.columnDELETED_WHO)
|
||||
Me.columnDELETED_WHEN = New Global.System.Data.DataColumn("DELETED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnDELETED_WHEN)
|
||||
Me.columnATTR_TYPE = New Global.System.Data.DataColumn("ATTR_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnATTR_TYPE)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
||||
Me.columnGUID.AutoIncrement = true
|
||||
Me.columnGUID.AutoIncrementSeed = -1
|
||||
Me.columnGUID.AutoIncrementStep = -1
|
||||
Me.columnGUID.AutoIncrementSeed = 1
|
||||
Me.columnGUID.AllowDBNull = false
|
||||
Me.columnGUID.ReadOnly = true
|
||||
Me.columnGUID.Unique = true
|
||||
@@ -1049,6 +1058,8 @@ Partial Public Class DSIDB_Stammdaten
|
||||
Me.columnCHANGED_WHO.MaxLength = 30
|
||||
Me.columnDELETED.AllowDBNull = false
|
||||
Me.columnDELETED_WHO.MaxLength = 100
|
||||
Me.columnATTR_TYPE.AllowDBNull = false
|
||||
Me.columnATTR_TYPE.MaxLength = 100
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -1450,7 +1461,6 @@ Partial Public Class DSIDB_Stammdaten
|
||||
Me.columnBIT4.AllowDBNull = false
|
||||
Me.columnADDED_WHO.AllowDBNull = false
|
||||
Me.columnADDED_WHO.MaxLength = 30
|
||||
Me.columnADDED_WHEN.AllowDBNull = false
|
||||
Me.columnCHANGED_WHO.MaxLength = 30
|
||||
End Sub
|
||||
|
||||
@@ -1659,7 +1669,11 @@ Partial Public Class DSIDB_Stammdaten
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property ADDED_WHO() As String
|
||||
Get
|
||||
Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn),String)
|
||||
Try
|
||||
Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn) = value
|
||||
@@ -1670,7 +1684,11 @@ Partial Public Class DSIDB_Stammdaten
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property ADDED_WHEN() As Date
|
||||
Get
|
||||
Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn),Date)
|
||||
Try
|
||||
Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn),Date)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) = value
|
||||
@@ -1719,6 +1737,30 @@ Partial Public Class DSIDB_Stammdaten
|
||||
Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function IsADDED_WHONull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Sub SetADDED_WHONull()
|
||||
Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function IsADDED_WHENNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Sub SetADDED_WHENNull()
|
||||
Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function IsCHANGED_WHONull() As Boolean
|
||||
@@ -1933,6 +1975,17 @@ Partial Public Class DSIDB_Stammdaten
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property ATTR_TYPE() As String
|
||||
Get
|
||||
Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn),String)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property TBIDB_ATTRIBUTE_TYPERow() As TBIDB_ATTRIBUTE_TYPERow
|
||||
@@ -2116,7 +2169,11 @@ Partial Public Class DSIDB_Stammdaten
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Property ADDED_WHEN() As Date
|
||||
Get
|
||||
Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn),Date)
|
||||
Try
|
||||
Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn),Date)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = value
|
||||
@@ -2165,6 +2222,18 @@ Partial Public Class DSIDB_Stammdaten
|
||||
Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function IsADDED_WHENNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Sub SetADDED_WHENNull()
|
||||
Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function IsCHANGED_WHONull() As Boolean
|
||||
@@ -2457,9 +2526,9 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
Me._adapter.InsertCommand.Connection = Me.Connection
|
||||
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_BUSINESS_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PARENT_ENT_ID, TITLE"& _
|
||||
", INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PARENT_ENT_ID,@TITLE"& _
|
||||
",@INHERITS_ATTRIBUTES,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ENT_ID, TITLE,"& _
|
||||
" INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _
|
||||
"FROM TBIDB_BUSINESS_ENTITY WHERE (GUID = SCOPE_IDENTITY())"
|
||||
",@INHERITS_ATTRIBUTES,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PARENT_ENT_ID, TITLE"& _
|
||||
", INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _
|
||||
" FROM TBIDB_BUSINESS_ENTITY WHERE (GUID = SCOPE_IDENTITY())"
|
||||
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
@@ -2592,7 +2661,7 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String)
|
||||
End If
|
||||
If (ADDED_WHO Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("ADDED_WHO")
|
||||
Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String)
|
||||
End If
|
||||
@@ -2792,6 +2861,7 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
tableMapping.ColumnMappings.Add("DELETED", "DELETED")
|
||||
tableMapping.ColumnMappings.Add("DELETED_WHO", "DELETED_WHO")
|
||||
tableMapping.ColumnMappings.Add("DELETED_WHEN", "DELETED_WHEN")
|
||||
tableMapping.ColumnMappings.Add("ATTR_TYPE", "ATTR_TYPE")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.DeleteCommand.Connection = Me.Connection
|
||||
@@ -2802,10 +2872,10 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
Me._adapter.InsertCommand.Connection = Me.Connection
|
||||
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, TYP_ID, MULTI_CONTE"& _
|
||||
"XT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@TYP"& _
|
||||
"_ID,@MULTI_CONTEXT,@VIEW_SEQUENCE,@VIEW_VISIBLE,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _
|
||||
"UID, TITLE, TYP_ID, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_W"& _
|
||||
"HO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN FR"& _
|
||||
"OM TBIDB_ATTRIBUTE WHERE (GUID = SCOPE_IDENTITY())"
|
||||
"_ID,@MULTI_CONTEXT,@VIEW_SEQUENCE,@VIEW_VISIBLE,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _
|
||||
"GUID, TITLE, TYP_ID, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_"& _
|
||||
"WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN F"& _
|
||||
"ROM TBIDB_ATTRIBUTE WHERE (GUID = SCOPE_IDENTITY())"
|
||||
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
@@ -2818,10 +2888,11 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
Me._adapter.UpdateCommand.Connection = Me.Connection
|
||||
Me._adapter.UpdateCommand.CommandText = "UPDATE TBIDB_ATTRIBUTE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, TYP_ID = @TYP_ID"& _
|
||||
", MULTI_CONTEXT = @MULTI_CONTEXT, VIEW_SEQUENCE = @VIEW_SEQUENCE, VIEW_VISIBLE ="& _
|
||||
" @VIEW_VISIBLE, COMMENT = @COMMENT, ADDED_WHO = @ADDED_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, TITLE, TYP_ID, MULTI_CONTEXT, VIEW_SEQUENCE, VI"& _
|
||||
"EW_VISIBLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, "& _
|
||||
"DELETED_WHO, DELETED_WHEN FROM TBIDB_ATTRIBUTE WHERE (GUID = @GUID)"
|
||||
" @VIEW_VISIBLE, COMMENT = @COMMENT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 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, TITLE, TYP_ID, "& _
|
||||
"MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHAN"& _
|
||||
"GED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN FROM TBIDB_ATTRIBUTE W"& _
|
||||
"HERE (GUID = @GUID)"
|
||||
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
@@ -2829,7 +2900,7 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_VISIBLE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 1000, 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, 30, 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("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
End Sub
|
||||
@@ -2847,7 +2918,14 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
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 TBIDB_ATTRIBUTE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_ATTRIBUTE"
|
||||
Me._commandCollection(0).CommandText = "SELECT TBIDB_ATTRIBUTE.GUID, TBIDB_ATTRIBUTE.TITLE, TBIDB_ATTRIBUTE.TYP_ID"& _
|
||||
", TBIDB_ATTRIBUTE.MULTI_CONTEXT, TBIDB_ATTRIBUTE.VIEW_SEQUENCE, TBIDB_ATTRIBUTE."& _
|
||||
"VIEW_VISIBLE, TBIDB_ATTRIBUTE.COMMENT,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBIDB_ATTRIBUT"& _
|
||||
"E.ADDED_WHO, TBIDB_ATTRIBUTE.ADDED_WHEN, TBIDB_ATTRIBUTE.CHANGED_WHO, TBIDB_ATTR"& _
|
||||
"IBUTE.CHANGED_WHEN, TBIDB_ATTRIBUTE.DELETED, TBIDB_ATTRIBUTE.DELETED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||
" TBIDB_ATTRIBUTE.DELETED_WHEN, TBIDB_ATTRIBUTE_TYPE.NAME_TYP"& _
|
||||
"E AS ATTR_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBIDB_ATTRIBUTE INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
|
||||
" TBIDB_ATTRIBUTE_TYPE ON TBIDB_ATTRIBUTE.TYP_ID = TBIDB_ATTRIBUTE_TYPE.GUID"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
End Sub
|
||||
|
||||
@@ -2967,7 +3045,7 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 TITLE As String, ByVal TYP_ID As Byte, ByVal MULTI_CONTEXT As Boolean, ByVal VIEW_SEQUENCE As Integer, ByVal VIEW_VISIBLE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal TYP_ID As Byte, ByVal MULTI_CONTEXT As Boolean, ByVal VIEW_SEQUENCE As Integer, ByVal VIEW_VISIBLE As Boolean, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
If (TITLE Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("TITLE")
|
||||
Else
|
||||
@@ -2982,10 +3060,10 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
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")
|
||||
If (CHANGED_WHO Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String)
|
||||
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer)
|
||||
@@ -3304,7 +3382,7 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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 Byte, ByVal Original_NAME_TYPE As String, ByVal Original_COMMENT As String, ByVal Original_BIT1 As Boolean, ByVal Original_BIT2 As Boolean, ByVal Original_BIT3 As Boolean, ByVal Original_BIT4 As Boolean, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As 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 Byte, ByVal Original_NAME_TYPE As String, ByVal Original_COMMENT As String, ByVal Original_BIT1 As Boolean, ByVal Original_BIT2 As Boolean, ByVal Original_BIT3 As Boolean, ByVal Original_BIT4 As Boolean, 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,Byte)
|
||||
If (Original_NAME_TYPE Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("Original_NAME_TYPE")
|
||||
@@ -3327,7 +3405,11 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
Else
|
||||
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHO,String)
|
||||
End If
|
||||
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN,Date)
|
||||
If (Original_ADDED_WHEN.HasValue = true) Then
|
||||
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value,Date)
|
||||
Else
|
||||
Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value
|
||||
End If
|
||||
If (Original_CHANGED_WHO Is Nothing) Then
|
||||
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object)
|
||||
Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value
|
||||
@@ -3361,7 +3443,7 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.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_TYPE As String, ByVal COMMENT As String, ByVal BIT1 As Boolean, ByVal BIT2 As Boolean, ByVal BIT3 As Boolean, ByVal BIT4 As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer
|
||||
Public Overloads Overridable Function Insert(ByVal NAME_TYPE As String, ByVal COMMENT As String, ByVal BIT1 As Boolean, ByVal BIT2 As Boolean, ByVal BIT3 As Boolean, ByVal BIT4 As Boolean, 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_TYPE Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("NAME_TYPE")
|
||||
Else
|
||||
@@ -3381,7 +3463,11 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String)
|
||||
End If
|
||||
Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN,Date)
|
||||
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
|
||||
@@ -3419,7 +3505,7 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
ByVal BIT3 As Boolean, _
|
||||
ByVal BIT4 As Boolean, _
|
||||
ByVal ADDED_WHO As String, _
|
||||
ByVal ADDED_WHEN As Date, _
|
||||
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 Byte, _
|
||||
@@ -3430,7 +3516,7 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
ByVal Original_BIT3 As Boolean, _
|
||||
ByVal Original_BIT4 As Boolean, _
|
||||
ByVal Original_ADDED_WHO As String, _
|
||||
ByVal Original_ADDED_WHEN As Date, _
|
||||
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 Byte) As Integer
|
||||
@@ -3453,7 +3539,11 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN,Date)
|
||||
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
|
||||
@@ -3486,7 +3576,11 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ADDED_WHO,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN,Date)
|
||||
If (Original_ADDED_WHEN.HasValue = true) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN.Value,Date)
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value
|
||||
End If
|
||||
If (Original_CHANGED_WHO Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object)
|
||||
Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
|
||||
@@ -3529,7 +3623,7 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
ByVal BIT3 As Boolean, _
|
||||
ByVal BIT4 As Boolean, _
|
||||
ByVal ADDED_WHO As String, _
|
||||
ByVal ADDED_WHEN As Date, _
|
||||
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 Byte, _
|
||||
@@ -3540,7 +3634,7 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
ByVal Original_BIT3 As Boolean, _
|
||||
ByVal Original_BIT4 As Boolean, _
|
||||
ByVal Original_ADDED_WHO As String, _
|
||||
ByVal Original_ADDED_WHEN As Date, _
|
||||
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_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_NAME_TYPE, Original_COMMENT, Original_BIT1, Original_BIT2, Original_BIT3, Original_BIT4, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID)
|
||||
|
||||
Reference in New Issue
Block a user