'------------------------------------------------------------------------------
'
' 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 DSDD_Stammdaten
Inherits Global.System.Data.DataSet
Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable
Private tableTBDD_USER As TBDD_USERDataTable
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("TBDD_CONNECTION")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION")))
End If
If (Not (ds.Tables("TBDD_USER")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_USERDataTable(ds.Tables("TBDD_USER")))
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 TBDD_CONNECTION() As TBDD_CONNECTIONDataTable
Get
Return Me.tableTBDD_CONNECTION
End Get
End Property
_
Public ReadOnly Property TBDD_USER() As TBDD_USERDataTable
Get
Return Me.tableTBDD_USER
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 DSDD_Stammdaten = CType(MyBase.Clone,DSDD_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("TBDD_CONNECTION")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION")))
End If
If (Not (ds.Tables("TBDD_USER")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_USERDataTable(ds.Tables("TBDD_USER")))
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.tableTBDD_CONNECTION = CType(MyBase.Tables("TBDD_CONNECTION"),TBDD_CONNECTIONDataTable)
If (initTable = true) Then
If (Not (Me.tableTBDD_CONNECTION) Is Nothing) Then
Me.tableTBDD_CONNECTION.InitVars
End If
End If
Me.tableTBDD_USER = CType(MyBase.Tables("TBDD_USER"),TBDD_USERDataTable)
If (initTable = true) Then
If (Not (Me.tableTBDD_USER) Is Nothing) Then
Me.tableTBDD_USER.InitVars
End If
End If
End Sub
_
Private Sub InitClass()
Me.DataSetName = "DSDD_Stammdaten"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/DSDD_Stammdaten.xsd"
Me.EnforceConstraints = true
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tableTBDD_CONNECTION = New TBDD_CONNECTIONDataTable()
MyBase.Tables.Add(Me.tableTBDD_CONNECTION)
Me.tableTBDD_USER = New TBDD_USERDataTable()
MyBase.Tables.Add(Me.tableTBDD_USER)
End Sub
_
Private Function ShouldSerializeTBDD_CONNECTION() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBDD_USER() 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 DSDD_Stammdaten = New DSDD_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 TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent)
_
Public Delegate Sub TBDD_USERRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_USERRowChangeEvent)
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class TBDD_CONNECTIONDataTable
Inherits Global.System.Data.TypedTableBase(Of TBDD_CONNECTIONRow)
Private columnGUID As Global.System.Data.DataColumn
Private columnBEZEICHNUNG As Global.System.Data.DataColumn
Private columnSQL_PROVIDER As Global.System.Data.DataColumn
Private columnSERVER As Global.System.Data.DataColumn
Private columnDATENBANK As Global.System.Data.DataColumn
Private columnUSERNAME As Global.System.Data.DataColumn
Private columnPASSWORD As Global.System.Data.DataColumn
Private columnBEMERKUNG As Global.System.Data.DataColumn
Private columnAKTIV As Global.System.Data.DataColumn
Private columnERSTELLTWER As Global.System.Data.DataColumn
Private columnERSTELLTWANN As Global.System.Data.DataColumn
Private columnGEANDERTWER As Global.System.Data.DataColumn
Private columnGEAENDERTWANN As Global.System.Data.DataColumn
Private columnSYS_CONNECTION As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "TBDD_CONNECTION"
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 BEZEICHNUNGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBEZEICHNUNG
End Get
End Property
_
Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_PROVIDER
End Get
End Property
_
Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSERVER
End Get
End Property
_
Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDATENBANK
End Get
End Property
_
Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUSERNAME
End Get
End Property
_
Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPASSWORD
End Get
End Property
_
Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBEMERKUNG
End Get
End Property
_
Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn
Get
Return Me.columnAKTIV
End Get
End Property
_
Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn
Get
Return Me.columnERSTELLTWER
End Get
End Property
_
Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn
Get
Return Me.columnERSTELLTWANN
End Get
End Property
_
Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGEANDERTWER
End Get
End Property
_
Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGEAENDERTWANN
End Get
End Property
_
Public ReadOnly Property SYS_CONNECTIONColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSYS_CONNECTION
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 TBDD_CONNECTIONRow
Get
Return CType(Me.Rows(index),TBDD_CONNECTIONRow)
End Get
End Property
_
Public Event TBDD_CONNECTIONRowChanging As TBDD_CONNECTIONRowChangeEventHandler
_
Public Event TBDD_CONNECTIONRowChanged As TBDD_CONNECTIONRowChangeEventHandler
_
Public Event TBDD_CONNECTIONRowDeleting As TBDD_CONNECTIONRowChangeEventHandler
_
Public Event TBDD_CONNECTIONRowDeleted As TBDD_CONNECTIONRowChangeEventHandler
_
Public Overloads Sub AddTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBDD_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal SYS_CONNECTION As Boolean) As TBDD_CONNECTIONRow
Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow,TBDD_CONNECTIONRow)
Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION}
rowTBDD_CONNECTIONRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBDD_CONNECTIONRow)
Return rowTBDD_CONNECTIONRow
End Function
_
Public Function FindByGUID(ByVal GUID As Short) As TBDD_CONNECTIONRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CONNECTIONRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone,TBDD_CONNECTIONDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBDD_CONNECTIONDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG")
Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER")
Me.columnSERVER = MyBase.Columns("SERVER")
Me.columnDATENBANK = MyBase.Columns("DATENBANK")
Me.columnUSERNAME = MyBase.Columns("USERNAME")
Me.columnPASSWORD = MyBase.Columns("PASSWORD")
Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG")
Me.columnAKTIV = MyBase.Columns("AKTIV")
Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER")
Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN")
Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER")
Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN")
Me.columnSYS_CONNECTION = MyBase.Columns("SYS_CONNECTION")
End Sub
_
Private Sub InitClass()
Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGUID)
Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBEZEICHNUNG)
Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSQL_PROVIDER)
Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSERVER)
Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDATENBANK)
Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnUSERNAME)
Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPASSWORD)
Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBEMERKUNG)
Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnAKTIV)
Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnERSTELLTWER)
Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnERSTELLTWANN)
Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGEANDERTWER)
Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGEAENDERTWANN)
Me.columnSYS_CONNECTION = New Global.System.Data.DataColumn("SYS_CONNECTION", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSYS_CONNECTION)
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.columnBEZEICHNUNG.MaxLength = 100
Me.columnSQL_PROVIDER.MaxLength = 50
Me.columnSERVER.MaxLength = 150
Me.columnDATENBANK.MaxLength = 100
Me.columnUSERNAME.MaxLength = 100
Me.columnPASSWORD.MaxLength = 100
Me.columnBEMERKUNG.MaxLength = 400
Me.columnAKTIV.AllowDBNull = false
Me.columnERSTELLTWER.AllowDBNull = false
Me.columnERSTELLTWER.MaxLength = 50
Me.columnGEANDERTWER.MaxLength = 50
Me.columnSYS_CONNECTION.AllowDBNull = false
End Sub
_
Public Function NewTBDD_CONNECTIONRow() As TBDD_CONNECTIONRow
Return CType(Me.NewRow,TBDD_CONNECTIONRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBDD_CONNECTIONRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBDD_CONNECTIONRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBDD_CONNECTIONRowChangedEvent) Is Nothing) Then
RaiseEvent TBDD_CONNECTIONRowChanged(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBDD_CONNECTIONRowChangingEvent) Is Nothing) Then
RaiseEvent TBDD_CONNECTIONRowChanging(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBDD_CONNECTIONRowDeletedEvent) Is Nothing) Then
RaiseEvent TBDD_CONNECTIONRowDeleted(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBDD_CONNECTIONRowDeletingEvent) Is Nothing) Then
RaiseEvent TBDD_CONNECTIONRowDeleting(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action))
End If
End Sub
_
Public Sub RemoveTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow)
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 DSDD_Stammdaten = New DSDD_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 = "TBDD_CONNECTIONDataTable"
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 TBDD_USERDataTable
Inherits Global.System.Data.TypedTableBase(Of TBDD_USERRow)
Private columnGUID As Global.System.Data.DataColumn
Private columnPRENAME As Global.System.Data.DataColumn
Private columnNAME As Global.System.Data.DataColumn
Private columnUSERNAME As Global.System.Data.DataColumn
Private columnSHORTNAME As Global.System.Data.DataColumn
Private columnEMAIL As Global.System.Data.DataColumn
Private columnLANGUAGE As Global.System.Data.DataColumn
Private columnGENERAL_VIEWER As Global.System.Data.DataColumn
Private columnCOMMENT As Global.System.Data.DataColumn
Private columnWAN_ENVIRONMENT As Global.System.Data.DataColumn
Private columnUSERID_FK_INT_ECM As Global.System.Data.DataColumn
Private columnATTR_CHAR1 As Global.System.Data.DataColumn
Private columnATTR_CHAR2 As Global.System.Data.DataColumn
Private columnATTR_CHAR3 As Global.System.Data.DataColumn
Private columnATTR_CHAR4 As Global.System.Data.DataColumn
Private columnATTR_CHAR5 As Global.System.Data.DataColumn
Private columnATTR_CHAR6 As Global.System.Data.DataColumn
Private columnATTR_CHAR7 As Global.System.Data.DataColumn
Private columnATTR_CHAR8 As Global.System.Data.DataColumn
Private columnATTR_CHAR9 As Global.System.Data.DataColumn
Private columnATTR_CHAR10 As Global.System.Data.DataColumn
Private columnATTR_CHAR11 As Global.System.Data.DataColumn
Private columnATTR_CHAR12 As Global.System.Data.DataColumn
Private columnATTR_CHAR13 As Global.System.Data.DataColumn
Private columnATTR_CHAR14 As Global.System.Data.DataColumn
Private columnATTR_CHAR15 As Global.System.Data.DataColumn
Private columnATTR_BIT1 As Global.System.Data.DataColumn
Private columnATTR_BIT2 As Global.System.Data.DataColumn
Private columnATTR_BIT3 As Global.System.Data.DataColumn
Private columnATTR_BIT4 As Global.System.Data.DataColumn
Private columnDELETED As Global.System.Data.DataColumn
Private columnDELETED_WHEN As Global.System.Data.DataColumn
Private columnDELETED_WHO As Global.System.Data.DataColumn
Private columnDATE_FORMAT 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 = "TBDD_USER"
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 PRENAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPRENAME
End Get
End Property
_
Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNAME
End Get
End Property
_
Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUSERNAME
End Get
End Property
_
Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSHORTNAME
End Get
End Property
_
Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn
Get
Return Me.columnEMAIL
End Get
End Property
_
Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLANGUAGE
End Get
End Property
_
Public ReadOnly Property GENERAL_VIEWERColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGENERAL_VIEWER
End Get
End Property
_
Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOMMENT
End Get
End Property
_
Public ReadOnly Property WAN_ENVIRONMENTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnWAN_ENVIRONMENT
End Get
End Property
_
Public ReadOnly Property USERID_FK_INT_ECMColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUSERID_FK_INT_ECM
End Get
End Property
_
Public ReadOnly Property ATTR_CHAR1Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_CHAR1
End Get
End Property
_
Public ReadOnly Property ATTR_CHAR2Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_CHAR2
End Get
End Property
_
Public ReadOnly Property ATTR_CHAR3Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_CHAR3
End Get
End Property
_
Public ReadOnly Property ATTR_CHAR4Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_CHAR4
End Get
End Property
_
Public ReadOnly Property ATTR_CHAR5Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_CHAR5
End Get
End Property
_
Public ReadOnly Property ATTR_CHAR6Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_CHAR6
End Get
End Property
_
Public ReadOnly Property ATTR_CHAR7Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_CHAR7
End Get
End Property
_
Public ReadOnly Property ATTR_CHAR8Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_CHAR8
End Get
End Property
_
Public ReadOnly Property ATTR_CHAR9Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_CHAR9
End Get
End Property
_
Public ReadOnly Property ATTR_CHAR10Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_CHAR10
End Get
End Property
_
Public ReadOnly Property ATTR_CHAR11Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_CHAR11
End Get
End Property
_
Public ReadOnly Property ATTR_CHAR12Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_CHAR12
End Get
End Property
_
Public ReadOnly Property ATTR_CHAR13Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_CHAR13
End Get
End Property
_
Public ReadOnly Property ATTR_CHAR14Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_CHAR14
End Get
End Property
_
Public ReadOnly Property ATTR_CHAR15Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_CHAR15
End Get
End Property
_
Public ReadOnly Property ATTR_BIT1Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_BIT1
End Get
End Property
_
Public ReadOnly Property ATTR_BIT2Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_BIT2
End Get
End Property
_
Public ReadOnly Property ATTR_BIT3Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_BIT3
End Get
End Property
_
Public ReadOnly Property ATTR_BIT4Column() As Global.System.Data.DataColumn
Get
Return Me.columnATTR_BIT4
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_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDELETED_WHEN
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 DATE_FORMATColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDATE_FORMAT
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 TBDD_USERRow
Get
Return CType(Me.Rows(index),TBDD_USERRow)
End Get
End Property
_
Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler
_
Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler
_
Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler
_
Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler
_
Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBDD_USERRow( _
ByVal PRENAME As String, _
ByVal NAME As String, _
ByVal USERNAME As String, _
ByVal SHORTNAME As String, _
ByVal EMAIL As String, _
ByVal LANGUAGE As String, _
ByVal GENERAL_VIEWER As String, _
ByVal COMMENT As String, _
ByVal WAN_ENVIRONMENT As Boolean, _
ByVal USERID_FK_INT_ECM As Integer, _
ByVal ATTR_CHAR1 As String, _
ByVal ATTR_CHAR2 As String, _
ByVal ATTR_CHAR3 As String, _
ByVal ATTR_CHAR4 As String, _
ByVal ATTR_CHAR5 As String, _
ByVal ATTR_CHAR6 As String, _
ByVal ATTR_CHAR7 As String, _
ByVal ATTR_CHAR8 As String, _
ByVal ATTR_CHAR9 As String, _
ByVal ATTR_CHAR10 As String, _
ByVal ATTR_CHAR11 As String, _
ByVal ATTR_CHAR12 As String, _
ByVal ATTR_CHAR13 As String, _
ByVal ATTR_CHAR14 As String, _
ByVal ATTR_CHAR15 As String, _
ByVal ATTR_BIT1 As Boolean, _
ByVal ATTR_BIT2 As Boolean, _
ByVal ATTR_BIT3 As Boolean, _
ByVal ATTR_BIT4 As Boolean, _
ByVal DELETED As Boolean, _
ByVal DELETED_WHEN As Date, _
ByVal DELETED_WHO As Date, _
ByVal DATE_FORMAT As String, _
ByVal ADDED_WHO As String, _
ByVal ADDED_WHEN As Date, _
ByVal CHANGED_WHO As String, _
ByVal CHANGED_WHEN As Date) As TBDD_USERRow
Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow)
Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, SHORTNAME, EMAIL, LANGUAGE, GENERAL_VIEWER, COMMENT, WAN_ENVIRONMENT, USERID_FK_INT_ECM, ATTR_CHAR1, ATTR_CHAR2, ATTR_CHAR3, ATTR_CHAR4, ATTR_CHAR5, ATTR_CHAR6, ATTR_CHAR7, ATTR_CHAR8, ATTR_CHAR9, ATTR_CHAR10, ATTR_CHAR11, ATTR_CHAR12, ATTR_CHAR13, ATTR_CHAR14, ATTR_CHAR15, ATTR_BIT1, ATTR_BIT2, ATTR_BIT3, ATTR_BIT4, DELETED, DELETED_WHEN, DELETED_WHO, DATE_FORMAT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
rowTBDD_USERRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBDD_USERRow)
Return rowTBDD_USERRow
End Function
_
Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USERRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USERRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBDD_USERDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnPRENAME = MyBase.Columns("PRENAME")
Me.columnNAME = MyBase.Columns("NAME")
Me.columnUSERNAME = MyBase.Columns("USERNAME")
Me.columnSHORTNAME = MyBase.Columns("SHORTNAME")
Me.columnEMAIL = MyBase.Columns("EMAIL")
Me.columnLANGUAGE = MyBase.Columns("LANGUAGE")
Me.columnGENERAL_VIEWER = MyBase.Columns("GENERAL_VIEWER")
Me.columnCOMMENT = MyBase.Columns("COMMENT")
Me.columnWAN_ENVIRONMENT = MyBase.Columns("WAN_ENVIRONMENT")
Me.columnUSERID_FK_INT_ECM = MyBase.Columns("USERID_FK_INT_ECM")
Me.columnATTR_CHAR1 = MyBase.Columns("ATTR_CHAR1")
Me.columnATTR_CHAR2 = MyBase.Columns("ATTR_CHAR2")
Me.columnATTR_CHAR3 = MyBase.Columns("ATTR_CHAR3")
Me.columnATTR_CHAR4 = MyBase.Columns("ATTR_CHAR4")
Me.columnATTR_CHAR5 = MyBase.Columns("ATTR_CHAR5")
Me.columnATTR_CHAR6 = MyBase.Columns("ATTR_CHAR6")
Me.columnATTR_CHAR7 = MyBase.Columns("ATTR_CHAR7")
Me.columnATTR_CHAR8 = MyBase.Columns("ATTR_CHAR8")
Me.columnATTR_CHAR9 = MyBase.Columns("ATTR_CHAR9")
Me.columnATTR_CHAR10 = MyBase.Columns("ATTR_CHAR10")
Me.columnATTR_CHAR11 = MyBase.Columns("ATTR_CHAR11")
Me.columnATTR_CHAR12 = MyBase.Columns("ATTR_CHAR12")
Me.columnATTR_CHAR13 = MyBase.Columns("ATTR_CHAR13")
Me.columnATTR_CHAR14 = MyBase.Columns("ATTR_CHAR14")
Me.columnATTR_CHAR15 = MyBase.Columns("ATTR_CHAR15")
Me.columnATTR_BIT1 = MyBase.Columns("ATTR_BIT1")
Me.columnATTR_BIT2 = MyBase.Columns("ATTR_BIT2")
Me.columnATTR_BIT3 = MyBase.Columns("ATTR_BIT3")
Me.columnATTR_BIT4 = MyBase.Columns("ATTR_BIT4")
Me.columnDELETED = MyBase.Columns("DELETED")
Me.columnDELETED_WHEN = MyBase.Columns("DELETED_WHEN")
Me.columnDELETED_WHO = MyBase.Columns("DELETED_WHO")
Me.columnDATE_FORMAT = MyBase.Columns("DATE_FORMAT")
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.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPRENAME)
Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnNAME)
Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnUSERNAME)
Me.columnSHORTNAME = New Global.System.Data.DataColumn("SHORTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSHORTNAME)
Me.columnEMAIL = New Global.System.Data.DataColumn("EMAIL", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnEMAIL)
Me.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnLANGUAGE)
Me.columnGENERAL_VIEWER = New Global.System.Data.DataColumn("GENERAL_VIEWER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGENERAL_VIEWER)
Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCOMMENT)
Me.columnWAN_ENVIRONMENT = New Global.System.Data.DataColumn("WAN_ENVIRONMENT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnWAN_ENVIRONMENT)
Me.columnUSERID_FK_INT_ECM = New Global.System.Data.DataColumn("USERID_FK_INT_ECM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnUSERID_FK_INT_ECM)
Me.columnATTR_CHAR1 = New Global.System.Data.DataColumn("ATTR_CHAR1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_CHAR1)
Me.columnATTR_CHAR2 = New Global.System.Data.DataColumn("ATTR_CHAR2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_CHAR2)
Me.columnATTR_CHAR3 = New Global.System.Data.DataColumn("ATTR_CHAR3", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_CHAR3)
Me.columnATTR_CHAR4 = New Global.System.Data.DataColumn("ATTR_CHAR4", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_CHAR4)
Me.columnATTR_CHAR5 = New Global.System.Data.DataColumn("ATTR_CHAR5", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_CHAR5)
Me.columnATTR_CHAR6 = New Global.System.Data.DataColumn("ATTR_CHAR6", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_CHAR6)
Me.columnATTR_CHAR7 = New Global.System.Data.DataColumn("ATTR_CHAR7", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_CHAR7)
Me.columnATTR_CHAR8 = New Global.System.Data.DataColumn("ATTR_CHAR8", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_CHAR8)
Me.columnATTR_CHAR9 = New Global.System.Data.DataColumn("ATTR_CHAR9", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_CHAR9)
Me.columnATTR_CHAR10 = New Global.System.Data.DataColumn("ATTR_CHAR10", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_CHAR10)
Me.columnATTR_CHAR11 = New Global.System.Data.DataColumn("ATTR_CHAR11", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_CHAR11)
Me.columnATTR_CHAR12 = New Global.System.Data.DataColumn("ATTR_CHAR12", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_CHAR12)
Me.columnATTR_CHAR13 = New Global.System.Data.DataColumn("ATTR_CHAR13", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_CHAR13)
Me.columnATTR_CHAR14 = New Global.System.Data.DataColumn("ATTR_CHAR14", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_CHAR14)
Me.columnATTR_CHAR15 = New Global.System.Data.DataColumn("ATTR_CHAR15", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_CHAR15)
Me.columnATTR_BIT1 = New Global.System.Data.DataColumn("ATTR_BIT1", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_BIT1)
Me.columnATTR_BIT2 = New Global.System.Data.DataColumn("ATTR_BIT2", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_BIT2)
Me.columnATTR_BIT3 = New Global.System.Data.DataColumn("ATTR_BIT3", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_BIT3)
Me.columnATTR_BIT4 = New Global.System.Data.DataColumn("ATTR_BIT4", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnATTR_BIT4)
Me.columnDELETED = New Global.System.Data.DataColumn("DELETED", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDELETED)
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.columnDELETED_WHO = New Global.System.Data.DataColumn("DELETED_WHO", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDELETED_WHO)
Me.columnDATE_FORMAT = New Global.System.Data.DataColumn("DATE_FORMAT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDATE_FORMAT)
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.columnPRENAME.MaxLength = 50
Me.columnNAME.MaxLength = 50
Me.columnUSERNAME.AllowDBNull = false
Me.columnUSERNAME.MaxLength = 50
Me.columnSHORTNAME.MaxLength = 30
Me.columnEMAIL.MaxLength = 100
Me.columnLANGUAGE.AllowDBNull = false
Me.columnLANGUAGE.MaxLength = 5
Me.columnGENERAL_VIEWER.AllowDBNull = false
Me.columnGENERAL_VIEWER.MaxLength = 30
Me.columnCOMMENT.MaxLength = 500
Me.columnWAN_ENVIRONMENT.AllowDBNull = false
Me.columnUSERID_FK_INT_ECM.AllowDBNull = false
Me.columnATTR_CHAR1.MaxLength = 250
Me.columnATTR_CHAR2.MaxLength = 250
Me.columnATTR_CHAR3.MaxLength = 250
Me.columnATTR_CHAR4.MaxLength = 250
Me.columnATTR_CHAR5.MaxLength = 250
Me.columnATTR_CHAR6.MaxLength = 250
Me.columnATTR_CHAR7.MaxLength = 250
Me.columnATTR_CHAR8.MaxLength = 250
Me.columnATTR_CHAR9.MaxLength = 250
Me.columnATTR_CHAR10.MaxLength = 250
Me.columnATTR_CHAR11.MaxLength = 250
Me.columnATTR_CHAR12.MaxLength = 250
Me.columnATTR_CHAR13.MaxLength = 250
Me.columnATTR_CHAR14.MaxLength = 250
Me.columnATTR_CHAR15.MaxLength = 250
Me.columnATTR_BIT1.AllowDBNull = false
Me.columnATTR_BIT2.AllowDBNull = false
Me.columnATTR_BIT3.AllowDBNull = false
Me.columnATTR_BIT4.AllowDBNull = false
Me.columnDELETED.AllowDBNull = false
Me.columnDATE_FORMAT.AllowDBNull = false
Me.columnDATE_FORMAT.MaxLength = 10
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50
End Sub
_
Public Function NewTBDD_USERRow() As TBDD_USERRow
Return CType(Me.NewRow,TBDD_USERRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBDD_USERRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBDD_USERRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBDD_USERRowChangedEvent) Is Nothing) Then
RaiseEvent TBDD_USERRowChanged(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBDD_USERRowChangingEvent) Is Nothing) Then
RaiseEvent TBDD_USERRowChanging(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBDD_USERRowDeletedEvent) Is Nothing) Then
RaiseEvent TBDD_USERRowDeleted(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBDD_USERRowDeletingEvent) Is Nothing) Then
RaiseEvent TBDD_USERRowDeleting(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action))
End If
End Sub
_
Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow)
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 DSDD_Stammdaten = New DSDD_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 = "TBDD_USERDataTable"
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 TBDD_CONNECTIONRow
Inherits Global.System.Data.DataRow
Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable)
End Sub
_
Public Property GUID() As Short
Get
Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short)
End Get
Set
Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value
End Set
End Property
_
Public Property BEZEICHNUNG() As String
Get
Try
Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_CONNECTION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value
End Set
End Property
_
Public Property SQL_PROVIDER() As String
Get
Try
Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBDD_CONNECTION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value
End Set
End Property
_
Public Property SERVER() As String
Get
Try
Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBDD_CONNECTION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value
End Set
End Property
_
Public Property DATENBANK() As String
Get
Try
Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value
End Set
End Property
_
Public Property USERNAME() As String
Get
Try
Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBDD_CONNECTION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value
End Set
End Property
_
Public Property PASSWORD() As String
Get
Try
Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value
End Set
End Property
_
Public Property BEMERKUNG() As String
Get
Try
Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value
End Set
End Property
_
Public Property AKTIV() As Boolean
Get
Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean)
End Get
Set
Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value
End Set
End Property
_
Public Property ERSTELLTWER() As String
Get
Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String)
End Get
Set
Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value
End Set
End Property
_
Public Property ERSTELLTWANN() As Date
Get
Try
Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value
End Set
End Property
_
Public Property GEANDERTWER() As String
Get
Try
Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_CONNECTION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value
End Set
End Property
_
Public Property GEAENDERTWANN() As Date
Get
Try
Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value
End Set
End Property
_
Public Property SYS_CONNECTION() As Boolean
Get
Return CType(Me(Me.tableTBDD_CONNECTION.SYS_CONNECTIONColumn),Boolean)
End Get
Set
Me(Me.tableTBDD_CONNECTION.SYS_CONNECTIONColumn) = value
End Set
End Property
_
Public Function IsBEZEICHNUNGNull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn)
End Function
_
Public Sub SetBEZEICHNUNGNull()
Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsSQL_PROVIDERNull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn)
End Function
_
Public Sub SetSQL_PROVIDERNull()
Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsSERVERNull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn)
End Function
_
Public Sub SetSERVERNull()
Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsDATENBANKNull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn)
End Function
_
Public Sub SetDATENBANKNull()
Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsUSERNAMENull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn)
End Function
_
Public Sub SetUSERNAMENull()
Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsPASSWORDNull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn)
End Function
_
Public Sub SetPASSWORDNull()
Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsBEMERKUNGNull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn)
End Function
_
Public Sub SetBEMERKUNGNull()
Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsERSTELLTWANNNull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn)
End Function
_
Public Sub SetERSTELLTWANNNull()
Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsGEANDERTWERNull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn)
End Function
_
Public Sub SetGEANDERTWERNull()
Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsGEAENDERTWANNNull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn)
End Function
_
Public Sub SetGEAENDERTWANNNull()
Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''
'''Represents strongly named DataRow class.
'''
Partial Public Class TBDD_USERRow
Inherits Global.System.Data.DataRow
Private tableTBDD_USER As TBDD_USERDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBDD_USER = CType(Me.Table,TBDD_USERDataTable)
End Sub
_
Public Property GUID() As Integer
Get
Return CType(Me(Me.tableTBDD_USER.GUIDColumn),Integer)
End Get
Set
Me(Me.tableTBDD_USER.GUIDColumn) = value
End Set
End Property
_
Public Property PRENAME() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.PRENAMEColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.PRENAMEColumn) = value
End Set
End Property
_
Public Property NAME() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.NAMEColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.NAMEColumn) = value
End Set
End Property
_
Public Property USERNAME() As String
Get
Return CType(Me(Me.tableTBDD_USER.USERNAMEColumn),String)
End Get
Set
Me(Me.tableTBDD_USER.USERNAMEColumn) = value
End Set
End Property
_
Public Property SHORTNAME() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.SHORTNAMEColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORTNAME in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.SHORTNAMEColumn) = value
End Set
End Property
_
Public Property EMAIL() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.EMAILColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.EMAILColumn) = value
End Set
End Property
_
Public Property LANGUAGE() As String
Get
Return CType(Me(Me.tableTBDD_USER.LANGUAGEColumn),String)
End Get
Set
Me(Me.tableTBDD_USER.LANGUAGEColumn) = value
End Set
End Property
_
Public Property GENERAL_VIEWER() As String
Get
Return CType(Me(Me.tableTBDD_USER.GENERAL_VIEWERColumn),String)
End Get
Set
Me(Me.tableTBDD_USER.GENERAL_VIEWERColumn) = value
End Set
End Property
_
Public Property COMMENT() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.COMMENTColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.COMMENTColumn) = value
End Set
End Property
_
Public Property WAN_ENVIRONMENT() As Boolean
Get
Return CType(Me(Me.tableTBDD_USER.WAN_ENVIRONMENTColumn),Boolean)
End Get
Set
Me(Me.tableTBDD_USER.WAN_ENVIRONMENTColumn) = value
End Set
End Property
_
Public Property USERID_FK_INT_ECM() As Integer
Get
Return CType(Me(Me.tableTBDD_USER.USERID_FK_INT_ECMColumn),Integer)
End Get
Set
Me(Me.tableTBDD_USER.USERID_FK_INT_ECMColumn) = value
End Set
End Property
_
Public Property ATTR_CHAR1() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR1Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR1 in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.ATTR_CHAR1Column) = value
End Set
End Property
_
Public Property ATTR_CHAR2() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR2Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR2 in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.ATTR_CHAR2Column) = value
End Set
End Property
_
Public Property ATTR_CHAR3() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR3Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR3 in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.ATTR_CHAR3Column) = value
End Set
End Property
_
Public Property ATTR_CHAR4() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR4Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR4 in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.ATTR_CHAR4Column) = value
End Set
End Property
_
Public Property ATTR_CHAR5() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR5Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR5 in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.ATTR_CHAR5Column) = value
End Set
End Property
_
Public Property ATTR_CHAR6() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR6Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR6 in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.ATTR_CHAR6Column) = value
End Set
End Property
_
Public Property ATTR_CHAR7() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR7Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR7 in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.ATTR_CHAR7Column) = value
End Set
End Property
_
Public Property ATTR_CHAR8() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR8Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR8 in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.ATTR_CHAR8Column) = value
End Set
End Property
_
Public Property ATTR_CHAR9() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR9Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR9 in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.ATTR_CHAR9Column) = value
End Set
End Property
_
Public Property ATTR_CHAR10() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR10Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR10 in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.ATTR_CHAR10Column) = value
End Set
End Property
_
Public Property ATTR_CHAR11() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR11Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR11 in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.ATTR_CHAR11Column) = value
End Set
End Property
_
Public Property ATTR_CHAR12() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR12Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR12 in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.ATTR_CHAR12Column) = value
End Set
End Property
_
Public Property ATTR_CHAR13() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR13Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR13 in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.ATTR_CHAR13Column) = value
End Set
End Property
_
Public Property ATTR_CHAR14() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR14Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR14 in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.ATTR_CHAR14Column) = value
End Set
End Property
_
Public Property ATTR_CHAR15() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.ATTR_CHAR15Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ATTR_CHAR15 in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.ATTR_CHAR15Column) = value
End Set
End Property
_
Public Property ATTR_BIT1() As Boolean
Get
Return CType(Me(Me.tableTBDD_USER.ATTR_BIT1Column),Boolean)
End Get
Set
Me(Me.tableTBDD_USER.ATTR_BIT1Column) = value
End Set
End Property
_
Public Property ATTR_BIT2() As Boolean
Get
Return CType(Me(Me.tableTBDD_USER.ATTR_BIT2Column),Boolean)
End Get
Set
Me(Me.tableTBDD_USER.ATTR_BIT2Column) = value
End Set
End Property
_
Public Property ATTR_BIT3() As Boolean
Get
Return CType(Me(Me.tableTBDD_USER.ATTR_BIT3Column),Boolean)
End Get
Set
Me(Me.tableTBDD_USER.ATTR_BIT3Column) = value
End Set
End Property
_
Public Property ATTR_BIT4() As Boolean
Get
Return CType(Me(Me.tableTBDD_USER.ATTR_BIT4Column),Boolean)
End Get
Set
Me(Me.tableTBDD_USER.ATTR_BIT4Column) = value
End Set
End Property
_
Public Property DELETED() As Boolean
Get
Return CType(Me(Me.tableTBDD_USER.DELETEDColumn),Boolean)
End Get
Set
Me(Me.tableTBDD_USER.DELETEDColumn) = value
End Set
End Property
_
Public Property DELETED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBDD_USER.DELETED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DELETED_WHEN in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.DELETED_WHENColumn) = value
End Set
End Property
_
Public Property DELETED_WHO() As Date
Get
Try
Return CType(Me(Me.tableTBDD_USER.DELETED_WHOColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DELETED_WHO in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.DELETED_WHOColumn) = value
End Set
End Property
_
Public Property DATE_FORMAT() As String
Get
Return CType(Me(Me.tableTBDD_USER.DATE_FORMATColumn),String)
End Get
Set
Me(Me.tableTBDD_USER.DATE_FORMATColumn) = value
End Set
End Property
_
Public Property ADDED_WHO() As String
Get
Return CType(Me(Me.tableTBDD_USER.ADDED_WHOColumn),String)
End Get
Set
Me(Me.tableTBDD_USER.ADDED_WHOColumn) = value
End Set
End Property
_
Public Property ADDED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBDD_USER.ADDED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.ADDED_WHENColumn) = value
End Set
End Property
_
Public Property CHANGED_WHO() As String
Get
Try
Return CType(Me(Me.tableTBDD_USER.CHANGED_WHOColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = value
End Set
End Property
_
Public Property CHANGED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBDD_USER.CHANGED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_USER ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = value
End Set
End Property
_
Public Function IsPRENAMENull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.PRENAMEColumn)
End Function
_
Public Sub SetPRENAMENull()
Me(Me.tableTBDD_USER.PRENAMEColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsNAMENull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.NAMEColumn)
End Function
_
Public Sub SetNAMENull()
Me(Me.tableTBDD_USER.NAMEColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsSHORTNAMENull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.SHORTNAMEColumn)
End Function
_
Public Sub SetSHORTNAMENull()
Me(Me.tableTBDD_USER.SHORTNAMEColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsEMAILNull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.EMAILColumn)
End Function
_
Public Sub SetEMAILNull()
Me(Me.tableTBDD_USER.EMAILColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsCOMMENTNull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.COMMENTColumn)
End Function
_
Public Sub SetCOMMENTNull()
Me(Me.tableTBDD_USER.COMMENTColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsATTR_CHAR1Null() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR1Column)
End Function
_
Public Sub SetATTR_CHAR1Null()
Me(Me.tableTBDD_USER.ATTR_CHAR1Column) = Global.System.Convert.DBNull
End Sub
_
Public Function IsATTR_CHAR2Null() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR2Column)
End Function
_
Public Sub SetATTR_CHAR2Null()
Me(Me.tableTBDD_USER.ATTR_CHAR2Column) = Global.System.Convert.DBNull
End Sub
_
Public Function IsATTR_CHAR3Null() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR3Column)
End Function
_
Public Sub SetATTR_CHAR3Null()
Me(Me.tableTBDD_USER.ATTR_CHAR3Column) = Global.System.Convert.DBNull
End Sub
_
Public Function IsATTR_CHAR4Null() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR4Column)
End Function
_
Public Sub SetATTR_CHAR4Null()
Me(Me.tableTBDD_USER.ATTR_CHAR4Column) = Global.System.Convert.DBNull
End Sub
_
Public Function IsATTR_CHAR5Null() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR5Column)
End Function
_
Public Sub SetATTR_CHAR5Null()
Me(Me.tableTBDD_USER.ATTR_CHAR5Column) = Global.System.Convert.DBNull
End Sub
_
Public Function IsATTR_CHAR6Null() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR6Column)
End Function
_
Public Sub SetATTR_CHAR6Null()
Me(Me.tableTBDD_USER.ATTR_CHAR6Column) = Global.System.Convert.DBNull
End Sub
_
Public Function IsATTR_CHAR7Null() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR7Column)
End Function
_
Public Sub SetATTR_CHAR7Null()
Me(Me.tableTBDD_USER.ATTR_CHAR7Column) = Global.System.Convert.DBNull
End Sub
_
Public Function IsATTR_CHAR8Null() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR8Column)
End Function
_
Public Sub SetATTR_CHAR8Null()
Me(Me.tableTBDD_USER.ATTR_CHAR8Column) = Global.System.Convert.DBNull
End Sub
_
Public Function IsATTR_CHAR9Null() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR9Column)
End Function
_
Public Sub SetATTR_CHAR9Null()
Me(Me.tableTBDD_USER.ATTR_CHAR9Column) = Global.System.Convert.DBNull
End Sub
_
Public Function IsATTR_CHAR10Null() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR10Column)
End Function
_
Public Sub SetATTR_CHAR10Null()
Me(Me.tableTBDD_USER.ATTR_CHAR10Column) = Global.System.Convert.DBNull
End Sub
_
Public Function IsATTR_CHAR11Null() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR11Column)
End Function
_
Public Sub SetATTR_CHAR11Null()
Me(Me.tableTBDD_USER.ATTR_CHAR11Column) = Global.System.Convert.DBNull
End Sub
_
Public Function IsATTR_CHAR12Null() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR12Column)
End Function
_
Public Sub SetATTR_CHAR12Null()
Me(Me.tableTBDD_USER.ATTR_CHAR12Column) = Global.System.Convert.DBNull
End Sub
_
Public Function IsATTR_CHAR13Null() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR13Column)
End Function
_
Public Sub SetATTR_CHAR13Null()
Me(Me.tableTBDD_USER.ATTR_CHAR13Column) = Global.System.Convert.DBNull
End Sub
_
Public Function IsATTR_CHAR14Null() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR14Column)
End Function
_
Public Sub SetATTR_CHAR14Null()
Me(Me.tableTBDD_USER.ATTR_CHAR14Column) = Global.System.Convert.DBNull
End Sub
_
Public Function IsATTR_CHAR15Null() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.ATTR_CHAR15Column)
End Function
_
Public Sub SetATTR_CHAR15Null()
Me(Me.tableTBDD_USER.ATTR_CHAR15Column) = Global.System.Convert.DBNull
End Sub
_
Public Function IsDELETED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.DELETED_WHENColumn)
End Function
_
Public Sub SetDELETED_WHENNull()
Me(Me.tableTBDD_USER.DELETED_WHENColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsDELETED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.DELETED_WHOColumn)
End Function
_
Public Sub SetDELETED_WHONull()
Me(Me.tableTBDD_USER.DELETED_WHOColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.ADDED_WHENColumn)
End Function
_
Public Sub SetADDED_WHENNull()
Me(Me.tableTBDD_USER.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsCHANGED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHOColumn)
End Function
_
Public Sub SetCHANGED_WHONull()
Me(Me.tableTBDD_USER.CHANGED_WHOColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsCHANGED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBDD_USER.CHANGED_WHENColumn)
End Function
_
Public Sub SetCHANGED_WHENNull()
Me(Me.tableTBDD_USER.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''
'''Row event argument class
'''
_
Public Class TBDD_CONNECTIONRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBDD_CONNECTIONRow
Private eventAction As Global.System.Data.DataRowAction
_
Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub