'------------------------------------------------------------------------------
'
' 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_GROUP_PROFILE As TBCW_GROUP_PROFILEDataTable
Private tableTBCW_PROF_DATA_SEARCH As TBCW_PROF_DATA_SEARCHDataTable
Private tableTBCW_PROF_DOC_SEARCH As TBCW_PROF_DOC_SEARCHDataTable
Private tableTBCW_PROF_REL_CONTROL As TBCW_PROF_REL_CONTROLDataTable
Private tableTBCW_PROF_REL_WINDOW As TBCW_PROF_REL_WINDOWDataTable
Private tableTBCW_PROFILE_PROCESS As TBCW_PROFILE_PROCESSDataTable
Private tableTBCW_PROFILES As TBCW_PROFILESDataTable
Private tableTBCW_USER_PROFILE As TBCW_USER_PROFILEDataTable
Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable
Private tableVWCW_USER_PROFILE As VWCW_USER_PROFILEDataTable
Private tableVWCW_GROUP_PROFILE As VWCW_GROUP_PROFILEDataTable
Private tableTBWH_SEARCH_POSITION As TBWH_SEARCH_POSITIONDataTable
Private tableTBWH_PROFILE_TYPE As TBWH_PROFILE_TYPEDataTable
Private tableTBWH_User As TBWH_UserDataTable
Private tableTBWH_GROUP As TBWH_GROUPDataTable
Private relationFK_TBCW_PROF_REL_CONTROL_WINDOW_ID As Global.System.Data.DataRelation
Private relationFK_TBCW_PROF_REL_WINDOW_PROCESS_ID As Global.System.Data.DataRelation
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 _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_GROUP_PROFILE")) Is Nothing) Then
MyBase.Tables.Add(New TBCW_GROUP_PROFILEDataTable(ds.Tables("TBCW_GROUP_PROFILE")))
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_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("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("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_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("TBDD_CONNECTION")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION")))
End If
If (Not (ds.Tables("VWCW_USER_PROFILE")) Is Nothing) Then
MyBase.Tables.Add(New VWCW_USER_PROFILEDataTable(ds.Tables("VWCW_USER_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("TBWH_SEARCH_POSITION")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_SEARCH_POSITIONDataTable(ds.Tables("TBWH_SEARCH_POSITION")))
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
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
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_GROUP_PROFILE() As TBCW_GROUP_PROFILEDataTable
Get
Return Me.tableTBCW_GROUP_PROFILE
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_PROF_REL_CONTROL() As TBCW_PROF_REL_CONTROLDataTable
Get
Return Me.tableTBCW_PROF_REL_CONTROL
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 TBCW_PROFILE_PROCESS() As TBCW_PROFILE_PROCESSDataTable
Get
Return Me.tableTBCW_PROFILE_PROCESS
End Get
End Property
_
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 TBDD_CONNECTION() As TBDD_CONNECTIONDataTable
Get
Return Me.tableTBDD_CONNECTION
End Get
End Property
_
Public ReadOnly Property VWCW_USER_PROFILE() As VWCW_USER_PROFILEDataTable
Get
Return Me.tableVWCW_USER_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 TBWH_SEARCH_POSITION() As TBWH_SEARCH_POSITIONDataTable
Get
Return Me.tableTBWH_SEARCH_POSITION
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 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 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_GROUP_PROFILE")) Is Nothing) Then
MyBase.Tables.Add(New TBCW_GROUP_PROFILEDataTable(ds.Tables("TBCW_GROUP_PROFILE")))
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_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("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("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_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("TBDD_CONNECTION")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION")))
End If
If (Not (ds.Tables("VWCW_USER_PROFILE")) Is Nothing) Then
MyBase.Tables.Add(New VWCW_USER_PROFILEDataTable(ds.Tables("VWCW_USER_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("TBWH_SEARCH_POSITION")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_SEARCH_POSITIONDataTable(ds.Tables("TBWH_SEARCH_POSITION")))
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
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
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_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.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_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.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.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_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.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.tableVWCW_USER_PROFILE = CType(MyBase.Tables("VWCW_USER_PROFILE"),VWCW_USER_PROFILEDataTable)
If (initTable = true) Then
If (Not (Me.tableVWCW_USER_PROFILE) Is Nothing) Then
Me.tableVWCW_USER_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.tableTBWH_SEARCH_POSITION = CType(MyBase.Tables("TBWH_SEARCH_POSITION"),TBWH_SEARCH_POSITIONDataTable)
If (initTable = true) Then
If (Not (Me.tableTBWH_SEARCH_POSITION) Is Nothing) Then
Me.tableTBWH_SEARCH_POSITION.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.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.relationFK_TBCW_PROF_REL_CONTROL_WINDOW_ID = Me.Relations("FK_TBCW_PROF_REL_CONTROL_WINDOW_ID")
Me.relationFK_TBCW_PROF_REL_WINDOW_PROCESS_ID = Me.Relations("FK_TBCW_PROF_REL_WINDOW_PROCESS_ID")
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")
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_GROUP_PROFILE = New TBCW_GROUP_PROFILEDataTable()
MyBase.Tables.Add(Me.tableTBCW_GROUP_PROFILE)
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_PROF_REL_CONTROL = New TBCW_PROF_REL_CONTROLDataTable()
MyBase.Tables.Add(Me.tableTBCW_PROF_REL_CONTROL)
Me.tableTBCW_PROF_REL_WINDOW = New TBCW_PROF_REL_WINDOWDataTable()
MyBase.Tables.Add(Me.tableTBCW_PROF_REL_WINDOW)
Me.tableTBCW_PROFILE_PROCESS = New TBCW_PROFILE_PROCESSDataTable()
MyBase.Tables.Add(Me.tableTBCW_PROFILE_PROCESS)
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.tableTBDD_CONNECTION = New TBDD_CONNECTIONDataTable()
MyBase.Tables.Add(Me.tableTBDD_CONNECTION)
Me.tableVWCW_USER_PROFILE = New VWCW_USER_PROFILEDataTable()
MyBase.Tables.Add(Me.tableVWCW_USER_PROFILE)
Me.tableVWCW_GROUP_PROFILE = New VWCW_GROUP_PROFILEDataTable()
MyBase.Tables.Add(Me.tableVWCW_GROUP_PROFILE)
Me.tableTBWH_SEARCH_POSITION = New TBWH_SEARCH_POSITIONDataTable()
MyBase.Tables.Add(Me.tableTBWH_SEARCH_POSITION)
Me.tableTBWH_PROFILE_TYPE = New TBWH_PROFILE_TYPEDataTable()
MyBase.Tables.Add(Me.tableTBWH_PROFILE_TYPE)
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.relationFK_TBCW_PROF_REL_CONTROL_WINDOW_ID = New Global.System.Data.DataRelation("FK_TBCW_PROF_REL_CONTROL_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_TBCW_PROF_REL_CONTROL_WINDOW_ID)
Me.relationFK_TBCW_PROF_REL_WINDOW_PROCESS_ID = New Global.System.Data.DataRelation("FK_TBCW_PROF_REL_WINDOW_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_TBCW_PROF_REL_WINDOW_PROCESS_ID)
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)
End Sub
_
Private Function ShouldSerializeTBCW_GROUP_PROFILE() 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_PROF_REL_CONTROL() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBCW_PROF_REL_WINDOW() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBCW_PROFILE_PROCESS() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBCW_PROFILES() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBCW_USER_PROFILE() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBDD_CONNECTION() As Boolean
Return false
End Function
_
Private Function ShouldSerializeVWCW_USER_PROFILE() As Boolean
Return false
End Function
_
Private Function ShouldSerializeVWCW_GROUP_PROFILE() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBWH_SEARCH_POSITION() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBWH_PROFILE_TYPE() 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 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_GROUP_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_GROUP_PROFILERowChangeEvent)
_
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_PROF_REL_CONTROLRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_REL_CONTROLRowChangeEvent)
_
Public Delegate Sub TBCW_PROF_REL_WINDOWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_REL_WINDOWRowChangeEvent)
_
Public Delegate Sub TBCW_PROFILE_PROCESSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROFILE_PROCESSRowChangeEvent)
_
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 TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent)
_
Public Delegate Sub VWCW_USER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As VWCW_USER_PROFILERowChangeEvent)
_
Public Delegate Sub VWCW_GROUP_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As VWCW_GROUP_PROFILERowChangeEvent)
_
Public Delegate Sub TBWH_SEARCH_POSITIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_SEARCH_POSITIONRowChangeEvent)
_
Public Delegate Sub TBWH_PROFILE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_PROFILE_TYPERowChangeEvent)
_
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)
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class TBCW_GROUP_PROFILEDataTable
Inherits Global.System.Data.TypedTableBase(Of TBCW_GROUP_PROFILERow)
Private columnGUID As Global.System.Data.DataColumn
Private columnPROFILE_ID As Global.System.Data.DataColumn
Private columnGROUP_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_GROUP_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 GROUP_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGROUP_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_GROUP_PROFILERow
Get
Return CType(Me.Rows(index),TBCW_GROUP_PROFILERow)
End Get
End Property
_
Public Event TBCW_GROUP_PROFILERowChanging As TBCW_GROUP_PROFILERowChangeEventHandler
_
Public Event TBCW_GROUP_PROFILERowChanged As TBCW_GROUP_PROFILERowChangeEventHandler
_
Public Event TBCW_GROUP_PROFILERowDeleting As TBCW_GROUP_PROFILERowChangeEventHandler
_
Public Event TBCW_GROUP_PROFILERowDeleted As TBCW_GROUP_PROFILERowChangeEventHandler
_
Public Overloads Sub AddTBCW_GROUP_PROFILERow(ByVal row As TBCW_GROUP_PROFILERow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBCW_GROUP_PROFILERow(ByVal PROFILE_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBCW_GROUP_PROFILERow
Dim rowTBCW_GROUP_PROFILERow As TBCW_GROUP_PROFILERow = CType(Me.NewRow,TBCW_GROUP_PROFILERow)
Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN}
rowTBCW_GROUP_PROFILERow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBCW_GROUP_PROFILERow)
Return rowTBCW_GROUP_PROFILERow
End Function
_
Public Function FindByGUID(ByVal GUID As Integer) As TBCW_GROUP_PROFILERow
Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_GROUP_PROFILERow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBCW_GROUP_PROFILEDataTable = CType(MyBase.Clone,TBCW_GROUP_PROFILEDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBCW_GROUP_PROFILEDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID")
Me.columnGROUP_ID = MyBase.Columns("GROUP_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.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGROUP_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.AutoIncrementSeed = 1
Me.columnGUID.AllowDBNull = false
Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true
Me.columnPROFILE_ID.AllowDBNull = false
Me.columnGROUP_ID.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
End Sub
_
Public Function NewTBCW_GROUP_PROFILERow() As TBCW_GROUP_PROFILERow
Return CType(Me.NewRow,TBCW_GROUP_PROFILERow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBCW_GROUP_PROFILERow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBCW_GROUP_PROFILERow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBCW_GROUP_PROFILERowChangedEvent) Is Nothing) Then
RaiseEvent TBCW_GROUP_PROFILERowChanged(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_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_GROUP_PROFILERowChangingEvent) Is Nothing) Then
RaiseEvent TBCW_GROUP_PROFILERowChanging(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_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_GROUP_PROFILERowDeletedEvent) Is Nothing) Then
RaiseEvent TBCW_GROUP_PROFILERowDeleted(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_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_GROUP_PROFILERowDeletingEvent) Is Nothing) Then
RaiseEvent TBCW_GROUP_PROFILERowDeleting(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action))
End If
End Sub
_
Public Sub RemoveTBCW_GROUP_PROFILERow(ByVal row As TBCW_GROUP_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_GROUP_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_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 columnCOUNT_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
_
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 COUNT_COMMANDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOUNT_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() 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 COUNT_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) 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, COUNT_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
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.columnCOUNT_COMMAND = MyBase.Columns("COUNT_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")
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.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCOUNT_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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true
Me.columnGUID.AutoIncrementSeed = 1
Me.columnGUID.AllowDBNull = false
Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true
Me.columnPROFILE_ID.AllowDBNull = false
Me.columnCONN_ID.AllowDBNull = false
Me.columnSQL_COMMAND.AllowDBNull = false
Me.columnSQL_COMMAND.MaxLength = 2147483647
Me.columnCOUNT_COMMAND.AllowDBNull = false
Me.columnCOUNT_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
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 columnCOUNT_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
_
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 COUNT_COMMANDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOUNT_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() 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 COUNT_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) 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, COUNT_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
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.columnCOUNT_COMMAND = MyBase.Columns("COUNT_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")
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.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCOUNT_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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true
Me.columnGUID.AutoIncrementSeed = 1
Me.columnGUID.AllowDBNull = false
Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true
Me.columnPROFILE_ID.AllowDBNull = false
Me.columnCONN_ID.AllowDBNull = false
Me.columnSQL_COMMAND.AllowDBNull = false
Me.columnSQL_COMMAND.MaxLength = 2147483647
Me.columnCOUNT_COMMAND.AllowDBNull = false
Me.columnCOUNT_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
End Sub
_
Public Function NewTBCW_PROF_DOC_SEARCHRow() As TBCW_PROF_DOC_SEARCHRow
Return CType(Me.NewRow,TBCW_PROF_DOC_SEARCHRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBCW_PROF_DOC_SEARCHRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBCW_PROF_DOC_SEARCHRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangedEvent) Is Nothing) Then
RaiseEvent TBCW_PROF_DOC_SEARCHRowChanged(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_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_DOC_SEARCHRowChangingEvent) Is Nothing) Then
RaiseEvent TBCW_PROF_DOC_SEARCHRowChanging(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_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_DOC_SEARCHRowDeletedEvent) Is Nothing) Then
RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleted(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_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_DOC_SEARCHRowDeletingEvent) Is Nothing) Then
RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleting(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action))
End If
End Sub
_
Public Sub RemoveTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_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_DOC_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_REL_CONTROLDataTable
Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_REL_CONTROLRow)
Private columnGUID As Global.System.Data.DataColumn
Private columnDESCRIPTION As Global.System.Data.DataColumn
Private columnWINDOW_ID As Global.System.Data.DataColumn
Private columnCONTROL_NAME As Global.System.Data.DataColumn
Private columnTOPLEFT_TOP As Global.System.Data.DataColumn
Private columnTOPLEFT_LEFT As Global.System.Data.DataColumn
Private columnTOPLEFT_RIGHT As Global.System.Data.DataColumn
Private columnTOPLEFT_BOTTOM As Global.System.Data.DataColumn
Private columnTOPRIGHT_TOP As Global.System.Data.DataColumn
Private columnTOPRIGHT_LEFT As Global.System.Data.DataColumn
Private columnTOPRIGHT_RIGHT As Global.System.Data.DataColumn
Private columnTOPRIGHT_BOTTOM As Global.System.Data.DataColumn
Private columnBOTTOMLEFT_TOP As Global.System.Data.DataColumn
Private columnBOTTOMLEFT_LEFT As Global.System.Data.DataColumn
Private columnBOTTOMLEFT_RIGHT As Global.System.Data.DataColumn
Private columnBOTTOMLEFT_BOTTOM As Global.System.Data.DataColumn
Private columnBOTTOMRIGHT_TOP As Global.System.Data.DataColumn
Private columnBOTTOMRIGHT_LEFT As Global.System.Data.DataColumn
Private columnBOTTOMRIGHT_RIGHT As Global.System.Data.DataColumn
Private columnBOTTOMRIGHT_BOTTOM As Global.System.Data.DataColumn
Private columnSEQUENCE 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_PROF_REL_CONTROL"
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 DESCRIPTIONColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDESCRIPTION
End Get
End Property
_
Public ReadOnly Property WINDOW_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnWINDOW_ID
End Get
End Property
_
Public ReadOnly Property CONTROL_NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCONTROL_NAME
End Get
End Property
_
Public ReadOnly Property TOPLEFT_TOPColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTOPLEFT_TOP
End Get
End Property
_
Public ReadOnly Property TOPLEFT_LEFTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTOPLEFT_LEFT
End Get
End Property
_
Public ReadOnly Property TOPLEFT_RIGHTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTOPLEFT_RIGHT
End Get
End Property
_
Public ReadOnly Property TOPLEFT_BOTTOMColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTOPLEFT_BOTTOM
End Get
End Property
_
Public ReadOnly Property TOPRIGHT_TOPColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTOPRIGHT_TOP
End Get
End Property
_
Public ReadOnly Property TOPRIGHT_LEFTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTOPRIGHT_LEFT
End Get
End Property
_
Public ReadOnly Property TOPRIGHT_RIGHTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTOPRIGHT_RIGHT
End Get
End Property
_
Public ReadOnly Property TOPRIGHT_BOTTOMColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTOPRIGHT_BOTTOM
End Get
End Property
_
Public ReadOnly Property BOTTOMLEFT_TOPColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBOTTOMLEFT_TOP
End Get
End Property
_
Public ReadOnly Property BOTTOMLEFT_LEFTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBOTTOMLEFT_LEFT
End Get
End Property
_
Public ReadOnly Property BOTTOMLEFT_RIGHTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBOTTOMLEFT_RIGHT
End Get
End Property
_
Public ReadOnly Property BOTTOMLEFT_BOTTOMColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBOTTOMLEFT_BOTTOM
End Get
End Property
_
Public ReadOnly Property BOTTOMRIGHT_TOPColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBOTTOMRIGHT_TOP
End Get
End Property
_
Public ReadOnly Property BOTTOMRIGHT_LEFTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBOTTOMRIGHT_LEFT
End Get
End Property
_
Public ReadOnly Property BOTTOMRIGHT_RIGHTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBOTTOMRIGHT_RIGHT
End Get
End Property
_
Public ReadOnly Property BOTTOMRIGHT_BOTTOMColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBOTTOMRIGHT_BOTTOM
End Get
End Property
_
Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSEQUENCE
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_PROF_REL_CONTROLRow
Get
Return CType(Me.Rows(index),TBCW_PROF_REL_CONTROLRow)
End Get
End Property
_
Public Event TBCW_PROF_REL_CONTROLRowChanging As TBCW_PROF_REL_CONTROLRowChangeEventHandler
_
Public Event TBCW_PROF_REL_CONTROLRowChanged As TBCW_PROF_REL_CONTROLRowChangeEventHandler
_
Public Event TBCW_PROF_REL_CONTROLRowDeleting As TBCW_PROF_REL_CONTROLRowChangeEventHandler
_
Public Event TBCW_PROF_REL_CONTROLRowDeleted As TBCW_PROF_REL_CONTROLRowChangeEventHandler
_
Public Overloads Sub AddTBCW_PROF_REL_CONTROLRow(ByVal row As TBCW_PROF_REL_CONTROLRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBCW_PROF_REL_CONTROLRow( _
ByVal DESCRIPTION As String, _
ByVal parentTBCW_PROF_REL_WINDOWRowByFK_TBCW_PROF_REL_CONTROL_WINDOW_ID As TBCW_PROF_REL_WINDOWRow, _
ByVal CONTROL_NAME As String, _
ByVal TOPLEFT_TOP As Integer, _
ByVal TOPLEFT_LEFT As Integer, _
ByVal TOPLEFT_RIGHT As Integer, _
ByVal TOPLEFT_BOTTOM As Integer, _
ByVal TOPRIGHT_TOP As Integer, _
ByVal TOPRIGHT_LEFT As Integer, _
ByVal TOPRIGHT_RIGHT As Integer, _
ByVal TOPRIGHT_BOTTOM As Integer, _
ByVal BOTTOMLEFT_TOP As Integer, _
ByVal BOTTOMLEFT_LEFT As Integer, _
ByVal BOTTOMLEFT_RIGHT As Integer, _
ByVal BOTTOMLEFT_BOTTOM As Integer, _
ByVal BOTTOMRIGHT_TOP As Integer, _
ByVal BOTTOMRIGHT_LEFT As Integer, _
ByVal BOTTOMRIGHT_RIGHT As Integer, _
ByVal BOTTOMRIGHT_BOTTOM As Integer, _
ByVal SEQUENCE As Byte, _
ByVal ADDED_WHO As String, _
ByVal ADDED_WHEN As Date, _
ByVal CHANGED_WHO As String, _
ByVal CHANGED_WHEN As Date) As TBCW_PROF_REL_CONTROLRow
Dim rowTBCW_PROF_REL_CONTROLRow As TBCW_PROF_REL_CONTROLRow = CType(Me.NewRow,TBCW_PROF_REL_CONTROLRow)
Dim columnValuesArray() As Object = New Object() {Nothing, DESCRIPTION, Nothing, CONTROL_NAME, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
If (Not (parentTBCW_PROF_REL_WINDOWRowByFK_TBCW_PROF_REL_CONTROL_WINDOW_ID) Is Nothing) Then
columnValuesArray(2) = parentTBCW_PROF_REL_WINDOWRowByFK_TBCW_PROF_REL_CONTROL_WINDOW_ID(0)
End If
rowTBCW_PROF_REL_CONTROLRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBCW_PROF_REL_CONTROLRow)
Return rowTBCW_PROF_REL_CONTROLRow
End Function
_
Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_REL_CONTROLRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_REL_CONTROLRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBCW_PROF_REL_CONTROLDataTable = CType(MyBase.Clone,TBCW_PROF_REL_CONTROLDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBCW_PROF_REL_CONTROLDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION")
Me.columnWINDOW_ID = MyBase.Columns("WINDOW_ID")
Me.columnCONTROL_NAME = MyBase.Columns("CONTROL_NAME")
Me.columnTOPLEFT_TOP = MyBase.Columns("TOPLEFT_TOP")
Me.columnTOPLEFT_LEFT = MyBase.Columns("TOPLEFT_LEFT")
Me.columnTOPLEFT_RIGHT = MyBase.Columns("TOPLEFT_RIGHT")
Me.columnTOPLEFT_BOTTOM = MyBase.Columns("TOPLEFT_BOTTOM")
Me.columnTOPRIGHT_TOP = MyBase.Columns("TOPRIGHT_TOP")
Me.columnTOPRIGHT_LEFT = MyBase.Columns("TOPRIGHT_LEFT")
Me.columnTOPRIGHT_RIGHT = MyBase.Columns("TOPRIGHT_RIGHT")
Me.columnTOPRIGHT_BOTTOM = MyBase.Columns("TOPRIGHT_BOTTOM")
Me.columnBOTTOMLEFT_TOP = MyBase.Columns("BOTTOMLEFT_TOP")
Me.columnBOTTOMLEFT_LEFT = MyBase.Columns("BOTTOMLEFT_LEFT")
Me.columnBOTTOMLEFT_RIGHT = MyBase.Columns("BOTTOMLEFT_RIGHT")
Me.columnBOTTOMLEFT_BOTTOM = MyBase.Columns("BOTTOMLEFT_BOTTOM")
Me.columnBOTTOMRIGHT_TOP = MyBase.Columns("BOTTOMRIGHT_TOP")
Me.columnBOTTOMRIGHT_LEFT = MyBase.Columns("BOTTOMRIGHT_LEFT")
Me.columnBOTTOMRIGHT_RIGHT = MyBase.Columns("BOTTOMRIGHT_RIGHT")
Me.columnBOTTOMRIGHT_BOTTOM = MyBase.Columns("BOTTOMRIGHT_BOTTOM")
Me.columnSEQUENCE = MyBase.Columns("SEQUENCE")
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.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDESCRIPTION)
Me.columnWINDOW_ID = New Global.System.Data.DataColumn("WINDOW_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnWINDOW_ID)
Me.columnCONTROL_NAME = New Global.System.Data.DataColumn("CONTROL_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCONTROL_NAME)
Me.columnTOPLEFT_TOP = New Global.System.Data.DataColumn("TOPLEFT_TOP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTOPLEFT_TOP)
Me.columnTOPLEFT_LEFT = New Global.System.Data.DataColumn("TOPLEFT_LEFT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTOPLEFT_LEFT)
Me.columnTOPLEFT_RIGHT = New Global.System.Data.DataColumn("TOPLEFT_RIGHT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTOPLEFT_RIGHT)
Me.columnTOPLEFT_BOTTOM = New Global.System.Data.DataColumn("TOPLEFT_BOTTOM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTOPLEFT_BOTTOM)
Me.columnTOPRIGHT_TOP = New Global.System.Data.DataColumn("TOPRIGHT_TOP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTOPRIGHT_TOP)
Me.columnTOPRIGHT_LEFT = New Global.System.Data.DataColumn("TOPRIGHT_LEFT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTOPRIGHT_LEFT)
Me.columnTOPRIGHT_RIGHT = New Global.System.Data.DataColumn("TOPRIGHT_RIGHT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTOPRIGHT_RIGHT)
Me.columnTOPRIGHT_BOTTOM = New Global.System.Data.DataColumn("TOPRIGHT_BOTTOM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTOPRIGHT_BOTTOM)
Me.columnBOTTOMLEFT_TOP = New Global.System.Data.DataColumn("BOTTOMLEFT_TOP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBOTTOMLEFT_TOP)
Me.columnBOTTOMLEFT_LEFT = New Global.System.Data.DataColumn("BOTTOMLEFT_LEFT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBOTTOMLEFT_LEFT)
Me.columnBOTTOMLEFT_RIGHT = New Global.System.Data.DataColumn("BOTTOMLEFT_RIGHT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBOTTOMLEFT_RIGHT)
Me.columnBOTTOMLEFT_BOTTOM = New Global.System.Data.DataColumn("BOTTOMLEFT_BOTTOM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBOTTOMLEFT_BOTTOM)
Me.columnBOTTOMRIGHT_TOP = New Global.System.Data.DataColumn("BOTTOMRIGHT_TOP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBOTTOMRIGHT_TOP)
Me.columnBOTTOMRIGHT_LEFT = New Global.System.Data.DataColumn("BOTTOMRIGHT_LEFT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBOTTOMRIGHT_LEFT)
Me.columnBOTTOMRIGHT_RIGHT = New Global.System.Data.DataColumn("BOTTOMRIGHT_RIGHT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBOTTOMRIGHT_RIGHT)
Me.columnBOTTOMRIGHT_BOTTOM = New Global.System.Data.DataColumn("BOTTOMRIGHT_BOTTOM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBOTTOMRIGHT_BOTTOM)
Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSEQUENCE)
Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnADDED_WHO)
Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnADDED_WHEN)
Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCHANGED_WHO)
Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCHANGED_WHEN)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true
Me.columnGUID.AutoIncrementSeed = 1
Me.columnGUID.AllowDBNull = false
Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true
Me.columnDESCRIPTION.AllowDBNull = false
Me.columnDESCRIPTION.MaxLength = 250
Me.columnWINDOW_ID.AllowDBNull = false
Me.columnCONTROL_NAME.AllowDBNull = false
Me.columnCONTROL_NAME.MaxLength = 500
Me.columnTOPLEFT_TOP.AllowDBNull = false
Me.columnTOPLEFT_LEFT.AllowDBNull = false
Me.columnTOPLEFT_RIGHT.AllowDBNull = false
Me.columnTOPLEFT_BOTTOM.AllowDBNull = false
Me.columnTOPRIGHT_TOP.AllowDBNull = false
Me.columnTOPRIGHT_LEFT.AllowDBNull = false
Me.columnTOPRIGHT_RIGHT.AllowDBNull = false
Me.columnTOPRIGHT_BOTTOM.AllowDBNull = false
Me.columnBOTTOMLEFT_TOP.AllowDBNull = false
Me.columnBOTTOMLEFT_LEFT.AllowDBNull = false
Me.columnBOTTOMLEFT_RIGHT.AllowDBNull = false
Me.columnBOTTOMLEFT_BOTTOM.AllowDBNull = false
Me.columnBOTTOMRIGHT_TOP.AllowDBNull = false
Me.columnBOTTOMRIGHT_LEFT.AllowDBNull = false
Me.columnBOTTOMRIGHT_RIGHT.AllowDBNull = false
Me.columnBOTTOMRIGHT_BOTTOM.AllowDBNull = false
Me.columnSEQUENCE.AllowDBNull = false
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50
End Sub
_
Public Function NewTBCW_PROF_REL_CONTROLRow() As TBCW_PROF_REL_CONTROLRow
Return CType(Me.NewRow,TBCW_PROF_REL_CONTROLRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBCW_PROF_REL_CONTROLRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBCW_PROF_REL_CONTROLRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBCW_PROF_REL_CONTROLRowChangedEvent) Is Nothing) Then
RaiseEvent TBCW_PROF_REL_CONTROLRowChanged(Me, New TBCW_PROF_REL_CONTROLRowChangeEvent(CType(e.Row,TBCW_PROF_REL_CONTROLRow), 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_REL_CONTROLRowChangingEvent) Is Nothing) Then
RaiseEvent TBCW_PROF_REL_CONTROLRowChanging(Me, New TBCW_PROF_REL_CONTROLRowChangeEvent(CType(e.Row,TBCW_PROF_REL_CONTROLRow), 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_REL_CONTROLRowDeletedEvent) Is Nothing) Then
RaiseEvent TBCW_PROF_REL_CONTROLRowDeleted(Me, New TBCW_PROF_REL_CONTROLRowChangeEvent(CType(e.Row,TBCW_PROF_REL_CONTROLRow), 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_REL_CONTROLRowDeletingEvent) Is Nothing) Then
RaiseEvent TBCW_PROF_REL_CONTROLRowDeleting(Me, New TBCW_PROF_REL_CONTROLRowChangeEvent(CType(e.Row,TBCW_PROF_REL_CONTROLRow), e.Action))
End If
End Sub
_
Public Sub RemoveTBCW_PROF_REL_CONTROLRow(ByVal row As TBCW_PROF_REL_CONTROLRow)
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_REL_CONTROLDataTable"
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_REL_WINDOWDataTable
Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_REL_WINDOWRow)
Private columnGUID As Global.System.Data.DataColumn
Private columnPROCESS_ID As Global.System.Data.DataColumn
Private columnDESCRIPTION As Global.System.Data.DataColumn
Private columnREGEX As Global.System.Data.DataColumn
Private columnSEQUENCE 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_PROF_REL_WINDOW"
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 PROCESS_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPROCESS_ID
End Get
End Property
_
Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDESCRIPTION
End Get
End Property
_
Public ReadOnly Property REGEXColumn() As Global.System.Data.DataColumn
Get
Return Me.columnREGEX
End Get
End Property
_
Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSEQUENCE
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_PROF_REL_WINDOWRow
Get
Return CType(Me.Rows(index),TBCW_PROF_REL_WINDOWRow)
End Get
End Property
_
Public Event TBCW_PROF_REL_WINDOWRowChanging As TBCW_PROF_REL_WINDOWRowChangeEventHandler
_
Public Event TBCW_PROF_REL_WINDOWRowChanged As TBCW_PROF_REL_WINDOWRowChangeEventHandler
_
Public Event TBCW_PROF_REL_WINDOWRowDeleting As TBCW_PROF_REL_WINDOWRowChangeEventHandler
_
Public Event TBCW_PROF_REL_WINDOWRowDeleted As TBCW_PROF_REL_WINDOWRowChangeEventHandler
_
Public Overloads Sub AddTBCW_PROF_REL_WINDOWRow(ByVal row As TBCW_PROF_REL_WINDOWRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBCW_PROF_REL_WINDOWRow(ByVal parentTBCW_PROFILE_PROCESSRowByFK_TBCW_PROF_REL_WINDOW_PROCESS_ID As TBCW_PROFILE_PROCESSRow, ByVal DESCRIPTION As String, ByVal REGEX As String, ByVal SEQUENCE As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBCW_PROF_REL_WINDOWRow
Dim rowTBCW_PROF_REL_WINDOWRow As TBCW_PROF_REL_WINDOWRow = CType(Me.NewRow,TBCW_PROF_REL_WINDOWRow)
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
If (Not (parentTBCW_PROFILE_PROCESSRowByFK_TBCW_PROF_REL_WINDOW_PROCESS_ID) Is Nothing) Then
columnValuesArray(1) = parentTBCW_PROFILE_PROCESSRowByFK_TBCW_PROF_REL_WINDOW_PROCESS_ID(0)
End If
rowTBCW_PROF_REL_WINDOWRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBCW_PROF_REL_WINDOWRow)
Return rowTBCW_PROF_REL_WINDOWRow
End Function
_
Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_REL_WINDOWRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_REL_WINDOWRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBCW_PROF_REL_WINDOWDataTable = CType(MyBase.Clone,TBCW_PROF_REL_WINDOWDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBCW_PROF_REL_WINDOWDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnPROCESS_ID = MyBase.Columns("PROCESS_ID")
Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION")
Me.columnREGEX = MyBase.Columns("REGEX")
Me.columnSEQUENCE = MyBase.Columns("SEQUENCE")
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.columnPROCESS_ID = New Global.System.Data.DataColumn("PROCESS_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPROCESS_ID)
Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDESCRIPTION)
Me.columnREGEX = New Global.System.Data.DataColumn("REGEX", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnREGEX)
Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSEQUENCE)
Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnADDED_WHO)
Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnADDED_WHEN)
Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCHANGED_WHO)
Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCHANGED_WHEN)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true
Me.columnGUID.AutoIncrementSeed = 1
Me.columnGUID.AllowDBNull = false
Me.columnGUID.ReadOnly = true
Me.columnGUID.Unique = true
Me.columnPROCESS_ID.AllowDBNull = false
Me.columnDESCRIPTION.AllowDBNull = false
Me.columnDESCRIPTION.MaxLength = 250
Me.columnREGEX.AllowDBNull = false
Me.columnREGEX.MaxLength = 500
Me.columnSEQUENCE.AllowDBNull = false
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50
End Sub
_
Public Function NewTBCW_PROF_REL_WINDOWRow() As TBCW_PROF_REL_WINDOWRow
Return CType(Me.NewRow,TBCW_PROF_REL_WINDOWRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBCW_PROF_REL_WINDOWRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBCW_PROF_REL_WINDOWRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBCW_PROF_REL_WINDOWRowChangedEvent) Is Nothing) Then
RaiseEvent TBCW_PROF_REL_WINDOWRowChanged(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), 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_REL_WINDOWRowChangingEvent) Is Nothing) Then
RaiseEvent TBCW_PROF_REL_WINDOWRowChanging(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), 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_REL_WINDOWRowDeletedEvent) Is Nothing) Then
RaiseEvent TBCW_PROF_REL_WINDOWRowDeleted(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), 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_REL_WINDOWRowDeletingEvent) Is Nothing) Then
RaiseEvent TBCW_PROF_REL_WINDOWRowDeleting(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action))
End If
End Sub
_
Public Sub RemoveTBCW_PROF_REL_WINDOWRow(ByVal row As TBCW_PROF_REL_WINDOWRow)
Me.Rows.Remove(row)
End Sub