ms
This commit is contained in:
SchreiberM
628
app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb
generated
628
app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb
generated
@@ -45,6 +45,8 @@ Partial Public Class DD_ECMAdmin
|
||||
|
||||
Private tableVWDD_LOGIN_USER_HISTORY As VWDD_LOGIN_USER_HISTORYDataTable
|
||||
|
||||
Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable
|
||||
|
||||
Private tableDT_VORSCHAU As DT_VORSCHAUDataTable
|
||||
|
||||
Private tableTBAD_Users As TBAD_UsersDataTable
|
||||
@@ -114,6 +116,9 @@ Partial Public Class DD_ECMAdmin
|
||||
If (Not (ds.Tables("VWDD_LOGIN_USER_HISTORY")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New VWDD_LOGIN_USER_HISTORYDataTable(ds.Tables("VWDD_LOGIN_USER_HISTORY")))
|
||||
End If
|
||||
If (Not (ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable(ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID")))
|
||||
End If
|
||||
If (Not (ds.Tables("DT_VORSCHAU")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New DT_VORSCHAUDataTable(ds.Tables("DT_VORSCHAU")))
|
||||
End If
|
||||
@@ -243,6 +248,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 TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID() As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable
|
||||
Get
|
||||
Return Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID
|
||||
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), _
|
||||
@@ -380,6 +395,9 @@ Partial Public Class DD_ECMAdmin
|
||||
If (Not (ds.Tables("VWDD_LOGIN_USER_HISTORY")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New VWDD_LOGIN_USER_HISTORYDataTable(ds.Tables("VWDD_LOGIN_USER_HISTORY")))
|
||||
End If
|
||||
If (Not (ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable(ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID")))
|
||||
End If
|
||||
If (Not (ds.Tables("DT_VORSCHAU")) Is Nothing) Then
|
||||
MyBase.Tables.Add(New DT_VORSCHAUDataTable(ds.Tables("DT_VORSCHAU")))
|
||||
End If
|
||||
@@ -484,6 +502,12 @@ Partial Public Class DD_ECMAdmin
|
||||
Me.tableVWDD_LOGIN_USER_HISTORY.InitVars
|
||||
End If
|
||||
End If
|
||||
Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID = CType(MyBase.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID"),TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable)
|
||||
If (initTable = true) Then
|
||||
If (Not (Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID) Is Nothing) Then
|
||||
Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.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
|
||||
@@ -539,6 +563,8 @@ Partial Public Class DD_ECMAdmin
|
||||
MyBase.Tables.Add(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG)
|
||||
Me.tableVWDD_LOGIN_USER_HISTORY = New VWDD_LOGIN_USER_HISTORYDataTable()
|
||||
MyBase.Tables.Add(Me.tableVWDD_LOGIN_USER_HISTORY)
|
||||
Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID = New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable()
|
||||
MyBase.Tables.Add(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID)
|
||||
Me.tableDT_VORSCHAU = New DT_VORSCHAUDataTable()
|
||||
MyBase.Tables.Add(Me.tableDT_VORSCHAU)
|
||||
Me.tableTBAD_Users = New TBAD_UsersDataTable()
|
||||
@@ -611,6 +637,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 ShouldSerializeTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID() 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
|
||||
@@ -723,6 +755,9 @@ Partial Public Class DD_ECMAdmin
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Delegate Sub VWDD_LOGIN_USER_HISTORYRowChangeEventHandler(ByVal sender As Object, ByVal e As VWDD_LOGIN_USER_HISTORYRowChangeEvent)
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Delegate Sub TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent)
|
||||
|
||||
<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)
|
||||
|
||||
@@ -4921,6 +4956,274 @@ 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 TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable
|
||||
Inherits Global.System.Data.TypedTableBase(Of TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow)
|
||||
|
||||
Private columnName As Global.System.Data.DataColumn
|
||||
|
||||
Private columnID 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 = "TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID"
|
||||
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 NameColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnName
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
|
||||
Get
|
||||
Return Me.columnID
|
||||
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")> _
|
||||
Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow
|
||||
Get
|
||||
Return CType(Me.Rows(index),TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanging As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanged As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleting As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler
|
||||
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleted As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Overloads Sub AddTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow)
|
||||
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 AddTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow(ByVal Name As String, ByVal ID As Byte) As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow
|
||||
Dim rowTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow = CType(Me.NewRow,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow)
|
||||
Dim columnValuesArray() As Object = New Object() {Name, ID}
|
||||
rowTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow.ItemArray = columnValuesArray
|
||||
Me.Rows.Add(rowTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow)
|
||||
Return rowTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow
|
||||
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 TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable = CType(MyBase.Clone,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable)
|
||||
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 TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable()
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Friend Sub InitVars()
|
||||
Me.columnName = MyBase.Columns("Name")
|
||||
Me.columnID = MyBase.Columns("ID")
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Private Sub InitClass()
|
||||
Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnName)
|
||||
Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
|
||||
MyBase.Columns.Add(Me.columnID)
|
||||
Me.columnName.ReadOnly = true
|
||||
Me.columnName.MaxLength = 10
|
||||
Me.columnID.ReadOnly = true
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function NewTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow() As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow
|
||||
Return CType(Me.NewRow,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow)
|
||||
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 TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow(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(TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow)
|
||||
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.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangedEvent) Is Nothing) Then
|
||||
RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanged(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow), 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.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangingEvent) Is Nothing) Then
|
||||
RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanging(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow), 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.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeletedEvent) Is Nothing) Then
|
||||
RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleted(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow), 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.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeletingEvent) Is Nothing) Then
|
||||
RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleting(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow), 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 RemoveTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow)
|
||||
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 = "TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable"
|
||||
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>
|
||||
@@ -8442,6 +8745,78 @@ Partial Public Class DD_ECMAdmin
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Represents strongly named DataRow class.
|
||||
'''</summary>
|
||||
Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow
|
||||
Inherits Global.System.Data.DataRow
|
||||
|
||||
Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable
|
||||
|
||||
<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.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID = CType(Me.Table,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable)
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property Name() As String
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.NameColumn),String)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID ist"& _
|
||||
" DBNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.NameColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Property ID() As Byte
|
||||
Get
|
||||
Try
|
||||
Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.IDColumn),Byte)
|
||||
Catch e As Global.System.InvalidCastException
|
||||
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID ist D"& _
|
||||
"BNull.", e)
|
||||
End Try
|
||||
End Get
|
||||
Set
|
||||
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.IDColumn) = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Function IsNameNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.NameColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetNameNull()
|
||||
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.NameColumn) = 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 IsIDNull() As Boolean
|
||||
Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.IDColumn)
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _
|
||||
Public Sub SetIDNull()
|
||||
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.IDColumn) = Global.System.Convert.DBNull
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
'''<summary>
|
||||
'''Represents strongly named DataRow class.
|
||||
'''</summary>
|
||||
@@ -9379,6 +9754,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 TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent
|
||||
Inherits Global.System.EventArgs
|
||||
|
||||
Private eventRow As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow
|
||||
|
||||
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 TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow, 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 TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow
|
||||
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>
|
||||
@@ -12942,6 +13353,223 @@ 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 TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter
|
||||
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
|
||||
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
|
||||
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
|
||||
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 = "TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID"
|
||||
tableMapping.ColumnMappings.Add("Name", "Name")
|
||||
tableMapping.ColumnMappings.Add("ID", "ID")
|
||||
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(2) {}
|
||||
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(0).Connection = Me.Connection
|
||||
Me._commandCollection(0).CommandText = "SELECT CONVERT(TINYINT, 1) AS ID, 'TextBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _
|
||||
"CONVERT(TINYINT, 2) AS ID, 'CheckBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT(TINY"& _
|
||||
"INT, 3) AS ID, 'ComboBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT(TINYINT, 4) AS I"& _
|
||||
"D, 'DatePicker' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG"
|
||||
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 CONVERT(TINYINT, 1) AS ID, 'TextBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _
|
||||
"CONVERT(TINYINT, 2) AS ID, 'CheckBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT(TINY"& _
|
||||
"INT, 3) AS ID, 'ComboBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT(TINYINT, 4) AS I"& _
|
||||
"D, 'DatePicker' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG"
|
||||
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(2).Connection = Me.Connection
|
||||
Me._commandCollection(2).CommandText = "SELECT CONVERT(TINYINT, 1) AS ID, 'TextBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _
|
||||
"CONVERT(TINYINT, 2) AS ID, 'CheckBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT(TINY"& _
|
||||
"INT, 3) AS ID, 'ComboBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT(TINYINT, 4) AS I"& _
|
||||
"D, 'DatePicker' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG"
|
||||
Me._commandCollection(2).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 Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable) 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 Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
||||
Dim dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable = New DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable()
|
||||
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"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
||||
Public Overloads Overridable Function FillBy(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable) As Integer
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(1)
|
||||
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.Fill, false)> _
|
||||
Public Overloads Overridable Function FillBy1(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable) As Integer
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(2)
|
||||
If (Me.ClearBeforeFill = true) Then
|
||||
dataTable.Clear
|
||||
End If
|
||||
Dim returnValue As Integer = Me.Adapter.Fill(dataTable)
|
||||
Return returnValue
|
||||
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