'------------------------------------------------------------------------------
'
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
'
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
'''
'''Represents a strongly typed in-memory cache of data.
'''
_
Partial Public Class DSIDB_Stammdaten
Inherits Global.System.Data.DataSet
Private tableTBIDB_BUSINESS_ENTITY As TBIDB_BUSINESS_ENTITYDataTable
Private tableTBIDB_ATTRIBUTE As TBIDB_ATTRIBUTEDataTable
Private tableTBIDB_ATTRIBUTE_TYPE As TBIDB_ATTRIBUTE_TYPEDataTable
Private tableTBZF_ADMIN_SOURCE_SQL As TBZF_ADMIN_SOURCE_SQLDataTable
Private relationFK_TYP_ID As Global.System.Data.DataRelation
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
_
Public Sub New()
MyBase.New
Me.BeginInit
Me.InitClass
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
Me.EndInit
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context, false)
If (Me.IsBinarySerialized(info, context) = true) Then
Me.InitVars(false)
Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
Return
End If
Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
If (Not (ds.Tables("TBIDB_BUSINESS_ENTITY")) Is Nothing) Then
MyBase.Tables.Add(New TBIDB_BUSINESS_ENTITYDataTable(ds.Tables("TBIDB_BUSINESS_ENTITY")))
End If
If (Not (ds.Tables("TBIDB_ATTRIBUTE")) Is Nothing) Then
MyBase.Tables.Add(New TBIDB_ATTRIBUTEDataTable(ds.Tables("TBIDB_ATTRIBUTE")))
End If
If (Not (ds.Tables("TBIDB_ATTRIBUTE_TYPE")) Is Nothing) Then
MyBase.Tables.Add(New TBIDB_ATTRIBUTE_TYPEDataTable(ds.Tables("TBIDB_ATTRIBUTE_TYPE")))
End If
If (Not (ds.Tables("TBZF_ADMIN_SOURCE_SQL")) Is Nothing) Then
MyBase.Tables.Add(New TBZF_ADMIN_SOURCE_SQLDataTable(ds.Tables("TBZF_ADMIN_SOURCE_SQL")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
End If
Me.GetSerializationData(info, context)
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
End Sub
_
Public ReadOnly Property TBIDB_BUSINESS_ENTITY() As TBIDB_BUSINESS_ENTITYDataTable
Get
Return Me.tableTBIDB_BUSINESS_ENTITY
End Get
End Property
_
Public ReadOnly Property TBIDB_ATTRIBUTE() As TBIDB_ATTRIBUTEDataTable
Get
Return Me.tableTBIDB_ATTRIBUTE
End Get
End Property
_
Public ReadOnly Property TBIDB_ATTRIBUTE_TYPE() As TBIDB_ATTRIBUTE_TYPEDataTable
Get
Return Me.tableTBIDB_ATTRIBUTE_TYPE
End Get
End Property
_
Public ReadOnly Property TBZF_ADMIN_SOURCE_SQL() As TBZF_ADMIN_SOURCE_SQLDataTable
Get
Return Me.tableTBZF_ADMIN_SOURCE_SQL
End Get
End Property
_
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
Get
Return Me._schemaSerializationMode
End Get
Set
Me._schemaSerializationMode = value
End Set
End Property
_
Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
Get
Return MyBase.Tables
End Get
End Property
_
Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
Get
Return MyBase.Relations
End Get
End Property
_
Protected Overrides Sub InitializeDerivedDataSet()
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
Public Overrides Function Clone() As Global.System.Data.DataSet
Dim cln As DSIDB_Stammdaten = CType(MyBase.Clone,DSIDB_Stammdaten)
cln.InitVars
cln.SchemaSerializationMode = Me.SchemaSerializationMode
Return cln
End Function
_
Protected Overrides Function ShouldSerializeTables() As Boolean
Return false
End Function
_
Protected Overrides Function ShouldSerializeRelations() As Boolean
Return false
End Function
_
Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Me.Reset
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXml(reader)
If (Not (ds.Tables("TBIDB_BUSINESS_ENTITY")) Is Nothing) Then
MyBase.Tables.Add(New TBIDB_BUSINESS_ENTITYDataTable(ds.Tables("TBIDB_BUSINESS_ENTITY")))
End If
If (Not (ds.Tables("TBIDB_ATTRIBUTE")) Is Nothing) Then
MyBase.Tables.Add(New TBIDB_ATTRIBUTEDataTable(ds.Tables("TBIDB_ATTRIBUTE")))
End If
If (Not (ds.Tables("TBIDB_ATTRIBUTE_TYPE")) Is Nothing) Then
MyBase.Tables.Add(New TBIDB_ATTRIBUTE_TYPEDataTable(ds.Tables("TBIDB_ATTRIBUTE_TYPE")))
End If
If (Not (ds.Tables("TBZF_ADMIN_SOURCE_SQL")) Is Nothing) Then
MyBase.Tables.Add(New TBZF_ADMIN_SOURCE_SQLDataTable(ds.Tables("TBZF_ADMIN_SOURCE_SQL")))
End If
Me.DataSetName = ds.DataSetName
Me.Prefix = ds.Prefix
Me.Namespace = ds.Namespace
Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
Me.InitVars
Else
Me.ReadXml(reader)
Me.InitVars
End If
End Sub
_
Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
stream.Position = 0
Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing)
End Function
_
Friend Overloads Sub InitVars()
Me.InitVars(true)
End Sub
_
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
Me.tableTBIDB_BUSINESS_ENTITY = CType(MyBase.Tables("TBIDB_BUSINESS_ENTITY"),TBIDB_BUSINESS_ENTITYDataTable)
If (initTable = true) Then
If (Not (Me.tableTBIDB_BUSINESS_ENTITY) Is Nothing) Then
Me.tableTBIDB_BUSINESS_ENTITY.InitVars
End If
End If
Me.tableTBIDB_ATTRIBUTE = CType(MyBase.Tables("TBIDB_ATTRIBUTE"),TBIDB_ATTRIBUTEDataTable)
If (initTable = true) Then
If (Not (Me.tableTBIDB_ATTRIBUTE) Is Nothing) Then
Me.tableTBIDB_ATTRIBUTE.InitVars
End If
End If
Me.tableTBIDB_ATTRIBUTE_TYPE = CType(MyBase.Tables("TBIDB_ATTRIBUTE_TYPE"),TBIDB_ATTRIBUTE_TYPEDataTable)
If (initTable = true) Then
If (Not (Me.tableTBIDB_ATTRIBUTE_TYPE) Is Nothing) Then
Me.tableTBIDB_ATTRIBUTE_TYPE.InitVars
End If
End If
Me.tableTBZF_ADMIN_SOURCE_SQL = CType(MyBase.Tables("TBZF_ADMIN_SOURCE_SQL"),TBZF_ADMIN_SOURCE_SQLDataTable)
If (initTable = true) Then
If (Not (Me.tableTBZF_ADMIN_SOURCE_SQL) Is Nothing) Then
Me.tableTBZF_ADMIN_SOURCE_SQL.InitVars
End If
End If
Me.relationFK_TYP_ID = Me.Relations("FK_TYP_ID")
End Sub
_
Private Sub InitClass()
Me.DataSetName = "DSIDB_Stammdaten"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/DSIDB_Stammdaten.xsd"
Me.EnforceConstraints = true
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tableTBIDB_BUSINESS_ENTITY = New TBIDB_BUSINESS_ENTITYDataTable()
MyBase.Tables.Add(Me.tableTBIDB_BUSINESS_ENTITY)
Me.tableTBIDB_ATTRIBUTE = New TBIDB_ATTRIBUTEDataTable()
MyBase.Tables.Add(Me.tableTBIDB_ATTRIBUTE)
Me.tableTBIDB_ATTRIBUTE_TYPE = New TBIDB_ATTRIBUTE_TYPEDataTable()
MyBase.Tables.Add(Me.tableTBIDB_ATTRIBUTE_TYPE)
Me.tableTBZF_ADMIN_SOURCE_SQL = New TBZF_ADMIN_SOURCE_SQLDataTable()
MyBase.Tables.Add(Me.tableTBZF_ADMIN_SOURCE_SQL)
Me.relationFK_TYP_ID = New Global.System.Data.DataRelation("FK_TYP_ID", New Global.System.Data.DataColumn() {Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn}, false)
Me.Relations.Add(Me.relationFK_TYP_ID)
End Sub
_
Private Function ShouldSerializeTBIDB_BUSINESS_ENTITY() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBIDB_ATTRIBUTE() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBIDB_ATTRIBUTE_TYPE() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBZF_ADMIN_SOURCE_SQL() As Boolean
Return false
End Function
_
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars
End If
End Sub
_
Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim ds As DSIDB_Stammdaten = New DSIDB_Stammdaten()
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 any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any.Namespace = ds.Namespace
sequence.Items.Add(any)
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
_
Public Delegate Sub TBIDB_BUSINESS_ENTITYRowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_BUSINESS_ENTITYRowChangeEvent)
_
Public Delegate Sub TBIDB_ATTRIBUTERowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_ATTRIBUTERowChangeEvent)
_
Public Delegate Sub TBIDB_ATTRIBUTE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBIDB_ATTRIBUTE_TYPERowChangeEvent)
_
Public Delegate Sub TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler(ByVal sender As Object, ByVal e As TBZF_ADMIN_SOURCE_SQLRowChangeEvent)
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class TBIDB_BUSINESS_ENTITYDataTable
Inherits Global.System.Data.TypedTableBase(Of TBIDB_BUSINESS_ENTITYRow)
Private columnGUID As Global.System.Data.DataColumn
Private columnPARENT_ENT_ID As Global.System.Data.DataColumn
Private columnTITLE As Global.System.Data.DataColumn
Private columnINHERITS_ATTRIBUTES As Global.System.Data.DataColumn
Private columnCOMMENT As Global.System.Data.DataColumn
Private columnADDED_WHO As Global.System.Data.DataColumn
Private columnADDED_WHEN As Global.System.Data.DataColumn
Private columnCHANGED_WHO As Global.System.Data.DataColumn
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "TBIDB_BUSINESS_ENTITY"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
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
_
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
_
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
_
Public ReadOnly Property PARENT_ENT_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPARENT_ENT_ID
End Get
End Property
_
Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTITLE
End Get
End Property
_
Public ReadOnly Property INHERITS_ATTRIBUTESColumn() As Global.System.Data.DataColumn
Get
Return Me.columnINHERITS_ATTRIBUTES
End Get
End Property
_
Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOMMENT
End Get
End Property
_
Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHO
End Get
End Property
_
Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHEN
End Get
End Property
_
Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHO
End Get
End Property
_
Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHEN
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As TBIDB_BUSINESS_ENTITYRow
Get
Return CType(Me.Rows(index),TBIDB_BUSINESS_ENTITYRow)
End Get
End Property
_
Public Event TBIDB_BUSINESS_ENTITYRowChanging As TBIDB_BUSINESS_ENTITYRowChangeEventHandler
_
Public Event TBIDB_BUSINESS_ENTITYRowChanged As TBIDB_BUSINESS_ENTITYRowChangeEventHandler
_
Public Event TBIDB_BUSINESS_ENTITYRowDeleting As TBIDB_BUSINESS_ENTITYRowChangeEventHandler
_
Public Event TBIDB_BUSINESS_ENTITYRowDeleted As TBIDB_BUSINESS_ENTITYRowChangeEventHandler
_
Public Overloads Sub AddTBIDB_BUSINESS_ENTITYRow(ByVal row As TBIDB_BUSINESS_ENTITYRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBIDB_BUSINESS_ENTITYRow(ByVal PARENT_ENT_ID As Integer, ByVal TITLE As String, ByVal INHERITS_ATTRIBUTES As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBIDB_BUSINESS_ENTITYRow
Dim rowTBIDB_BUSINESS_ENTITYRow As TBIDB_BUSINESS_ENTITYRow = CType(Me.NewRow,TBIDB_BUSINESS_ENTITYRow)
Dim columnValuesArray() As Object = New Object() {Nothing, PARENT_ENT_ID, TITLE, INHERITS_ATTRIBUTES, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
rowTBIDB_BUSINESS_ENTITYRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBIDB_BUSINESS_ENTITYRow)
Return rowTBIDB_BUSINESS_ENTITYRow
End Function
_
Public Function FindByGUID(ByVal GUID As Integer) As TBIDB_BUSINESS_ENTITYRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_BUSINESS_ENTITYRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBIDB_BUSINESS_ENTITYDataTable = CType(MyBase.Clone,TBIDB_BUSINESS_ENTITYDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBIDB_BUSINESS_ENTITYDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnPARENT_ENT_ID = MyBase.Columns("PARENT_ENT_ID")
Me.columnTITLE = MyBase.Columns("TITLE")
Me.columnINHERITS_ATTRIBUTES = MyBase.Columns("INHERITS_ATTRIBUTES")
Me.columnCOMMENT = MyBase.Columns("COMMENT")
Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
End Sub
_
Private Sub InitClass()
Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGUID)
Me.columnPARENT_ENT_ID = New Global.System.Data.DataColumn("PARENT_ENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPARENT_ENT_ID)
Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTITLE)
Me.columnINHERITS_ATTRIBUTES = New Global.System.Data.DataColumn("INHERITS_ATTRIBUTES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnINHERITS_ATTRIBUTES)
Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCOMMENT)
Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnADDED_WHO)
Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnADDED_WHEN)
Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCHANGED_WHO)
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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true
Me.columnGUID.AutoIncrementSeed = 1
Me.columnGUID.AllowDBNull = false
Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true
Me.columnPARENT_ENT_ID.AllowDBNull = false
Me.columnTITLE.AllowDBNull = false
Me.columnTITLE.MaxLength = 500
Me.columnINHERITS_ATTRIBUTES.AllowDBNull = false
Me.columnCOMMENT.MaxLength = 1000
Me.columnADDED_WHO.MaxLength = 30
Me.columnCHANGED_WHO.MaxLength = 30
End Sub
_
Public Function NewTBIDB_BUSINESS_ENTITYRow() As TBIDB_BUSINESS_ENTITYRow
Return CType(Me.NewRow,TBIDB_BUSINESS_ENTITYRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBIDB_BUSINESS_ENTITYRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBIDB_BUSINESS_ENTITYRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBIDB_BUSINESS_ENTITYRowChangedEvent) Is Nothing) Then
RaiseEvent TBIDB_BUSINESS_ENTITYRowChanged(Me, New TBIDB_BUSINESS_ENTITYRowChangeEvent(CType(e.Row,TBIDB_BUSINESS_ENTITYRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBIDB_BUSINESS_ENTITYRowChangingEvent) Is Nothing) Then
RaiseEvent TBIDB_BUSINESS_ENTITYRowChanging(Me, New TBIDB_BUSINESS_ENTITYRowChangeEvent(CType(e.Row,TBIDB_BUSINESS_ENTITYRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBIDB_BUSINESS_ENTITYRowDeletedEvent) Is Nothing) Then
RaiseEvent TBIDB_BUSINESS_ENTITYRowDeleted(Me, New TBIDB_BUSINESS_ENTITYRowChangeEvent(CType(e.Row,TBIDB_BUSINESS_ENTITYRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBIDB_BUSINESS_ENTITYRowDeletingEvent) Is Nothing) Then
RaiseEvent TBIDB_BUSINESS_ENTITYRowDeleting(Me, New TBIDB_BUSINESS_ENTITYRowChangeEvent(CType(e.Row,TBIDB_BUSINESS_ENTITYRow), e.Action))
End If
End Sub
_
Public Sub RemoveTBIDB_BUSINESS_ENTITYRow(ByVal row As TBIDB_BUSINESS_ENTITYRow)
Me.Rows.Remove(row)
End Sub
_
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 DSIDB_Stammdaten = New DSIDB_Stammdaten()
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 = "TBIDB_BUSINESS_ENTITYDataTable"
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
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class TBIDB_ATTRIBUTEDataTable
Inherits Global.System.Data.TypedTableBase(Of TBIDB_ATTRIBUTERow)
Private columnGUID As Global.System.Data.DataColumn
Private columnTITLE As Global.System.Data.DataColumn
Private columnTYP_ID As Global.System.Data.DataColumn
Private columnMULTI_CONTEXT As Global.System.Data.DataColumn
Private columnVIEW_SEQUENCE As Global.System.Data.DataColumn
Private columnVIEW_VISIBLE As Global.System.Data.DataColumn
Private columnCOMMENT As Global.System.Data.DataColumn
Private columnADDED_WHO As Global.System.Data.DataColumn
Private columnADDED_WHEN As Global.System.Data.DataColumn
Private columnCHANGED_WHO As Global.System.Data.DataColumn
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
Private columnDELETED As Global.System.Data.DataColumn
Private columnDELETED_WHO As Global.System.Data.DataColumn
Private columnDELETED_WHEN As Global.System.Data.DataColumn
Private columnATTR_TYPE As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "TBIDB_ATTRIBUTE"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
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
_
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
_
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
_
Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTITLE
End Get
End Property
_
Public ReadOnly Property TYP_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTYP_ID
End Get
End Property
_
Public ReadOnly Property MULTI_CONTEXTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnMULTI_CONTEXT
End Get
End Property
_
Public ReadOnly Property VIEW_SEQUENCEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnVIEW_SEQUENCE
End Get
End Property
_
Public ReadOnly Property VIEW_VISIBLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnVIEW_VISIBLE
End Get
End Property
_
Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOMMENT
End Get
End Property
_
Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHO
End Get
End Property
_
Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHEN
End Get
End Property
_
Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHO
End Get
End Property
_
Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHEN
End Get
End Property
_
Public ReadOnly Property DELETEDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDELETED
End Get
End Property
_
Public ReadOnly Property DELETED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDELETED_WHO
End Get
End Property
_
Public ReadOnly Property DELETED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDELETED_WHEN
End Get
End Property
_
Public ReadOnly Property ATTR_TYPEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_TYPE
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As TBIDB_ATTRIBUTERow
Get
Return CType(Me.Rows(index),TBIDB_ATTRIBUTERow)
End Get
End Property
_
Public Event TBIDB_ATTRIBUTERowChanging As TBIDB_ATTRIBUTERowChangeEventHandler
_
Public Event TBIDB_ATTRIBUTERowChanged As TBIDB_ATTRIBUTERowChangeEventHandler
_
Public Event TBIDB_ATTRIBUTERowDeleting As TBIDB_ATTRIBUTERowChangeEventHandler
_
Public Event TBIDB_ATTRIBUTERowDeleted As TBIDB_ATTRIBUTERowChangeEventHandler
_
Public Overloads Sub AddTBIDB_ATTRIBUTERow(ByVal row As TBIDB_ATTRIBUTERow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBIDB_ATTRIBUTERow(ByVal TITLE As String, ByVal parentTBIDB_ATTRIBUTE_TYPERowByFK_TYP_ID As TBIDB_ATTRIBUTE_TYPERow, ByVal MULTI_CONTEXT As Boolean, ByVal VIEW_SEQUENCE As Integer, ByVal VIEW_VISIBLE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal DELETED As Boolean, ByVal DELETED_WHO As String, ByVal DELETED_WHEN As Date, ByVal ATTR_TYPE As String) As TBIDB_ATTRIBUTERow
Dim rowTBIDB_ATTRIBUTERow As TBIDB_ATTRIBUTERow = CType(Me.NewRow,TBIDB_ATTRIBUTERow)
Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, Nothing, MULTI_CONTEXT, VIEW_SEQUENCE, VIEW_VISIBLE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DELETED, DELETED_WHO, DELETED_WHEN, ATTR_TYPE}
If (Not (parentTBIDB_ATTRIBUTE_TYPERowByFK_TYP_ID) Is Nothing) Then
columnValuesArray(2) = parentTBIDB_ATTRIBUTE_TYPERowByFK_TYP_ID(0)
End If
rowTBIDB_ATTRIBUTERow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBIDB_ATTRIBUTERow)
Return rowTBIDB_ATTRIBUTERow
End Function
_
Public Function FindByGUID(ByVal GUID As Integer) As TBIDB_ATTRIBUTERow
Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_ATTRIBUTERow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBIDB_ATTRIBUTEDataTable = CType(MyBase.Clone,TBIDB_ATTRIBUTEDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBIDB_ATTRIBUTEDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnTITLE = MyBase.Columns("TITLE")
Me.columnTYP_ID = MyBase.Columns("TYP_ID")
Me.columnMULTI_CONTEXT = MyBase.Columns("MULTI_CONTEXT")
Me.columnVIEW_SEQUENCE = MyBase.Columns("VIEW_SEQUENCE")
Me.columnVIEW_VISIBLE = MyBase.Columns("VIEW_VISIBLE")
Me.columnCOMMENT = MyBase.Columns("COMMENT")
Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
Me.columnDELETED = MyBase.Columns("DELETED")
Me.columnDELETED_WHO = MyBase.Columns("DELETED_WHO")
Me.columnDELETED_WHEN = MyBase.Columns("DELETED_WHEN")
Me.columnATTR_TYPE = MyBase.Columns("ATTR_TYPE")
End Sub
_
Private Sub InitClass()
Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGUID)
Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTITLE)
Me.columnTYP_ID = New Global.System.Data.DataColumn("TYP_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTYP_ID)
Me.columnMULTI_CONTEXT = New Global.System.Data.DataColumn("MULTI_CONTEXT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnMULTI_CONTEXT)
Me.columnVIEW_SEQUENCE = New Global.System.Data.DataColumn("VIEW_SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnVIEW_SEQUENCE)
Me.columnVIEW_VISIBLE = New Global.System.Data.DataColumn("VIEW_VISIBLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnVIEW_VISIBLE)
Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCOMMENT)
Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnADDED_WHO)
Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnADDED_WHEN)
Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCHANGED_WHO)
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.columnDELETED = New Global.System.Data.DataColumn("DELETED", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDELETED)
Me.columnDELETED_WHO = New Global.System.Data.DataColumn("DELETED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDELETED_WHO)
Me.columnDELETED_WHEN = New Global.System.Data.DataColumn("DELETED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDELETED_WHEN)
Me.columnATTR_TYPE = New Global.System.Data.DataColumn("ATTR_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_TYPE)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true
Me.columnGUID.AutoIncrementSeed = 1
Me.columnGUID.AllowDBNull = false
Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true
Me.columnTITLE.AllowDBNull = false
Me.columnTITLE.MaxLength = 100
Me.columnTYP_ID.AllowDBNull = false
Me.columnMULTI_CONTEXT.AllowDBNull = false
Me.columnVIEW_SEQUENCE.AllowDBNull = false
Me.columnVIEW_VISIBLE.AllowDBNull = false
Me.columnCOMMENT.MaxLength = 1000
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 30
Me.columnADDED_WHEN.AllowDBNull = false
Me.columnCHANGED_WHO.MaxLength = 30
Me.columnDELETED.AllowDBNull = false
Me.columnDELETED_WHO.MaxLength = 100
Me.columnATTR_TYPE.AllowDBNull = false
Me.columnATTR_TYPE.MaxLength = 100
End Sub
_
Public Function NewTBIDB_ATTRIBUTERow() As TBIDB_ATTRIBUTERow
Return CType(Me.NewRow,TBIDB_ATTRIBUTERow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBIDB_ATTRIBUTERow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBIDB_ATTRIBUTERow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBIDB_ATTRIBUTERowChangedEvent) Is Nothing) Then
RaiseEvent TBIDB_ATTRIBUTERowChanged(Me, New TBIDB_ATTRIBUTERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTERow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBIDB_ATTRIBUTERowChangingEvent) Is Nothing) Then
RaiseEvent TBIDB_ATTRIBUTERowChanging(Me, New TBIDB_ATTRIBUTERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTERow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBIDB_ATTRIBUTERowDeletedEvent) Is Nothing) Then
RaiseEvent TBIDB_ATTRIBUTERowDeleted(Me, New TBIDB_ATTRIBUTERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTERow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBIDB_ATTRIBUTERowDeletingEvent) Is Nothing) Then
RaiseEvent TBIDB_ATTRIBUTERowDeleting(Me, New TBIDB_ATTRIBUTERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTERow), e.Action))
End If
End Sub
_
Public Sub RemoveTBIDB_ATTRIBUTERow(ByVal row As TBIDB_ATTRIBUTERow)
Me.Rows.Remove(row)
End Sub
_
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 DSIDB_Stammdaten = New DSIDB_Stammdaten()
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 = "TBIDB_ATTRIBUTEDataTable"
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
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class TBIDB_ATTRIBUTE_TYPEDataTable
Inherits Global.System.Data.TypedTableBase(Of TBIDB_ATTRIBUTE_TYPERow)
Private columnGUID As Global.System.Data.DataColumn
Private columnNAME_TYPE As Global.System.Data.DataColumn
Private columnCOMMENT As Global.System.Data.DataColumn
Private columnBIT1 As Global.System.Data.DataColumn
Private columnBIT2 As Global.System.Data.DataColumn
Private columnBIT3 As Global.System.Data.DataColumn
Private columnBIT4 As Global.System.Data.DataColumn
Private columnADDED_WHO As Global.System.Data.DataColumn
Private columnADDED_WHEN As Global.System.Data.DataColumn
Private columnCHANGED_WHO As Global.System.Data.DataColumn
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "TBIDB_ATTRIBUTE_TYPE"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
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
_
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
_
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
_
Public ReadOnly Property NAME_TYPEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNAME_TYPE
End Get
End Property
_
Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOMMENT
End Get
End Property
_
Public ReadOnly Property BIT1Column() As Global.System.Data.DataColumn
Get
Return Me.columnBIT1
End Get
End Property
_
Public ReadOnly Property BIT2Column() As Global.System.Data.DataColumn
Get
Return Me.columnBIT2
End Get
End Property
_
Public ReadOnly Property BIT3Column() As Global.System.Data.DataColumn
Get
Return Me.columnBIT3
End Get
End Property
_
Public ReadOnly Property BIT4Column() As Global.System.Data.DataColumn
Get
Return Me.columnBIT4
End Get
End Property
_
Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHO
End Get
End Property
_
Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHEN
End Get
End Property
_
Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHO
End Get
End Property
_
Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHEN
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As TBIDB_ATTRIBUTE_TYPERow
Get
Return CType(Me.Rows(index),TBIDB_ATTRIBUTE_TYPERow)
End Get
End Property
_
Public Event TBIDB_ATTRIBUTE_TYPERowChanging As TBIDB_ATTRIBUTE_TYPERowChangeEventHandler
_
Public Event TBIDB_ATTRIBUTE_TYPERowChanged As TBIDB_ATTRIBUTE_TYPERowChangeEventHandler
_
Public Event TBIDB_ATTRIBUTE_TYPERowDeleting As TBIDB_ATTRIBUTE_TYPERowChangeEventHandler
_
Public Event TBIDB_ATTRIBUTE_TYPERowDeleted As TBIDB_ATTRIBUTE_TYPERowChangeEventHandler
_
Public Overloads Sub AddTBIDB_ATTRIBUTE_TYPERow(ByVal row As TBIDB_ATTRIBUTE_TYPERow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBIDB_ATTRIBUTE_TYPERow(ByVal GUID As Byte, ByVal NAME_TYPE As String, ByVal COMMENT As String, ByVal BIT1 As Boolean, ByVal BIT2 As Boolean, ByVal BIT3 As Boolean, ByVal BIT4 As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBIDB_ATTRIBUTE_TYPERow
Dim rowTBIDB_ATTRIBUTE_TYPERow As TBIDB_ATTRIBUTE_TYPERow = CType(Me.NewRow,TBIDB_ATTRIBUTE_TYPERow)
Dim columnValuesArray() As Object = New Object() {GUID, NAME_TYPE, COMMENT, BIT1, BIT2, BIT3, BIT4, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
rowTBIDB_ATTRIBUTE_TYPERow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBIDB_ATTRIBUTE_TYPERow)
Return rowTBIDB_ATTRIBUTE_TYPERow
End Function
_
Public Function FindByGUID(ByVal GUID As Byte) As TBIDB_ATTRIBUTE_TYPERow
Return CType(Me.Rows.Find(New Object() {GUID}),TBIDB_ATTRIBUTE_TYPERow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBIDB_ATTRIBUTE_TYPEDataTable = CType(MyBase.Clone,TBIDB_ATTRIBUTE_TYPEDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBIDB_ATTRIBUTE_TYPEDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnNAME_TYPE = MyBase.Columns("NAME_TYPE")
Me.columnCOMMENT = MyBase.Columns("COMMENT")
Me.columnBIT1 = MyBase.Columns("BIT1")
Me.columnBIT2 = MyBase.Columns("BIT2")
Me.columnBIT3 = MyBase.Columns("BIT3")
Me.columnBIT4 = MyBase.Columns("BIT4")
Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
End Sub
_
Private Sub InitClass()
Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGUID)
Me.columnNAME_TYPE = New Global.System.Data.DataColumn("NAME_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnNAME_TYPE)
Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCOMMENT)
Me.columnBIT1 = New Global.System.Data.DataColumn("BIT1", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBIT1)
Me.columnBIT2 = New Global.System.Data.DataColumn("BIT2", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBIT2)
Me.columnBIT3 = New Global.System.Data.DataColumn("BIT3", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBIT3)
Me.columnBIT4 = New Global.System.Data.DataColumn("BIT4", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBIT4)
Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnADDED_WHO)
Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnADDED_WHEN)
Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCHANGED_WHO)
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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AllowDBNull = false
Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true
Me.columnNAME_TYPE.AllowDBNull = false
Me.columnNAME_TYPE.MaxLength = 100
Me.columnCOMMENT.MaxLength = 500
Me.columnBIT1.AllowDBNull = false
Me.columnBIT2.AllowDBNull = false
Me.columnBIT3.AllowDBNull = false
Me.columnBIT4.AllowDBNull = false
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 30
Me.columnCHANGED_WHO.MaxLength = 30
End Sub
_
Public Function NewTBIDB_ATTRIBUTE_TYPERow() As TBIDB_ATTRIBUTE_TYPERow
Return CType(Me.NewRow,TBIDB_ATTRIBUTE_TYPERow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBIDB_ATTRIBUTE_TYPERow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBIDB_ATTRIBUTE_TYPERow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBIDB_ATTRIBUTE_TYPERowChangedEvent) Is Nothing) Then
RaiseEvent TBIDB_ATTRIBUTE_TYPERowChanged(Me, New TBIDB_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTE_TYPERow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBIDB_ATTRIBUTE_TYPERowChangingEvent) Is Nothing) Then
RaiseEvent TBIDB_ATTRIBUTE_TYPERowChanging(Me, New TBIDB_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTE_TYPERow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBIDB_ATTRIBUTE_TYPERowDeletedEvent) Is Nothing) Then
RaiseEvent TBIDB_ATTRIBUTE_TYPERowDeleted(Me, New TBIDB_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTE_TYPERow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBIDB_ATTRIBUTE_TYPERowDeletingEvent) Is Nothing) Then
RaiseEvent TBIDB_ATTRIBUTE_TYPERowDeleting(Me, New TBIDB_ATTRIBUTE_TYPERowChangeEvent(CType(e.Row,TBIDB_ATTRIBUTE_TYPERow), e.Action))
End If
End Sub
_
Public Sub RemoveTBIDB_ATTRIBUTE_TYPERow(ByVal row As TBIDB_ATTRIBUTE_TYPERow)
Me.Rows.Remove(row)
End Sub
_
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 DSIDB_Stammdaten = New DSIDB_Stammdaten()
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 = "TBIDB_ATTRIBUTE_TYPEDataTable"
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
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class TBZF_ADMIN_SOURCE_SQLDataTable
Inherits Global.System.Data.TypedTableBase(Of TBZF_ADMIN_SOURCE_SQLRow)
Private columnGUID As Global.System.Data.DataColumn
Private columnENTITY_TITLE As Global.System.Data.DataColumn
Private columnPK_COLUMN As Global.System.Data.DataColumn
Private columnCOMMENT As Global.System.Data.DataColumn
Private columnSQL_COMMAND As Global.System.Data.DataColumn
Private columnADDED_WHO As Global.System.Data.DataColumn
Private columnADDED_WHEN As Global.System.Data.DataColumn
Private columnCHANGED_WHO As Global.System.Data.DataColumn
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "TBZF_ADMIN_SOURCE_SQL"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
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
_
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
_
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
_
Public ReadOnly Property ENTITY_TITLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnENTITY_TITLE
End Get
End Property
_
Public ReadOnly Property PK_COLUMNColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPK_COLUMN
End Get
End Property
_
Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOMMENT
End Get
End Property
_
Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_COMMAND
End Get
End Property
_
Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHO
End Get
End Property
_
Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHEN
End Get
End Property
_
Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHO
End Get
End Property
_
Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHEN
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As TBZF_ADMIN_SOURCE_SQLRow
Get
Return CType(Me.Rows(index),TBZF_ADMIN_SOURCE_SQLRow)
End Get
End Property
_
Public Event TBZF_ADMIN_SOURCE_SQLRowChanging As TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler
_
Public Event TBZF_ADMIN_SOURCE_SQLRowChanged As TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler
_
Public Event TBZF_ADMIN_SOURCE_SQLRowDeleting As TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler
_
Public Event TBZF_ADMIN_SOURCE_SQLRowDeleted As TBZF_ADMIN_SOURCE_SQLRowChangeEventHandler
_
Public Overloads Sub AddTBZF_ADMIN_SOURCE_SQLRow(ByVal row As TBZF_ADMIN_SOURCE_SQLRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBZF_ADMIN_SOURCE_SQLRow(ByVal ENTITY_TITLE As String, ByVal PK_COLUMN As String, ByVal COMMENT As String, ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBZF_ADMIN_SOURCE_SQLRow
Dim rowTBZF_ADMIN_SOURCE_SQLRow As TBZF_ADMIN_SOURCE_SQLRow = CType(Me.NewRow,TBZF_ADMIN_SOURCE_SQLRow)
Dim columnValuesArray() As Object = New Object() {Nothing, ENTITY_TITLE, PK_COLUMN, COMMENT, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
rowTBZF_ADMIN_SOURCE_SQLRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBZF_ADMIN_SOURCE_SQLRow)
Return rowTBZF_ADMIN_SOURCE_SQLRow
End Function
_
Public Function FindByGUID(ByVal GUID As Integer) As TBZF_ADMIN_SOURCE_SQLRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBZF_ADMIN_SOURCE_SQLRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBZF_ADMIN_SOURCE_SQLDataTable = CType(MyBase.Clone,TBZF_ADMIN_SOURCE_SQLDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBZF_ADMIN_SOURCE_SQLDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnENTITY_TITLE = MyBase.Columns("ENTITY_TITLE")
Me.columnPK_COLUMN = MyBase.Columns("PK_COLUMN")
Me.columnCOMMENT = MyBase.Columns("COMMENT")
Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND")
Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
End Sub
_
Private Sub InitClass()
Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGUID)
Me.columnENTITY_TITLE = New Global.System.Data.DataColumn("ENTITY_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnENTITY_TITLE)
Me.columnPK_COLUMN = New Global.System.Data.DataColumn("PK_COLUMN", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPK_COLUMN)
Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCOMMENT)
Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSQL_COMMAND)
Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnADDED_WHO)
Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnADDED_WHEN)
Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCHANGED_WHO)
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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true
Me.columnGUID.AutoIncrementSeed = -1
Me.columnGUID.AutoIncrementStep = -1
Me.columnGUID.AllowDBNull = false
Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true
Me.columnENTITY_TITLE.AllowDBNull = false
Me.columnENTITY_TITLE.MaxLength = 100
Me.columnPK_COLUMN.AllowDBNull = false
Me.columnPK_COLUMN.MaxLength = 100
Me.columnCOMMENT.MaxLength = 500
Me.columnSQL_COMMAND.AllowDBNull = false
Me.columnSQL_COMMAND.MaxLength = 2147483647
Me.columnADDED_WHO.MaxLength = 30
Me.columnCHANGED_WHO.MaxLength = 30
End Sub
_
Public Function NewTBZF_ADMIN_SOURCE_SQLRow() As TBZF_ADMIN_SOURCE_SQLRow
Return CType(Me.NewRow,TBZF_ADMIN_SOURCE_SQLRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBZF_ADMIN_SOURCE_SQLRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBZF_ADMIN_SOURCE_SQLRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBZF_ADMIN_SOURCE_SQLRowChangedEvent) Is Nothing) Then
RaiseEvent TBZF_ADMIN_SOURCE_SQLRowChanged(Me, New TBZF_ADMIN_SOURCE_SQLRowChangeEvent(CType(e.Row,TBZF_ADMIN_SOURCE_SQLRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBZF_ADMIN_SOURCE_SQLRowChangingEvent) Is Nothing) Then
RaiseEvent TBZF_ADMIN_SOURCE_SQLRowChanging(Me, New TBZF_ADMIN_SOURCE_SQLRowChangeEvent(CType(e.Row,TBZF_ADMIN_SOURCE_SQLRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBZF_ADMIN_SOURCE_SQLRowDeletedEvent) Is Nothing) Then
RaiseEvent TBZF_ADMIN_SOURCE_SQLRowDeleted(Me, New TBZF_ADMIN_SOURCE_SQLRowChangeEvent(CType(e.Row,TBZF_ADMIN_SOURCE_SQLRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBZF_ADMIN_SOURCE_SQLRowDeletingEvent) Is Nothing) Then
RaiseEvent TBZF_ADMIN_SOURCE_SQLRowDeleting(Me, New TBZF_ADMIN_SOURCE_SQLRowChangeEvent(CType(e.Row,TBZF_ADMIN_SOURCE_SQLRow), e.Action))
End If
End Sub
_
Public Sub RemoveTBZF_ADMIN_SOURCE_SQLRow(ByVal row As TBZF_ADMIN_SOURCE_SQLRow)
Me.Rows.Remove(row)
End Sub
_
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 DSIDB_Stammdaten = New DSIDB_Stammdaten()
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 = "TBZF_ADMIN_SOURCE_SQLDataTable"
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
'''
'''Represents strongly named DataRow class.
'''
Partial Public Class TBIDB_BUSINESS_ENTITYRow
Inherits Global.System.Data.DataRow
Private tableTBIDB_BUSINESS_ENTITY As TBIDB_BUSINESS_ENTITYDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBIDB_BUSINESS_ENTITY = CType(Me.Table,TBIDB_BUSINESS_ENTITYDataTable)
End Sub
_
Public Property GUID() As Integer
Get
Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.GUIDColumn),Integer)
End Get
Set
Me(Me.tableTBIDB_BUSINESS_ENTITY.GUIDColumn) = value
End Set
End Property
_
Public Property PARENT_ENT_ID() As Integer
Get
Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.PARENT_ENT_IDColumn),Integer)
End Get
Set
Me(Me.tableTBIDB_BUSINESS_ENTITY.PARENT_ENT_IDColumn) = value
End Set
End Property
_
Public Property TITLE() As String
Get
Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.TITLEColumn),String)
End Get
Set
Me(Me.tableTBIDB_BUSINESS_ENTITY.TITLEColumn) = value
End Set
End Property
_
Public Property INHERITS_ATTRIBUTES() As Boolean
Get
Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.INHERITS_ATTRIBUTESColumn),Boolean)
End Get
Set
Me(Me.tableTBIDB_BUSINESS_ENTITY.INHERITS_ATTRIBUTESColumn) = value
End Set
End Property
_
Public Property COMMENT() As String
Get
Try
Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = value
End Set
End Property
_
Public Property ADDED_WHO() As String
Get
Try
Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn) = value
End Set
End Property
_
Public Property ADDED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) = value
End Set
End Property
_
Public Property CHANGED_WHO() As String
Get
Try
Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) = value
End Set
End Property
_
Public Property CHANGED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_BUSINESS_ENTITY ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) = value
End Set
End Property
_
Public Function IsCOMMENTNull() As Boolean
Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn)
End Function
_
Public Sub SetCOMMENTNull()
Me(Me.tableTBIDB_BUSINESS_ENTITY.COMMENTColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsADDED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn)
End Function
_
Public Sub SetADDED_WHONull()
Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHOColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn)
End Function
_
Public Sub SetADDED_WHENNull()
Me(Me.tableTBIDB_BUSINESS_ENTITY.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsCHANGED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn)
End Function
_
Public Sub SetCHANGED_WHONull()
Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHOColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsCHANGED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn)
End Function
_
Public Sub SetCHANGED_WHENNull()
Me(Me.tableTBIDB_BUSINESS_ENTITY.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''
'''Represents strongly named DataRow class.
'''
Partial Public Class TBIDB_ATTRIBUTERow
Inherits Global.System.Data.DataRow
Private tableTBIDB_ATTRIBUTE As TBIDB_ATTRIBUTEDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBIDB_ATTRIBUTE = CType(Me.Table,TBIDB_ATTRIBUTEDataTable)
End Sub
_
Public Property GUID() As Integer
Get
Return CType(Me(Me.tableTBIDB_ATTRIBUTE.GUIDColumn),Integer)
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE.GUIDColumn) = value
End Set
End Property
_
Public Property TITLE() As String
Get
Return CType(Me(Me.tableTBIDB_ATTRIBUTE.TITLEColumn),String)
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE.TITLEColumn) = value
End Set
End Property
_
Public Property TYP_ID() As Byte
Get
Return CType(Me(Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn),Byte)
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE.TYP_IDColumn) = value
End Set
End Property
_
Public Property MULTI_CONTEXT() As Boolean
Get
Return CType(Me(Me.tableTBIDB_ATTRIBUTE.MULTI_CONTEXTColumn),Boolean)
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE.MULTI_CONTEXTColumn) = value
End Set
End Property
_
Public Property VIEW_SEQUENCE() As Integer
Get
Return CType(Me(Me.tableTBIDB_ATTRIBUTE.VIEW_SEQUENCEColumn),Integer)
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE.VIEW_SEQUENCEColumn) = value
End Set
End Property
_
Public Property VIEW_VISIBLE() As Boolean
Get
Return CType(Me(Me.tableTBIDB_ATTRIBUTE.VIEW_VISIBLEColumn),Boolean)
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE.VIEW_VISIBLEColumn) = value
End Set
End Property
_
Public Property COMMENT() As String
Get
Try
Return CType(Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) = value
End Set
End Property
_
Public Property ADDED_WHO() As String
Get
Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHOColumn),String)
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHOColumn) = value
End Set
End Property
_
Public Property ADDED_WHEN() As Date
Get
Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHENColumn),Date)
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE.ADDED_WHENColumn) = value
End Set
End Property
_
Public Property CHANGED_WHO() As String
Get
Try
Return CType(Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) = value
End Set
End Property
_
Public Property CHANGED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) = value
End Set
End Property
_
Public Property DELETED() As Boolean
Get
Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETEDColumn),Boolean)
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE.DELETEDColumn) = value
End Set
End Property
_
Public Property DELETED_WHO() As String
Get
Try
Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DELETED_WHO in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) = value
End Set
End Property
_
Public Property DELETED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DELETED_WHEN in Tabelle TBIDB_ATTRIBUTE ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) = value
End Set
End Property
_
Public Property ATTR_TYPE() As String
Get
Return CType(Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn),String)
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE.ATTR_TYPEColumn) = value
End Set
End Property
_
Public Property TBIDB_ATTRIBUTE_TYPERow() As TBIDB_ATTRIBUTE_TYPERow
Get
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TYP_ID")),TBIDB_ATTRIBUTE_TYPERow)
End Get
Set
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TYP_ID"))
End Set
End Property
_
Public Function IsCOMMENTNull() As Boolean
Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn)
End Function
_
Public Sub SetCOMMENTNull()
Me(Me.tableTBIDB_ATTRIBUTE.COMMENTColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsCHANGED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn)
End Function
_
Public Sub SetCHANGED_WHONull()
Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHOColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsCHANGED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn)
End Function
_
Public Sub SetCHANGED_WHENNull()
Me(Me.tableTBIDB_ATTRIBUTE.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsDELETED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn)
End Function
_
Public Sub SetDELETED_WHONull()
Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHOColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsDELETED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn)
End Function
_
Public Sub SetDELETED_WHENNull()
Me(Me.tableTBIDB_ATTRIBUTE.DELETED_WHENColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''
'''Represents strongly named DataRow class.
'''
Partial Public Class TBIDB_ATTRIBUTE_TYPERow
Inherits Global.System.Data.DataRow
Private tableTBIDB_ATTRIBUTE_TYPE As TBIDB_ATTRIBUTE_TYPEDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBIDB_ATTRIBUTE_TYPE = CType(Me.Table,TBIDB_ATTRIBUTE_TYPEDataTable)
End Sub
_
Public Property GUID() As Byte
Get
Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn),Byte)
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE_TYPE.GUIDColumn) = value
End Set
End Property
_
Public Property NAME_TYPE() As String
Get
Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.NAME_TYPEColumn),String)
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE_TYPE.NAME_TYPEColumn) = value
End Set
End Property
_
Public Property COMMENT() As String
Get
Try
Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) = value
End Set
End Property
_
Public Property BIT1() As Boolean
Get
Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT1Column),Boolean)
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT1Column) = value
End Set
End Property
_
Public Property BIT2() As Boolean
Get
Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT2Column),Boolean)
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT2Column) = value
End Set
End Property
_
Public Property BIT3() As Boolean
Get
Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT3Column),Boolean)
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT3Column) = value
End Set
End Property
_
Public Property BIT4() As Boolean
Get
Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT4Column),Boolean)
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE_TYPE.BIT4Column) = value
End Set
End Property
_
Public Property ADDED_WHO() As String
Get
Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHOColumn),String)
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHOColumn) = value
End Set
End Property
_
Public Property ADDED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = value
End Set
End Property
_
Public Property CHANGED_WHO() As String
Get
Try
Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) = value
End Set
End Property
_
Public Property CHANGED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBIDB_ATTRIBUTE_TYPE ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) = value
End Set
End Property
_
Public Function IsCOMMENTNull() As Boolean
Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn)
End Function
_
Public Sub SetCOMMENTNull()
Me(Me.tableTBIDB_ATTRIBUTE_TYPE.COMMENTColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn)
End Function
_
Public Sub SetADDED_WHENNull()
Me(Me.tableTBIDB_ATTRIBUTE_TYPE.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsCHANGED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn)
End Function
_
Public Sub SetCHANGED_WHONull()
Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHOColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsCHANGED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn)
End Function
_
Public Sub SetCHANGED_WHENNull()
Me(Me.tableTBIDB_ATTRIBUTE_TYPE.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function GetTBIDB_ATTRIBUTERows() As TBIDB_ATTRIBUTERow()
If (Me.Table.ChildRelations("FK_TYP_ID") Is Nothing) Then
Return New TBIDB_ATTRIBUTERow(-1) {}
Else
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TYP_ID")),TBIDB_ATTRIBUTERow())
End If
End Function
End Class
'''
'''Represents strongly named DataRow class.
'''
Partial Public Class TBZF_ADMIN_SOURCE_SQLRow
Inherits Global.System.Data.DataRow
Private tableTBZF_ADMIN_SOURCE_SQL As TBZF_ADMIN_SOURCE_SQLDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBZF_ADMIN_SOURCE_SQL = CType(Me.Table,TBZF_ADMIN_SOURCE_SQLDataTable)
End Sub
_
Public Property GUID() As Integer
Get
Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.GUIDColumn),Integer)
End Get
Set
Me(Me.tableTBZF_ADMIN_SOURCE_SQL.GUIDColumn) = value
End Set
End Property
_
Public Property ENTITY_TITLE() As String
Get
Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ENTITY_TITLEColumn),String)
End Get
Set
Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ENTITY_TITLEColumn) = value
End Set
End Property
_
Public Property PK_COLUMN() As String
Get
Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PK_COLUMNColumn),String)
End Get
Set
Me(Me.tableTBZF_ADMIN_SOURCE_SQL.PK_COLUMNColumn) = value
End Set
End Property
_
Public Property COMMENT() As String
Get
Try
Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBZF_ADMIN_SOURCE_SQL.COMMENTColumn) = value
End Set
End Property
_
Public Property SQL_COMMAND() As String
Get
Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SQL_COMMANDColumn),String)
End Get
Set
Me(Me.tableTBZF_ADMIN_SOURCE_SQL.SQL_COMMANDColumn) = value
End Set
End Property
_
Public Property ADDED_WHO() As String
Get
Try
Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHOColumn) = value
End Set
End Property
_
Public Property ADDED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBZF_ADMIN_SOURCE_SQL ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBZF_ADMIN_SOURCE_SQL.ADDED_WHENColumn) = value
End Set
End Property