'------------------------------------------------------------------------------
'
' 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 tableTBCW_PROF_DATA_SEARCH As TBCW_PROF_DATA_SEARCHDataTable
Private tableTBCW_PROF_DOC_SEARCH As TBCW_PROF_DOC_SEARCHDataTable
Private tableTBCW_GROUP_PROFILE As TBCW_GROUP_PROFILEDataTable
Private tableVWCW_GROUP_PROFILE As VWCW_GROUP_PROFILEDataTable
Private tableTBCW_PROF_REL_WINDOW As TBCW_PROF_REL_WINDOWDataTable
Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable
Private tableTBCW_PROF_REL_CONTROL As TBCW_PROF_REL_CONTROLDataTable
Private tableTBWH_User As TBWH_UserDataTable
Private tableTBWH_GROUP As TBWH_GROUPDataTable
Private tableTBWH_PROFILE_TYPE As TBWH_PROFILE_TYPEDataTable
Private relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF As Global.System.Data.DataRelation
Private relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF As Global.System.Data.DataRelation
Private relationFK_WINDOW_ID As Global.System.Data.DataRelation
Private relationFK_PROCESS_ID As Global.System.Data.DataRelation
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
_
Public Sub New()
MyBase.New
Me.BeginInit
Me.InitClass
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
Me.EndInit
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context, false)
If (Me.IsBinarySerialized(info, context) = true) Then
Me.InitVars(false)
Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
Return
End If
Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
If (Not (ds.Tables("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("TBCW_PROF_DATA_SEARCH")) Is Nothing) Then
MyBase.Tables.Add(New TBCW_PROF_DATA_SEARCHDataTable(ds.Tables("TBCW_PROF_DATA_SEARCH")))
End If
If (Not (ds.Tables("TBCW_PROF_DOC_SEARCH")) Is Nothing) Then
MyBase.Tables.Add(New TBCW_PROF_DOC_SEARCHDataTable(ds.Tables("TBCW_PROF_DOC_SEARCH")))
End If
If (Not (ds.Tables("TBCW_GROUP_PROFILE")) Is Nothing) Then
MyBase.Tables.Add(New TBCW_GROUP_PROFILEDataTable(ds.Tables("TBCW_GROUP_PROFILE")))
End If
If (Not (ds.Tables("VWCW_GROUP_PROFILE")) Is Nothing) Then
MyBase.Tables.Add(New VWCW_GROUP_PROFILEDataTable(ds.Tables("VWCW_GROUP_PROFILE")))
End If
If (Not (ds.Tables("TBCW_PROF_REL_WINDOW")) Is Nothing) Then
MyBase.Tables.Add(New TBCW_PROF_REL_WINDOWDataTable(ds.Tables("TBCW_PROF_REL_WINDOW")))
End If
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("TBCW_PROF_REL_CONTROL")) Is Nothing) Then
MyBase.Tables.Add(New TBCW_PROF_REL_CONTROLDataTable(ds.Tables("TBCW_PROF_REL_CONTROL")))
End If
If (Not (ds.Tables("TBWH_User")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_UserDataTable(ds.Tables("TBWH_User")))
End If
If (Not (ds.Tables("TBWH_GROUP")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_GROUPDataTable(ds.Tables("TBWH_GROUP")))
End If
If (Not (ds.Tables("TBWH_PROFILE_TYPE")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_PROFILE_TYPEDataTable(ds.Tables("TBWH_PROFILE_TYPE")))
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 TBCW_PROF_DATA_SEARCH() As TBCW_PROF_DATA_SEARCHDataTable
Get
Return Me.tableTBCW_PROF_DATA_SEARCH
End Get
End Property
_
Public ReadOnly Property TBCW_PROF_DOC_SEARCH() As TBCW_PROF_DOC_SEARCHDataTable
Get
Return Me.tableTBCW_PROF_DOC_SEARCH
End Get
End Property
_
Public ReadOnly Property TBCW_GROUP_PROFILE() As TBCW_GROUP_PROFILEDataTable
Get
Return Me.tableTBCW_GROUP_PROFILE
End Get
End Property
_
Public ReadOnly Property VWCW_GROUP_PROFILE() As VWCW_GROUP_PROFILEDataTable
Get
Return Me.tableVWCW_GROUP_PROFILE
End Get
End Property
_
Public ReadOnly Property TBCW_PROF_REL_WINDOW() As TBCW_PROF_REL_WINDOWDataTable
Get
Return Me.tableTBCW_PROF_REL_WINDOW
End Get
End Property
_
Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable
Get
Return Me.tableTBDD_CONNECTION
End Get
End Property
_
Public ReadOnly Property TBCW_PROF_REL_CONTROL() As TBCW_PROF_REL_CONTROLDataTable
Get
Return Me.tableTBCW_PROF_REL_CONTROL
End Get
End Property
_
Public ReadOnly Property TBWH_User() As TBWH_UserDataTable
Get
Return Me.tableTBWH_User
End Get
End Property
_
Public ReadOnly Property TBWH_GROUP() As TBWH_GROUPDataTable
Get
Return Me.tableTBWH_GROUP
End Get
End Property
_
Public ReadOnly Property TBWH_PROFILE_TYPE() As TBWH_PROFILE_TYPEDataTable
Get
Return Me.tableTBWH_PROFILE_TYPE
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("TBCW_PROF_DATA_SEARCH")) Is Nothing) Then
MyBase.Tables.Add(New TBCW_PROF_DATA_SEARCHDataTable(ds.Tables("TBCW_PROF_DATA_SEARCH")))
End If
If (Not (ds.Tables("TBCW_PROF_DOC_SEARCH")) Is Nothing) Then
MyBase.Tables.Add(New TBCW_PROF_DOC_SEARCHDataTable(ds.Tables("TBCW_PROF_DOC_SEARCH")))
End If
If (Not (ds.Tables("TBCW_GROUP_PROFILE")) Is Nothing) Then
MyBase.Tables.Add(New TBCW_GROUP_PROFILEDataTable(ds.Tables("TBCW_GROUP_PROFILE")))
End If
If (Not (ds.Tables("VWCW_GROUP_PROFILE")) Is Nothing) Then
MyBase.Tables.Add(New VWCW_GROUP_PROFILEDataTable(ds.Tables("VWCW_GROUP_PROFILE")))
End If
If (Not (ds.Tables("TBCW_PROF_REL_WINDOW")) Is Nothing) Then
MyBase.Tables.Add(New TBCW_PROF_REL_WINDOWDataTable(ds.Tables("TBCW_PROF_REL_WINDOW")))
End If
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("TBCW_PROF_REL_CONTROL")) Is Nothing) Then
MyBase.Tables.Add(New TBCW_PROF_REL_CONTROLDataTable(ds.Tables("TBCW_PROF_REL_CONTROL")))
End If
If (Not (ds.Tables("TBWH_User")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_UserDataTable(ds.Tables("TBWH_User")))
End If
If (Not (ds.Tables("TBWH_GROUP")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_GROUPDataTable(ds.Tables("TBWH_GROUP")))
End If
If (Not (ds.Tables("TBWH_PROFILE_TYPE")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_PROFILE_TYPEDataTable(ds.Tables("TBWH_PROFILE_TYPE")))
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.tableTBCW_PROF_DATA_SEARCH = CType(MyBase.Tables("TBCW_PROF_DATA_SEARCH"),TBCW_PROF_DATA_SEARCHDataTable)
If (initTable = true) Then
If (Not (Me.tableTBCW_PROF_DATA_SEARCH) Is Nothing) Then
Me.tableTBCW_PROF_DATA_SEARCH.InitVars
End If
End If
Me.tableTBCW_PROF_DOC_SEARCH = CType(MyBase.Tables("TBCW_PROF_DOC_SEARCH"),TBCW_PROF_DOC_SEARCHDataTable)
If (initTable = true) Then
If (Not (Me.tableTBCW_PROF_DOC_SEARCH) Is Nothing) Then
Me.tableTBCW_PROF_DOC_SEARCH.InitVars
End If
End If
Me.tableTBCW_GROUP_PROFILE = CType(MyBase.Tables("TBCW_GROUP_PROFILE"),TBCW_GROUP_PROFILEDataTable)
If (initTable = true) Then
If (Not (Me.tableTBCW_GROUP_PROFILE) Is Nothing) Then
Me.tableTBCW_GROUP_PROFILE.InitVars
End If
End If
Me.tableVWCW_GROUP_PROFILE = CType(MyBase.Tables("VWCW_GROUP_PROFILE"),VWCW_GROUP_PROFILEDataTable)
If (initTable = true) Then
If (Not (Me.tableVWCW_GROUP_PROFILE) Is Nothing) Then
Me.tableVWCW_GROUP_PROFILE.InitVars
End If
End If
Me.tableTBCW_PROF_REL_WINDOW = CType(MyBase.Tables("TBCW_PROF_REL_WINDOW"),TBCW_PROF_REL_WINDOWDataTable)
If (initTable = true) Then
If (Not (Me.tableTBCW_PROF_REL_WINDOW) Is Nothing) Then
Me.tableTBCW_PROF_REL_WINDOW.InitVars
End If
End If
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.tableTBCW_PROF_REL_CONTROL = CType(MyBase.Tables("TBCW_PROF_REL_CONTROL"),TBCW_PROF_REL_CONTROLDataTable)
If (initTable = true) Then
If (Not (Me.tableTBCW_PROF_REL_CONTROL) Is Nothing) Then
Me.tableTBCW_PROF_REL_CONTROL.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
Me.tableTBWH_GROUP = CType(MyBase.Tables("TBWH_GROUP"),TBWH_GROUPDataTable)
If (initTable = true) Then
If (Not (Me.tableTBWH_GROUP) Is Nothing) Then
Me.tableTBWH_GROUP.InitVars
End If
End If
Me.tableTBWH_PROFILE_TYPE = CType(MyBase.Tables("TBWH_PROFILE_TYPE"),TBWH_PROFILE_TYPEDataTable)
If (initTable = true) Then
If (Not (Me.tableTBWH_PROFILE_TYPE) Is Nothing) Then
Me.tableTBWH_PROFILE_TYPE.InitVars
End If
End If
Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF = Me.Relations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")
Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF = Me.Relations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")
Me.relationFK_WINDOW_ID = Me.Relations("FK_WINDOW_ID")
Me.relationFK_PROCESS_ID = Me.Relations("FK_PROCESS_ID")
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.tableTBCW_PROF_DATA_SEARCH = New TBCW_PROF_DATA_SEARCHDataTable()
MyBase.Tables.Add(Me.tableTBCW_PROF_DATA_SEARCH)
Me.tableTBCW_PROF_DOC_SEARCH = New TBCW_PROF_DOC_SEARCHDataTable()
MyBase.Tables.Add(Me.tableTBCW_PROF_DOC_SEARCH)
Me.tableTBCW_GROUP_PROFILE = New TBCW_GROUP_PROFILEDataTable()
MyBase.Tables.Add(Me.tableTBCW_GROUP_PROFILE)
Me.tableVWCW_GROUP_PROFILE = New VWCW_GROUP_PROFILEDataTable()
MyBase.Tables.Add(Me.tableVWCW_GROUP_PROFILE)
Me.tableTBCW_PROF_REL_WINDOW = New TBCW_PROF_REL_WINDOWDataTable()
MyBase.Tables.Add(Me.tableTBCW_PROF_REL_WINDOW)
Me.tableTBDD_CONNECTION = New TBDD_CONNECTIONDataTable()
MyBase.Tables.Add(Me.tableTBDD_CONNECTION)
Me.tableTBCW_PROF_REL_CONTROL = New TBCW_PROF_REL_CONTROLDataTable()
MyBase.Tables.Add(Me.tableTBCW_PROF_REL_CONTROL)
Me.tableTBWH_User = New TBWH_UserDataTable()
MyBase.Tables.Add(Me.tableTBWH_User)
Me.tableTBWH_GROUP = New TBWH_GROUPDataTable()
MyBase.Tables.Add(Me.tableTBWH_GROUP)
Me.tableTBWH_PROFILE_TYPE = New TBWH_PROFILE_TYPEDataTable()
MyBase.Tables.Add(Me.tableTBWH_PROFILE_TYPE)
Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF = New Global.System.Data.DataRelation("FK_TBCW_PROF_DATA_SEARCH_PROF_IF", New Global.System.Data.DataColumn() {Me.tableTBCW_PROFILES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn}, false)
Me.Relations.Add(Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF)
Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF = New Global.System.Data.DataRelation("FK_TBCW_PROF_DOC_SEARCH_PROF_IF", New Global.System.Data.DataColumn() {Me.tableTBCW_PROFILES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn}, false)
Me.Relations.Add(Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF)
Me.relationFK_WINDOW_ID = New Global.System.Data.DataRelation("FK_WINDOW_ID", New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_REL_WINDOW.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_REL_CONTROL.WINDOW_IDColumn}, false)
Me.Relations.Add(Me.relationFK_WINDOW_ID)
Me.relationFK_PROCESS_ID = New Global.System.Data.DataRelation("FK_PROCESS_ID", New Global.System.Data.DataColumn() {Me.tableTBCW_PROFILE_PROCESS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_REL_WINDOW.PROCESS_IDColumn}, false)
Me.Relations.Add(Me.relationFK_PROCESS_ID)
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 ShouldSerializeTBCW_PROF_DATA_SEARCH() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBCW_PROF_DOC_SEARCH() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBCW_GROUP_PROFILE() As Boolean
Return false
End Function
_
Private Function ShouldSerializeVWCW_GROUP_PROFILE() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBCW_PROF_REL_WINDOW() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBDD_CONNECTION() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBCW_PROF_REL_CONTROL() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBWH_User() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBWH_GROUP() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBWH_PROFILE_TYPE() 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 TBCW_PROF_DATA_SEARCHRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_DATA_SEARCHRowChangeEvent)
_
Public Delegate Sub TBCW_PROF_DOC_SEARCHRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_DOC_SEARCHRowChangeEvent)
_
Public Delegate Sub TBCW_GROUP_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_GROUP_PROFILERowChangeEvent)
_
Public Delegate Sub VWCW_GROUP_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As VWCW_GROUP_PROFILERowChangeEvent)
_
Public Delegate Sub TBCW_PROF_REL_WINDOWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_REL_WINDOWRowChangeEvent)
_
Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent)
_
Public Delegate Sub TBCW_PROF_REL_CONTROLRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_REL_CONTROLRowChangeEvent)
_
Public Delegate Sub TBWH_UserRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_UserRowChangeEvent)
_
Public Delegate Sub TBWH_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_GROUPRowChangeEvent)
_
Public Delegate Sub TBWH_PROFILE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_PROFILE_TYPERowChangeEvent)
'''
'''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 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
Private columnACTIVE As Global.System.Data.DataColumn
Private columnPROFILE_TYPE 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 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 ACTIVEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnACTIVE
End Get
End Property
_
Public ReadOnly Property PROFILE_TYPEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPROFILE_TYPE
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As 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 REGEX_EXPRESSION As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ACTIVE As Boolean, ByVal PROFILE_TYPE As Short) As TBCW_PROFILESRow
Dim rowTBCW_PROFILESRow As TBCW_PROFILESRow = CType(Me.NewRow,TBCW_PROFILESRow)
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE}
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.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")
Me.columnACTIVE = MyBase.Columns("ACTIVE")
Me.columnPROFILE_TYPE = MyBase.Columns("PROFILE_TYPE")
End Sub
_
Private Sub InitClass()
Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGUID)
Me.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.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.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnACTIVE)
Me.columnPROFILE_TYPE = New Global.System.Data.DataColumn("PROFILE_TYPE", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPROFILE_TYPE)
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.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
Me.columnACTIVE.AllowDBNull = false
Me.columnACTIVE.DefaultValue = CType(false,Boolean)
Me.columnPROFILE_TYPE.AllowDBNull = false
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.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 TBCW_PROF_DATA_SEARCHDataTable
Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DATA_SEARCHRow)
Private columnGUID As Global.System.Data.DataColumn
Private columnPROFILE_ID As Global.System.Data.DataColumn
Private columnCONN_ID As Global.System.Data.DataColumn
Private columnSQL_COMMAND As Global.System.Data.DataColumn
Private columnTAB_INDEX As Global.System.Data.DataColumn
Private columnACTIVE As Global.System.Data.DataColumn
Private columnTAB_TITLE As Global.System.Data.DataColumn
Private columnADDED_WHO As Global.System.Data.DataColumn
Private columnADDED_WHEN As Global.System.Data.DataColumn
Private columnCHANGED_WHO As Global.System.Data.DataColumn
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
Private columnCOUNT_COMMAND As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "TBCW_PROF_DATA_SEARCH"
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 CONN_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCONN_ID
End Get
End Property
_
Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_COMMAND
End Get
End Property
_
Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTAB_INDEX
End Get
End Property
_
Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnACTIVE
End Get
End Property
_
Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTAB_TITLE
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_COMMANDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOUNT_COMMAND
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_PROF_DATA_SEARCHRow
Get
Return CType(Me.Rows(index),TBCW_PROF_DATA_SEARCHRow)
End Get
End Property
_
Public Event TBCW_PROF_DATA_SEARCHRowChanging As TBCW_PROF_DATA_SEARCHRowChangeEventHandler
_
Public Event TBCW_PROF_DATA_SEARCHRowChanged As TBCW_PROF_DATA_SEARCHRowChangeEventHandler
_
Public Event TBCW_PROF_DATA_SEARCHRowDeleting As TBCW_PROF_DATA_SEARCHRowChangeEventHandler
_
Public Event TBCW_PROF_DATA_SEARCHRowDeleted As TBCW_PROF_DATA_SEARCHRowChangeEventHandler
_
Public Overloads Sub AddTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBCW_PROF_DATA_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COUNT_COMMAND As String) As TBCW_PROF_DATA_SEARCHRow
Dim rowTBCW_PROF_DATA_SEARCHRow As TBCW_PROF_DATA_SEARCHRow = CType(Me.NewRow,TBCW_PROF_DATA_SEARCHRow)
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND}
If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF) Is Nothing) Then
columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF(0)
End If
rowTBCW_PROF_DATA_SEARCHRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBCW_PROF_DATA_SEARCHRow)
Return rowTBCW_PROF_DATA_SEARCHRow
End Function
_
Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DATA_SEARCHRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_DATA_SEARCHRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBCW_PROF_DATA_SEARCHDataTable = CType(MyBase.Clone,TBCW_PROF_DATA_SEARCHDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBCW_PROF_DATA_SEARCHDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID")
Me.columnCONN_ID = MyBase.Columns("CONN_ID")
Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND")
Me.columnTAB_INDEX = MyBase.Columns("TAB_INDEX")
Me.columnACTIVE = MyBase.Columns("ACTIVE")
Me.columnTAB_TITLE = MyBase.Columns("TAB_TITLE")
Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
Me.columnCOUNT_COMMAND = MyBase.Columns("COUNT_COMMAND")
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.columnCONN_ID = New Global.System.Data.DataColumn("CONN_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCONN_ID)
Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSQL_COMMAND)
Me.columnTAB_INDEX = New Global.System.Data.DataColumn("TAB_INDEX", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTAB_INDEX)
Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnACTIVE)
Me.columnTAB_TITLE = New Global.System.Data.DataColumn("TAB_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTAB_TITLE)
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.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCOUNT_COMMAND)
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.columnCONN_ID.AllowDBNull = false
Me.columnSQL_COMMAND.AllowDBNull = false
Me.columnSQL_COMMAND.MaxLength = 2147483647
Me.columnTAB_INDEX.AllowDBNull = false
Me.columnACTIVE.AllowDBNull = false
Me.columnTAB_TITLE.AllowDBNull = false
Me.columnTAB_TITLE.MaxLength = 100
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50
Me.columnCOUNT_COMMAND.AllowDBNull = false
Me.columnCOUNT_COMMAND.DefaultValue = CType(" ",String)
Me.columnCOUNT_COMMAND.MaxLength = 2147483647
End Sub
_
Public Function NewTBCW_PROF_DATA_SEARCHRow() As TBCW_PROF_DATA_SEARCHRow
Return CType(Me.NewRow,TBCW_PROF_DATA_SEARCHRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBCW_PROF_DATA_SEARCHRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBCW_PROF_DATA_SEARCHRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangedEvent) Is Nothing) Then
RaiseEvent TBCW_PROF_DATA_SEARCHRowChanged(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangingEvent) Is Nothing) Then
RaiseEvent TBCW_PROF_DATA_SEARCHRowChanging(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletedEvent) Is Nothing) Then
RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleted(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletingEvent) Is Nothing) Then
RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleting(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action))
End If
End Sub
_
Public Sub RemoveTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow)
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_PROF_DATA_SEARCHDataTable"
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_PROF_DOC_SEARCHDataTable
Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DOC_SEARCHRow)
Private columnGUID As Global.System.Data.DataColumn
Private columnPROFILE_ID As Global.System.Data.DataColumn
Private columnCONN_ID As Global.System.Data.DataColumn
Private columnSQL_COMMAND As Global.System.Data.DataColumn
Private columnTAB_INDEX As Global.System.Data.DataColumn
Private columnACTIVE As Global.System.Data.DataColumn
Private columnTAB_TITLE As Global.System.Data.DataColumn
Private columnADDED_WHO As Global.System.Data.DataColumn
Private columnADDED_WHEN As Global.System.Data.DataColumn
Private columnCHANGED_WHO As Global.System.Data.DataColumn
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
Private columnCOUNT_COMMAND As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "TBCW_PROF_DOC_SEARCH"
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 CONN_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCONN_ID
End Get
End Property
_
Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_COMMAND
End Get
End Property
_
Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTAB_INDEX
End Get
End Property
_
Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnACTIVE
End Get
End Property
_
Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTAB_TITLE
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_COMMANDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOUNT_COMMAND
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_PROF_DOC_SEARCHRow
Get
Return CType(Me.Rows(index),TBCW_PROF_DOC_SEARCHRow)
End Get
End Property
_
Public Event TBCW_PROF_DOC_SEARCHRowChanging As TBCW_PROF_DOC_SEARCHRowChangeEventHandler
_
Public Event TBCW_PROF_DOC_SEARCHRowChanged As TBCW_PROF_DOC_SEARCHRowChangeEventHandler
_
Public Event TBCW_PROF_DOC_SEARCHRowDeleting As TBCW_PROF_DOC_SEARCHRowChangeEventHandler
_
Public Event TBCW_PROF_DOC_SEARCHRowDeleted As TBCW_PROF_DOC_SEARCHRowChangeEventHandler
_
Public Overloads Sub AddTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBCW_PROF_DOC_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COUNT_COMMAND As String) As TBCW_PROF_DOC_SEARCHRow
Dim rowTBCW_PROF_DOC_SEARCHRow As TBCW_PROF_DOC_SEARCHRow = CType(Me.NewRow,TBCW_PROF_DOC_SEARCHRow)
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND}
If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF) Is Nothing) Then
columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF(0)
End If
rowTBCW_PROF_DOC_SEARCHRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBCW_PROF_DOC_SEARCHRow)
Return rowTBCW_PROF_DOC_SEARCHRow
End Function
_
Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DOC_SEARCHRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_DOC_SEARCHRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBCW_PROF_DOC_SEARCHDataTable = CType(MyBase.Clone,TBCW_PROF_DOC_SEARCHDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBCW_PROF_DOC_SEARCHDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID")
Me.columnCONN_ID = MyBase.Columns("CONN_ID")
Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND")
Me.columnTAB_INDEX = MyBase.Columns("TAB_INDEX")
Me.columnACTIVE = MyBase.Columns("ACTIVE")
Me.columnTAB_TITLE = MyBase.Columns("TAB_TITLE")
Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
Me.columnCOUNT_COMMAND = MyBase.Columns("COUNT_COMMAND")
End Sub