JJ für MS 09.11
This commit is contained in:
SchreiberM
726
app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb
generated
726
app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb
generated
@@ -1,7 +1,7 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Dieser Code wurde von einem Tool generiert.
|
||||
' Laufzeitversion:4.0.30319.34014
|
||||
' Laufzeitversion:4.0.30319.34209
|
||||
'
|
||||
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
||||
' der Code erneut generiert wird.
|
||||
@@ -16,21 +16,23 @@ Option Explicit On
|
||||
'''<summary>
|
||||
'''Represents a strongly typed in-memory cache of data.
|
||||
'''</summary>
|
||||
<Global.System.Serializable(), _
|
||||
Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
||||
Global.System.ComponentModel.ToolboxItem(true), _
|
||||
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
|
||||
Global.System.Xml.Serialization.XmlRootAttribute("DD_ECMAdmin"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
|
||||
<Global.System.Serializable(), _
|
||||
Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
||||
Global.System.ComponentModel.ToolboxItem(True), _
|
||||
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
|
||||
Global.System.Xml.Serialization.XmlRootAttribute("DD_ECMAdmin"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
|
||||
Partial Public Class DD_ECMAdmin
|
||||
Inherits Global.System.Data.DataSet
|
||||
|
||||
|
||||
Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable
|
||||
|
||||
Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable
|
||||
|
||||
Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable
|
||||
|
||||
Private tableVWTEMPQUICKVIEW As VWTEMPQUICKVIEWDataTable
|
||||
|
||||
Private tableDT_VORSCHAU As DT_VORSCHAUDataTable
|
||||
|
||||
Private relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As Global.System.Data.DataRelation
|
||||
@@ -73,6 +75,9 @@ Partial Public Class DD_ECMAdmin
|
||||
If (Not (ds.Tables("TBDD_CONNECTION")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION")))
|
||||
End If
|
||||
If (Not (ds.Tables("VWTEMPQUICKVIEW")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New VWTEMPQUICKVIEWDataTable(ds.Tables("VWTEMPQUICKVIEW")))
|
||||
End If
|
||||
If (Not (ds.Tables("DT_VORSCHAU")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New DT_VORSCHAUDataTable(ds.Tables("DT_VORSCHAU")))
|
||||
End If
|
||||
@@ -123,6 +128,16 @@ Partial Public Class DD_ECMAdmin
|
||||
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), _
|
||||
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
||||
Public ReadOnly Property VWTEMPQUICKVIEW() As VWTEMPQUICKVIEWDataTable
|
||||
Get
|
||||
Return Me.tableVWTEMPQUICKVIEW
|
||||
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), _
|
||||
@@ -209,6 +224,9 @@ Partial Public Class DD_ECMAdmin
|
||||
If (Not (ds.Tables("TBDD_CONNECTION")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION")))
|
||||
End If
|
||||
If (Not (ds.Tables("VWTEMPQUICKVIEW")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New VWTEMPQUICKVIEWDataTable(ds.Tables("VWTEMPQUICKVIEW")))
|
||||
End If
|
||||
If (Not (ds.Tables("DT_VORSCHAU")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New DT_VORSCHAUDataTable(ds.Tables("DT_VORSCHAU")))
|
||||
End If
|
||||
@@ -262,6 +280,12 @@ Partial Public Class DD_ECMAdmin
|
||||
Me.tableTBDD_CONNECTION.InitVars()
|
||||
End If
|
||||
End If
|
||||
Me.tableVWTEMPQUICKVIEW = CType(MyBase.Tables("VWTEMPQUICKVIEW"), VWTEMPQUICKVIEWDataTable)
|
||||
If (initTable = True) Then
|
||||
If (Not (Me.tableVWTEMPQUICKVIEW) Is Nothing) Then
|
||||
Me.tableVWTEMPQUICKVIEW.InitVars()
|
||||
End If
|
||||
End If
|
||||
Me.tableDT_VORSCHAU = CType(MyBase.Tables("DT_VORSCHAU"), DT_VORSCHAUDataTable)
|
||||
If (initTable = True) Then
|
||||
If (Not (Me.tableDT_VORSCHAU) Is Nothing) Then
|
||||
@@ -285,6 +309,8 @@ Partial Public Class DD_ECMAdmin
|
||||
MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL)
|
||||
Me.tableTBDD_CONNECTION = New TBDD_CONNECTIONDataTable()
|
||||
MyBase.Tables.Add(Me.tableTBDD_CONNECTION)
|
||||
Me.tableVWTEMPQUICKVIEW = New VWTEMPQUICKVIEWDataTable()
|
||||
MyBase.Tables.Add(Me.tableVWTEMPQUICKVIEW)
|
||||
Me.tableDT_VORSCHAU = New DT_VORSCHAUDataTable()
|
||||
MyBase.Tables.Add(Me.tableDT_VORSCHAU)
|
||||
Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn}, False)
|
||||
@@ -309,6 +335,12 @@ Partial Public Class DD_ECMAdmin
|
||||
Return False
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Private Function ShouldSerializeVWTEMPQUICKVIEW() As Boolean
|
||||
Return False
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Private Function ShouldSerializeDT_VORSCHAU() As Boolean
|
||||
@@ -382,6 +414,9 @@ Partial Public Class DD_ECMAdmin
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent)
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Delegate Sub VWTEMPQUICKVIEWRowChangeEventHandler(ByVal sender As Object, ByVal e As VWTEMPQUICKVIEWRowChangeEvent)
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Delegate Sub DT_VORSCHAURowChangeEventHandler(ByVal sender As Object, ByVal e As DT_VORSCHAURowChangeEvent)
|
||||
|
||||
@@ -1741,6 +1776,330 @@ Partial Public Class DD_ECMAdmin
|
||||
End Function
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Represents the strongly named DataTable class.
|
||||
'''</summary>
|
||||
<Global.System.Serializable(), _
|
||||
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
||||
Partial Public Class VWTEMPQUICKVIEWDataTable
|
||||
Inherits Global.System.Data.TypedTableBase(Of VWTEMPQUICKVIEWRow)
|
||||
|
||||
Private _columnRecord_ID As Global.System.Data.DataColumn
|
||||
|
||||
Private columnAktenzeichen As Global.System.Data.DataColumn
|
||||
|
||||
Private _columnWiedergabe_der_Marke__Bild_ As Global.System.Data.DataColumn
|
||||
|
||||
Private columnTag_der_Eintragung_im_Register As Global.System.Data.DataColumn
|
||||
|
||||
Private columnAktenzustand 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()
|
||||
MyBase.New()
|
||||
Me.TableName = "VWTEMPQUICKVIEW"
|
||||
Me.BeginInit()
|
||||
Me.InitClass()
|
||||
Me.EndInit()
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Friend Sub New(ByVal table As Global.System.Data.DataTable)
|
||||
MyBase.New()
|
||||
Me.TableName = table.TableName
|
||||
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
|
||||
Me.CaseSensitive = table.CaseSensitive
|
||||
End If
|
||||
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
|
||||
Me.Locale = table.Locale
|
||||
End If
|
||||
If (table.Namespace <> table.DataSet.Namespace) Then
|
||||
Me.Namespace = table.Namespace
|
||||
End If
|
||||
Me.Prefix = table.Prefix
|
||||
Me.MinimumCapacity = table.MinimumCapacity
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
|
||||
MyBase.New(info, context)
|
||||
Me.InitVars()
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property _Record_IDColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me._columnRecord_ID
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property AktenzeichenColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnAktenzeichen
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property _Wiedergabe_der_Marke__Bild_Column() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me._columnWiedergabe_der_Marke__Bild_
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property Tag_der_Eintragung_im_RegisterColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnTag_der_Eintragung_im_Register
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property AktenzustandColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnAktenzustand
|
||||
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)> _
|
||||
Public ReadOnly Property Count() As Integer
|
||||
Get
|
||||
Return Me.Rows.Count
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Default Public ReadOnly Property Item(ByVal index As Integer) As VWTEMPQUICKVIEWRow
|
||||
Get
|
||||
Return CType(Me.Rows(index), VWTEMPQUICKVIEWRow)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Event VWTEMPQUICKVIEWRowChanging As VWTEMPQUICKVIEWRowChangeEventHandler
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Event VWTEMPQUICKVIEWRowChanged As VWTEMPQUICKVIEWRowChangeEventHandler
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Event VWTEMPQUICKVIEWRowDeleting As VWTEMPQUICKVIEWRowChangeEventHandler
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Event VWTEMPQUICKVIEWRowDeleted As VWTEMPQUICKVIEWRowChangeEventHandler
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Overloads Sub AddVWTEMPQUICKVIEWRow(ByVal row As VWTEMPQUICKVIEWRow)
|
||||
Me.Rows.Add(row)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Overloads Function AddVWTEMPQUICKVIEWRow(ByVal _Record_ID As Integer, ByVal Aktenzeichen As String, ByVal _Wiedergabe_der_Marke__Bild_() As Byte, ByVal Tag_der_Eintragung_im_Register As String, ByVal Aktenzustand As String) As VWTEMPQUICKVIEWRow
|
||||
Dim rowVWTEMPQUICKVIEWRow As VWTEMPQUICKVIEWRow = CType(Me.NewRow, VWTEMPQUICKVIEWRow)
|
||||
Dim columnValuesArray() As Object = New Object() {_Record_ID, Aktenzeichen, _Wiedergabe_der_Marke__Bild_, Tag_der_Eintragung_im_Register, Aktenzustand}
|
||||
rowVWTEMPQUICKVIEWRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowVWTEMPQUICKVIEWRow)
|
||||
Return rowVWTEMPQUICKVIEWRow
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function FindBy_Record_ID(ByVal _Record_ID As Integer) As VWTEMPQUICKVIEWRow
|
||||
Return CType(Me.Rows.Find(New Object() {_Record_ID}), VWTEMPQUICKVIEWRow)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Overrides Function Clone() As Global.System.Data.DataTable
|
||||
Dim cln As VWTEMPQUICKVIEWDataTable = CType(MyBase.Clone, VWTEMPQUICKVIEWDataTable)
|
||||
cln.InitVars()
|
||||
Return cln
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
||||
Return New VWTEMPQUICKVIEWDataTable()
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Friend Sub InitVars()
|
||||
Me._columnRecord_ID = MyBase.Columns("Record-ID")
|
||||
Me.columnAktenzeichen = MyBase.Columns("Aktenzeichen")
|
||||
Me._columnWiedergabe_der_Marke__Bild_ = MyBase.Columns("Wiedergabe der Marke (Bild)")
|
||||
Me.columnTag_der_Eintragung_im_Register = MyBase.Columns("Tag der Eintragung im Register")
|
||||
Me.columnAktenzustand = MyBase.Columns("Aktenzustand")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Private Sub InitClass()
|
||||
Me._columnRecord_ID = New Global.System.Data.DataColumn("Record-ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
||||
Me._columnRecord_ID.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnRecord_ID")
|
||||
Me._columnRecord_ID.ExtendedProperties.Add("Generator_UserColumnName", "Record-ID")
|
||||
MyBase.Columns.Add(Me._columnRecord_ID)
|
||||
Me.columnAktenzeichen = New Global.System.Data.DataColumn("Aktenzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnAktenzeichen)
|
||||
Me._columnWiedergabe_der_Marke__Bild_ = New Global.System.Data.DataColumn("Wiedergabe der Marke (Bild)", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
|
||||
Me._columnWiedergabe_der_Marke__Bild_.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnWiedergabe_der_Marke__Bild_")
|
||||
Me._columnWiedergabe_der_Marke__Bild_.ExtendedProperties.Add("Generator_UserColumnName", "Wiedergabe der Marke (Bild)")
|
||||
MyBase.Columns.Add(Me._columnWiedergabe_der_Marke__Bild_)
|
||||
Me.columnTag_der_Eintragung_im_Register = New Global.System.Data.DataColumn("Tag der Eintragung im Register", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnTag_der_Eintragung_im_Register)
|
||||
Me.columnAktenzustand = New Global.System.Data.DataColumn("Aktenzustand", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnAktenzustand)
|
||||
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me._columnRecord_ID}, True))
|
||||
Me._columnRecord_ID.AllowDBNull = False
|
||||
Me._columnRecord_ID.Unique = True
|
||||
Me.columnAktenzeichen.ReadOnly = True
|
||||
Me.columnAktenzeichen.MaxLength = 2147483647
|
||||
Me._columnWiedergabe_der_Marke__Bild_.ReadOnly = True
|
||||
Me.columnTag_der_Eintragung_im_Register.ReadOnly = True
|
||||
Me.columnTag_der_Eintragung_im_Register.MaxLength = 2147483647
|
||||
Me.columnAktenzustand.ReadOnly = True
|
||||
Me.columnAktenzustand.MaxLength = 2147483647
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function NewVWTEMPQUICKVIEWRow() As VWTEMPQUICKVIEWRow
|
||||
Return CType(Me.NewRow, VWTEMPQUICKVIEWRow)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
||||
Return New VWTEMPQUICKVIEWRow(builder)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Protected Overrides Function GetRowType() As Global.System.Type
|
||||
Return GetType(VWTEMPQUICKVIEWRow)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
||||
MyBase.OnRowChanged(e)
|
||||
If (Not (Me.VWTEMPQUICKVIEWRowChangedEvent) Is Nothing) Then
|
||||
RaiseEvent VWTEMPQUICKVIEWRowChanged(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row, VWTEMPQUICKVIEWRow), e.Action))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
||||
MyBase.OnRowChanging(e)
|
||||
If (Not (Me.VWTEMPQUICKVIEWRowChangingEvent) Is Nothing) Then
|
||||
RaiseEvent VWTEMPQUICKVIEWRowChanging(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row, VWTEMPQUICKVIEWRow), e.Action))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
||||
MyBase.OnRowDeleted(e)
|
||||
If (Not (Me.VWTEMPQUICKVIEWRowDeletedEvent) Is Nothing) Then
|
||||
RaiseEvent VWTEMPQUICKVIEWRowDeleted(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row, VWTEMPQUICKVIEWRow), e.Action))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
||||
MyBase.OnRowDeleting(e)
|
||||
If (Not (Me.VWTEMPQUICKVIEWRowDeletingEvent) Is Nothing) Then
|
||||
RaiseEvent VWTEMPQUICKVIEWRowDeleting(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row, VWTEMPQUICKVIEWRow), e.Action))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub RemoveVWTEMPQUICKVIEWRow(ByVal row As VWTEMPQUICKVIEWRow)
|
||||
Me.Rows.Remove(row)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
||||
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
||||
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
||||
Dim ds As DD_ECMAdmin = New DD_ECMAdmin()
|
||||
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
||||
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
||||
any1.MinOccurs = New Decimal(0)
|
||||
any1.MaxOccurs = Decimal.MaxValue
|
||||
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
||||
sequence.Items.Add(any1)
|
||||
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
||||
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
||||
any2.MinOccurs = New Decimal(1)
|
||||
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
||||
sequence.Items.Add(any2)
|
||||
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
||||
attribute1.Name = "namespace"
|
||||
attribute1.FixedValue = ds.Namespace
|
||||
type.Attributes.Add(attribute1)
|
||||
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
||||
attribute2.Name = "tableTypeName"
|
||||
attribute2.FixedValue = "VWTEMPQUICKVIEWDataTable"
|
||||
type.Attributes.Add(attribute2)
|
||||
type.Particle = sequence
|
||||
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
||||
If xs.Contains(dsSchema.TargetNamespace) Then
|
||||
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
||||
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
||||
Try
|
||||
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
||||
dsSchema.Write(s1)
|
||||
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
||||
Do While schemas.MoveNext
|
||||
schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema)
|
||||
s2.SetLength(0)
|
||||
schema.Write(s2)
|
||||
If (s1.Length = s2.Length) Then
|
||||
s1.Position = 0
|
||||
s2.Position = 0
|
||||
|
||||
Do While ((s1.Position <> s1.Length) _
|
||||
AndAlso (s1.ReadByte = s2.ReadByte))
|
||||
|
||||
|
||||
Loop
|
||||
If (s1.Position = s1.Length) Then
|
||||
Return type
|
||||
End If
|
||||
End If
|
||||
|
||||
Loop
|
||||
Finally
|
||||
If (Not (s1) Is Nothing) Then
|
||||
s1.Close()
|
||||
End If
|
||||
If (Not (s2) Is Nothing) Then
|
||||
s2.Close()
|
||||
End If
|
||||
End Try
|
||||
End If
|
||||
xs.Add(dsSchema)
|
||||
Return type
|
||||
End Function
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Represents the strongly named DataTable class.
|
||||
'''</summary>
|
||||
@@ -2967,6 +3326,143 @@ Partial Public Class DD_ECMAdmin
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Represents strongly named DataRow class.
|
||||
'''</summary>
|
||||
Partial Public Class VWTEMPQUICKVIEWRow
|
||||
Inherits Global.System.Data.DataRow
|
||||
|
||||
Private tableVWTEMPQUICKVIEW As VWTEMPQUICKVIEWDataTable
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
||||
MyBase.New(rb)
|
||||
Me.tableVWTEMPQUICKVIEW = CType(Me.Table, VWTEMPQUICKVIEWDataTable)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property _Record_ID() As Integer
|
||||
Get
|
||||
Return CType(Me(Me.tableVWTEMPQUICKVIEW._Record_IDColumn), Integer)
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
Me(Me.tableVWTEMPQUICKVIEW._Record_IDColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property Aktenzeichen() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn), String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktenzeichen in Tabelle VWTEMPQUICKVIEW ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set(value As String)
|
||||
Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property _Wiedergabe_der_Marke__Bild_() As Byte()
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column), Byte())
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Wiedergabe der Marke (Bild) in Tabelle VWTEMPQUICKVIEW ist DB" & _
|
||||
"Null.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set(value As Byte())
|
||||
Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property Tag_der_Eintragung_im_Register() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn), String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Tag der Eintragung im Register in Tabelle VWTEMPQUICKVIEW ist" & _
|
||||
" DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set(value As String)
|
||||
Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property Aktenzustand() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn), String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktenzustand in Tabelle VWTEMPQUICKVIEW ist DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set(value As String)
|
||||
Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IsAktenzeichenNull() As Boolean
|
||||
Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetAktenzeichenNull()
|
||||
Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) = 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 Is_Wiedergabe_der_Marke__Bild_Null() As Boolean
|
||||
Return Me.IsNull(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub Set_Wiedergabe_der_Marke__Bild_Null()
|
||||
Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) = 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 IsTag_der_Eintragung_im_RegisterNull() As Boolean
|
||||
Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetTag_der_Eintragung_im_RegisterNull()
|
||||
Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) = 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 IsAktenzustandNull() As Boolean
|
||||
Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetAktenzustandNull()
|
||||
Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Represents strongly named DataRow class.
|
||||
'''</summary>
|
||||
@@ -3118,6 +3614,42 @@ Partial Public Class DD_ECMAdmin
|
||||
End Property
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Row event argument class
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Class VWTEMPQUICKVIEWRowChangeEvent
|
||||
Inherits Global.System.EventArgs
|
||||
|
||||
Private eventRow As VWTEMPQUICKVIEWRow
|
||||
|
||||
Private eventAction As Global.System.Data.DataRowAction
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub New(ByVal row As VWTEMPQUICKVIEWRow, ByVal action As Global.System.Data.DataRowAction)
|
||||
MyBase.New()
|
||||
Me.eventRow = row
|
||||
Me.eventAction = action
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property Row() As VWTEMPQUICKVIEWRow
|
||||
Get
|
||||
Return Me.eventRow
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
|
||||
Get
|
||||
Return Me.eventAction
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Row event argument class
|
||||
'''</summary>
|
||||
@@ -4418,6 +4950,184 @@ Namespace DD_ECMAdminTableAdapters
|
||||
End Function
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Represents the connection and commands used to retrieve and save data.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
|
||||
Global.System.ComponentModel.ToolboxItem(True), _
|
||||
Global.System.ComponentModel.DataObjectAttribute(True), _
|
||||
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner" & _
|
||||
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
||||
Partial Public Class VWTEMPQUICKVIEWTableAdapter
|
||||
Inherits Global.System.ComponentModel.Component
|
||||
|
||||
Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter
|
||||
|
||||
Private _connection As Global.System.Data.SqlClient.SqlConnection
|
||||
|
||||
Private _transaction As Global.System.Data.SqlClient.SqlTransaction
|
||||
|
||||
Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand
|
||||
|
||||
Private _clearBeforeFill As Boolean
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub New()
|
||||
MyBase.New()
|
||||
Me.ClearBeforeFill = True
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter
|
||||
Get
|
||||
If (Me._adapter Is Nothing) Then
|
||||
Me.InitAdapter()
|
||||
End If
|
||||
Return Me._adapter
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection
|
||||
Get
|
||||
If (Me._connection Is Nothing) Then
|
||||
Me.InitConnection()
|
||||
End If
|
||||
Return Me._connection
|
||||
End Get
|
||||
Set(value As Global.System.Data.SqlClient.SqlConnection)
|
||||
Me._connection = value
|
||||
If (Not (Me.Adapter.InsertCommand) Is Nothing) Then
|
||||
Me.Adapter.InsertCommand.Connection = value
|
||||
End If
|
||||
If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then
|
||||
Me.Adapter.DeleteCommand.Connection = value
|
||||
End If
|
||||
If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then
|
||||
Me.Adapter.UpdateCommand.Connection = value
|
||||
End If
|
||||
Dim i As Integer = 0
|
||||
Do While (i < Me.CommandCollection.Length)
|
||||
If (Not (Me.CommandCollection(i)) Is Nothing) Then
|
||||
CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value
|
||||
End If
|
||||
i = (i + 1)
|
||||
Loop
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction
|
||||
Get
|
||||
Return Me._transaction
|
||||
End Get
|
||||
Set(value As Global.System.Data.SqlClient.SqlTransaction)
|
||||
Me._transaction = value
|
||||
Dim i As Integer = 0
|
||||
Do While (i < Me.CommandCollection.Length)
|
||||
Me.CommandCollection(i).Transaction = Me._transaction
|
||||
i = (i + 1)
|
||||
Loop
|
||||
If ((Not (Me.Adapter) Is Nothing) _
|
||||
AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then
|
||||
Me.Adapter.DeleteCommand.Transaction = Me._transaction
|
||||
End If
|
||||
If ((Not (Me.Adapter) Is Nothing) _
|
||||
AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then
|
||||
Me.Adapter.InsertCommand.Transaction = Me._transaction
|
||||
End If
|
||||
If ((Not (Me.Adapter) Is Nothing) _
|
||||
AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then
|
||||
Me.Adapter.UpdateCommand.Transaction = Me._transaction
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand()
|
||||
Get
|
||||
If (Me._commandCollection Is Nothing) Then
|
||||
Me.InitCommandCollection()
|
||||
End If
|
||||
Return Me._commandCollection
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property ClearBeforeFill() As Boolean
|
||||
Get
|
||||
Return Me._clearBeforeFill
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
Me._clearBeforeFill = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Private Sub InitAdapter()
|
||||
Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter()
|
||||
Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping()
|
||||
tableMapping.SourceTable = "Table"
|
||||
tableMapping.DataSetTable = "VWTEMPQUICKVIEW"
|
||||
tableMapping.ColumnMappings.Add("Record-ID", "Record-ID")
|
||||
tableMapping.ColumnMappings.Add("Aktenzeichen", "Aktenzeichen")
|
||||
tableMapping.ColumnMappings.Add("Wiedergabe der Marke (Bild)", "Wiedergabe der Marke (Bild)")
|
||||
tableMapping.ColumnMappings.Add("Tag der Eintragung im Register", "Tag der Eintragung im Register")
|
||||
tableMapping.ColumnMappings.Add("Aktenzustand", "Aktenzustand")
|
||||
Me._adapter.TableMappings.Add(tableMapping)
|
||||
End Sub
|
||||
|
||||
<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")> _
|
||||
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 [Record-ID], Aktenzeichen, [Wiedergabe der Marke (Bild)], [Tag der " & _
|
||||
"Eintragung im Register], Aktenzustand" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM VWTEMPQUICKVIEW"
|
||||
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_ECMAdmin.VWTEMPQUICKVIEWDataTable) As Integer
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
||||
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_ECMAdmin.VWTEMPQUICKVIEWDataTable
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
||||
Dim dataTable As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable = New DD_ECMAdmin.VWTEMPQUICKVIEWDataTable()
|
||||
Me.Adapter.Fill(dataTable)
|
||||
Return dataTable
|
||||
End Function
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
|
||||
'''</summary>
|
||||
|
||||
Reference in New Issue
Block a user