MS_1705
This commit is contained in:
SchreiberM
313
app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb
generated
313
app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb
generated
@@ -8704,6 +8704,8 @@ Partial Public Class DD_DMSDataSet
|
||||
|
||||
Private columnSHORTNAME As Global.System.Data.DataColumn
|
||||
|
||||
Private columnWAN_ENVIRONMENT 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()
|
||||
@@ -8875,6 +8877,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 WAN_ENVIRONMENTColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnWAN_ENVIRONMENT
|
||||
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)> _
|
||||
@@ -8928,9 +8938,10 @@ Partial Public Class DD_DMSDataSet
|
||||
ByVal RECORD_ADMIN As Boolean, _
|
||||
ByVal LANGUAGE As String, _
|
||||
ByVal COMMENT As String, _
|
||||
ByVal SHORTNAME As String) As TBDD_USERRow
|
||||
ByVal SHORTNAME As String, _
|
||||
ByVal WAN_ENVIRONMENT As Boolean) As TBDD_USERRow
|
||||
Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow)
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, RECORD_ADMIN, LANGUAGE, COMMENT, SHORTNAME}
|
||||
Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, RECORD_ADMIN, LANGUAGE, COMMENT, SHORTNAME, WAN_ENVIRONMENT}
|
||||
rowTBDD_USERRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowTBDD_USERRow)
|
||||
Return rowTBDD_USERRow
|
||||
@@ -8976,6 +8987,7 @@ Partial Public Class DD_DMSDataSet
|
||||
Me.columnLANGUAGE = MyBase.Columns("LANGUAGE")
|
||||
Me.columnCOMMENT = MyBase.Columns("COMMENT")
|
||||
Me.columnSHORTNAME = MyBase.Columns("SHORTNAME")
|
||||
Me.columnWAN_ENVIRONMENT = MyBase.Columns("WAN_ENVIRONMENT")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -9015,6 +9027,8 @@ Partial Public Class DD_DMSDataSet
|
||||
MyBase.Columns.Add(Me.columnCOMMENT)
|
||||
Me.columnSHORTNAME = New Global.System.Data.DataColumn("SHORTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnSHORTNAME)
|
||||
Me.columnWAN_ENVIRONMENT = New Global.System.Data.DataColumn("WAN_ENVIRONMENT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnWAN_ENVIRONMENT)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
||||
Me.columnGUID.AutoIncrement = true
|
||||
Me.columnGUID.AllowDBNull = false
|
||||
@@ -9030,6 +9044,7 @@ Partial Public Class DD_DMSDataSet
|
||||
Me.columnLOGGED_WHERE.MaxLength = 50
|
||||
Me.columnADDED_WHO.AllowDBNull = false
|
||||
Me.columnADDED_WHO.MaxLength = 50
|
||||
Me.columnADDED_WHEN.AllowDBNull = false
|
||||
Me.columnCHANGED_WHO.MaxLength = 50
|
||||
Me.columnRECORD_ADMIN.AllowDBNull = false
|
||||
Me.columnRECORD_ADMIN.DefaultValue = CType(false,Boolean)
|
||||
@@ -9038,6 +9053,8 @@ Partial Public Class DD_DMSDataSet
|
||||
Me.columnLANGUAGE.MaxLength = 5
|
||||
Me.columnCOMMENT.MaxLength = 200
|
||||
Me.columnSHORTNAME.MaxLength = 30
|
||||
Me.columnWAN_ENVIRONMENT.AllowDBNull = false
|
||||
Me.columnWAN_ENVIRONMENT.DefaultValue = CType(False, Boolean)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -23961,11 +23978,7 @@ Partial Public Class DD_DMSDataSet
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property ADDED_WHEN() As Date
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableTBDD_USER.ADDED_WHENColumn),Date)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER ist DBNull.", e)
|
||||
End Try
|
||||
Return CType(Me(Me.tableTBDD_USER.ADDED_WHENColumn),Date)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value
|
||||
@@ -24054,6 +24067,17 @@ 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 WAN_ENVIRONMENT() As Boolean
|
||||
Get
|
||||
Return CType(Me(Me.tableTBDD_USER.WAN_ENVIRONMENTColumn),Boolean)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBDD_USER.WAN_ENVIRONMENTColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IsPRENAMENull() As Boolean
|
||||
@@ -24126,18 +24150,6 @@ Partial Public Class DD_DMSDataSet
|
||||
Me(Me.tableTBDD_USER.LOG_OUT_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 IsADDED_WHENNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetADDED_WHENNull()
|
||||
Me(Me.tableTBDD_USER.ADDED_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 IsCHANGED_WHONull() As Boolean
|
||||
@@ -37493,6 +37505,7 @@ Namespace DD_DMSDataSetTableAdapters
|
||||
tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE")
|
||||
tableMapping.ColumnMappings.Add("COMMENT", "COMMENT")
|
||||
tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME")
|
||||
tableMapping.ColumnMappings.Add("WAN_ENVIRONMENT", "WAN_ENVIRONMENT")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._adapter.DeleteCommand.Connection = Me.Connection
|
||||
@@ -37501,259 +37514,263 @@ 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" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (PRENAME, NAME, USERNAME, EMAIL, " & _
|
||||
"LOGGED_IN, RECORD_ADMIN, ADDED_WHO, MODULE_RECORD_ORG, LANGUAGE, SHORTNAME, COMM" & _
|
||||
"ENT)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,@LOGGED_IN, 0,@ADDED_WHO, 1" & _
|
||||
",@LANGUAG,@SHORTNAME,@COMMENT); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL" & _
|
||||
", LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, A" & _
|
||||
"DDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = SCOPE_IDENTITY" & _
|
||||
"())"
|
||||
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PRENAME, NAME, USERNAME, EMAIL, "& _
|
||||
"LOGGED_IN, RECORD_ADMIN, ADDED_WHO, MODULE_RECORD_ORG, LANGUAGE, SHORTNAME, COMM"& _
|
||||
"ENT, WAN_ENVIRONMENT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PRENAME,@NAME,@USERNAME,@EMAIL,@LOGGED_IN"& _
|
||||
", 0,@ADDED_WHO, 1,@LANGUAG,@SHORTNAME,@COMMENT,@WAN_ENVIRONMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _
|
||||
"UID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_O"& _
|
||||
"UT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBD"& _
|
||||
"D_USER WHERE (GUID = SCOPE_IDENTITY())"
|
||||
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 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("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOGGED_IN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_IN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@LANGUAG", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 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("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOGGED_IN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_IN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@LANGUAG", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", 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" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET PRENAME = @PRENAME, NAME = @NAME, USER" & _
|
||||
"NAME = @USERNAME, EMAIL = @EMAIL, RECORD_ADMIN = @RECORD_ADMIN, CHANGED_WHO = @C" & _
|
||||
"HANGED_WHO, LANGUAGE = @LANGUAGE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SHORTNAME = @SHORTN" & _
|
||||
"AME, 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, " & _
|
||||
"PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WH" & _
|
||||
"EN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USE" & _
|
||||
"R WHERE (GUID = @GUID)"
|
||||
Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PRENAME = @PRENAME, NAME = @NAME, USER"& _
|
||||
"NAME = @USERNAME, EMAIL = @EMAIL, RECORD_ADMIN = @RECORD_ADMIN, CHANGED_WHO = @C"& _
|
||||
"HANGED_WHO, LANGUAGE = @LANGUAGE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SHORTNAME = @SHORTN"& _
|
||||
"AME, COMMENT = @COMMENT, WAN_ENVIRONMENT = @WAN_ENVIRONMENT"&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, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, "& _
|
||||
"LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CH"& _
|
||||
"ANGED_WHO, CHANGED_WHEN FROM TBDD_USER WHERE (GUID = @GUID)"
|
||||
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 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("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ADMIN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ADMIN", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 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("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ADMIN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ADMIN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@WAN_ENVIRONMENT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WAN_ENVIRONMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Private Sub InitConnection()
|
||||
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
||||
Me._connection.ConnectionString = Global.DD_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Private Sub InitCommandCollection()
|
||||
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
|
||||
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(0).Connection = Me.Connection
|
||||
Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_" & _
|
||||
"IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED" & _
|
||||
"_WHEN, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " LANGUAGE, COMMENT, SHORTNAME" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & _
|
||||
"TBDD_USER" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (MODULE_RECORD_ORG = 1)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY USERNAME"
|
||||
Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_"& _
|
||||
"IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _
|
||||
"_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" LANGUAGE, COMMENT, SHORTNAME, WAN_ENVIRONMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MODULE_RECORD_ORG = 1)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY USERN"& _
|
||||
"AME"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
End Sub
|
||||
|
||||
<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.Fill, True)> _
|
||||
Public Overridable Overloads Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_USERDataTable) As Integer
|
||||
|
||||
<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.Fill, true)> _
|
||||
Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_USERDataTable) As Integer
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
||||
If (Me.ClearBeforeFill = True) Then
|
||||
dataTable.Clear()
|
||||
If (Me.ClearBeforeFill = true) Then
|
||||
dataTable.Clear
|
||||
End If
|
||||
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
||||
Return returnValue
|
||||
End Function
|
||||
|
||||
<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.[Select], True)> _
|
||||
Public Overridable Overloads Function GetData() As DD_DMSDataSet.TBDD_USERDataTable
|
||||
|
||||
<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.[Select], true)> _
|
||||
Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_USERDataTable
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
||||
Dim dataTable As DD_DMSDataSet.TBDD_USERDataTable = New DD_DMSDataSet.TBDD_USERDataTable()
|
||||
Me.Adapter.Fill(dataTable)
|
||||
Return dataTable
|
||||
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")> _
|
||||
Public Overridable Overloads Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_USERDataTable) As Integer
|
||||
|
||||
<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")> _
|
||||
Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_USERDataTable) As Integer
|
||||
Return Me.Adapter.Update(dataTable)
|
||||
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")> _
|
||||
Public Overridable Overloads Function Update(ByVal dataSet As DD_DMSDataSet) As Integer
|
||||
|
||||
<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")> _
|
||||
Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer
|
||||
Return Me.Adapter.Update(dataSet, "TBDD_USER")
|
||||
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")> _
|
||||
Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
|
||||
|
||||
<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")> _
|
||||
Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer
|
||||
Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow})
|
||||
End Function
|
||||
|
||||
<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")> _
|
||||
Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
|
||||
|
||||
<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")> _
|
||||
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
|
||||
Return Me.Adapter.Update(dataRows)
|
||||
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.Delete, True)> _
|
||||
Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer
|
||||
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer)
|
||||
|
||||
<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.Delete, true)> _
|
||||
Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer
|
||||
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
|
||||
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State
|
||||
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
||||
If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
||||
<> Global.System.Data.ConnectionState.Open) Then
|
||||
Me.Adapter.DeleteCommand.Connection.Open()
|
||||
Me.Adapter.DeleteCommand.Connection.Open
|
||||
End If
|
||||
Try
|
||||
Try
|
||||
Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery
|
||||
Return returnValue
|
||||
Finally
|
||||
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
||||
Me.Adapter.DeleteCommand.Connection.Close()
|
||||
Me.Adapter.DeleteCommand.Connection.Close
|
||||
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.Insert, True)> _
|
||||
Public Overridable Overloads Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal ADDED_WHO As String, ByVal LANGUAG As String, ByVal SHORTNAME As String, ByVal COMMENT As String) As Integer
|
||||
|
||||
<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.Insert, true)> _
|
||||
Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal ADDED_WHO As String, ByVal LANGUAG As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal WAN_ENVIRONMENT As Boolean) As Integer
|
||||
If (PRENAME Is Nothing) Then
|
||||
Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME, String)
|
||||
Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String)
|
||||
End If
|
||||
If (NAME Is Nothing) Then
|
||||
Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME, String)
|
||||
Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String)
|
||||
End If
|
||||
If (USERNAME Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("USERNAME")
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME, String)
|
||||
Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String)
|
||||
End If
|
||||
If (EMAIL Is Nothing) Then
|
||||
Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL, String)
|
||||
Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL,String)
|
||||
End If
|
||||
Me.Adapter.InsertCommand.Parameters(4).Value = CType(LOGGED_IN, Boolean)
|
||||
Me.Adapter.InsertCommand.Parameters(4).Value = CType(LOGGED_IN,Boolean)
|
||||
If (ADDED_WHO Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("ADDED_WHO")
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO, String)
|
||||
Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String)
|
||||
End If
|
||||
If (LANGUAG Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("LANGUAG")
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(6).Value = CType(LANGUAG, String)
|
||||
Me.Adapter.InsertCommand.Parameters(6).Value = CType(LANGUAG,String)
|
||||
End If
|
||||
If (SHORTNAME Is Nothing) Then
|
||||
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(7).Value = CType(SHORTNAME, String)
|
||||
Me.Adapter.InsertCommand.Parameters(7).Value = CType(SHORTNAME,String)
|
||||
End If
|
||||
If (COMMENT Is Nothing) Then
|
||||
Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.InsertCommand.Parameters(8).Value = CType(COMMENT, String)
|
||||
Me.Adapter.InsertCommand.Parameters(8).Value = CType(COMMENT,String)
|
||||
End If
|
||||
Me.Adapter.InsertCommand.Parameters(9).Value = CType(WAN_ENVIRONMENT,Boolean)
|
||||
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
|
||||
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
||||
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
||||
<> Global.System.Data.ConnectionState.Open) Then
|
||||
Me.Adapter.InsertCommand.Connection.Open()
|
||||
Me.Adapter.InsertCommand.Connection.Open
|
||||
End If
|
||||
Try
|
||||
Try
|
||||
Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery
|
||||
Return returnValue
|
||||
Finally
|
||||
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
||||
Me.Adapter.InsertCommand.Connection.Close()
|
||||
Me.Adapter.InsertCommand.Connection.Close
|
||||
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 Overridable Overloads Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal RECORD_ADMIN As Boolean, ByVal CHANGED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
|
||||
<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 PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal RECORD_ADMIN As Boolean, ByVal CHANGED_WHO As String, ByVal LANGUAGE As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal WAN_ENVIRONMENT As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
||||
If (PRENAME Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME, String)
|
||||
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME,String)
|
||||
End If
|
||||
If (NAME Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME, String)
|
||||
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String)
|
||||
End If
|
||||
If (USERNAME Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("USERNAME")
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME, String)
|
||||
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME,String)
|
||||
End If
|
||||
If (EMAIL Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL, String)
|
||||
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(RECORD_ADMIN, Boolean)
|
||||
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(RECORD_ADMIN,Boolean)
|
||||
If (CHANGED_WHO Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO, String)
|
||||
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String)
|
||||
End If
|
||||
If (LANGUAGE Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("LANGUAGE")
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(LANGUAGE, String)
|
||||
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(LANGUAGE,String)
|
||||
End If
|
||||
If (SHORTNAME Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SHORTNAME, String)
|
||||
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SHORTNAME,String)
|
||||
End If
|
||||
If (COMMENT Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value
|
||||
Else
|
||||
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COMMENT, String)
|
||||
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COMMENT,String)
|
||||
End If
|
||||
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID, Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID, Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(WAN_ENVIRONMENT,Boolean)
|
||||
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Integer)
|
||||
Me.Adapter.UpdateCommand.Parameters(11).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) _
|
||||
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
|
||||
<> Global.System.Data.ConnectionState.Open) Then
|
||||
Me.Adapter.UpdateCommand.Connection.Open()
|
||||
Me.Adapter.UpdateCommand.Connection.Open
|
||||
End If
|
||||
Try
|
||||
Try
|
||||
Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery
|
||||
Return returnValue
|
||||
Finally
|
||||
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
||||
Me.Adapter.UpdateCommand.Connection.Close()
|
||||
Me.Adapter.UpdateCommand.Connection.Close
|
||||
End If
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Reference in New Issue
Block a user