'------------------------------------------------------------------------------
'
' 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 DD_ECMAdmin
Inherits Global.System.Data.DataSet
Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable
Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable
Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable
Private tableVWTEMPQUICKVIEW As VWTEMPQUICKVIEWDataTable
Private tableTBWH_ENTITIES As TBWH_ENTITIESDataTable
Private tableTBWH_USER_GROUPS As TBWH_USER_GROUPSDataTable
Private tableTBPMO_SAP_FUBA As TBPMO_SAP_FUBADataTable
Private tableUSER_RIGHTS As USER_RIGHTSDataTable
Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable
Private tableVWDD_LOGIN_USER_HISTORY As VWDD_LOGIN_USER_HISTORYDataTable
Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable
Private tableTBPMO_LOG_ESSENTIALS As TBPMO_LOG_ESSENTIALSDataTable
Private tableTBPMO_DOCRESULT_DROPDOWN_ITEMS As TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable
Private tableTBDD_GROUPS As TBDD_GROUPSDataTable
Private tableVWPMO_RIGHT_GROUP As VWPMO_RIGHT_GROUPDataTable
Private tableDT_VORSCHAU As DT_VORSCHAUDataTable
Private tableTBAD_Users As TBAD_UsersDataTable
Private tableTBWH_Users1 As TBWH_Users1DataTable
Private tableTBWH_Users2 As TBWH_Users2DataTable
Private relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As Global.System.Data.DataRelation
Private relationFK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_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("TBPMO_FORM_CONSTRUCTOR")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTORDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR")))
End If
If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")))
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("VWTEMPQUICKVIEW")) Is Nothing) Then
MyBase.Tables.Add(New VWTEMPQUICKVIEWDataTable(ds.Tables("VWTEMPQUICKVIEW")))
End If
If (Not (ds.Tables("TBWH_ENTITIES")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_ENTITIESDataTable(ds.Tables("TBWH_ENTITIES")))
End If
If (Not (ds.Tables("TBWH_USER_GROUPS")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_USER_GROUPSDataTable(ds.Tables("TBWH_USER_GROUPS")))
End If
If (Not (ds.Tables("TBPMO_SAP_FUBA")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_SAP_FUBADataTable(ds.Tables("TBPMO_SAP_FUBA")))
End If
If (Not (ds.Tables("USER_RIGHTS")) Is Nothing) Then
MyBase.Tables.Add(New USER_RIGHTSDataTable(ds.Tables("USER_RIGHTS")))
End If
If (Not (ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable(ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG")))
End If
If (Not (ds.Tables("VWDD_LOGIN_USER_HISTORY")) Is Nothing) Then
MyBase.Tables.Add(New VWDD_LOGIN_USER_HISTORYDataTable(ds.Tables("VWDD_LOGIN_USER_HISTORY")))
End If
If (Not (ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable(ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID")))
End If
If (Not (ds.Tables("TBPMO_LOG_ESSENTIALS")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_LOG_ESSENTIALSDataTable(ds.Tables("TBPMO_LOG_ESSENTIALS")))
End If
If (Not (ds.Tables("TBPMO_DOCRESULT_DROPDOWN_ITEMS")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable(ds.Tables("TBPMO_DOCRESULT_DROPDOWN_ITEMS")))
End If
If (Not (ds.Tables("TBDD_GROUPS")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_GROUPSDataTable(ds.Tables("TBDD_GROUPS")))
End If
If (Not (ds.Tables("VWPMO_RIGHT_GROUP")) Is Nothing) Then
MyBase.Tables.Add(New VWPMO_RIGHT_GROUPDataTable(ds.Tables("VWPMO_RIGHT_GROUP")))
End If
If (Not (ds.Tables("DT_VORSCHAU")) Is Nothing) Then
MyBase.Tables.Add(New DT_VORSCHAUDataTable(ds.Tables("DT_VORSCHAU")))
End If
If (Not (ds.Tables("TBAD_Users")) Is Nothing) Then
MyBase.Tables.Add(New TBAD_UsersDataTable(ds.Tables("TBAD_Users")))
End If
If (Not (ds.Tables("TBWH_Users1")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_Users1DataTable(ds.Tables("TBWH_Users1")))
End If
If (Not (ds.Tables("TBWH_Users2")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_Users2DataTable(ds.Tables("TBWH_Users2")))
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 TBPMO_FORM_CONSTRUCTOR() As TBPMO_FORM_CONSTRUCTORDataTable
Get
Return Me.tableTBPMO_FORM_CONSTRUCTOR
End Get
End Property
_
Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR_DETAIL() As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable
Get
Return Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL
End Get
End Property
_
Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable
Get
Return Me.tableTBDD_CONNECTION
End Get
End Property
_
Public ReadOnly Property VWTEMPQUICKVIEW() As VWTEMPQUICKVIEWDataTable
Get
Return Me.tableVWTEMPQUICKVIEW
End Get
End Property
_
Public ReadOnly Property TBWH_ENTITIES() As TBWH_ENTITIESDataTable
Get
Return Me.tableTBWH_ENTITIES
End Get
End Property
_
Public ReadOnly Property TBWH_USER_GROUPS() As TBWH_USER_GROUPSDataTable
Get
Return Me.tableTBWH_USER_GROUPS
End Get
End Property
_
Public ReadOnly Property TBPMO_SAP_FUBA() As TBPMO_SAP_FUBADataTable
Get
Return Me.tableTBPMO_SAP_FUBA
End Get
End Property
_
Public ReadOnly Property USER_RIGHTS() As USER_RIGHTSDataTable
Get
Return Me.tableUSER_RIGHTS
End Get
End Property
_
Public ReadOnly Property TBPMO_DOCSEARCH_RESULTLIST_CONFIG() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable
Get
Return Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG
End Get
End Property
_
Public ReadOnly Property VWDD_LOGIN_USER_HISTORY() As VWDD_LOGIN_USER_HISTORYDataTable
Get
Return Me.tableVWDD_LOGIN_USER_HISTORY
End Get
End Property
_
Public ReadOnly Property TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID() As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable
Get
Return Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID
End Get
End Property
_
Public ReadOnly Property TBPMO_LOG_ESSENTIALS() As TBPMO_LOG_ESSENTIALSDataTable
Get
Return Me.tableTBPMO_LOG_ESSENTIALS
End Get
End Property
_
Public ReadOnly Property TBPMO_DOCRESULT_DROPDOWN_ITEMS() As TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable
Get
Return Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS
End Get
End Property
_
Public ReadOnly Property TBDD_GROUPS() As TBDD_GROUPSDataTable
Get
Return Me.tableTBDD_GROUPS
End Get
End Property
_
Public ReadOnly Property VWPMO_RIGHT_GROUP() As VWPMO_RIGHT_GROUPDataTable
Get
Return Me.tableVWPMO_RIGHT_GROUP
End Get
End Property
_
Public ReadOnly Property DT_VORSCHAU() As DT_VORSCHAUDataTable
Get
Return Me.tableDT_VORSCHAU
End Get
End Property
_
Public ReadOnly Property TBAD_Users() As TBAD_UsersDataTable
Get
Return Me.tableTBAD_Users
End Get
End Property
_
Public ReadOnly Property TBWH_Users1() As TBWH_Users1DataTable
Get
Return Me.tableTBWH_Users1
End Get
End Property
_
Public ReadOnly Property TBWH_Users2() As TBWH_Users2DataTable
Get
Return Me.tableTBWH_Users2
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 DD_ECMAdmin = CType(MyBase.Clone,DD_ECMAdmin)
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("TBPMO_FORM_CONSTRUCTOR")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTORDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR")))
End If
If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable(ds.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL")))
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("VWTEMPQUICKVIEW")) Is Nothing) Then
MyBase.Tables.Add(New VWTEMPQUICKVIEWDataTable(ds.Tables("VWTEMPQUICKVIEW")))
End If
If (Not (ds.Tables("TBWH_ENTITIES")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_ENTITIESDataTable(ds.Tables("TBWH_ENTITIES")))
End If
If (Not (ds.Tables("TBWH_USER_GROUPS")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_USER_GROUPSDataTable(ds.Tables("TBWH_USER_GROUPS")))
End If
If (Not (ds.Tables("TBPMO_SAP_FUBA")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_SAP_FUBADataTable(ds.Tables("TBPMO_SAP_FUBA")))
End If
If (Not (ds.Tables("USER_RIGHTS")) Is Nothing) Then
MyBase.Tables.Add(New USER_RIGHTSDataTable(ds.Tables("USER_RIGHTS")))
End If
If (Not (ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable(ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG")))
End If
If (Not (ds.Tables("VWDD_LOGIN_USER_HISTORY")) Is Nothing) Then
MyBase.Tables.Add(New VWDD_LOGIN_USER_HISTORYDataTable(ds.Tables("VWDD_LOGIN_USER_HISTORY")))
End If
If (Not (ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable(ds.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID")))
End If
If (Not (ds.Tables("TBPMO_LOG_ESSENTIALS")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_LOG_ESSENTIALSDataTable(ds.Tables("TBPMO_LOG_ESSENTIALS")))
End If
If (Not (ds.Tables("TBPMO_DOCRESULT_DROPDOWN_ITEMS")) Is Nothing) Then
MyBase.Tables.Add(New TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable(ds.Tables("TBPMO_DOCRESULT_DROPDOWN_ITEMS")))
End If
If (Not (ds.Tables("TBDD_GROUPS")) Is Nothing) Then
MyBase.Tables.Add(New TBDD_GROUPSDataTable(ds.Tables("TBDD_GROUPS")))
End If
If (Not (ds.Tables("VWPMO_RIGHT_GROUP")) Is Nothing) Then
MyBase.Tables.Add(New VWPMO_RIGHT_GROUPDataTable(ds.Tables("VWPMO_RIGHT_GROUP")))
End If
If (Not (ds.Tables("DT_VORSCHAU")) Is Nothing) Then
MyBase.Tables.Add(New DT_VORSCHAUDataTable(ds.Tables("DT_VORSCHAU")))
End If
If (Not (ds.Tables("TBAD_Users")) Is Nothing) Then
MyBase.Tables.Add(New TBAD_UsersDataTable(ds.Tables("TBAD_Users")))
End If
If (Not (ds.Tables("TBWH_Users1")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_Users1DataTable(ds.Tables("TBWH_Users1")))
End If
If (Not (ds.Tables("TBWH_Users2")) Is Nothing) Then
MyBase.Tables.Add(New TBWH_Users2DataTable(ds.Tables("TBWH_Users2")))
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.tableTBPMO_FORM_CONSTRUCTOR = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR"),TBPMO_FORM_CONSTRUCTORDataTable)
If (initTable = true) Then
If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR) Is Nothing) Then
Me.tableTBPMO_FORM_CONSTRUCTOR.InitVars
End If
End If
Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"),TBPMO_FORM_CONSTRUCTOR_DETAILDataTable)
If (initTable = true) Then
If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL) Is Nothing) Then
Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.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.tableVWTEMPQUICKVIEW = CType(MyBase.Tables("VWTEMPQUICKVIEW"),VWTEMPQUICKVIEWDataTable)
If (initTable = true) Then
If (Not (Me.tableVWTEMPQUICKVIEW) Is Nothing) Then
Me.tableVWTEMPQUICKVIEW.InitVars
End If
End If
Me.tableTBWH_ENTITIES = CType(MyBase.Tables("TBWH_ENTITIES"),TBWH_ENTITIESDataTable)
If (initTable = true) Then
If (Not (Me.tableTBWH_ENTITIES) Is Nothing) Then
Me.tableTBWH_ENTITIES.InitVars
End If
End If
Me.tableTBWH_USER_GROUPS = CType(MyBase.Tables("TBWH_USER_GROUPS"),TBWH_USER_GROUPSDataTable)
If (initTable = true) Then
If (Not (Me.tableTBWH_USER_GROUPS) Is Nothing) Then
Me.tableTBWH_USER_GROUPS.InitVars
End If
End If
Me.tableTBPMO_SAP_FUBA = CType(MyBase.Tables("TBPMO_SAP_FUBA"),TBPMO_SAP_FUBADataTable)
If (initTable = true) Then
If (Not (Me.tableTBPMO_SAP_FUBA) Is Nothing) Then
Me.tableTBPMO_SAP_FUBA.InitVars
End If
End If
Me.tableUSER_RIGHTS = CType(MyBase.Tables("USER_RIGHTS"),USER_RIGHTSDataTable)
If (initTable = true) Then
If (Not (Me.tableUSER_RIGHTS) Is Nothing) Then
Me.tableUSER_RIGHTS.InitVars
End If
End If
Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG = CType(MyBase.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG"),TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable)
If (initTable = true) Then
If (Not (Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG) Is Nothing) Then
Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.InitVars
End If
End If
Me.tableVWDD_LOGIN_USER_HISTORY = CType(MyBase.Tables("VWDD_LOGIN_USER_HISTORY"),VWDD_LOGIN_USER_HISTORYDataTable)
If (initTable = true) Then
If (Not (Me.tableVWDD_LOGIN_USER_HISTORY) Is Nothing) Then
Me.tableVWDD_LOGIN_USER_HISTORY.InitVars
End If
End If
Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID = CType(MyBase.Tables("TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID"),TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable)
If (initTable = true) Then
If (Not (Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID) Is Nothing) Then
Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.InitVars
End If
End If
Me.tableTBPMO_LOG_ESSENTIALS = CType(MyBase.Tables("TBPMO_LOG_ESSENTIALS"),TBPMO_LOG_ESSENTIALSDataTable)
If (initTable = true) Then
If (Not (Me.tableTBPMO_LOG_ESSENTIALS) Is Nothing) Then
Me.tableTBPMO_LOG_ESSENTIALS.InitVars
End If
End If
Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS = CType(MyBase.Tables("TBPMO_DOCRESULT_DROPDOWN_ITEMS"),TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable)
If (initTable = true) Then
If (Not (Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS) Is Nothing) Then
Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.InitVars
End If
End If
Me.tableTBDD_GROUPS = CType(MyBase.Tables("TBDD_GROUPS"),TBDD_GROUPSDataTable)
If (initTable = true) Then
If (Not (Me.tableTBDD_GROUPS) Is Nothing) Then
Me.tableTBDD_GROUPS.InitVars
End If
End If
Me.tableVWPMO_RIGHT_GROUP = CType(MyBase.Tables("VWPMO_RIGHT_GROUP"),VWPMO_RIGHT_GROUPDataTable)
If (initTable = true) Then
If (Not (Me.tableVWPMO_RIGHT_GROUP) Is Nothing) Then
Me.tableVWPMO_RIGHT_GROUP.InitVars
End If
End If
Me.tableDT_VORSCHAU = CType(MyBase.Tables("DT_VORSCHAU"),DT_VORSCHAUDataTable)
If (initTable = true) Then
If (Not (Me.tableDT_VORSCHAU) Is Nothing) Then
Me.tableDT_VORSCHAU.InitVars
End If
End If
Me.tableTBAD_Users = CType(MyBase.Tables("TBAD_Users"),TBAD_UsersDataTable)
If (initTable = true) Then
If (Not (Me.tableTBAD_Users) Is Nothing) Then
Me.tableTBAD_Users.InitVars
End If
End If
Me.tableTBWH_Users1 = CType(MyBase.Tables("TBWH_Users1"),TBWH_Users1DataTable)
If (initTable = true) Then
If (Not (Me.tableTBWH_Users1) Is Nothing) Then
Me.tableTBWH_Users1.InitVars
End If
End If
Me.tableTBWH_Users2 = CType(MyBase.Tables("TBWH_Users2"),TBWH_Users2DataTable)
If (initTable = true) Then
If (Not (Me.tableTBWH_Users2) Is Nothing) Then
Me.tableTBWH_Users2.InitVars
End If
End If
Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = Me.Relations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")
Me.relationFK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID = Me.Relations("FK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID")
End Sub
_
Private Sub InitClass()
Me.DataSetName = "DD_ECMAdmin"
Me.Prefix = ""
Me.Namespace = "http://tempuri.org/DD_ECMAdmin.xsd"
Me.EnforceConstraints = true
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tableTBPMO_FORM_CONSTRUCTOR = New TBPMO_FORM_CONSTRUCTORDataTable()
MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR)
Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable()
MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL)
Me.tableTBDD_CONNECTION = New TBDD_CONNECTIONDataTable()
MyBase.Tables.Add(Me.tableTBDD_CONNECTION)
Me.tableVWTEMPQUICKVIEW = New VWTEMPQUICKVIEWDataTable()
MyBase.Tables.Add(Me.tableVWTEMPQUICKVIEW)
Me.tableTBWH_ENTITIES = New TBWH_ENTITIESDataTable()
MyBase.Tables.Add(Me.tableTBWH_ENTITIES)
Me.tableTBWH_USER_GROUPS = New TBWH_USER_GROUPSDataTable()
MyBase.Tables.Add(Me.tableTBWH_USER_GROUPS)
Me.tableTBPMO_SAP_FUBA = New TBPMO_SAP_FUBADataTable()
MyBase.Tables.Add(Me.tableTBPMO_SAP_FUBA)
Me.tableUSER_RIGHTS = New USER_RIGHTSDataTable()
MyBase.Tables.Add(Me.tableUSER_RIGHTS)
Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG = New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable()
MyBase.Tables.Add(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG)
Me.tableVWDD_LOGIN_USER_HISTORY = New VWDD_LOGIN_USER_HISTORYDataTable()
MyBase.Tables.Add(Me.tableVWDD_LOGIN_USER_HISTORY)
Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID = New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable()
MyBase.Tables.Add(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID)
Me.tableTBPMO_LOG_ESSENTIALS = New TBPMO_LOG_ESSENTIALSDataTable()
MyBase.Tables.Add(Me.tableTBPMO_LOG_ESSENTIALS)
Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS = New TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable()
MyBase.Tables.Add(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS)
Me.tableTBDD_GROUPS = New TBDD_GROUPSDataTable()
MyBase.Tables.Add(Me.tableTBDD_GROUPS)
Me.tableVWPMO_RIGHT_GROUP = New VWPMO_RIGHT_GROUPDataTable()
MyBase.Tables.Add(Me.tableVWPMO_RIGHT_GROUP)
Me.tableDT_VORSCHAU = New DT_VORSCHAUDataTable()
MyBase.Tables.Add(Me.tableDT_VORSCHAU)
Me.tableTBAD_Users = New TBAD_UsersDataTable()
MyBase.Tables.Add(Me.tableTBAD_Users)
Me.tableTBWH_Users1 = New TBWH_Users1DataTable()
MyBase.Tables.Add(Me.tableTBWH_Users1)
Me.tableTBWH_Users2 = New TBWH_Users2DataTable()
MyBase.Tables.Add(Me.tableTBWH_Users2)
Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn}, false)
Me.Relations.Add(Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID)
Me.relationFK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID = New Global.System.Data.DataRelation("FK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CONFIG_IDColumn}, false)
Me.Relations.Add(Me.relationFK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID)
End Sub
_
Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR_DETAIL() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBDD_CONNECTION() As Boolean
Return false
End Function
_
Private Function ShouldSerializeVWTEMPQUICKVIEW() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBWH_ENTITIES() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBWH_USER_GROUPS() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBPMO_SAP_FUBA() As Boolean
Return false
End Function
_
Private Function ShouldSerializeUSER_RIGHTS() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBPMO_DOCSEARCH_RESULTLIST_CONFIG() As Boolean
Return false
End Function
_
Private Function ShouldSerializeVWDD_LOGIN_USER_HISTORY() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBPMO_LOG_ESSENTIALS() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBPMO_DOCRESULT_DROPDOWN_ITEMS() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBDD_GROUPS() As Boolean
Return false
End Function
_
Private Function ShouldSerializeVWPMO_RIGHT_GROUP() As Boolean
Return false
End Function
_
Private Function ShouldSerializeDT_VORSCHAU() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBAD_Users() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBWH_Users1() As Boolean
Return false
End Function
_
Private Function ShouldSerializeTBWH_Users2() 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 DD_ECMAdmin = New DD_ECMAdmin()
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 TBPMO_FORM_CONSTRUCTORRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTORRowChangeEvent)
_
Public Delegate Sub TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent)
_
Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent)
_
Public Delegate Sub VWTEMPQUICKVIEWRowChangeEventHandler(ByVal sender As Object, ByVal e As VWTEMPQUICKVIEWRowChangeEvent)
_
Public Delegate Sub TBWH_ENTITIESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_ENTITIESRowChangeEvent)
_
Public Delegate Sub TBWH_USER_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_USER_GROUPSRowChangeEvent)
_
Public Delegate Sub TBPMO_SAP_FUBARowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_SAP_FUBARowChangeEvent)
_
Public Delegate Sub USER_RIGHTSRowChangeEventHandler(ByVal sender As Object, ByVal e As USER_RIGHTSRowChangeEvent)
_
Public Delegate Sub TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent)
_
Public Delegate Sub VWDD_LOGIN_USER_HISTORYRowChangeEventHandler(ByVal sender As Object, ByVal e As VWDD_LOGIN_USER_HISTORYRowChangeEvent)
_
Public Delegate Sub TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent)
_
Public Delegate Sub TBPMO_LOG_ESSENTIALSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_LOG_ESSENTIALSRowChangeEvent)
_
Public Delegate Sub TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEvent)
_
Public Delegate Sub TBDD_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPSRowChangeEvent)
_
Public Delegate Sub VWPMO_RIGHT_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_RIGHT_GROUPRowChangeEvent)
_
Public Delegate Sub DT_VORSCHAURowChangeEventHandler(ByVal sender As Object, ByVal e As DT_VORSCHAURowChangeEvent)
_
Public Delegate Sub TBAD_UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As TBAD_UsersRowChangeEvent)
_
Public Delegate Sub TBWH_Users1RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_Users1RowChangeEvent)
_
Public Delegate Sub TBWH_Users2RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_Users2RowChangeEvent)
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class TBPMO_FORM_CONSTRUCTORDataTable
Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTORRow)
Private columnGUID As Global.System.Data.DataColumn
Private columnFORM_TITLE As Global.System.Data.DataColumn
Private columnSEQUENCE_MENU 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 columnMENU_IMG As Global.System.Data.DataColumn
Private columnSHORT_TITLE As Global.System.Data.DataColumn
Private columnLANGUAGE As Global.System.Data.DataColumn
Private columnNODE_NAVIGATION As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "TBPMO_FORM_CONSTRUCTOR"
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 FORM_TITLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFORM_TITLE
End Get
End Property
_
Public ReadOnly Property SEQUENCE_MENUColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSEQUENCE_MENU
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 MENU_IMGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnMENU_IMG
End Get
End Property
_
Public ReadOnly Property SHORT_TITLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSHORT_TITLE
End Get
End Property
_
Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLANGUAGE
End Get
End Property
_
Public ReadOnly Property NODE_NAVIGATIONColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNODE_NAVIGATION
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 TBPMO_FORM_CONSTRUCTORRow
Get
Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTORRow)
End Get
End Property
_
Public Event TBPMO_FORM_CONSTRUCTORRowChanging As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler
_
Public Event TBPMO_FORM_CONSTRUCTORRowChanged As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler
_
Public Event TBPMO_FORM_CONSTRUCTORRowDeleting As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler
_
Public Event TBPMO_FORM_CONSTRUCTORRowDeleted As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler
_
Public Overloads Sub AddTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBPMO_FORM_CONSTRUCTORRow(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String, ByVal NODE_NAVIGATION As Boolean) As TBPMO_FORM_CONSTRUCTORRow
Dim rowTBPMO_FORM_CONSTRUCTORRow As TBPMO_FORM_CONSTRUCTORRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow)
Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE, LANGUAGE, NODE_NAVIGATION}
rowTBPMO_FORM_CONSTRUCTORRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTORRow)
Return rowTBPMO_FORM_CONSTRUCTORRow
End Function
_
Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTORRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTORRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBPMO_FORM_CONSTRUCTORDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTORDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBPMO_FORM_CONSTRUCTORDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE")
Me.columnSEQUENCE_MENU = MyBase.Columns("SEQUENCE_MENU")
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.columnMENU_IMG = MyBase.Columns("MENU_IMG")
Me.columnSHORT_TITLE = MyBase.Columns("SHORT_TITLE")
Me.columnLANGUAGE = MyBase.Columns("LANGUAGE")
Me.columnNODE_NAVIGATION = MyBase.Columns("NODE_NAVIGATION")
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.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFORM_TITLE)
Me.columnSEQUENCE_MENU = New Global.System.Data.DataColumn("SEQUENCE_MENU", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSEQUENCE_MENU)
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.columnMENU_IMG = New Global.System.Data.DataColumn("MENU_IMG", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnMENU_IMG)
Me.columnSHORT_TITLE = New Global.System.Data.DataColumn("SHORT_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSHORT_TITLE)
Me.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnLANGUAGE)
Me.columnNODE_NAVIGATION = New Global.System.Data.DataColumn("NODE_NAVIGATION", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnNODE_NAVIGATION)
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.columnFORM_TITLE.MaxLength = 50
Me.columnSEQUENCE_MENU.AllowDBNull = false
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 50
Me.columnADDED_WHEN.AllowDBNull = false
Me.columnCHANGED_WHO.MaxLength = 50
Me.columnSHORT_TITLE.MaxLength = 50
Me.columnLANGUAGE.AllowDBNull = false
Me.columnLANGUAGE.MaxLength = 5
Me.columnNODE_NAVIGATION.AllowDBNull = false
Me.columnNODE_NAVIGATION.DefaultValue = CType(true,Boolean)
End Sub
_
Public Function NewTBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow
Return CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBPMO_FORM_CONSTRUCTORRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBPMO_FORM_CONSTRUCTORRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangedEvent) Is Nothing) Then
RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanged(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangingEvent) Is Nothing) Then
RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanging(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletedEvent) Is Nothing) Then
RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleted(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletingEvent) Is Nothing) Then
RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleting(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action))
End If
End Sub
_
Public Sub RemoveTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow)
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 DD_ECMAdmin = New DD_ECMAdmin()
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 = "TBPMO_FORM_CONSTRUCTORDataTable"
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 TBPMO_FORM_CONSTRUCTOR_DETAILDataTable
Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTOR_DETAILRow)
Private columnGUID As Global.System.Data.DataColumn
Private columnCONSTRUCT_ID As Global.System.Data.DataColumn
Private columnFORM_ID As Global.System.Data.DataColumn
Private columnPARENT_ID As Global.System.Data.DataColumn
Private columnLEVEL1_SELECT As Global.System.Data.DataColumn
Private columnSEQUENCE As Global.System.Data.DataColumn
Private columnSQL_SELECT_EBENE1 As Global.System.Data.DataColumn
Private columnSQL_SELECT_EBENE2 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 columnCOLUMN_NAME1 As Global.System.Data.DataColumn
Private columnCOLUMN_NAME2 As Global.System.Data.DataColumn
Private columnLOAD_DIRECT As Global.System.Data.DataColumn
Private columnSQL_QUICK_VIEW As Global.System.Data.DataColumn
Private columnCONTROL_DOCTYPE_MATCH As Global.System.Data.DataColumn
Private columnSQL_RIGHT_READ_AND_VIEW_ONLY As Global.System.Data.DataColumn
Private columnSQL_RIGHT_WINDREAM_VIEW As Global.System.Data.DataColumn
Private columnADD_RECORDS As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "TBPMO_FORM_CONSTRUCTOR_DETAIL"
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 CONSTRUCT_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCONSTRUCT_ID
End Get
End Property
_
Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFORM_ID
End Get
End Property
_
Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPARENT_ID
End Get
End Property
_
Public ReadOnly Property LEVEL1_SELECTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLEVEL1_SELECT
End Get
End Property
_
Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSEQUENCE
End Get
End Property
_
Public ReadOnly Property SQL_SELECT_EBENE1Column() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_SELECT_EBENE1
End Get
End Property
_
Public ReadOnly Property SQL_SELECT_EBENE2Column() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_SELECT_EBENE2
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 COLUMN_NAME1Column() As Global.System.Data.DataColumn
Get
Return Me.columnCOLUMN_NAME1
End Get
End Property
_
Public ReadOnly Property COLUMN_NAME2Column() As Global.System.Data.DataColumn
Get
Return Me.columnCOLUMN_NAME2
End Get
End Property
_
Public ReadOnly Property LOAD_DIRECTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLOAD_DIRECT
End Get
End Property
_
Public ReadOnly Property SQL_QUICK_VIEWColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_QUICK_VIEW
End Get
End Property
_
Public ReadOnly Property CONTROL_DOCTYPE_MATCHColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCONTROL_DOCTYPE_MATCH
End Get
End Property
_
Public ReadOnly Property SQL_RIGHT_READ_AND_VIEW_ONLYColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY
End Get
End Property
_
Public ReadOnly Property SQL_RIGHT_WINDREAM_VIEWColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_RIGHT_WINDREAM_VIEW
End Get
End Property
_
Public ReadOnly Property ADD_RECORDSColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADD_RECORDS
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 TBPMO_FORM_CONSTRUCTOR_DETAILRow
Get
Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTOR_DETAILRow)
End Get
End Property
_
Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler
_
Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler
_
Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler
_
Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler
_
Public Overloads Sub AddTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBPMO_FORM_CONSTRUCTOR_DETAILRow( _
ByVal parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As TBPMO_FORM_CONSTRUCTORRow, _
ByVal FORM_ID As Integer, _
ByVal PARENT_ID As Integer, _
ByVal LEVEL1_SELECT As Boolean, _
ByVal SEQUENCE As Integer, _
ByVal SQL_SELECT_EBENE1 As String, _
ByVal SQL_SELECT_EBENE2 As String, _
ByVal ADDED_WHO As String, _
ByVal ADDED_WHEN As Date, _
ByVal CHANGED_WHO As String, _
ByVal CHANGED_WHEN As Date, _
ByVal COLUMN_NAME1 As String, _
ByVal COLUMN_NAME2 As String, _
ByVal LOAD_DIRECT As Boolean, _
ByVal SQL_QUICK_VIEW As String, _
ByVal CONTROL_DOCTYPE_MATCH As Integer, _
ByVal SQL_RIGHT_READ_AND_VIEW_ONLY As String, _
ByVal SQL_RIGHT_WINDREAM_VIEW As String, _
ByVal ADD_RECORDS As Boolean) As TBPMO_FORM_CONSTRUCTOR_DETAILRow
Dim rowTBPMO_FORM_CONSTRUCTOR_DETAILRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTOR_DETAILRow)
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, LOAD_DIRECT, SQL_QUICK_VIEW, CONTROL_DOCTYPE_MATCH, SQL_RIGHT_READ_AND_VIEW_ONLY, SQL_RIGHT_WINDREAM_VIEW, ADD_RECORDS}
If (Not (parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID) Is Nothing) Then
columnValuesArray(1) = parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID(0)
End If
rowTBPMO_FORM_CONSTRUCTOR_DETAILRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTOR_DETAILRow)
Return rowTBPMO_FORM_CONSTRUCTOR_DETAILRow
End Function
_
Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTOR_DETAILRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTOR_DETAILDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnCONSTRUCT_ID = MyBase.Columns("CONSTRUCT_ID")
Me.columnFORM_ID = MyBase.Columns("FORM_ID")
Me.columnPARENT_ID = MyBase.Columns("PARENT_ID")
Me.columnLEVEL1_SELECT = MyBase.Columns("LEVEL1_SELECT")
Me.columnSEQUENCE = MyBase.Columns("SEQUENCE")
Me.columnSQL_SELECT_EBENE1 = MyBase.Columns("SQL_SELECT_EBENE1")
Me.columnSQL_SELECT_EBENE2 = MyBase.Columns("SQL_SELECT_EBENE2")
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.columnCOLUMN_NAME1 = MyBase.Columns("COLUMN_NAME1")
Me.columnCOLUMN_NAME2 = MyBase.Columns("COLUMN_NAME2")
Me.columnLOAD_DIRECT = MyBase.Columns("LOAD_DIRECT")
Me.columnSQL_QUICK_VIEW = MyBase.Columns("SQL_QUICK_VIEW")
Me.columnCONTROL_DOCTYPE_MATCH = MyBase.Columns("CONTROL_DOCTYPE_MATCH")
Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY = MyBase.Columns("SQL_RIGHT_READ_AND_VIEW_ONLY")
Me.columnSQL_RIGHT_WINDREAM_VIEW = MyBase.Columns("SQL_RIGHT_WINDREAM_VIEW")
Me.columnADD_RECORDS = MyBase.Columns("ADD_RECORDS")
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.columnCONSTRUCT_ID = New Global.System.Data.DataColumn("CONSTRUCT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCONSTRUCT_ID)
Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFORM_ID)
Me.columnPARENT_ID = New Global.System.Data.DataColumn("PARENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPARENT_ID)
Me.columnLEVEL1_SELECT = New Global.System.Data.DataColumn("LEVEL1_SELECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnLEVEL1_SELECT)
Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSEQUENCE)
Me.columnSQL_SELECT_EBENE1 = New Global.System.Data.DataColumn("SQL_SELECT_EBENE1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSQL_SELECT_EBENE1)
Me.columnSQL_SELECT_EBENE2 = New Global.System.Data.DataColumn("SQL_SELECT_EBENE2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSQL_SELECT_EBENE2)
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.columnCOLUMN_NAME1 = New Global.System.Data.DataColumn("COLUMN_NAME1", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCOLUMN_NAME1)
Me.columnCOLUMN_NAME2 = New Global.System.Data.DataColumn("COLUMN_NAME2", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCOLUMN_NAME2)
Me.columnLOAD_DIRECT = New Global.System.Data.DataColumn("LOAD_DIRECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnLOAD_DIRECT)
Me.columnSQL_QUICK_VIEW = New Global.System.Data.DataColumn("SQL_QUICK_VIEW", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSQL_QUICK_VIEW)
Me.columnCONTROL_DOCTYPE_MATCH = New Global.System.Data.DataColumn("CONTROL_DOCTYPE_MATCH", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCONTROL_DOCTYPE_MATCH)
Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY = New Global.System.Data.DataColumn("SQL_RIGHT_READ_AND_VIEW_ONLY", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY)
Me.columnSQL_RIGHT_WINDREAM_VIEW = New Global.System.Data.DataColumn("SQL_RIGHT_WINDREAM_VIEW", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSQL_RIGHT_WINDREAM_VIEW)
Me.columnADD_RECORDS = New Global.System.Data.DataColumn("ADD_RECORDS", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnADD_RECORDS)
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.columnCONSTRUCT_ID.AllowDBNull = false
Me.columnFORM_ID.AllowDBNull = false
Me.columnPARENT_ID.AllowDBNull = false
Me.columnLEVEL1_SELECT.AllowDBNull = false
Me.columnSEQUENCE.AllowDBNull = false
Me.columnSQL_SELECT_EBENE1.AllowDBNull = false
Me.columnSQL_SELECT_EBENE1.MaxLength = 4000
Me.columnSQL_SELECT_EBENE2.AllowDBNull = false
Me.columnSQL_SELECT_EBENE2.MaxLength = 4000
Me.columnADDED_WHO.MaxLength = 50
Me.columnCHANGED_WHO.MaxLength = 50
Me.columnCOLUMN_NAME1.AllowDBNull = false
Me.columnCOLUMN_NAME1.MaxLength = 100
Me.columnCOLUMN_NAME2.AllowDBNull = false
Me.columnCOLUMN_NAME2.MaxLength = 100
Me.columnLOAD_DIRECT.AllowDBNull = false
Me.columnSQL_QUICK_VIEW.AllowDBNull = false
Me.columnSQL_QUICK_VIEW.MaxLength = 2147483647
Me.columnCONTROL_DOCTYPE_MATCH.AllowDBNull = false
Me.columnCONTROL_DOCTYPE_MATCH.DefaultValue = CType(0,Integer)
Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY.AllowDBNull = false
Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY.MaxLength = 5000
Me.columnSQL_RIGHT_WINDREAM_VIEW.AllowDBNull = false
Me.columnSQL_RIGHT_WINDREAM_VIEW.MaxLength = 5000
Me.columnADD_RECORDS.AllowDBNull = false
End Sub
_
Public Function NewTBPMO_FORM_CONSTRUCTOR_DETAILRow() As TBPMO_FORM_CONSTRUCTOR_DETAILRow
Return CType(Me.NewRow,TBPMO_FORM_CONSTRUCTOR_DETAILRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBPMO_FORM_CONSTRUCTOR_DETAILRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangedEvent) Is Nothing) Then
RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangingEvent) Is Nothing) Then
RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletedEvent) Is Nothing) Then
RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletingEvent) Is Nothing) Then
RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action))
End If
End Sub
_
Public Sub RemoveTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow)
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 DD_ECMAdmin = New DD_ECMAdmin()
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 = "TBPMO_FORM_CONSTRUCTOR_DETAILDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class TBDD_CONNECTIONDataTable
Inherits Global.System.Data.TypedTableBase(Of TBDD_CONNECTIONRow)
Private columnGUID As Global.System.Data.DataColumn
Private columnBEZEICHNUNG As Global.System.Data.DataColumn
Private columnSQL_PROVIDER As Global.System.Data.DataColumn
Private columnSERVER As Global.System.Data.DataColumn
Private columnDATENBANK As Global.System.Data.DataColumn
Private columnUSERNAME As Global.System.Data.DataColumn
Private columnPASSWORD As Global.System.Data.DataColumn
Private columnBEMERKUNG As Global.System.Data.DataColumn
Private columnAKTIV As Global.System.Data.DataColumn
Private columnERSTELLTWER As Global.System.Data.DataColumn
Private columnERSTELLTWANN As Global.System.Data.DataColumn
Private columnGEANDERTWER As Global.System.Data.DataColumn
Private columnGEAENDERTWANN As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "TBDD_CONNECTION"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
_
Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
_
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
_
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
_
Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBEZEICHNUNG
End Get
End Property
_
Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_PROVIDER
End Get
End Property
_
Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSERVER
End Get
End Property
_
Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDATENBANK
End Get
End Property
_
Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUSERNAME
End Get
End Property
_
Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPASSWORD
End Get
End Property
_
Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBEMERKUNG
End Get
End Property
_
Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn
Get
Return Me.columnAKTIV
End Get
End Property
_
Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn
Get
Return Me.columnERSTELLTWER
End Get
End Property
_
Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn
Get
Return Me.columnERSTELLTWANN
End Get
End Property
_
Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGEANDERTWER
End Get
End Property
_
Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGEAENDERTWANN
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CONNECTIONRow
Get
Return CType(Me.Rows(index),TBDD_CONNECTIONRow)
End Get
End Property
_
Public Event TBDD_CONNECTIONRowChanging As TBDD_CONNECTIONRowChangeEventHandler
_
Public Event TBDD_CONNECTIONRowChanged As TBDD_CONNECTIONRowChangeEventHandler
_
Public Event TBDD_CONNECTIONRowDeleting As TBDD_CONNECTIONRowChangeEventHandler
_
Public Event TBDD_CONNECTIONRowDeleted As TBDD_CONNECTIONRowChangeEventHandler
_
Public Overloads Sub AddTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBDD_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_CONNECTIONRow
Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow,TBDD_CONNECTIONRow)
Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN}
rowTBDD_CONNECTIONRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBDD_CONNECTIONRow)
Return rowTBDD_CONNECTIONRow
End Function
_
Public Function FindByGUID(ByVal GUID As Short) As TBDD_CONNECTIONRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CONNECTIONRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone,TBDD_CONNECTIONDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBDD_CONNECTIONDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG")
Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER")
Me.columnSERVER = MyBase.Columns("SERVER")
Me.columnDATENBANK = MyBase.Columns("DATENBANK")
Me.columnUSERNAME = MyBase.Columns("USERNAME")
Me.columnPASSWORD = MyBase.Columns("PASSWORD")
Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG")
Me.columnAKTIV = MyBase.Columns("AKTIV")
Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER")
Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN")
Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER")
Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN")
End Sub
_
Private Sub InitClass()
Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGUID)
Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBEZEICHNUNG)
Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSQL_PROVIDER)
Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSERVER)
Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnDATENBANK)
Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnUSERNAME)
Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnPASSWORD)
Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnBEMERKUNG)
Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnAKTIV)
Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnERSTELLTWER)
Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnERSTELLTWANN)
Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGEANDERTWER)
Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGEAENDERTWANN)
Me.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.columnBEZEICHNUNG.MaxLength = 100
Me.columnSQL_PROVIDER.MaxLength = 50
Me.columnSERVER.MaxLength = 150
Me.columnDATENBANK.MaxLength = 100
Me.columnUSERNAME.MaxLength = 100
Me.columnPASSWORD.MaxLength = 100
Me.columnBEMERKUNG.MaxLength = 400
Me.columnAKTIV.AllowDBNull = false
Me.columnAKTIV.DefaultValue = CType(true,Boolean)
Me.columnERSTELLTWER.AllowDBNull = false
Me.columnERSTELLTWER.MaxLength = 50
Me.columnGEANDERTWER.MaxLength = 50
End Sub
_
Public Function NewTBDD_CONNECTIONRow() As TBDD_CONNECTIONRow
Return CType(Me.NewRow,TBDD_CONNECTIONRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBDD_CONNECTIONRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBDD_CONNECTIONRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBDD_CONNECTIONRowChangedEvent) Is Nothing) Then
RaiseEvent TBDD_CONNECTIONRowChanged(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBDD_CONNECTIONRowChangingEvent) Is Nothing) Then
RaiseEvent TBDD_CONNECTIONRowChanging(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBDD_CONNECTIONRowDeletedEvent) Is Nothing) Then
RaiseEvent TBDD_CONNECTIONRowDeleted(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBDD_CONNECTIONRowDeletingEvent) Is Nothing) Then
RaiseEvent TBDD_CONNECTIONRowDeleting(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action))
End If
End Sub
_
Public Sub RemoveTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow)
Me.Rows.Remove(row)
End Sub
_
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
Dim ds As DD_ECMAdmin = New DD_ECMAdmin()
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
any1.MinOccurs = New Decimal(0)
any1.MaxOccurs = Decimal.MaxValue
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any1)
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
any2.MinOccurs = New Decimal(1)
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
sequence.Items.Add(any2)
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute1.Name = "namespace"
attribute1.FixedValue = ds.Namespace
type.Attributes.Add(attribute1)
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
attribute2.Name = "tableTypeName"
attribute2.FixedValue = "TBDD_CONNECTIONDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class VWTEMPQUICKVIEWDataTable
Inherits Global.System.Data.TypedTableBase(Of VWTEMPQUICKVIEWRow)
Private _columnRecord_ID As Global.System.Data.DataColumn
Private columnAktenzeichen As Global.System.Data.DataColumn
Private _columnWiedergabe_der_Marke__Bild_ As Global.System.Data.DataColumn
Private columnTag_der_Eintragung_im_Register As Global.System.Data.DataColumn
Private columnAktenzustand As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "VWTEMPQUICKVIEW"
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 _Record_IDColumn() As Global.System.Data.DataColumn
Get
Return Me._columnRecord_ID
End Get
End Property
_
Public ReadOnly Property AktenzeichenColumn() As Global.System.Data.DataColumn
Get
Return Me.columnAktenzeichen
End Get
End Property
_
Public ReadOnly Property _Wiedergabe_der_Marke__Bild_Column() As Global.System.Data.DataColumn
Get
Return Me._columnWiedergabe_der_Marke__Bild_
End Get
End Property
_
Public ReadOnly Property Tag_der_Eintragung_im_RegisterColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTag_der_Eintragung_im_Register
End Get
End Property
_
Public ReadOnly Property AktenzustandColumn() As Global.System.Data.DataColumn
Get
Return Me.columnAktenzustand
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 VWTEMPQUICKVIEWRow
Get
Return CType(Me.Rows(index),VWTEMPQUICKVIEWRow)
End Get
End Property
_
Public Event VWTEMPQUICKVIEWRowChanging As VWTEMPQUICKVIEWRowChangeEventHandler
_
Public Event VWTEMPQUICKVIEWRowChanged As VWTEMPQUICKVIEWRowChangeEventHandler
_
Public Event VWTEMPQUICKVIEWRowDeleting As VWTEMPQUICKVIEWRowChangeEventHandler
_
Public Event VWTEMPQUICKVIEWRowDeleted As VWTEMPQUICKVIEWRowChangeEventHandler
_
Public Overloads Sub AddVWTEMPQUICKVIEWRow(ByVal row As VWTEMPQUICKVIEWRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddVWTEMPQUICKVIEWRow(ByVal _Record_ID As Integer, ByVal Aktenzeichen As String, ByVal _Wiedergabe_der_Marke__Bild_() As Byte, ByVal Tag_der_Eintragung_im_Register As String, ByVal Aktenzustand As String) As VWTEMPQUICKVIEWRow
Dim rowVWTEMPQUICKVIEWRow As VWTEMPQUICKVIEWRow = CType(Me.NewRow,VWTEMPQUICKVIEWRow)
Dim columnValuesArray() As Object = New Object() {_Record_ID, Aktenzeichen, _Wiedergabe_der_Marke__Bild_, Tag_der_Eintragung_im_Register, Aktenzustand}
rowVWTEMPQUICKVIEWRow.ItemArray = columnValuesArray
Me.Rows.Add(rowVWTEMPQUICKVIEWRow)
Return rowVWTEMPQUICKVIEWRow
End Function
_
Public Function FindBy_Record_ID(ByVal _Record_ID As Integer) As VWTEMPQUICKVIEWRow
Return CType(Me.Rows.Find(New Object() {_Record_ID}),VWTEMPQUICKVIEWRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As VWTEMPQUICKVIEWDataTable = CType(MyBase.Clone,VWTEMPQUICKVIEWDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New VWTEMPQUICKVIEWDataTable()
End Function
_
Friend Sub InitVars()
Me._columnRecord_ID = MyBase.Columns("Record-ID")
Me.columnAktenzeichen = MyBase.Columns("Aktenzeichen")
Me._columnWiedergabe_der_Marke__Bild_ = MyBase.Columns("Wiedergabe der Marke (Bild)")
Me.columnTag_der_Eintragung_im_Register = MyBase.Columns("Tag der Eintragung im Register")
Me.columnAktenzustand = MyBase.Columns("Aktenzustand")
End Sub
_
Private Sub InitClass()
Me._columnRecord_ID = New Global.System.Data.DataColumn("Record-ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
Me._columnRecord_ID.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnRecord_ID")
Me._columnRecord_ID.ExtendedProperties.Add("Generator_UserColumnName", "Record-ID")
MyBase.Columns.Add(Me._columnRecord_ID)
Me.columnAktenzeichen = New Global.System.Data.DataColumn("Aktenzeichen", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnAktenzeichen)
Me._columnWiedergabe_der_Marke__Bild_ = New Global.System.Data.DataColumn("Wiedergabe der Marke (Bild)", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element)
Me._columnWiedergabe_der_Marke__Bild_.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnWiedergabe_der_Marke__Bild_")
Me._columnWiedergabe_der_Marke__Bild_.ExtendedProperties.Add("Generator_UserColumnName", "Wiedergabe der Marke (Bild)")
MyBase.Columns.Add(Me._columnWiedergabe_der_Marke__Bild_)
Me.columnTag_der_Eintragung_im_Register = New Global.System.Data.DataColumn("Tag der Eintragung im Register", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnTag_der_Eintragung_im_Register)
Me.columnAktenzustand = New Global.System.Data.DataColumn("Aktenzustand", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnAktenzustand)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me._columnRecord_ID}, true))
Me._columnRecord_ID.AllowDBNull = false
Me._columnRecord_ID.Unique = true
Me.columnAktenzeichen.ReadOnly = true
Me.columnAktenzeichen.MaxLength = 2147483647
Me._columnWiedergabe_der_Marke__Bild_.ReadOnly = true
Me.columnTag_der_Eintragung_im_Register.ReadOnly = true
Me.columnTag_der_Eintragung_im_Register.MaxLength = 2147483647
Me.columnAktenzustand.ReadOnly = true
Me.columnAktenzustand.MaxLength = 2147483647
End Sub
_
Public Function NewVWTEMPQUICKVIEWRow() As VWTEMPQUICKVIEWRow
Return CType(Me.NewRow,VWTEMPQUICKVIEWRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New VWTEMPQUICKVIEWRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(VWTEMPQUICKVIEWRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.VWTEMPQUICKVIEWRowChangedEvent) Is Nothing) Then
RaiseEvent VWTEMPQUICKVIEWRowChanged(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row,VWTEMPQUICKVIEWRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.VWTEMPQUICKVIEWRowChangingEvent) Is Nothing) Then
RaiseEvent VWTEMPQUICKVIEWRowChanging(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row,VWTEMPQUICKVIEWRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.VWTEMPQUICKVIEWRowDeletedEvent) Is Nothing) Then
RaiseEvent VWTEMPQUICKVIEWRowDeleted(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row,VWTEMPQUICKVIEWRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.VWTEMPQUICKVIEWRowDeletingEvent) Is Nothing) Then
RaiseEvent VWTEMPQUICKVIEWRowDeleting(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row,VWTEMPQUICKVIEWRow), e.Action))
End If
End Sub
_
Public Sub RemoveVWTEMPQUICKVIEWRow(ByVal row As VWTEMPQUICKVIEWRow)
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 DD_ECMAdmin = New DD_ECMAdmin()
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 = "VWTEMPQUICKVIEWDataTable"
type.Attributes.Add(attribute2)
type.Particle = sequence
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
If xs.Contains(dsSchema.TargetNamespace) Then
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Try
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0)
schema.Write(s2)
If (s1.Length = s2.Length) Then
s1.Position = 0
s2.Position = 0
Do While ((s1.Position <> s1.Length) _
AndAlso (s1.ReadByte = s2.ReadByte))
Loop
If (s1.Position = s1.Length) Then
Return type
End If
End If
Loop
Finally
If (Not (s1) Is Nothing) Then
s1.Close
End If
If (Not (s2) Is Nothing) Then
s2.Close
End If
End Try
End If
xs.Add(dsSchema)
Return type
End Function
End Class
'''
'''Represents the strongly named DataTable class.
'''
_
Partial Public Class TBWH_ENTITIESDataTable
Inherits Global.System.Data.TypedTableBase(Of TBWH_ENTITIESRow)
Private columnGUID As Global.System.Data.DataColumn
Private columnFORM_TITLE As Global.System.Data.DataColumn
Private columnCAPTION As Global.System.Data.DataColumn
_
Public Sub New()
MyBase.New
Me.TableName = "TBWH_ENTITIES"
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 FORM_TITLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFORM_TITLE
End Get
End Property
_
Public ReadOnly Property CAPTIONColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCAPTION
End Get
End Property
_
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
_
Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_ENTITIESRow
Get
Return CType(Me.Rows(index),TBWH_ENTITIESRow)
End Get
End Property
_
Public Event TBWH_ENTITIESRowChanging As TBWH_ENTITIESRowChangeEventHandler
_
Public Event TBWH_ENTITIESRowChanged As TBWH_ENTITIESRowChangeEventHandler
_
Public Event TBWH_ENTITIESRowDeleting As TBWH_ENTITIESRowChangeEventHandler
_
Public Event TBWH_ENTITIESRowDeleted As TBWH_ENTITIESRowChangeEventHandler
_
Public Overloads Sub AddTBWH_ENTITIESRow(ByVal row As TBWH_ENTITIESRow)
Me.Rows.Add(row)
End Sub
_
Public Overloads Function AddTBWH_ENTITIESRow(ByVal FORM_TITLE As String, ByVal CAPTION As String) As TBWH_ENTITIESRow
Dim rowTBWH_ENTITIESRow As TBWH_ENTITIESRow = CType(Me.NewRow,TBWH_ENTITIESRow)
Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, CAPTION}
rowTBWH_ENTITIESRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBWH_ENTITIESRow)
Return rowTBWH_ENTITIESRow
End Function
_
Public Function FindByGUID(ByVal GUID As Integer) As TBWH_ENTITIESRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_ENTITIESRow)
End Function
_
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBWH_ENTITIESDataTable = CType(MyBase.Clone,TBWH_ENTITIESDataTable)
cln.InitVars
Return cln
End Function
_
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBWH_ENTITIESDataTable()
End Function
_
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE")
Me.columnCAPTION = MyBase.Columns("CAPTION")
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.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnFORM_TITLE)
Me.columnCAPTION = New Global.System.Data.DataColumn("CAPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnCAPTION)
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.columnFORM_TITLE.AllowDBNull = false
Me.columnFORM_TITLE.MaxLength = 50
Me.columnCAPTION.ReadOnly = true
Me.columnCAPTION.MaxLength = 100
End Sub
_
Public Function NewTBWH_ENTITIESRow() As TBWH_ENTITIESRow
Return CType(Me.NewRow,TBWH_ENTITIESRow)
End Function
_
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBWH_ENTITIESRow(builder)
End Function
_
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBWH_ENTITIESRow)
End Function
_
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e)
If (Not (Me.TBWH_ENTITIESRowChangedEvent) Is Nothing) Then
RaiseEvent TBWH_ENTITIESRowChanged(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row,TBWH_ENTITIESRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e)
If (Not (Me.TBWH_ENTITIESRowChangingEvent) Is Nothing) Then
RaiseEvent TBWH_ENTITIESRowChanging(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row,TBWH_ENTITIESRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e)
If (Not (Me.TBWH_ENTITIESRowDeletedEvent) Is Nothing) Then
RaiseEvent TBWH_ENTITIESRowDeleted(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row,TBWH_ENTITIESRow), e.Action))
End If
End Sub
_
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e)
If (Not (Me.TBWH_ENTITIESRowDeletingEvent) Is Nothing) Then
RaiseEvent TBWH_ENTITIESRowDeleting(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row,TBWH_ENTITIESRow), e.Action))
End If
End Sub