ZooFlow: Administration

This commit is contained in:
Jonathan Jenne
2021-03-16 10:46:05 +01:00
parent 022d124ee0
commit 5df3f4a32d
8 changed files with 136 additions and 185 deletions

View File

@@ -3117,29 +3117,9 @@ Namespace DSIDB_StammdatenTableAdapters
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 [TBIDB_ATTRIBUTE_TYPE] WHERE (([GUID] = @Original_GUID) AND ([NAME_TY"& _
"PE] = @Original_NAME_TYPE) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ("& _
"[COMMENT] = @Original_COMMENT)) AND ([BIT1] = @Original_BIT1) AND ([BIT2] = @Ori"& _
"ginal_BIT2) AND ([BIT3] = @Original_BIT3) AND ([BIT4] = @Original_BIT4) AND ([AD"& _
"DED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND (("& _
"@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original"& _
"_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([C"& _
"HANGED_WHEN] = @Original_CHANGED_WHEN)))"
Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBIDB_ATTRIBUTE_TYPE"&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.TinyInt, 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_NAME_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_TYPE", 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_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("@Original_BIT3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BIT4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BIT4", 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("@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.TinyInt, 1, 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 [TBIDB_ATTRIBUTE_TYPE] ([NAME_TYPE], [COMMENT], [BIT1], [BIT2], [BIT3"& _
@@ -3275,48 +3255,8 @@ 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 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 Byte) 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")
Else
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME_TYPE,String)
End If
If (Original_COMMENT 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_COMMENT,String)
End If
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_BIT1,Boolean)
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_BIT2,Boolean)
Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_BIT3,Boolean)
Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_BIT4,Boolean)
If (Original_ADDED_WHO Is Nothing) Then
Throw New Global.System.ArgumentNullException("Original_ADDED_WHO")
Else
Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHO,String)
End If
If (Original_ADDED_WHEN.HasValue = true) Then
Me.Adapter.DeleteCommand.Parameters(9).Value = CType(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
Else
Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object)
Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHO,String)
End If
If (Original_CHANGED_WHEN.HasValue = true) Then
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object)
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value,Date)
Else
Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object)
Me.Adapter.DeleteCommand.Parameters(13).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