'------------------------------------------------------------------------------
'
' 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 MyDataset
Inherits Global.System.Data.DataSet
Private tableTBCW_PROFILES As TBCW_PROFILESDataTable
Private tableTBCW_USER_PROFILE As TBCW_USER_PROFILEDataTable
Private tableVWUSER_PROFILE As VWUSER_PROFILEDataTable
Private tableTBCW_PROFILE_PROCESS As TBCW_PROFILE_PROCESSDataTable
Private tableTBWH_User As TBWH_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("TBCW_PROFILES")) Is Nothing) Then
MyBase.Tables.Add(New TBCW_PROFILESDataTable(ds.Tables("TBCW_PROFILES")))
End If
If (Not (ds.Tables("TBCW_USER_PROFILE")) Is Nothing) Then
MyBase.Tables.Add(New TBCW_USER_PROFILEDataTable(ds.Tables("TBCW_USER_PROFILE")))
End If
If (Not (ds.Tables("VWUSER_PROFILE")) Is Nothing) Then
MyBase.Tables.Add(New VWUSER_PROFILEDataTable(ds.Tables("VWUSER_PROFILE")))
End If
If (Not (ds.Tables("TBCW_PROFILE_PROCESS")) Is Nothing) Then
MyBase.Tables.Add(New TBCW_PROFILE_PROCESSDataTable(ds.Tables("TBCW_PROFILE_PROCESS")))
End If
If (Not (ds.Tables("TBWH_User")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_UserDataTable(ds.Tables("TBWH_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 TBCW_PROFILES() As TBCW_PROFILESDataTable
Get
Return Me.tableTBCW_PROFILES
End Get
End Property
_
Public ReadOnly Property TBCW_USER_PROFILE() As TBCW_USER_PROFILEDataTable
Get
Return Me.tableTBCW_USER_PROFILE
End Get
End Property
_
Public ReadOnly Property VWUSER_PROFILE() As VWUSER_PROFILEDataTable
Get
Return Me.tableVWUSER_PROFILE
End Get
End Property
_
Public ReadOnly Property TBCW_PROFILE_PROCESS() As TBCW_PROFILE_PROCESSDataTable
Get
Return Me.tableTBCW_PROFILE_PROCESS
End Get
End Property
_
Public ReadOnly Property TBWH_User() As TBWH_UserDataTable
Get
Return Me.tableTBWH_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 MyDataset = CType(MyBase.Clone,MyDataset)
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("TBCW_PROFILES")) Is Nothing) Then
MyBase.Tables.Add(New TBCW_PROFILESDataTable(ds.Tables("TBCW_PROFILES")))
End If
If (Not (ds.Tables("TBCW_USER_PROFILE")) Is Nothing) Then
MyBase.Tables.Add(New TBCW_USER_PROFILEDataTable(ds.Tables("TBCW_USER_PROFILE")))
End If
If (Not (ds.Tables("VWUSER_PROFILE")) Is Nothing) Then
MyBase.Tables.Add(New VWUSER_PROFILEDataTable(ds.Tables("VWUSER_PROFILE")))
End If
If (Not (ds.Tables("TBCW_PROFILE_PROCESS")) Is Nothing) Then
MyBase.Tables.Add(New TBCW_PROFILE_PROCESSDataTable(ds.Tables("TBCW_PROFILE_PROCESS")))
End If
If (Not (ds.Tables("TBWH_User")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_UserDataTable(ds.Tables("TBWH_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.tableTBCW_PROFILES = CType(MyBase.Tables("TBCW_PROFILES"),TBCW_PROFILESDataTable)
If (initTable = true) Then
If (Not (Me.tableTBCW_PROFILES) Is Nothing) Then
Me.tableTBCW_PROFILES.InitVars
End If
End If
Me.tableTBCW_USER_PROFILE = CType(MyBase.Tables("TBCW_USER_PROFILE"),TBCW_USER_PROFILEDataTable)
If (initTable = true) Then
If (Not (Me.tableTBCW_USER_PROFILE) Is Nothing) Then
Me.tableTBCW_USER_PROFILE.InitVars
End If
End If
Me.tableVWUSER_PROFILE = CType(MyBase.Tables("VWUSER_PROFILE"),VWUSER_PROFILEDataTable)
If (initTable = true) Then
If (Not (Me.tableVWUSER_PROFILE) Is Nothing) Then
Me.tableVWUSER_PROFILE.InitVars
End If
End If
Me.tableTBCW_PROFILE_PROCESS = CType(MyBase.Tables("TBCW_PROFILE_PROCESS"),TBCW_PROFILE_PROCESSDataTable)
If (initTable = true) Then
If (Not (Me.tableTBCW_PROFILE_PROCESS) Is Nothing) Then
Me.tableTBCW_PROFILE_PROCESS.InitVars
End If
End If
Me.tableTBWH_User = CType(MyBase.Tables("TBWH_User"),TBWH_UserDataTable)
If (initTable = true) Then
If (Not (Me.tableTBWH_User) Is Nothing) Then
Me.tableTBWH_User.InitVars
End If
End If
End Sub
_
Private Sub InitClass()
Me.DataSetName = "MyDataset"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/MyDataset.xsd"
Me.EnforceConstraints = true
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tableTBCW_PROFILES = New TBCW_PROFILESDataTable()
MyBase.Tables.Add(Me.tableTBCW_PROFILES)
Me.tableTBCW_USER_PROFILE = New TBCW_USER_PROFILEDataTable()
MyBase.Tables.Add(Me.tableTBCW_USER_PROFILE)
Me.tableVWUSER_PROFILE = New VWUSER_PROFILEDataTable()
MyBase.Tables.Add(Me.tableVWUSER_PROFILE)
Me.tableTBCW_PROFILE_PROCESS = New TBCW_PROFILE_PROCESSDataTable()
MyBase.Tables.Add(Me.tableTBCW_PROFILE_PROCESS)
Me.tableTBWH_User = New TBWH_UserDataTable()
MyBase.Tables.Add(Me.tableTBWH_User)
End Sub
_
Private Function ShouldSerializeTBCW_PROFILES() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBCW_USER_PROFILE() As Boolean
Return false
End Function
_
Private Function ShouldSerializeVWUSER_PROFILE() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBCW_PROFILE_PROCESS() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBWH_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 MyDataset = New MyDataset()
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 TBCW_PROFILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROFILESRowChangeEvent)
_
Public Delegate Sub TBCW_USER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_USER_PROFILERowChangeEvent)
_
Public Delegate Sub VWUSER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As VWUSER_PROFILERowChangeEvent)
_
Public Delegate Sub TBCW_PROFILE_PROCESSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROFILE_PROCESSRowChangeEvent)
_
Public Delegate Sub TBWH_UserRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_UserRowChangeEvent)
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class TBCW_PROFILESDataTable
Inherits Global.System.Data.TypedTableBase(Of TBCW_PROFILESRow)
Private columnGUID As Global.System.Data.DataColumn
Private columnNAME As Global.System.Data.DataColumn
Private columnCOMMENT As Global.System.Data.DataColumn
Private columnWD_SEARCH As Global.System.Data.DataColumn
Private columnREGEX_EXPRESSION 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 = "TBCW_PROFILES"
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 NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNAME
End Get
End Property
_
Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOMMENT
End Get
End Property
_
Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn
Get
Return Me.columnWD_SEARCH
End Get
End Property
_
Public ReadOnly Property REGEX_EXPRESSIONColumn() As Global.System.Data.DataColumn
Get
Return Me.columnREGEX_EXPRESSION
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 TBCW_PROFILESRow
Get
Return CType(Me.Rows(index),TBCW_PROFILESRow)
End Get
End Property
_
Public Event TBCW_PROFILESRowChanging As TBCW_PROFILESRowChangeEventHandler
_
Public Event TBCW_PROFILESRowChanged As TBCW_PROFILESRowChangeEventHandler
_
Public Event TBCW_PROFILESRowDeleting As TBCW_PROFILESRowChangeEventHandler
_
Public Event TBCW_PROFILESRowDeleted As TBCW_PROFILESRowChangeEventHandler
_
Public Overloads Sub AddTBCW_PROFILESRow(ByVal row As TBCW_PROFILESRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBCW_PROFILESRow(ByVal NAME As String, ByVal COMMENT As String, ByVal WD_SEARCH As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBCW_PROFILESRow
Dim rowTBCW_PROFILESRow As TBCW_PROFILESRow = CType(Me.NewRow,TBCW_PROFILESRow)
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
rowTBCW_PROFILESRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBCW_PROFILESRow)
Return rowTBCW_PROFILESRow
End Function
_
Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROFILESRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROFILESRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBCW_PROFILESDataTable = CType(MyBase.Clone,TBCW_PROFILESDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBCW_PROFILESDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnNAME = MyBase.Columns("NAME")
Me.columnCOMMENT = MyBase.Columns("COMMENT")
Me.columnWD_SEARCH = MyBase.Columns("WD_SEARCH")
Me.columnREGEX_EXPRESSION = MyBase.Columns("REGEX_EXPRESSION")
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.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnNAME)
Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCOMMENT)
Me.columnWD_SEARCH = New Global.System.Data.DataColumn("WD_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnWD_SEARCH)
Me.columnREGEX_EXPRESSION = New Global.System.Data.DataColumn("REGEX_EXPRESSION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnREGEX_EXPRESSION)
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.AllowDBNull = false
Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true
Me.columnNAME.AllowDBNull = false
Me.columnNAME.MaxLength = 100
Me.columnCOMMENT.MaxLength = 500
Me.columnWD_SEARCH.AllowDBNull = false
Me.columnWD_SEARCH.MaxLength = 250
Me.columnREGEX_EXPRESSION.AllowDBNull = false
Me.columnREGEX_EXPRESSION.DefaultValue = CType("",String)
Me.columnREGEX_EXPRESSION.MaxLength = 100
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50
End Sub
_
Public Function NewTBCW_PROFILESRow() As TBCW_PROFILESRow
Return CType(Me.NewRow,TBCW_PROFILESRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBCW_PROFILESRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBCW_PROFILESRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBCW_PROFILESRowChangedEvent) Is Nothing) Then
RaiseEvent TBCW_PROFILESRowChanged(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBCW_PROFILESRowChangingEvent) Is Nothing) Then
RaiseEvent TBCW_PROFILESRowChanging(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBCW_PROFILESRowDeletedEvent) Is Nothing) Then
RaiseEvent TBCW_PROFILESRowDeleted(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBCW_PROFILESRowDeletingEvent) Is Nothing) Then
RaiseEvent TBCW_PROFILESRowDeleting(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action))
End If
End Sub
_
Public Sub RemoveTBCW_PROFILESRow(ByVal row As TBCW_PROFILESRow)
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 MyDataset = New MyDataset()
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 = "TBCW_PROFILESDataTable"
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 TBCW_USER_PROFILEDataTable
Inherits Global.System.Data.TypedTableBase(Of TBCW_USER_PROFILERow)
Private columnGUID As Global.System.Data.DataColumn
Private columnPROFILE_ID As Global.System.Data.DataColumn
Private columnUSER_ID As Global.System.Data.DataColumn
Private columnADDED_WHO As Global.System.Data.DataColumn
Private columnADDED_WHEN As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "TBCW_USER_PROFILE"
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 PROFILE_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPROFILE_ID
End Get
End Property
_
Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUSER_ID
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 Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_USER_PROFILERow
Get
Return CType(Me.Rows(index),TBCW_USER_PROFILERow)
End Get
End Property
_
Public Event TBCW_USER_PROFILERowChanging As TBCW_USER_PROFILERowChangeEventHandler
_
Public Event TBCW_USER_PROFILERowChanged As TBCW_USER_PROFILERowChangeEventHandler
_
Public Event TBCW_USER_PROFILERowDeleting As TBCW_USER_PROFILERowChangeEventHandler
_
Public Event TBCW_USER_PROFILERowDeleted As TBCW_USER_PROFILERowChangeEventHandler
_
Public Overloads Sub AddTBCW_USER_PROFILERow(ByVal row As TBCW_USER_PROFILERow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBCW_USER_PROFILERow(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBCW_USER_PROFILERow
Dim rowTBCW_USER_PROFILERow As TBCW_USER_PROFILERow = CType(Me.NewRow,TBCW_USER_PROFILERow)
Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, USER_ID, ADDED_WHO, ADDED_WHEN}
rowTBCW_USER_PROFILERow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBCW_USER_PROFILERow)
Return rowTBCW_USER_PROFILERow
End Function
_
Public Function FindByGUID(ByVal GUID As Integer) As TBCW_USER_PROFILERow
Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_USER_PROFILERow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBCW_USER_PROFILEDataTable = CType(MyBase.Clone,TBCW_USER_PROFILEDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBCW_USER_PROFILEDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID")
Me.columnUSER_ID = MyBase.Columns("USER_ID")
Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
Me.columnADDED_WHEN = MyBase.Columns("ADDED_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.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPROFILE_ID)
Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnUSER_ID)
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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true
Me.columnGUID.AllowDBNull = false
Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true
Me.columnPROFILE_ID.AllowDBNull = false
Me.columnUSER_ID.AllowDBNull = false
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
End Sub
_
Public Function NewTBCW_USER_PROFILERow() As TBCW_USER_PROFILERow
Return CType(Me.NewRow,TBCW_USER_PROFILERow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBCW_USER_PROFILERow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBCW_USER_PROFILERow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBCW_USER_PROFILERowChangedEvent) Is Nothing) Then
RaiseEvent TBCW_USER_PROFILERowChanged(Me, New TBCW_USER_PROFILERowChangeEvent(CType(e.Row,TBCW_USER_PROFILERow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBCW_USER_PROFILERowChangingEvent) Is Nothing) Then
RaiseEvent TBCW_USER_PROFILERowChanging(Me, New TBCW_USER_PROFILERowChangeEvent(CType(e.Row,TBCW_USER_PROFILERow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBCW_USER_PROFILERowDeletedEvent) Is Nothing) Then
RaiseEvent TBCW_USER_PROFILERowDeleted(Me, New TBCW_USER_PROFILERowChangeEvent(CType(e.Row,TBCW_USER_PROFILERow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBCW_USER_PROFILERowDeletingEvent) Is Nothing) Then
RaiseEvent TBCW_USER_PROFILERowDeleting(Me, New TBCW_USER_PROFILERowChangeEvent(CType(e.Row,TBCW_USER_PROFILERow), e.Action))
End If
End Sub
_
Public Sub RemoveTBCW_USER_PROFILERow(ByVal row As TBCW_USER_PROFILERow)
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 MyDataset = New MyDataset()
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 = "TBCW_USER_PROFILEDataTable"
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 VWUSER_PROFILEDataTable
Inherits Global.System.Data.TypedTableBase(Of VWUSER_PROFILERow)
Private columnGUID As Global.System.Data.DataColumn
Private columnPROFILE_ID As Global.System.Data.DataColumn
Private columnUSERNAME As Global.System.Data.DataColumn
Private columnNAME As Global.System.Data.DataColumn
Private columnPRENAME As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "VWUSER_PROFILE"
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 PROFILE_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPROFILE_ID
End Get
End Property
_
Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUSERNAME
End Get
End Property
_
Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNAME
End Get
End Property
_
Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPRENAME
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 VWUSER_PROFILERow
Get
Return CType(Me.Rows(index),VWUSER_PROFILERow)
End Get
End Property
_
Public Event VWUSER_PROFILERowChanging As VWUSER_PROFILERowChangeEventHandler
_
Public Event VWUSER_PROFILERowChanged As VWUSER_PROFILERowChangeEventHandler
_
Public Event VWUSER_PROFILERowDeleting As VWUSER_PROFILERowChangeEventHandler
_
Public Event VWUSER_PROFILERowDeleted As VWUSER_PROFILERowChangeEventHandler
_
Public Overloads Sub AddVWUSER_PROFILERow(ByVal row As VWUSER_PROFILERow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddVWUSER_PROFILERow(ByVal PROFILE_ID As Integer, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String) As VWUSER_PROFILERow
Dim rowVWUSER_PROFILERow As VWUSER_PROFILERow = CType(Me.NewRow,VWUSER_PROFILERow)
Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, USERNAME, NAME, PRENAME}
rowVWUSER_PROFILERow.ItemArray = columnValuesArray
Me.Rows.Add(rowVWUSER_PROFILERow)
Return rowVWUSER_PROFILERow
End Function
_
Public Function FindByGUID(ByVal GUID As Integer) As VWUSER_PROFILERow
Return CType(Me.Rows.Find(New Object() {GUID}),VWUSER_PROFILERow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As VWUSER_PROFILEDataTable = CType(MyBase.Clone,VWUSER_PROFILEDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New VWUSER_PROFILEDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID")
Me.columnUSERNAME = MyBase.Columns("USERNAME")
Me.columnNAME = MyBase.Columns("NAME")
Me.columnPRENAME = MyBase.Columns("PRENAME")
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.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPROFILE_ID)
Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnUSERNAME)
Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnNAME)
Me.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPRENAME)
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.columnPROFILE_ID.AllowDBNull = false
Me.columnUSERNAME.AllowDBNull = false
Me.columnUSERNAME.MaxLength = 50
Me.columnNAME.MaxLength = 50
Me.columnPRENAME.MaxLength = 50
End Sub
_
Public Function NewVWUSER_PROFILERow() As VWUSER_PROFILERow
Return CType(Me.NewRow,VWUSER_PROFILERow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New VWUSER_PROFILERow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(VWUSER_PROFILERow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.VWUSER_PROFILERowChangedEvent) Is Nothing) Then
RaiseEvent VWUSER_PROFILERowChanged(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row,VWUSER_PROFILERow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.VWUSER_PROFILERowChangingEvent) Is Nothing) Then
RaiseEvent VWUSER_PROFILERowChanging(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row,VWUSER_PROFILERow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.VWUSER_PROFILERowDeletedEvent) Is Nothing) Then
RaiseEvent VWUSER_PROFILERowDeleted(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row,VWUSER_PROFILERow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.VWUSER_PROFILERowDeletingEvent) Is Nothing) Then
RaiseEvent VWUSER_PROFILERowDeleting(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row,VWUSER_PROFILERow), e.Action))
End If
End Sub
_
Public Sub RemoveVWUSER_PROFILERow(ByVal row As VWUSER_PROFILERow)
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 MyDataset = New MyDataset()
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 = "VWUSER_PROFILEDataTable"
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 TBCW_PROFILE_PROCESSDataTable
Inherits Global.System.Data.TypedTableBase(Of TBCW_PROFILE_PROCESSRow)
Private columnGUID As Global.System.Data.DataColumn
Private columnPROFILE_ID As Global.System.Data.DataColumn
Private columnPROC_NAME As Global.System.Data.DataColumn
Private columnADDED_WHO As Global.System.Data.DataColumn
Private columnADDED_WHEN As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "TBCW_PROFILE_PROCESS"
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 PROFILE_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPROFILE_ID
End Get
End Property
_
Public ReadOnly Property PROC_NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPROC_NAME
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 Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROFILE_PROCESSRow
Get
Return CType(Me.Rows(index),TBCW_PROFILE_PROCESSRow)
End Get
End Property
_
Public Event TBCW_PROFILE_PROCESSRowChanging As TBCW_PROFILE_PROCESSRowChangeEventHandler
_
Public Event TBCW_PROFILE_PROCESSRowChanged As TBCW_PROFILE_PROCESSRowChangeEventHandler
_
Public Event TBCW_PROFILE_PROCESSRowDeleting As TBCW_PROFILE_PROCESSRowChangeEventHandler
_
Public Event TBCW_PROFILE_PROCESSRowDeleted As TBCW_PROFILE_PROCESSRowChangeEventHandler
_
Public Overloads Sub AddTBCW_PROFILE_PROCESSRow(ByVal row As TBCW_PROFILE_PROCESSRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBCW_PROFILE_PROCESSRow(ByVal PROFILE_ID As Integer, ByVal PROC_NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBCW_PROFILE_PROCESSRow
Dim rowTBCW_PROFILE_PROCESSRow As TBCW_PROFILE_PROCESSRow = CType(Me.NewRow,TBCW_PROFILE_PROCESSRow)
Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN}
rowTBCW_PROFILE_PROCESSRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBCW_PROFILE_PROCESSRow)
Return rowTBCW_PROFILE_PROCESSRow
End Function
_
Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROFILE_PROCESSRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROFILE_PROCESSRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBCW_PROFILE_PROCESSDataTable = CType(MyBase.Clone,TBCW_PROFILE_PROCESSDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBCW_PROFILE_PROCESSDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID")
Me.columnPROC_NAME = MyBase.Columns("PROC_NAME")
Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
Me.columnADDED_WHEN = MyBase.Columns("ADDED_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.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPROFILE_ID)
Me.columnPROC_NAME = New Global.System.Data.DataColumn("PROC_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPROC_NAME)
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.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.columnPROFILE_ID.AllowDBNull = false
Me.columnPROC_NAME.AllowDBNull = false
Me.columnPROC_NAME.MaxLength = 100
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
End Sub
_
Public Function NewTBCW_PROFILE_PROCESSRow() As TBCW_PROFILE_PROCESSRow
Return CType(Me.NewRow,TBCW_PROFILE_PROCESSRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBCW_PROFILE_PROCESSRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBCW_PROFILE_PROCESSRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBCW_PROFILE_PROCESSRowChangedEvent) Is Nothing) Then
RaiseEvent TBCW_PROFILE_PROCESSRowChanged(Me, New TBCW_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCW_PROFILE_PROCESSRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBCW_PROFILE_PROCESSRowChangingEvent) Is Nothing) Then
RaiseEvent TBCW_PROFILE_PROCESSRowChanging(Me, New TBCW_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCW_PROFILE_PROCESSRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBCW_PROFILE_PROCESSRowDeletedEvent) Is Nothing) Then
RaiseEvent TBCW_PROFILE_PROCESSRowDeleted(Me, New TBCW_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCW_PROFILE_PROCESSRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBCW_PROFILE_PROCESSRowDeletingEvent) Is Nothing) Then
RaiseEvent TBCW_PROFILE_PROCESSRowDeleting(Me, New TBCW_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCW_PROFILE_PROCESSRow), e.Action))
End If
End Sub
_
Public Sub RemoveTBCW_PROFILE_PROCESSRow(ByVal row As TBCW_PROFILE_PROCESSRow)
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 MyDataset = New MyDataset()
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 = "TBCW_PROFILE_PROCESSDataTable"
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 TBWH_UserDataTable
Inherits Global.System.Data.TypedTableBase(Of TBWH_UserRow)
Private columnSelect As Global.System.Data.DataColumn
Private columnUsername As Global.System.Data.DataColumn
Private columnPrename As Global.System.Data.DataColumn
Private columnSurname As Global.System.Data.DataColumn
Private columnEmail As Global.System.Data.DataColumn
Private columnID As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "TBWH_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 SelectColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSelect
End Get
End Property
_
Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUsername
End Get
End Property
_
Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPrename
End Get
End Property
_
Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSurname
End Get
End Property
_
Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn
Get
Return Me.columnEmail
End Get
End Property
_
Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnID
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 TBWH_UserRow
Get
Return CType(Me.Rows(index),TBWH_UserRow)
End Get
End Property
_
Public Event TBWH_UserRowChanging As TBWH_UserRowChangeEventHandler
_
Public Event TBWH_UserRowChanged As TBWH_UserRowChangeEventHandler
_
Public Event TBWH_UserRowDeleting As TBWH_UserRowChangeEventHandler
_
Public Event TBWH_UserRowDeleted As TBWH_UserRowChangeEventHandler
_
Public Overloads Sub AddTBWH_UserRow(ByVal row As TBWH_UserRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBWH_UserRow(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_UserRow
Dim rowTBWH_UserRow As TBWH_UserRow = CType(Me.NewRow,TBWH_UserRow)
Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID}
rowTBWH_UserRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBWH_UserRow)
Return rowTBWH_UserRow
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBWH_UserDataTable = CType(MyBase.Clone,TBWH_UserDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBWH_UserDataTable()
End Function
_
Friend Sub InitVars()
Me.columnSelect = MyBase.Columns("Select")
Me.columnUsername = MyBase.Columns("Username")
Me.columnPrename = MyBase.Columns("Prename")
Me.columnSurname = MyBase.Columns("Surname")
Me.columnEmail = MyBase.Columns("Email")
Me.columnID = MyBase.Columns("ID")
End Sub
_
Private Sub InitClass()
Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn")
Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect")
Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select")
MyBase.Columns.Add(Me.columnSelect)
Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnUsername)
Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPrename)
Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSurname)
Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnEmail)
Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnID)
Me.columnSelect.DefaultValue = CType(false,Boolean)
End Sub
_
Public Function NewTBWH_UserRow() As TBWH_UserRow
Return CType(Me.NewRow,TBWH_UserRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBWH_UserRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBWH_UserRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBWH_UserRowChangedEvent) Is Nothing) Then
RaiseEvent TBWH_UserRowChanged(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBWH_UserRowChangingEvent) Is Nothing) Then
RaiseEvent TBWH_UserRowChanging(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBWH_UserRowDeletedEvent) Is Nothing) Then
RaiseEvent TBWH_UserRowDeleted(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBWH_UserRowDeletingEvent) Is Nothing) Then
RaiseEvent TBWH_UserRowDeleting(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action))
End If
End Sub
_
Public Sub RemoveTBWH_UserRow(ByVal row As TBWH_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 MyDataset = New MyDataset()
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 = "TBWH_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 TBCW_PROFILESRow
Inherits Global.System.Data.DataRow
Private tableTBCW_PROFILES As TBCW_PROFILESDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBCW_PROFILES = CType(Me.Table,TBCW_PROFILESDataTable)
End Sub
_
Public Property GUID() As Integer
Get
Return CType(Me(Me.tableTBCW_PROFILES.GUIDColumn),Integer)
End Get
Set
Me(Me.tableTBCW_PROFILES.GUIDColumn) = value
End Set
End Property
_
Public Property NAME() As String
Get
Return CType(Me(Me.tableTBCW_PROFILES.NAMEColumn),String)
End Get
Set
Me(Me.tableTBCW_PROFILES.NAMEColumn) = value
End Set
End Property
_
Public Property COMMENT() As String
Get
Try
Return CType(Me(Me.tableTBCW_PROFILES.COMMENTColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBCW_PROFILES ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBCW_PROFILES.COMMENTColumn) = value
End Set
End Property
_
Public Property WD_SEARCH() As String
Get
Return CType(Me(Me.tableTBCW_PROFILES.WD_SEARCHColumn),String)
End Get
Set
Me(Me.tableTBCW_PROFILES.WD_SEARCHColumn) = value
End Set
End Property
_
Public Property REGEX_EXPRESSION() As String
Get
Return CType(Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn),String)
End Get
Set
Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn) = value
End Set
End Property
_
Public Property ADDED_WHO() As String
Get
Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn),String)
End Get
Set
Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn) = value
End Set
End Property
_
Public Property ADDED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROFILES ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = value
End Set
End Property
_
Public Property CHANGED_WHO() As String
Get
Try
Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROFILES ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = value
End Set
End Property
_
Public Property CHANGED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROFILES ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = value
End Set
End Property
_
Public Function IsCOMMENTNull() As Boolean
Return Me.IsNull(Me.tableTBCW_PROFILES.COMMENTColumn)
End Function
_
Public Sub SetCOMMENTNull()
Me(Me.tableTBCW_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBCW_PROFILES.ADDED_WHENColumn)
End Function
_
Public Sub SetADDED_WHENNull()
Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsCHANGED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHOColumn)
End Function
_
Public Sub SetCHANGED_WHONull()
Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsCHANGED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHENColumn)
End Function
_
Public Sub SetCHANGED_WHENNull()
Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''
'''Represents strongly named DataRow class.
'''
Partial Public Class TBCW_USER_PROFILERow
Inherits Global.System.Data.DataRow
Private tableTBCW_USER_PROFILE As TBCW_USER_PROFILEDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBCW_USER_PROFILE = CType(Me.Table,TBCW_USER_PROFILEDataTable)
End Sub
_
Public Property GUID() As Integer
Get
Return CType(Me(Me.tableTBCW_USER_PROFILE.GUIDColumn),Integer)
End Get
Set
Me(Me.tableTBCW_USER_PROFILE.GUIDColumn) = value
End Set
End Property
_
Public Property PROFILE_ID() As Integer
Get
Return CType(Me(Me.tableTBCW_USER_PROFILE.PROFILE_IDColumn),Integer)
End Get
Set
Me(Me.tableTBCW_USER_PROFILE.PROFILE_IDColumn) = value
End Set
End Property
_
Public Property USER_ID() As Integer
Get
Return CType(Me(Me.tableTBCW_USER_PROFILE.USER_IDColumn),Integer)
End Get
Set
Me(Me.tableTBCW_USER_PROFILE.USER_IDColumn) = value
End Set
End Property
_
Public Property ADDED_WHO() As String
Get
Return CType(Me(Me.tableTBCW_USER_PROFILE.ADDED_WHOColumn),String)
End Get
Set
Me(Me.tableTBCW_USER_PROFILE.ADDED_WHOColumn) = value
End Set
End Property
_
Public Property ADDED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_USER_PROFILE ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn) = value
End Set
End Property
_
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn)
End Function
_
Public Sub SetADDED_WHENNull()
Me(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''
'''Represents strongly named DataRow class.
'''
Partial Public Class VWUSER_PROFILERow
Inherits Global.System.Data.DataRow
Private tableVWUSER_PROFILE As VWUSER_PROFILEDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableVWUSER_PROFILE = CType(Me.Table,VWUSER_PROFILEDataTable)
End Sub
_
Public Property GUID() As Integer
Get
Return CType(Me(Me.tableVWUSER_PROFILE.GUIDColumn),Integer)
End Get
Set
Me(Me.tableVWUSER_PROFILE.GUIDColumn) = value
End Set
End Property
_
Public Property PROFILE_ID() As Integer
Get
Return CType(Me(Me.tableVWUSER_PROFILE.PROFILE_IDColumn),Integer)
End Get
Set
Me(Me.tableVWUSER_PROFILE.PROFILE_IDColumn) = value
End Set
End Property
_
Public Property USERNAME() As String
Get
Return CType(Me(Me.tableVWUSER_PROFILE.USERNAMEColumn),String)
End Get
Set
Me(Me.tableVWUSER_PROFILE.USERNAMEColumn) = value
End Set
End Property
_
Public Property NAME() As String
Get
Try
Return CType(Me(Me.tableVWUSER_PROFILE.NAMEColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWUSER_PROFILE ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWUSER_PROFILE.NAMEColumn) = value
End Set
End Property
_
Public Property PRENAME() As String
Get
Try
Return CType(Me(Me.tableVWUSER_PROFILE.PRENAMEColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle VWUSER_PROFILE ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableVWUSER_PROFILE.PRENAMEColumn) = value
End Set
End Property
_
Public Function IsNAMENull() As Boolean
Return Me.IsNull(Me.tableVWUSER_PROFILE.NAMEColumn)
End Function
_
Public Sub SetNAMENull()
Me(Me.tableVWUSER_PROFILE.NAMEColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsPRENAMENull() As Boolean
Return Me.IsNull(Me.tableVWUSER_PROFILE.PRENAMEColumn)
End Function
_
Public Sub SetPRENAMENull()
Me(Me.tableVWUSER_PROFILE.PRENAMEColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''
'''Represents strongly named DataRow class.
'''
Partial Public Class TBCW_PROFILE_PROCESSRow
Inherits Global.System.Data.DataRow
Private tableTBCW_PROFILE_PROCESS As TBCW_PROFILE_PROCESSDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBCW_PROFILE_PROCESS = CType(Me.Table,TBCW_PROFILE_PROCESSDataTable)
End Sub
_
Public Property GUID() As Integer
Get
Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.GUIDColumn),Integer)
End Get
Set
Me(Me.tableTBCW_PROFILE_PROCESS.GUIDColumn) = value
End Set
End Property
_
Public Property PROFILE_ID() As Integer
Get
Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.PROFILE_IDColumn),Integer)
End Get
Set
Me(Me.tableTBCW_PROFILE_PROCESS.PROFILE_IDColumn) = value
End Set
End Property
_
Public Property PROC_NAME() As String
Get
Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.PROC_NAMEColumn),String)
End Get
Set
Me(Me.tableTBCW_PROFILE_PROCESS.PROC_NAMEColumn) = value
End Set
End Property
_
Public Property ADDED_WHO() As String
Get
Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHOColumn),String)
End Get
Set
Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHOColumn) = value
End Set
End Property
_
Public Property ADDED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROFILE_PROCESS ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) = value
End Set
End Property
_
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn)
End Function
_
Public Sub SetADDED_WHENNull()
Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''
'''Represents strongly named DataRow class.
'''
Partial Public Class TBWH_UserRow
Inherits Global.System.Data.DataRow
Private tableTBWH_User As TBWH_UserDataTable
_
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBWH_User = CType(Me.Table,TBWH_UserDataTable)
End Sub
_
Public Property _Select() As Boolean
Get
Try
Return CType(Me(Me.tableTBWH_User.SelectColumn),Boolean)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBWH_User ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBWH_User.SelectColumn) = value
End Set
End Property
_
Public Property Username() As String
Get
Try
Return CType(Me(Me.tableTBWH_User.UsernameColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBWH_User ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBWH_User.UsernameColumn) = value
End Set
End Property
_
Public Property Prename() As String
Get
Try
Return CType(Me(Me.tableTBWH_User.PrenameColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBWH_User ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBWH_User.PrenameColumn) = value
End Set
End Property
_
Public Property Surname() As String
Get
Try
Return CType(Me(Me.tableTBWH_User.SurnameColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBWH_User ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBWH_User.SurnameColumn) = value
End Set
End Property
_
Public Property Email() As String
Get
Try
Return CType(Me(Me.tableTBWH_User.EmailColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBWH_User ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBWH_User.EmailColumn) = value
End Set
End Property
_
Public Property ID() As Short
Get
Try
Return CType(Me(Me.tableTBWH_User.IDColumn),Short)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBWH_User ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBWH_User.IDColumn) = value
End Set
End Property
_
Public Function Is_SelectNull() As Boolean
Return Me.IsNull(Me.tableTBWH_User.SelectColumn)
End Function
_
Public Sub Set_SelectNull()
Me(Me.tableTBWH_User.SelectColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsUsernameNull() As Boolean
Return Me.IsNull(Me.tableTBWH_User.UsernameColumn)
End Function
_
Public Sub SetUsernameNull()
Me(Me.tableTBWH_User.UsernameColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsPrenameNull() As Boolean
Return Me.IsNull(Me.tableTBWH_User.PrenameColumn)
End Function
_
Public Sub SetPrenameNull()
Me(Me.tableTBWH_User.PrenameColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsSurnameNull() As Boolean
Return Me.IsNull(Me.tableTBWH_User.SurnameColumn)
End Function
_
Public Sub SetSurnameNull()
Me(Me.tableTBWH_User.SurnameColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsEmailNull() As Boolean
Return Me.IsNull(Me.tableTBWH_User.EmailColumn)
End Function
_
Public Sub SetEmailNull()
Me(Me.tableTBWH_User.EmailColumn) = Global.System.Convert.DBNull
End Sub
_
Public Function IsIDNull() As Boolean
Return Me.IsNull(Me.tableTBWH_User.IDColumn)
End Function