ms
This commit is contained in:
77
GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb
generated
77
GUIs.ZooFlow/DSIDB_Stammdaten.Designer.vb
generated
@@ -5634,6 +5634,8 @@ Partial Public Class DSIDB_Stammdaten
|
||||
|
||||
Private columnChanged_When As Global.System.Data.DataColumn
|
||||
|
||||
Private columnDoctype_ID 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()
|
||||
@@ -5717,6 +5719,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 Doctype_IDColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnDoctype_ID
|
||||
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)> _
|
||||
@@ -5754,9 +5764,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 AddVWIDB_DOCTYPE_LANGUAGERow(ByVal ID As Long, ByVal SystemTitle As String, ByVal Doctype As String, ByVal Language As String, ByVal Added_When As Date, ByVal Changed_When As Date) As VWIDB_DOCTYPE_LANGUAGERow
|
||||
Public Overloads Function AddVWIDB_DOCTYPE_LANGUAGERow(ByVal ID As Long, ByVal SystemTitle As String, ByVal Doctype As String, ByVal Language As String, ByVal Added_When As Date, ByVal Changed_When As Date, ByVal Doctype_ID As Long) As VWIDB_DOCTYPE_LANGUAGERow
|
||||
Dim rowVWIDB_DOCTYPE_LANGUAGERow As VWIDB_DOCTYPE_LANGUAGERow = CType(Me.NewRow,VWIDB_DOCTYPE_LANGUAGERow)
|
||||
Dim columnValuesArray() As Object = New Object() {ID, SystemTitle, Doctype, Language, Added_When, Changed_When}
|
||||
Dim columnValuesArray() As Object = New Object() {ID, SystemTitle, Doctype, Language, Added_When, Changed_When, Doctype_ID}
|
||||
rowVWIDB_DOCTYPE_LANGUAGERow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowVWIDB_DOCTYPE_LANGUAGERow)
|
||||
Return rowVWIDB_DOCTYPE_LANGUAGERow
|
||||
@@ -5791,6 +5801,7 @@ Partial Public Class DSIDB_Stammdaten
|
||||
Me.columnLanguage = MyBase.Columns("Language")
|
||||
Me.columnAdded_When = MyBase.Columns("Added When")
|
||||
Me.columnChanged_When = MyBase.Columns("Changed When")
|
||||
Me.columnDoctype_ID = MyBase.Columns("Doctype_ID")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -5808,6 +5819,8 @@ Partial Public Class DSIDB_Stammdaten
|
||||
MyBase.Columns.Add(Me.columnAdded_When)
|
||||
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.columnDoctype_ID = New Global.System.Data.DataColumn("Doctype_ID", GetType(Long), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnDoctype_ID)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true))
|
||||
Me.columnID.AllowDBNull = false
|
||||
Me.columnID.Unique = true
|
||||
@@ -5818,6 +5831,7 @@ Partial Public Class DSIDB_Stammdaten
|
||||
Me.columnLanguage.AllowDBNull = false
|
||||
Me.columnLanguage.MaxLength = 10
|
||||
Me.columnAdded_When.AllowDBNull = false
|
||||
Me.columnDoctype_ID.AllowDBNull = false
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -8652,6 +8666,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 Doctype_ID() As Long
|
||||
Get
|
||||
Return CType(Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.Doctype_IDColumn),Long)
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableVWIDB_DOCTYPE_LANGUAGE.Doctype_IDColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Public Function IsChanged_WhenNull() As Boolean
|
||||
@@ -13784,6 +13809,7 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
tableMapping.ColumnMappings.Add("Language", "Language")
|
||||
tableMapping.ColumnMappings.Add("Added When", "Added When")
|
||||
tableMapping.ColumnMappings.Add("Changed When", "Changed When")
|
||||
tableMapping.ColumnMappings.Add("Doctype_ID", "Doctype_ID")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
End Sub
|
||||
|
||||
@@ -13797,13 +13823,20 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _
|
||||
Private Sub InitCommandCollection()
|
||||
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {}
|
||||
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {}
|
||||
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(0).Connection = Me.Connection
|
||||
Me._commandCollection(0).CommandText = "SELECT ID, SYS_TITLE AS SystemTitle, Doctype, LANG_CODE AS Language, ADDED"& _
|
||||
"_WHEN AS [Added When], CHANGED_WHEN AS [Changed When]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWIDB_DOC"& _
|
||||
"TYPE_LANGUAGE"
|
||||
"_WHEN AS [Added When], CHANGED_WHEN AS [Changed When], Doctype_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
|
||||
" VWIDB_DOCTYPE_LANGUAGE"
|
||||
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(1).Connection = Me.Connection
|
||||
Me._commandCollection(1).CommandText = "SELECT ID, SYS_TITLE AS SystemTitle, Doctype, LANG_CODE AS Language, ADDED"& _
|
||||
"_WHEN AS [Added When], CHANGED_WHEN AS [Changed When], Doctype_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
|
||||
" VWIDB_DOCTYPE_LANGUAGE WHERE LANG_CODE = @LANG_CODE"
|
||||
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANG_CODE", Global.System.Data.SqlDbType.VarChar, 10, Global.System.Data.ParameterDirection.Input, 0, 0, "Language", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -13829,6 +13862,40 @@ Namespace DSIDB_StammdatenTableAdapters
|
||||
Me.Adapter.Fill(dataTable)
|
||||
Return dataTable
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
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.Fill, false)> _
|
||||
Public Overloads Overridable Function FillByLanguage(ByVal dataTable As DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGEDataTable, ByVal LANG_CODE As String) As Integer
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
||||
If (LANG_CODE Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("LANG_CODE")
|
||||
Else
|
||||
Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANG_CODE,String)
|
||||
End If
|
||||
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", "16.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
||||
Public Overloads Overridable Function GetDataByLanguage(ByVal LANG_CODE As String) As DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGEDataTable
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
||||
If (LANG_CODE Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("LANG_CODE")
|
||||
Else
|
||||
Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANG_CODE,String)
|
||||
End If
|
||||
Dim dataTable As DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGEDataTable = New DSIDB_Stammdaten.VWIDB_DOCTYPE_LANGUAGEDataTable()
|
||||
Me.Adapter.Fill(dataTable)
|
||||
Return dataTable
|
||||
End Function
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
|
||||
Reference in New Issue
Block a user