'------------------------------------------------------------------------------ ' ' 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 _ Public Sub RemoveTBWH_ENTITIESRow(ByVal row As TBWH_ENTITIESRow) 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 = "TBWH_ENTITIESDataTable" 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_USER_GROUPSDataTable Inherits Global.System.Data.TypedTableBase(Of TBWH_USER_GROUPSRow) Private columnGUID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBWH_USER_GROUPS" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_USER_GROUPSRow Get Return CType(Me.Rows(index),TBWH_USER_GROUPSRow) End Get End Property _ Public Event TBWH_USER_GROUPSRowChanging As TBWH_USER_GROUPSRowChangeEventHandler _ Public Event TBWH_USER_GROUPSRowChanged As TBWH_USER_GROUPSRowChangeEventHandler _ Public Event TBWH_USER_GROUPSRowDeleting As TBWH_USER_GROUPSRowChangeEventHandler _ Public Event TBWH_USER_GROUPSRowDeleted As TBWH_USER_GROUPSRowChangeEventHandler _ Public Overloads Sub AddTBWH_USER_GROUPSRow(ByVal row As TBWH_USER_GROUPSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBWH_USER_GROUPSRow(ByVal NAME As String) As TBWH_USER_GROUPSRow Dim rowTBWH_USER_GROUPSRow As TBWH_USER_GROUPSRow = CType(Me.NewRow,TBWH_USER_GROUPSRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME} rowTBWH_USER_GROUPSRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBWH_USER_GROUPSRow) Return rowTBWH_USER_GROUPSRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBWH_USER_GROUPSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_USER_GROUPSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_USER_GROUPSDataTable = CType(MyBase.Clone,TBWH_USER_GROUPSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_USER_GROUPSDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.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.columnNAME.MaxLength = 50 End Sub _ Public Function NewTBWH_USER_GROUPSRow() As TBWH_USER_GROUPSRow Return CType(Me.NewRow,TBWH_USER_GROUPSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_USER_GROUPSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_USER_GROUPSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_USER_GROUPSRowChangedEvent) Is Nothing) Then RaiseEvent TBWH_USER_GROUPSRowChanged(Me, New TBWH_USER_GROUPSRowChangeEvent(CType(e.Row,TBWH_USER_GROUPSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_USER_GROUPSRowChangingEvent) Is Nothing) Then RaiseEvent TBWH_USER_GROUPSRowChanging(Me, New TBWH_USER_GROUPSRowChangeEvent(CType(e.Row,TBWH_USER_GROUPSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_USER_GROUPSRowDeletedEvent) Is Nothing) Then RaiseEvent TBWH_USER_GROUPSRowDeleted(Me, New TBWH_USER_GROUPSRowChangeEvent(CType(e.Row,TBWH_USER_GROUPSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_USER_GROUPSRowDeletingEvent) Is Nothing) Then RaiseEvent TBWH_USER_GROUPSRowDeleting(Me, New TBWH_USER_GROUPSRowChangeEvent(CType(e.Row,TBWH_USER_GROUPSRow), e.Action)) End If End Sub _ Public Sub RemoveTBWH_USER_GROUPSRow(ByVal row As TBWH_USER_GROUPSRow) 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 = "TBWH_USER_GROUPSDataTable" 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_SAP_FUBADataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_SAP_FUBARow) Private columnGUID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnTableName As Global.System.Data.DataColumn Private columnHost As Global.System.Data.DataColumn Private columnSystemNumber As Global.System.Data.DataColumn Private columnUserName As Global.System.Data.DataColumn Private columnPassword As Global.System.Data.DataColumn Private columnClient As Global.System.Data.DataColumn Private columnLanguage As Global.System.Data.DataColumn Private columnTempTableName As Global.System.Data.DataColumn Private columnACTIVE 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 columnWHERE_CLAUSE As Global.System.Data.DataColumn Private columnMethod As Global.System.Data.DataColumn Private columnFuBa_SplitCharacter As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_SAP_FUBA" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property TableNameColumn() As Global.System.Data.DataColumn Get Return Me.columnTableName End Get End Property _ Public ReadOnly Property HostColumn() As Global.System.Data.DataColumn Get Return Me.columnHost End Get End Property _ Public ReadOnly Property SystemNumberColumn() As Global.System.Data.DataColumn Get Return Me.columnSystemNumber 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 ClientColumn() As Global.System.Data.DataColumn Get Return Me.columnClient End Get End Property _ Public ReadOnly Property LanguageColumn() As Global.System.Data.DataColumn Get Return Me.columnLanguage End Get End Property _ Public ReadOnly Property TempTableNameColumn() As Global.System.Data.DataColumn Get Return Me.columnTempTableName End Get End Property _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE 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 WHERE_CLAUSEColumn() As Global.System.Data.DataColumn Get Return Me.columnWHERE_CLAUSE End Get End Property _ Public ReadOnly Property MethodColumn() As Global.System.Data.DataColumn Get Return Me.columnMethod End Get End Property _ Public ReadOnly Property FuBa_SplitCharacterColumn() As Global.System.Data.DataColumn Get Return Me.columnFuBa_SplitCharacter 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_SAP_FUBARow Get Return CType(Me.Rows(index),TBPMO_SAP_FUBARow) End Get End Property _ Public Event TBPMO_SAP_FUBARowChanging As TBPMO_SAP_FUBARowChangeEventHandler _ Public Event TBPMO_SAP_FUBARowChanged As TBPMO_SAP_FUBARowChangeEventHandler _ Public Event TBPMO_SAP_FUBARowDeleting As TBPMO_SAP_FUBARowChangeEventHandler _ Public Event TBPMO_SAP_FUBARowDeleted As TBPMO_SAP_FUBARowChangeEventHandler _ Public Overloads Sub AddTBPMO_SAP_FUBARow(ByVal row As TBPMO_SAP_FUBARow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_SAP_FUBARow( _ ByVal NAME As String, _ ByVal COMMENT As String, _ ByVal TableName As String, _ ByVal Host As String, _ ByVal SystemNumber As String, _ ByVal UserName As String, _ ByVal Password As String, _ ByVal Client As String, _ ByVal Language As String, _ ByVal TempTableName As String, _ ByVal ACTIVE As Boolean, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Date, _ ByVal WHERE_CLAUSE As String, _ ByVal Method As String, _ ByVal FuBa_SplitCharacter As String) As TBPMO_SAP_FUBARow Dim rowTBPMO_SAP_FUBARow As TBPMO_SAP_FUBARow = CType(Me.NewRow,TBPMO_SAP_FUBARow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WHERE_CLAUSE, Method, FuBa_SplitCharacter} rowTBPMO_SAP_FUBARow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_SAP_FUBARow) Return rowTBPMO_SAP_FUBARow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_SAP_FUBARow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_SAP_FUBARow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_SAP_FUBADataTable = CType(MyBase.Clone,TBPMO_SAP_FUBADataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_SAP_FUBADataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnTableName = MyBase.Columns("TableName") Me.columnHost = MyBase.Columns("Host") Me.columnSystemNumber = MyBase.Columns("SystemNumber") Me.columnUserName = MyBase.Columns("UserName") Me.columnPassword = MyBase.Columns("Password") Me.columnClient = MyBase.Columns("Client") Me.columnLanguage = MyBase.Columns("Language") Me.columnTempTableName = MyBase.Columns("TempTableName") Me.columnACTIVE = MyBase.Columns("ACTIVE") 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.columnWHERE_CLAUSE = MyBase.Columns("WHERE_CLAUSE") Me.columnMethod = MyBase.Columns("Method") Me.columnFuBa_SplitCharacter = MyBase.Columns("FuBa_SplitCharacter") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnTableName = New Global.System.Data.DataColumn("TableName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTableName) Me.columnHost = New Global.System.Data.DataColumn("Host", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHost) Me.columnSystemNumber = New Global.System.Data.DataColumn("SystemNumber", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSystemNumber) 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.columnClient = New Global.System.Data.DataColumn("Client", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnClient) Me.columnLanguage = New Global.System.Data.DataColumn("Language", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLanguage) Me.columnTempTableName = New Global.System.Data.DataColumn("TempTableName", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTempTableName) Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnACTIVE) 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.columnWHERE_CLAUSE = New Global.System.Data.DataColumn("WHERE_CLAUSE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWHERE_CLAUSE) Me.columnMethod = New Global.System.Data.DataColumn("Method", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMethod) Me.columnFuBa_SplitCharacter = New Global.System.Data.DataColumn("FuBa_SplitCharacter", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFuBa_SplitCharacter) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnNAME.AllowDBNull = false Me.columnNAME.MaxLength = 100 Me.columnCOMMENT.MaxLength = 500 Me.columnTableName.AllowDBNull = false Me.columnTableName.MaxLength = 100 Me.columnHost.AllowDBNull = false Me.columnHost.MaxLength = 100 Me.columnSystemNumber.AllowDBNull = false Me.columnSystemNumber.MaxLength = 30 Me.columnUserName.AllowDBNull = false Me.columnUserName.MaxLength = 50 Me.columnPassword.AllowDBNull = false Me.columnPassword.MaxLength = 100 Me.columnClient.AllowDBNull = false Me.columnClient.MaxLength = 100 Me.columnLanguage.AllowDBNull = false Me.columnLanguage.MaxLength = 20 Me.columnTempTableName.AllowDBNull = false Me.columnTempTableName.MaxLength = 100 Me.columnACTIVE.AllowDBNull = false Me.columnACTIVE.DefaultValue = CType(false,Boolean) Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnWHERE_CLAUSE.MaxLength = 500 Me.columnMethod.AllowDBNull = false Me.columnMethod.DefaultValue = CType("TABLE",String) Me.columnMethod.MaxLength = 50 Me.columnFuBa_SplitCharacter.AllowDBNull = false Me.columnFuBa_SplitCharacter.DefaultValue = CType(";",String) Me.columnFuBa_SplitCharacter.MaxLength = 1 End Sub _ Public Function NewTBPMO_SAP_FUBARow() As TBPMO_SAP_FUBARow Return CType(Me.NewRow,TBPMO_SAP_FUBARow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_SAP_FUBARow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_SAP_FUBARow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_SAP_FUBARowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_SAP_FUBARowChanged(Me, New TBPMO_SAP_FUBARowChangeEvent(CType(e.Row,TBPMO_SAP_FUBARow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_SAP_FUBARowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_SAP_FUBARowChanging(Me, New TBPMO_SAP_FUBARowChangeEvent(CType(e.Row,TBPMO_SAP_FUBARow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_SAP_FUBARowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_SAP_FUBARowDeleted(Me, New TBPMO_SAP_FUBARowChangeEvent(CType(e.Row,TBPMO_SAP_FUBARow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_SAP_FUBARowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_SAP_FUBARowDeleting(Me, New TBPMO_SAP_FUBARowChangeEvent(CType(e.Row,TBPMO_SAP_FUBARow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_SAP_FUBARow(ByVal row As TBPMO_SAP_FUBARow) 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_SAP_FUBADataTable" 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 USER_RIGHTSDataTable Inherits Global.System.Data.TypedTableBase(Of USER_RIGHTSRow) Private columnGUID As Global.System.Data.DataColumn Private columnFORM_TITLE As Global.System.Data.DataColumn Private columnUSERNAME As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn Private columnPRENAME As Global.System.Data.DataColumn Private columnEDIT_REC As Global.System.Data.DataColumn Private columnADD_REC As Global.System.Data.DataColumn Private columnDELETE_REC As Global.System.Data.DataColumn Private columnADD_DOC As Global.System.Data.DataColumn Private columnREAD_ONLY_DOC As Global.System.Data.DataColumn Private columnDELETE_DOC As Global.System.Data.DataColumn Private columnFILES_VISIBLE As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "USER_RIGHTS" 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 USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPRENAME End Get End Property _ Public ReadOnly Property EDIT_RECColumn() As Global.System.Data.DataColumn Get Return Me.columnEDIT_REC End Get End Property _ Public ReadOnly Property ADD_RECColumn() As Global.System.Data.DataColumn Get Return Me.columnADD_REC End Get End Property _ Public ReadOnly Property DELETE_RECColumn() As Global.System.Data.DataColumn Get Return Me.columnDELETE_REC End Get End Property _ Public ReadOnly Property ADD_DOCColumn() As Global.System.Data.DataColumn Get Return Me.columnADD_DOC End Get End Property _ Public ReadOnly Property READ_ONLY_DOCColumn() As Global.System.Data.DataColumn Get Return Me.columnREAD_ONLY_DOC End Get End Property _ Public ReadOnly Property DELETE_DOCColumn() As Global.System.Data.DataColumn Get Return Me.columnDELETE_DOC End Get End Property _ Public ReadOnly Property FILES_VISIBLEColumn() As Global.System.Data.DataColumn Get Return Me.columnFILES_VISIBLE 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_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 USER_RIGHTSRow Get Return CType(Me.Rows(index),USER_RIGHTSRow) End Get End Property _ Public Event USER_RIGHTSRowChanging As USER_RIGHTSRowChangeEventHandler _ Public Event USER_RIGHTSRowChanged As USER_RIGHTSRowChangeEventHandler _ Public Event USER_RIGHTSRowDeleting As USER_RIGHTSRowChangeEventHandler _ Public Event USER_RIGHTSRowDeleted As USER_RIGHTSRowChangeEventHandler _ Public Overloads Sub AddUSER_RIGHTSRow(ByVal row As USER_RIGHTSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddUSER_RIGHTSRow(ByVal FORM_TITLE As String, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal READ_ONLY_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal FILES_VISIBLE As Boolean, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHEN As Date) As USER_RIGHTSRow Dim rowUSER_RIGHTSRow As USER_RIGHTSRow = CType(Me.NewRow,USER_RIGHTSRow) Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, USERNAME, NAME, PRENAME, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, READ_ONLY_DOC, DELETE_DOC, FILES_VISIBLE, ADDED_WHEN, CHANGED_WHEN} rowUSER_RIGHTSRow.ItemArray = columnValuesArray Me.Rows.Add(rowUSER_RIGHTSRow) Return rowUSER_RIGHTSRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As USER_RIGHTSRow Return CType(Me.Rows.Find(New Object() {GUID}),USER_RIGHTSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As USER_RIGHTSDataTable = CType(MyBase.Clone,USER_RIGHTSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New USER_RIGHTSDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") Me.columnUSERNAME = MyBase.Columns("USERNAME") Me.columnNAME = MyBase.Columns("NAME") Me.columnPRENAME = MyBase.Columns("PRENAME") Me.columnEDIT_REC = MyBase.Columns("EDIT_REC") Me.columnADD_REC = MyBase.Columns("ADD_REC") Me.columnDELETE_REC = MyBase.Columns("DELETE_REC") Me.columnADD_DOC = MyBase.Columns("ADD_DOC") Me.columnREAD_ONLY_DOC = MyBase.Columns("READ_ONLY_DOC") Me.columnDELETE_DOC = MyBase.Columns("DELETE_DOC") Me.columnFILES_VISIBLE = MyBase.Columns("FILES_VISIBLE") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") 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.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFORM_TITLE) Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSERNAME) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPRENAME) Me.columnEDIT_REC = New Global.System.Data.DataColumn("EDIT_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEDIT_REC) Me.columnADD_REC = New Global.System.Data.DataColumn("ADD_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADD_REC) Me.columnDELETE_REC = New Global.System.Data.DataColumn("DELETE_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDELETE_REC) Me.columnADD_DOC = New Global.System.Data.DataColumn("ADD_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADD_DOC) Me.columnREAD_ONLY_DOC = New Global.System.Data.DataColumn("READ_ONLY_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnREAD_ONLY_DOC) Me.columnDELETE_DOC = New Global.System.Data.DataColumn("DELETE_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDELETE_DOC) Me.columnFILES_VISIBLE = New Global.System.Data.DataColumn("FILES_VISIBLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnFILES_VISIBLE) 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_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnFORM_TITLE.ReadOnly = true Me.columnFORM_TITLE.MaxLength = 100 Me.columnUSERNAME.AllowDBNull = false Me.columnUSERNAME.MaxLength = 50 Me.columnNAME.MaxLength = 50 Me.columnPRENAME.MaxLength = 50 Me.columnEDIT_REC.AllowDBNull = false Me.columnADD_REC.AllowDBNull = false Me.columnDELETE_REC.AllowDBNull = false Me.columnADD_DOC.AllowDBNull = false Me.columnREAD_ONLY_DOC.AllowDBNull = false Me.columnDELETE_DOC.AllowDBNull = false Me.columnFILES_VISIBLE.AllowDBNull = false End Sub _ Public Function NewUSER_RIGHTSRow() As USER_RIGHTSRow Return CType(Me.NewRow,USER_RIGHTSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New USER_RIGHTSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(USER_RIGHTSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.USER_RIGHTSRowChangedEvent) Is Nothing) Then RaiseEvent USER_RIGHTSRowChanged(Me, New USER_RIGHTSRowChangeEvent(CType(e.Row,USER_RIGHTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.USER_RIGHTSRowChangingEvent) Is Nothing) Then RaiseEvent USER_RIGHTSRowChanging(Me, New USER_RIGHTSRowChangeEvent(CType(e.Row,USER_RIGHTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.USER_RIGHTSRowDeletedEvent) Is Nothing) Then RaiseEvent USER_RIGHTSRowDeleted(Me, New USER_RIGHTSRowChangeEvent(CType(e.Row,USER_RIGHTSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.USER_RIGHTSRowDeletingEvent) Is Nothing) Then RaiseEvent USER_RIGHTSRowDeleting(Me, New USER_RIGHTSRowChangeEvent(CType(e.Row,USER_RIGHTSRow), e.Action)) End If End Sub _ Public Sub RemoveUSER_RIGHTSRow(ByVal row As USER_RIGHTSRow) 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 = "USER_RIGHTSDataTable" 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_DOCSEARCH_RESULTLIST_CONFIGDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) Private columnGUID As Global.System.Data.DataColumn Private columnENTITY_ID As Global.System.Data.DataColumn Private columnLANGUAGE As Global.System.Data.DataColumn Private columnCOLUMN_VIEW As Global.System.Data.DataColumn Private columnHEADER_CAPTION As Global.System.Data.DataColumn Private columnWIDTH As Global.System.Data.DataColumn Private columnTYPE_ID 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 columnVISIBLE As Global.System.Data.DataColumn Private columnEDITABLE As Global.System.Data.DataColumn Private columnCONFIG_COLUMNS As Global.System.Data.DataColumn Private columnSEQUENCE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_DOCSEARCH_RESULTLIST_CONFIG" 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 ENTITY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnENTITY_ID End Get End Property _ Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn Get Return Me.columnLANGUAGE End Get End Property _ Public ReadOnly Property COLUMN_VIEWColumn() As Global.System.Data.DataColumn Get Return Me.columnCOLUMN_VIEW End Get End Property _ Public ReadOnly Property HEADER_CAPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnHEADER_CAPTION End Get End Property _ Public ReadOnly Property WIDTHColumn() As Global.System.Data.DataColumn Get Return Me.columnWIDTH End Get End Property _ Public ReadOnly Property TYPE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnTYPE_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 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 VISIBLEColumn() As Global.System.Data.DataColumn Get Return Me.columnVISIBLE End Get End Property _ Public ReadOnly Property EDITABLEColumn() As Global.System.Data.DataColumn Get Return Me.columnEDITABLE End Get End Property _ Public ReadOnly Property CONFIG_COLUMNSColumn() As Global.System.Data.DataColumn Get Return Me.columnCONFIG_COLUMNS End Get End Property _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE 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_DOCSEARCH_RESULTLIST_CONFIGRow Get Return CType(Me.Rows(index),TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) End Get End Property _ Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanging As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler _ Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanged As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler _ Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler _ Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleted As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler _ Public Overloads Sub AddTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal ENTITY_ID As Integer, ByVal LANGUAGE As String, ByVal COLUMN_VIEW As String, ByVal HEADER_CAPTION As String, ByVal WIDTH As Integer, ByVal TYPE_ID As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal VISIBLE As Boolean, ByVal EDITABLE As Boolean, ByVal CONFIG_COLUMNS As Boolean, ByVal SEQUENCE As Integer) As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow Dim rowTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow = CType(Me.NewRow,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) Dim columnValuesArray() As Object = New Object() {Nothing, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE, CONFIG_COLUMNS, SEQUENCE} rowTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) Return rowTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable = CType(MyBase.Clone,TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") Me.columnCOLUMN_VIEW = MyBase.Columns("COLUMN_VIEW") Me.columnHEADER_CAPTION = MyBase.Columns("HEADER_CAPTION") Me.columnWIDTH = MyBase.Columns("WIDTH") Me.columnTYPE_ID = MyBase.Columns("TYPE_ID") 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.columnVISIBLE = MyBase.Columns("VISIBLE") Me.columnEDITABLE = MyBase.Columns("EDITABLE") Me.columnCONFIG_COLUMNS = MyBase.Columns("CONFIG_COLUMNS") Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") 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.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnENTITY_ID) Me.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLANGUAGE) Me.columnCOLUMN_VIEW = New Global.System.Data.DataColumn("COLUMN_VIEW", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOLUMN_VIEW) Me.columnHEADER_CAPTION = New Global.System.Data.DataColumn("HEADER_CAPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnHEADER_CAPTION) Me.columnWIDTH = New Global.System.Data.DataColumn("WIDTH", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWIDTH) Me.columnTYPE_ID = New Global.System.Data.DataColumn("TYPE_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTYPE_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.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.columnVISIBLE = New Global.System.Data.DataColumn("VISIBLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVISIBLE) Me.columnEDITABLE = New Global.System.Data.DataColumn("EDITABLE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEDITABLE) Me.columnCONFIG_COLUMNS = New Global.System.Data.DataColumn("CONFIG_COLUMNS", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONFIG_COLUMNS) Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEQUENCE) 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.columnENTITY_ID.AllowDBNull = false Me.columnLANGUAGE.AllowDBNull = false Me.columnLANGUAGE.MaxLength = 5 Me.columnCOLUMN_VIEW.AllowDBNull = false Me.columnCOLUMN_VIEW.MaxLength = 100 Me.columnHEADER_CAPTION.AllowDBNull = false Me.columnHEADER_CAPTION.MaxLength = 100 Me.columnWIDTH.AllowDBNull = false Me.columnTYPE_ID.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnVISIBLE.AllowDBNull = false Me.columnEDITABLE.AllowDBNull = false Me.columnCONFIG_COLUMNS.AllowDBNull = false Me.columnSEQUENCE.AllowDBNull = false End Sub _ Public Function NewTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow Return CType(Me.NewRow,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanged(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanging(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleted(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) 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_DOCSEARCH_RESULTLIST_CONFIGDataTable" 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 VWDD_LOGIN_USER_HISTORYDataTable Inherits Global.System.Data.TypedTableBase(Of VWDD_LOGIN_USER_HISTORYRow) Private columnGUID As Global.System.Data.DataColumn Private columnMODULE As Global.System.Data.DataColumn Private columnUSERNAME As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn Private columnPRENAME As Global.System.Data.DataColumn Private columnUSER_ID As Global.System.Data.DataColumn Private columnCLIENT_ID As Global.System.Data.DataColumn Private columnCLIENT_NAME As Global.System.Data.DataColumn Private columnLOGIN As Global.System.Data.DataColumn Private columnLOGOUT As Global.System.Data.DataColumn Private columnVERSION_CLIENT As Global.System.Data.DataColumn Private columnMACHINE_NAME As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "VWDD_LOGIN_USER_HISTORY" 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 MODULEColumn() As Global.System.Data.DataColumn Get Return Me.columnMODULE End Get End Property _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPRENAME End Get End Property _ Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_ID End Get End Property _ Public ReadOnly Property CLIENT_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCLIENT_ID End Get End Property _ Public ReadOnly Property CLIENT_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnCLIENT_NAME End Get End Property _ Public ReadOnly Property LOGINColumn() As Global.System.Data.DataColumn Get Return Me.columnLOGIN End Get End Property _ Public ReadOnly Property LOGOUTColumn() As Global.System.Data.DataColumn Get Return Me.columnLOGOUT End Get End Property _ Public ReadOnly Property VERSION_CLIENTColumn() As Global.System.Data.DataColumn Get Return Me.columnVERSION_CLIENT End Get End Property _ Public ReadOnly Property MACHINE_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnMACHINE_NAME 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 VWDD_LOGIN_USER_HISTORYRow Get Return CType(Me.Rows(index),VWDD_LOGIN_USER_HISTORYRow) End Get End Property _ Public Event VWDD_LOGIN_USER_HISTORYRowChanging As VWDD_LOGIN_USER_HISTORYRowChangeEventHandler _ Public Event VWDD_LOGIN_USER_HISTORYRowChanged As VWDD_LOGIN_USER_HISTORYRowChangeEventHandler _ Public Event VWDD_LOGIN_USER_HISTORYRowDeleting As VWDD_LOGIN_USER_HISTORYRowChangeEventHandler _ Public Event VWDD_LOGIN_USER_HISTORYRowDeleted As VWDD_LOGIN_USER_HISTORYRowChangeEventHandler _ Public Overloads Sub AddVWDD_LOGIN_USER_HISTORYRow(ByVal row As VWDD_LOGIN_USER_HISTORYRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVWDD_LOGIN_USER_HISTORYRow(ByVal GUID As Integer, ByVal _MODULE As String, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String, ByVal USER_ID As Integer, ByVal CLIENT_ID As Integer, ByVal CLIENT_NAME As String, ByVal LOGIN As Date, ByVal LOGOUT As Date, ByVal VERSION_CLIENT As String, ByVal MACHINE_NAME As String) As VWDD_LOGIN_USER_HISTORYRow Dim rowVWDD_LOGIN_USER_HISTORYRow As VWDD_LOGIN_USER_HISTORYRow = CType(Me.NewRow,VWDD_LOGIN_USER_HISTORYRow) Dim columnValuesArray() As Object = New Object() {GUID, _MODULE, USERNAME, NAME, PRENAME, USER_ID, CLIENT_ID, CLIENT_NAME, LOGIN, LOGOUT, VERSION_CLIENT, MACHINE_NAME} rowVWDD_LOGIN_USER_HISTORYRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWDD_LOGIN_USER_HISTORYRow) Return rowVWDD_LOGIN_USER_HISTORYRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWDD_LOGIN_USER_HISTORYDataTable = CType(MyBase.Clone,VWDD_LOGIN_USER_HISTORYDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWDD_LOGIN_USER_HISTORYDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnMODULE = MyBase.Columns("MODULE") Me.columnUSERNAME = MyBase.Columns("USERNAME") Me.columnNAME = MyBase.Columns("NAME") Me.columnPRENAME = MyBase.Columns("PRENAME") Me.columnUSER_ID = MyBase.Columns("USER_ID") Me.columnCLIENT_ID = MyBase.Columns("CLIENT_ID") Me.columnCLIENT_NAME = MyBase.Columns("CLIENT_NAME") Me.columnLOGIN = MyBase.Columns("LOGIN") Me.columnLOGOUT = MyBase.Columns("LOGOUT") Me.columnVERSION_CLIENT = MyBase.Columns("VERSION_CLIENT") Me.columnMACHINE_NAME = MyBase.Columns("MACHINE_NAME") 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.columnMODULE = New Global.System.Data.DataColumn("MODULE", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me.columnMODULE.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "MODULEColumn") Me.columnMODULE.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnMODULE") Me.columnMODULE.ExtendedProperties.Add("Generator_UserColumnName", "MODULE") MyBase.Columns.Add(Me.columnMODULE) Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSERNAME) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPRENAME) Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSER_ID) Me.columnCLIENT_ID = New Global.System.Data.DataColumn("CLIENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCLIENT_ID) Me.columnCLIENT_NAME = New Global.System.Data.DataColumn("CLIENT_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCLIENT_NAME) Me.columnLOGIN = New Global.System.Data.DataColumn("LOGIN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLOGIN) Me.columnLOGOUT = New Global.System.Data.DataColumn("LOGOUT", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLOGOUT) Me.columnVERSION_CLIENT = New Global.System.Data.DataColumn("VERSION_CLIENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVERSION_CLIENT) Me.columnMACHINE_NAME = New Global.System.Data.DataColumn("MACHINE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnMACHINE_NAME) Me.columnGUID.AllowDBNull = false Me.columnMODULE.AllowDBNull = false Me.columnMODULE.MaxLength = 30 Me.columnUSERNAME.AllowDBNull = false Me.columnUSERNAME.MaxLength = 50 Me.columnNAME.MaxLength = 50 Me.columnPRENAME.MaxLength = 50 Me.columnUSER_ID.AllowDBNull = false Me.columnCLIENT_ID.AllowDBNull = false Me.columnCLIENT_NAME.AllowDBNull = false Me.columnCLIENT_NAME.MaxLength = 50 Me.columnVERSION_CLIENT.MaxLength = 30 Me.columnMACHINE_NAME.AllowDBNull = false Me.columnMACHINE_NAME.MaxLength = 250 End Sub _ Public Function NewVWDD_LOGIN_USER_HISTORYRow() As VWDD_LOGIN_USER_HISTORYRow Return CType(Me.NewRow,VWDD_LOGIN_USER_HISTORYRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWDD_LOGIN_USER_HISTORYRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWDD_LOGIN_USER_HISTORYRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWDD_LOGIN_USER_HISTORYRowChangedEvent) Is Nothing) Then RaiseEvent VWDD_LOGIN_USER_HISTORYRowChanged(Me, New VWDD_LOGIN_USER_HISTORYRowChangeEvent(CType(e.Row,VWDD_LOGIN_USER_HISTORYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWDD_LOGIN_USER_HISTORYRowChangingEvent) Is Nothing) Then RaiseEvent VWDD_LOGIN_USER_HISTORYRowChanging(Me, New VWDD_LOGIN_USER_HISTORYRowChangeEvent(CType(e.Row,VWDD_LOGIN_USER_HISTORYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWDD_LOGIN_USER_HISTORYRowDeletedEvent) Is Nothing) Then RaiseEvent VWDD_LOGIN_USER_HISTORYRowDeleted(Me, New VWDD_LOGIN_USER_HISTORYRowChangeEvent(CType(e.Row,VWDD_LOGIN_USER_HISTORYRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWDD_LOGIN_USER_HISTORYRowDeletingEvent) Is Nothing) Then RaiseEvent VWDD_LOGIN_USER_HISTORYRowDeleting(Me, New VWDD_LOGIN_USER_HISTORYRowChangeEvent(CType(e.Row,VWDD_LOGIN_USER_HISTORYRow), e.Action)) End If End Sub _ Public Sub RemoveVWDD_LOGIN_USER_HISTORYRow(ByVal row As VWDD_LOGIN_USER_HISTORYRow) 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 = "VWDD_LOGIN_USER_HISTORYDataTable" 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_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow) Private columnName As Global.System.Data.DataColumn Private columnID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" 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 NameColumn() As Global.System.Data.DataColumn Get Return Me.columnName End Get End Property _ Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow Get Return CType(Me.Rows(index),TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow) End Get End Property _ Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanging As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler _ Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanged As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler _ Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleting As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler _ Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleted As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler _ Public Overloads Sub AddTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow(ByVal Name As String, ByVal ID As Byte) As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow Dim rowTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow = CType(Me.NewRow,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow) Dim columnValuesArray() As Object = New Object() {Name, ID} rowTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow) Return rowTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable = CType(MyBase.Clone,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable() End Function _ Friend Sub InitVars() Me.columnName = MyBase.Columns("Name") Me.columnID = MyBase.Columns("ID") End Sub _ Private Sub InitClass() Me.columnName = New Global.System.Data.DataColumn("Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnName) Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnName.ReadOnly = true Me.columnName.MaxLength = 10 Me.columnID.ReadOnly = true End Sub _ Public Function NewTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow() As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow Return CType(Me.NewRow,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanged(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanging(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleted(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleting(Me, New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent(CType(e.Row,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow) 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_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable" 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_LOG_ESSENTIALSDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_LOG_ESSENTIALSRow) Private columnGUID As Global.System.Data.DataColumn Private columnREFERENCE_KEY As Global.System.Data.DataColumn Private columnREFERENCE_STRING As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnSelection As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBPMO_LOG_ESSENTIALS" 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 REFERENCE_KEYColumn() As Global.System.Data.DataColumn Get Return Me.columnREFERENCE_KEY End Get End Property _ Public ReadOnly Property REFERENCE_STRINGColumn() As Global.System.Data.DataColumn Get Return Me.columnREFERENCE_STRING End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT 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 SelectionColumn() As Global.System.Data.DataColumn Get Return Me.columnSelection 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_LOG_ESSENTIALSRow Get Return CType(Me.Rows(index),TBPMO_LOG_ESSENTIALSRow) End Get End Property _ Public Event TBPMO_LOG_ESSENTIALSRowChanging As TBPMO_LOG_ESSENTIALSRowChangeEventHandler _ Public Event TBPMO_LOG_ESSENTIALSRowChanged As TBPMO_LOG_ESSENTIALSRowChangeEventHandler _ Public Event TBPMO_LOG_ESSENTIALSRowDeleting As TBPMO_LOG_ESSENTIALSRowChangeEventHandler _ Public Event TBPMO_LOG_ESSENTIALSRowDeleted As TBPMO_LOG_ESSENTIALSRowChangeEventHandler _ Public Overloads Sub AddTBPMO_LOG_ESSENTIALSRow(ByVal row As TBPMO_LOG_ESSENTIALSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_LOG_ESSENTIALSRow(ByVal REFERENCE_KEY As Integer, ByVal REFERENCE_STRING As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal Selection As Boolean) As TBPMO_LOG_ESSENTIALSRow Dim rowTBPMO_LOG_ESSENTIALSRow As TBPMO_LOG_ESSENTIALSRow = CType(Me.NewRow,TBPMO_LOG_ESSENTIALSRow) Dim columnValuesArray() As Object = New Object() {Nothing, REFERENCE_KEY, REFERENCE_STRING, COMMENT, ADDED_WHO, ADDED_WHEN, Selection} rowTBPMO_LOG_ESSENTIALSRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_LOG_ESSENTIALSRow) Return rowTBPMO_LOG_ESSENTIALSRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_LOG_ESSENTIALSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_LOG_ESSENTIALSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_LOG_ESSENTIALSDataTable = CType(MyBase.Clone,TBPMO_LOG_ESSENTIALSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_LOG_ESSENTIALSDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnREFERENCE_KEY = MyBase.Columns("REFERENCE_KEY") Me.columnREFERENCE_STRING = MyBase.Columns("REFERENCE_STRING") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnSelection = MyBase.Columns("Selection") 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.columnREFERENCE_KEY = New Global.System.Data.DataColumn("REFERENCE_KEY", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnREFERENCE_KEY) Me.columnREFERENCE_STRING = New Global.System.Data.DataColumn("REFERENCE_STRING", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnREFERENCE_STRING) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) 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.columnSelection = New Global.System.Data.DataColumn("Selection", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSelection) 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.columnREFERENCE_KEY.AllowDBNull = false Me.columnREFERENCE_STRING.AllowDBNull = false Me.columnREFERENCE_STRING.MaxLength = 50 Me.columnCOMMENT.AllowDBNull = false Me.columnCOMMENT.MaxLength = 500 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 End Sub _ Public Function NewTBPMO_LOG_ESSENTIALSRow() As TBPMO_LOG_ESSENTIALSRow Return CType(Me.NewRow,TBPMO_LOG_ESSENTIALSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_LOG_ESSENTIALSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_LOG_ESSENTIALSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_LOG_ESSENTIALSRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_LOG_ESSENTIALSRowChanged(Me, New TBPMO_LOG_ESSENTIALSRowChangeEvent(CType(e.Row,TBPMO_LOG_ESSENTIALSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_LOG_ESSENTIALSRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_LOG_ESSENTIALSRowChanging(Me, New TBPMO_LOG_ESSENTIALSRowChangeEvent(CType(e.Row,TBPMO_LOG_ESSENTIALSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_LOG_ESSENTIALSRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_LOG_ESSENTIALSRowDeleted(Me, New TBPMO_LOG_ESSENTIALSRowChangeEvent(CType(e.Row,TBPMO_LOG_ESSENTIALSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_LOG_ESSENTIALSRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_LOG_ESSENTIALSRowDeleting(Me, New TBPMO_LOG_ESSENTIALSRowChangeEvent(CType(e.Row,TBPMO_LOG_ESSENTIALSRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_LOG_ESSENTIALSRow(ByVal row As TBPMO_LOG_ESSENTIALSRow) 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_LOG_ESSENTIALSDataTable" 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_DOCRESULT_DROPDOWN_ITEMSDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) Private columnGUID As Global.System.Data.DataColumn Private columnCONFIG_ID As Global.System.Data.DataColumn Private columnVALUE As Global.System.Data.DataColumn Private columnSEQUENCE As Global.System.Data.DataColumn Private columnDEFAULT As Global.System.Data.DataColumn Private columnCOLOR 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 = "TBPMO_DOCRESULT_DROPDOWN_ITEMS" 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 CONFIG_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONFIG_ID End Get End Property _ Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnVALUE End Get End Property _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE End Get End Property _ Public ReadOnly Property DEFAULTColumn() As Global.System.Data.DataColumn Get Return Me.columnDEFAULT End Get End Property _ Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn Get Return Me.columnCOLOR 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 TBPMO_DOCRESULT_DROPDOWN_ITEMSRow Get Return CType(Me.Rows(index),TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) End Get End Property _ Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChanging As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler _ Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChanged As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler _ Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeleting As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler _ Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeleted As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler _ Public Overloads Sub AddTBPMO_DOCRESULT_DROPDOWN_ITEMSRow(ByVal row As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBPMO_DOCRESULT_DROPDOWN_ITEMSRow(ByVal parentTBPMO_DOCSEARCH_RESULTLIST_CONFIGRowByFK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow, ByVal VALUE As String, ByVal SEQUENCE As Byte, ByVal _DEFAULT As Boolean, ByVal COLOR As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow Dim rowTBPMO_DOCRESULT_DROPDOWN_ITEMSRow As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow = CType(Me.NewRow,TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, VALUE, SEQUENCE, _DEFAULT, COLOR, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBPMO_DOCSEARCH_RESULTLIST_CONFIGRowByFK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID) Is Nothing) Then columnValuesArray(1) = parentTBPMO_DOCSEARCH_RESULTLIST_CONFIGRowByFK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID(0) End If rowTBPMO_DOCRESULT_DROPDOWN_ITEMSRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_DOCRESULT_DROPDOWN_ITEMSRow) Return rowTBPMO_DOCRESULT_DROPDOWN_ITEMSRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable = CType(MyBase.Clone,TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnCONFIG_ID = MyBase.Columns("CONFIG_ID") Me.columnVALUE = MyBase.Columns("VALUE") Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") Me.columnDEFAULT = MyBase.Columns("DEFAULT") Me.columnCOLOR = MyBase.Columns("COLOR") 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.columnCONFIG_ID = New Global.System.Data.DataColumn("CONFIG_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCONFIG_ID) Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVALUE) Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEQUENCE) Me.columnDEFAULT = New Global.System.Data.DataColumn("DEFAULT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me.columnDEFAULT.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "DEFAULTColumn") Me.columnDEFAULT.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnDEFAULT") Me.columnDEFAULT.ExtendedProperties.Add("Generator_UserColumnName", "DEFAULT") MyBase.Columns.Add(Me.columnDEFAULT) Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOLOR) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnCONFIG_ID.AllowDBNull = false Me.columnVALUE.AllowDBNull = false Me.columnVALUE.MaxLength = 100 Me.columnSEQUENCE.AllowDBNull = false Me.columnDEFAULT.AllowDBNull = false Me.columnCOLOR.AllowDBNull = false Me.columnCOLOR.MaxLength = 50 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBPMO_DOCRESULT_DROPDOWN_ITEMSRow() As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow Return CType(Me.NewRow,TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_DOCRESULT_DROPDOWN_ITEMSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangedEvent) Is Nothing) Then RaiseEvent TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChanged(Me, New TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEvent(CType(e.Row,TBPMO_DOCRESULT_DROPDOWN_ITEMSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangingEvent) Is Nothing) Then RaiseEvent TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChanging(Me, New TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEvent(CType(e.Row,TBPMO_DOCRESULT_DROPDOWN_ITEMSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeletedEvent) Is Nothing) Then RaiseEvent TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeleted(Me, New TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEvent(CType(e.Row,TBPMO_DOCRESULT_DROPDOWN_ITEMSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeletingEvent) Is Nothing) Then RaiseEvent TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeleting(Me, New TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEvent(CType(e.Row,TBPMO_DOCRESULT_DROPDOWN_ITEMSRow), e.Action)) End If End Sub _ Public Sub RemoveTBPMO_DOCRESULT_DROPDOWN_ITEMSRow(ByVal row As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow) 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_DOCRESULT_DROPDOWN_ITEMSDataTable" 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_GROUPSDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPSRow) Private columnGUID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn Private columnECM_FK_ID As Global.System.Data.DataColumn Private columnAD_SYNC As Global.System.Data.DataColumn Private columnINTERNAL As Global.System.Data.DataColumn Private columnACTIVE As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBDD_GROUPS" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property ECM_FK_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnECM_FK_ID End Get End Property _ Public ReadOnly Property AD_SYNCColumn() As Global.System.Data.DataColumn Get Return Me.columnAD_SYNC End Get End Property _ Public ReadOnly Property INTERNALColumn() As Global.System.Data.DataColumn Get Return Me.columnINTERNAL End Get End Property _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPSRow Get Return CType(Me.Rows(index),TBDD_GROUPSRow) End Get End Property _ Public Event TBDD_GROUPSRowChanging As TBDD_GROUPSRowChangeEventHandler _ Public Event TBDD_GROUPSRowChanged As TBDD_GROUPSRowChangeEventHandler _ Public Event TBDD_GROUPSRowDeleting As TBDD_GROUPSRowChangeEventHandler _ Public Event TBDD_GROUPSRowDeleted As TBDD_GROUPSRowChangeEventHandler _ Public Overloads Sub AddTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBDD_GROUPSRow(ByVal NAME As String, ByVal ECM_FK_ID As Integer, ByVal AD_SYNC As Boolean, ByVal INTERNAL As Boolean, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GROUPSRow Dim rowTBDD_GROUPSRow As TBDD_GROUPSRow = CType(Me.NewRow,TBDD_GROUPSRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBDD_GROUPSRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_GROUPSRow) Return rowTBDD_GROUPSRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_GROUPSDataTable = CType(MyBase.Clone,TBDD_GROUPSDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_GROUPSDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") Me.columnECM_FK_ID = MyBase.Columns("ECM_FK_ID") Me.columnAD_SYNC = MyBase.Columns("AD_SYNC") Me.columnINTERNAL = MyBase.Columns("INTERNAL") Me.columnACTIVE = MyBase.Columns("ACTIVE") Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.columnECM_FK_ID = New Global.System.Data.DataColumn("ECM_FK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnECM_FK_ID) Me.columnAD_SYNC = New Global.System.Data.DataColumn("AD_SYNC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAD_SYNC) Me.columnINTERNAL = New Global.System.Data.DataColumn("INTERNAL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnINTERNAL) Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnACTIVE) Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCOMMENT) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnNAME.MaxLength = 50 Me.columnECM_FK_ID.AllowDBNull = false Me.columnAD_SYNC.AllowDBNull = false Me.columnINTERNAL.AllowDBNull = false Me.columnACTIVE.AllowDBNull = false Me.columnCOMMENT.MaxLength = 200 Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewTBDD_GROUPSRow() As TBDD_GROUPSRow Return CType(Me.NewRow,TBDD_GROUPSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_GROUPSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_GROUPSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_GROUPSRowChangedEvent) Is Nothing) Then RaiseEvent TBDD_GROUPSRowChanged(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_GROUPSRowChangingEvent) Is Nothing) Then RaiseEvent TBDD_GROUPSRowChanging(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_GROUPSRowDeletedEvent) Is Nothing) Then RaiseEvent TBDD_GROUPSRowDeleted(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_GROUPSRowDeletingEvent) Is Nothing) Then RaiseEvent TBDD_GROUPSRowDeleting(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) End If End Sub _ Public Sub RemoveTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) 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_GROUPSDataTable" 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 VWPMO_RIGHT_GROUPDataTable Inherits Global.System.Data.TypedTableBase(Of VWPMO_RIGHT_GROUPRow) Private columnID As Global.System.Data.DataColumn Private columnENTITY_ID As Global.System.Data.DataColumn Private columnENTITY_NAME As Global.System.Data.DataColumn Private columnGROUP_ID As Global.System.Data.DataColumn Private columnGROUP_NAME As Global.System.Data.DataColumn Private columnEDIT_REC As Global.System.Data.DataColumn Private columnADD_REC As Global.System.Data.DataColumn Private columnDELETE_REC As Global.System.Data.DataColumn Private columnADD_DOC As Global.System.Data.DataColumn Private columnVIEW_DOC As Global.System.Data.DataColumn Private columnDELETE_DOC 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 = "VWPMO_RIGHT_GROUP" 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 IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID End Get End Property _ Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnENTITY_ID End Get End Property _ Public ReadOnly Property ENTITY_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnENTITY_NAME 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 GROUP_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnGROUP_NAME End Get End Property _ Public ReadOnly Property EDIT_RECColumn() As Global.System.Data.DataColumn Get Return Me.columnEDIT_REC End Get End Property _ Public ReadOnly Property ADD_RECColumn() As Global.System.Data.DataColumn Get Return Me.columnADD_REC End Get End Property _ Public ReadOnly Property DELETE_RECColumn() As Global.System.Data.DataColumn Get Return Me.columnDELETE_REC End Get End Property _ Public ReadOnly Property ADD_DOCColumn() As Global.System.Data.DataColumn Get Return Me.columnADD_DOC End Get End Property _ Public ReadOnly Property VIEW_DOCColumn() As Global.System.Data.DataColumn Get Return Me.columnVIEW_DOC End Get End Property _ Public ReadOnly Property DELETE_DOCColumn() As Global.System.Data.DataColumn Get Return Me.columnDELETE_DOC 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 VWPMO_RIGHT_GROUPRow Get Return CType(Me.Rows(index),VWPMO_RIGHT_GROUPRow) End Get End Property _ Public Event VWPMO_RIGHT_GROUPRowChanging As VWPMO_RIGHT_GROUPRowChangeEventHandler _ Public Event VWPMO_RIGHT_GROUPRowChanged As VWPMO_RIGHT_GROUPRowChangeEventHandler _ Public Event VWPMO_RIGHT_GROUPRowDeleting As VWPMO_RIGHT_GROUPRowChangeEventHandler _ Public Event VWPMO_RIGHT_GROUPRowDeleted As VWPMO_RIGHT_GROUPRowChangeEventHandler _ Public Overloads Sub AddVWPMO_RIGHT_GROUPRow(ByVal row As VWPMO_RIGHT_GROUPRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddVWPMO_RIGHT_GROUPRow(ByVal ID As Integer, ByVal ENTITY_ID As Integer, ByVal ENTITY_NAME As String, ByVal GROUP_ID As Integer, ByVal GROUP_NAME As String, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal VIEW_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As VWPMO_RIGHT_GROUPRow Dim rowVWPMO_RIGHT_GROUPRow As VWPMO_RIGHT_GROUPRow = CType(Me.NewRow,VWPMO_RIGHT_GROUPRow) Dim columnValuesArray() As Object = New Object() {ID, ENTITY_ID, ENTITY_NAME, GROUP_ID, GROUP_NAME, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_DOC, DELETE_DOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowVWPMO_RIGHT_GROUPRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWPMO_RIGHT_GROUPRow) Return rowVWPMO_RIGHT_GROUPRow End Function _ Public Function FindByIDENTITY_IDGROUP_ID(ByVal ID As Integer, ByVal ENTITY_ID As Integer, ByVal GROUP_ID As Integer) As VWPMO_RIGHT_GROUPRow Return CType(Me.Rows.Find(New Object() {ID, ENTITY_ID, GROUP_ID}),VWPMO_RIGHT_GROUPRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As VWPMO_RIGHT_GROUPDataTable = CType(MyBase.Clone,VWPMO_RIGHT_GROUPDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWPMO_RIGHT_GROUPDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") Me.columnENTITY_NAME = MyBase.Columns("ENTITY_NAME") Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") Me.columnGROUP_NAME = MyBase.Columns("GROUP_NAME") Me.columnEDIT_REC = MyBase.Columns("EDIT_REC") Me.columnADD_REC = MyBase.Columns("ADD_REC") Me.columnDELETE_REC = MyBase.Columns("DELETE_REC") Me.columnADD_DOC = MyBase.Columns("ADD_DOC") Me.columnVIEW_DOC = MyBase.Columns("VIEW_DOC") Me.columnDELETE_DOC = MyBase.Columns("DELETE_DOC") 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.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnENTITY_ID) Me.columnENTITY_NAME = New Global.System.Data.DataColumn("ENTITY_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnENTITY_NAME) 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.columnGROUP_NAME = New Global.System.Data.DataColumn("GROUP_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGROUP_NAME) Me.columnEDIT_REC = New Global.System.Data.DataColumn("EDIT_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEDIT_REC) Me.columnADD_REC = New Global.System.Data.DataColumn("ADD_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADD_REC) Me.columnDELETE_REC = New Global.System.Data.DataColumn("DELETE_REC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDELETE_REC) Me.columnADD_DOC = New Global.System.Data.DataColumn("ADD_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADD_DOC) Me.columnVIEW_DOC = New Global.System.Data.DataColumn("VIEW_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVIEW_DOC) Me.columnDELETE_DOC = New Global.System.Data.DataColumn("DELETE_DOC", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDELETE_DOC) 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.columnID, Me.columnENTITY_ID, Me.columnGROUP_ID}, true)) Me.columnID.AllowDBNull = false Me.columnENTITY_ID.AllowDBNull = false Me.columnENTITY_NAME.AllowDBNull = false Me.columnENTITY_NAME.MaxLength = 100 Me.columnGROUP_ID.AllowDBNull = false Me.columnGROUP_NAME.MaxLength = 50 Me.columnEDIT_REC.AllowDBNull = false Me.columnADD_REC.AllowDBNull = false Me.columnDELETE_REC.AllowDBNull = false Me.columnADD_DOC.AllowDBNull = false Me.columnVIEW_DOC.AllowDBNull = false Me.columnDELETE_DOC.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ Public Function NewVWPMO_RIGHT_GROUPRow() As VWPMO_RIGHT_GROUPRow Return CType(Me.NewRow,VWPMO_RIGHT_GROUPRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWPMO_RIGHT_GROUPRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWPMO_RIGHT_GROUPRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWPMO_RIGHT_GROUPRowChangedEvent) Is Nothing) Then RaiseEvent VWPMO_RIGHT_GROUPRowChanged(Me, New VWPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,VWPMO_RIGHT_GROUPRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWPMO_RIGHT_GROUPRowChangingEvent) Is Nothing) Then RaiseEvent VWPMO_RIGHT_GROUPRowChanging(Me, New VWPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,VWPMO_RIGHT_GROUPRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWPMO_RIGHT_GROUPRowDeletedEvent) Is Nothing) Then RaiseEvent VWPMO_RIGHT_GROUPRowDeleted(Me, New VWPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,VWPMO_RIGHT_GROUPRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWPMO_RIGHT_GROUPRowDeletingEvent) Is Nothing) Then RaiseEvent VWPMO_RIGHT_GROUPRowDeleting(Me, New VWPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,VWPMO_RIGHT_GROUPRow), e.Action)) End If End Sub _ Public Sub RemoveVWPMO_RIGHT_GROUPRow(ByVal row As VWPMO_RIGHT_GROUPRow) 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 = "VWPMO_RIGHT_GROUPDataTable" 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 DT_VORSCHAUDataTable Inherits Global.System.Data.TypedTableBase(Of DT_VORSCHAURow) Private columnVALUE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "DT_VORSCHAU" 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 VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnVALUE 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 DT_VORSCHAURow Get Return CType(Me.Rows(index),DT_VORSCHAURow) End Get End Property _ Public Event DT_VORSCHAURowChanging As DT_VORSCHAURowChangeEventHandler _ Public Event DT_VORSCHAURowChanged As DT_VORSCHAURowChangeEventHandler _ Public Event DT_VORSCHAURowDeleting As DT_VORSCHAURowChangeEventHandler _ Public Event DT_VORSCHAURowDeleted As DT_VORSCHAURowChangeEventHandler _ Public Overloads Sub AddDT_VORSCHAURow(ByVal row As DT_VORSCHAURow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddDT_VORSCHAURow(ByVal VALUE As String) As DT_VORSCHAURow Dim rowDT_VORSCHAURow As DT_VORSCHAURow = CType(Me.NewRow,DT_VORSCHAURow) Dim columnValuesArray() As Object = New Object() {VALUE} rowDT_VORSCHAURow.ItemArray = columnValuesArray Me.Rows.Add(rowDT_VORSCHAURow) Return rowDT_VORSCHAURow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As DT_VORSCHAUDataTable = CType(MyBase.Clone,DT_VORSCHAUDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New DT_VORSCHAUDataTable() End Function _ Friend Sub InitVars() Me.columnVALUE = MyBase.Columns("VALUE") End Sub _ Private Sub InitClass() Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnVALUE) End Sub _ Public Function NewDT_VORSCHAURow() As DT_VORSCHAURow Return CType(Me.NewRow,DT_VORSCHAURow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New DT_VORSCHAURow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(DT_VORSCHAURow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.DT_VORSCHAURowChangedEvent) Is Nothing) Then RaiseEvent DT_VORSCHAURowChanged(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.DT_VORSCHAURowChangingEvent) Is Nothing) Then RaiseEvent DT_VORSCHAURowChanging(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.DT_VORSCHAURowDeletedEvent) Is Nothing) Then RaiseEvent DT_VORSCHAURowDeleted(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.DT_VORSCHAURowDeletingEvent) Is Nothing) Then RaiseEvent DT_VORSCHAURowDeleting(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row,DT_VORSCHAURow), e.Action)) End If End Sub _ Public Sub RemoveDT_VORSCHAURow(ByVal row As DT_VORSCHAURow) 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 = "DT_VORSCHAUDataTable" 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 TBAD_UsersDataTable Inherits Global.System.Data.TypedTableBase(Of TBAD_UsersRow) Private columnSelect As Global.System.Data.DataColumn Private columnUsername As Global.System.Data.DataColumn Private columnPrename As Global.System.Data.DataColumn Private columnSurname As Global.System.Data.DataColumn Private columnEmail As Global.System.Data.DataColumn Private columnID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBAD_Users" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn Get Return Me.columnSelect End Get End Property _ Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get Return Me.columnUsername End Get End Property _ Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn Get Return Me.columnPrename End Get End Property _ Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn Get Return Me.columnSurname End Get End Property _ Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn Get Return Me.columnEmail End Get End Property _ Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBAD_UsersRow Get Return CType(Me.Rows(index),TBAD_UsersRow) End Get End Property _ Public Event TBAD_UsersRowChanging As TBAD_UsersRowChangeEventHandler _ Public Event TBAD_UsersRowChanged As TBAD_UsersRowChangeEventHandler _ Public Event TBAD_UsersRowDeleting As TBAD_UsersRowChangeEventHandler _ Public Event TBAD_UsersRowDeleted As TBAD_UsersRowChangeEventHandler _ Public Overloads Sub AddTBAD_UsersRow(ByVal row As TBAD_UsersRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBAD_UsersRow(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBAD_UsersRow Dim rowTBAD_UsersRow As TBAD_UsersRow = CType(Me.NewRow,TBAD_UsersRow) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} rowTBAD_UsersRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBAD_UsersRow) Return rowTBAD_UsersRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBAD_UsersDataTable = CType(MyBase.Clone,TBAD_UsersDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBAD_UsersDataTable() End Function _ Friend Sub InitVars() Me.columnSelect = MyBase.Columns("Select") Me.columnUsername = MyBase.Columns("Username") Me.columnPrename = MyBase.Columns("Prename") Me.columnSurname = MyBase.Columns("Surname") Me.columnEmail = MyBase.Columns("Email") Me.columnID = MyBase.Columns("ID") End Sub _ Private Sub InitClass() Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") MyBase.Columns.Add(Me.columnSelect) Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUsername) Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPrename) Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSurname) Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmail) Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnSelect.DefaultValue = CType(false,Boolean) End Sub _ Public Function NewTBAD_UsersRow() As TBAD_UsersRow Return CType(Me.NewRow,TBAD_UsersRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBAD_UsersRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBAD_UsersRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBAD_UsersRowChangedEvent) Is Nothing) Then RaiseEvent TBAD_UsersRowChanged(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBAD_UsersRowChangingEvent) Is Nothing) Then RaiseEvent TBAD_UsersRowChanging(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBAD_UsersRowDeletedEvent) Is Nothing) Then RaiseEvent TBAD_UsersRowDeleted(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBAD_UsersRowDeletingEvent) Is Nothing) Then RaiseEvent TBAD_UsersRowDeleting(Me, New TBAD_UsersRowChangeEvent(CType(e.Row,TBAD_UsersRow), e.Action)) End If End Sub _ Public Sub RemoveTBAD_UsersRow(ByVal row As TBAD_UsersRow) 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 = "TBAD_UsersDataTable" 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_Users1DataTable Inherits Global.System.Data.TypedTableBase(Of TBWH_Users1Row) Private columnSelect As Global.System.Data.DataColumn Private columnUsername As Global.System.Data.DataColumn Private columnPrename As Global.System.Data.DataColumn Private columnSurname As Global.System.Data.DataColumn Private columnEmail As Global.System.Data.DataColumn Private columnID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBWH_Users1" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn Get Return Me.columnSelect End Get End Property _ Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get Return Me.columnUsername End Get End Property _ Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn Get Return Me.columnPrename End Get End Property _ Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn Get Return Me.columnSurname End Get End Property _ Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn Get Return Me.columnEmail End Get End Property _ Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_Users1Row Get Return CType(Me.Rows(index),TBWH_Users1Row) End Get End Property _ Public Event TBWH_Users1RowChanging As TBWH_Users1RowChangeEventHandler _ Public Event TBWH_Users1RowChanged As TBWH_Users1RowChangeEventHandler _ Public Event TBWH_Users1RowDeleting As TBWH_Users1RowChangeEventHandler _ Public Event TBWH_Users1RowDeleted As TBWH_Users1RowChangeEventHandler _ Public Overloads Sub AddTBWH_Users1Row(ByVal row As TBWH_Users1Row) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBWH_Users1Row(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_Users1Row Dim rowTBWH_Users1Row As TBWH_Users1Row = CType(Me.NewRow,TBWH_Users1Row) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} rowTBWH_Users1Row.ItemArray = columnValuesArray Me.Rows.Add(rowTBWH_Users1Row) Return rowTBWH_Users1Row End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_Users1DataTable = CType(MyBase.Clone,TBWH_Users1DataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_Users1DataTable() End Function _ Friend Sub InitVars() Me.columnSelect = MyBase.Columns("Select") Me.columnUsername = MyBase.Columns("Username") Me.columnPrename = MyBase.Columns("Prename") Me.columnSurname = MyBase.Columns("Surname") Me.columnEmail = MyBase.Columns("Email") Me.columnID = MyBase.Columns("ID") End Sub _ Private Sub InitClass() Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") MyBase.Columns.Add(Me.columnSelect) Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUsername) Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPrename) Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSurname) Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmail) Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnSelect.DefaultValue = CType(false,Boolean) End Sub _ Public Function NewTBWH_Users1Row() As TBWH_Users1Row Return CType(Me.NewRow,TBWH_Users1Row) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_Users1Row(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_Users1Row) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_Users1RowChangedEvent) Is Nothing) Then RaiseEvent TBWH_Users1RowChanged(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_Users1RowChangingEvent) Is Nothing) Then RaiseEvent TBWH_Users1RowChanging(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_Users1RowDeletedEvent) Is Nothing) Then RaiseEvent TBWH_Users1RowDeleted(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_Users1RowDeletingEvent) Is Nothing) Then RaiseEvent TBWH_Users1RowDeleting(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) End If End Sub _ Public Sub RemoveTBWH_Users1Row(ByVal row As TBWH_Users1Row) 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 = "TBWH_Users1DataTable" 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_Users2DataTable Inherits Global.System.Data.TypedTableBase(Of TBWH_Users2Row) Private columnSelect As Global.System.Data.DataColumn Private columnUsername As Global.System.Data.DataColumn Private columnPrename As Global.System.Data.DataColumn Private columnSurname As Global.System.Data.DataColumn Private columnEmail As Global.System.Data.DataColumn Private columnID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBWH_Users2" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn Get Return Me.columnSelect End Get End Property _ Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get Return Me.columnUsername End Get End Property _ Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn Get Return Me.columnPrename End Get End Property _ Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn Get Return Me.columnSurname End Get End Property _ Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn Get Return Me.columnEmail End Get End Property _ Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_Users2Row Get Return CType(Me.Rows(index),TBWH_Users2Row) End Get End Property _ Public Event TBWH_Users2RowChanging As TBWH_Users2RowChangeEventHandler _ Public Event TBWH_Users2RowChanged As TBWH_Users2RowChangeEventHandler _ Public Event TBWH_Users2RowDeleting As TBWH_Users2RowChangeEventHandler _ Public Event TBWH_Users2RowDeleted As TBWH_Users2RowChangeEventHandler _ Public Overloads Sub AddTBWH_Users2Row(ByVal row As TBWH_Users2Row) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBWH_Users2Row(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_Users2Row Dim rowTBWH_Users2Row As TBWH_Users2Row = CType(Me.NewRow,TBWH_Users2Row) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} rowTBWH_Users2Row.ItemArray = columnValuesArray Me.Rows.Add(rowTBWH_Users2Row) Return rowTBWH_Users2Row End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBWH_Users2DataTable = CType(MyBase.Clone,TBWH_Users2DataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_Users2DataTable() End Function _ Friend Sub InitVars() Me.columnSelect = MyBase.Columns("Select") Me.columnUsername = MyBase.Columns("Username") Me.columnPrename = MyBase.Columns("Prename") Me.columnSurname = MyBase.Columns("Surname") Me.columnEmail = MyBase.Columns("Email") Me.columnID = MyBase.Columns("ID") End Sub _ Private Sub InitClass() Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") MyBase.Columns.Add(Me.columnSelect) Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUsername) Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPrename) Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSurname) Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmail) Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) Me.columnSelect.DefaultValue = CType(false,Boolean) End Sub _ Public Function NewTBWH_Users2Row() As TBWH_Users2Row Return CType(Me.NewRow,TBWH_Users2Row) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_Users2Row(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_Users2Row) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_Users2RowChangedEvent) Is Nothing) Then RaiseEvent TBWH_Users2RowChanged(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_Users2RowChangingEvent) Is Nothing) Then RaiseEvent TBWH_Users2RowChanging(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_Users2RowDeletedEvent) Is Nothing) Then RaiseEvent TBWH_Users2RowDeleted(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_Users2RowDeletingEvent) Is Nothing) Then RaiseEvent TBWH_Users2RowDeleting(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) End If End Sub _ Public Sub RemoveTBWH_Users2Row(ByVal row As TBWH_Users2Row) 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 = "TBWH_Users2DataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_FORM_CONSTRUCTORRow Inherits Global.System.Data.DataRow Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_FORM_CONSTRUCTOR = CType(Me.Table,TBPMO_FORM_CONSTRUCTORDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn) = value End Set End Property _ Public Property FORM_TITLE() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = value End Set End Property _ Public Property SEQUENCE_MENU() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn),Date) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = value End Set End Property _ Public Property MENU_IMG() As Byte() Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MENU_IMG in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = value End Set End Property _ Public Property SHORT_TITLE() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORT_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = value End Set End Property _ Public Property LANGUAGE() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.LANGUAGEColumn),String) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.LANGUAGEColumn) = value End Set End Property _ Public Property NODE_NAVIGATION() As Boolean Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.NODE_NAVIGATIONColumn),Boolean) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR.NODE_NAVIGATIONColumn) = value End Set End Property _ Public Function IsFORM_TITLENull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) End Function _ Public Sub SetFORM_TITLENull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsMENU_IMGNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) End Function _ Public Sub SetMENU_IMGNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSHORT_TITLENull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) End Function _ Public Sub SetSHORT_TITLENull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBPMO_FORM_CONSTRUCTOR_DETAILRows() As TBPMO_FORM_CONSTRUCTOR_DETAILRow() If (Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") Is Nothing) Then Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")),TBPMO_FORM_CONSTRUCTOR_DETAILRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRow Inherits Global.System.Data.DataRow Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(Me.Table,TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn) = value End Set End Property _ Public Property CONSTRUCT_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn) = value End Set End Property _ Public Property FORM_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn) = value End Set End Property _ Public Property PARENT_ID() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn) = value End Set End Property _ Public Property LEVEL1_SELECT() As Boolean Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn),Boolean) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn) = value End Set End Property _ Public Property SEQUENCE() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn) = value End Set End Property _ Public Property SQL_SELECT_EBENE1() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column),String) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = value End Set End Property _ Public Property SQL_SELECT_EBENE2() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column),String) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column) = value End Set End Property _ Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNull"& _ ".", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNul"& _ "l.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = value End Set End Property _ Public Property COLUMN_NAME1() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column),String) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column) = value End Set End Property _ Public Property COLUMN_NAME2() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column),String) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column) = value End Set End Property _ Public Property LOAD_DIRECT() As Boolean Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LOAD_DIRECTColumn),Boolean) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LOAD_DIRECTColumn) = value End Set End Property _ Public Property SQL_QUICK_VIEW() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_QUICK_VIEWColumn),String) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_QUICK_VIEWColumn) = value End Set End Property _ Public Property CONTROL_DOCTYPE_MATCH() As Integer Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONTROL_DOCTYPE_MATCHColumn),Integer) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONTROL_DOCTYPE_MATCHColumn) = value End Set End Property _ Public Property SQL_RIGHT_READ_AND_VIEW_ONLY() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_READ_AND_VIEW_ONLYColumn),String) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_READ_AND_VIEW_ONLYColumn) = value End Set End Property _ Public Property SQL_RIGHT_WINDREAM_VIEW() As String Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_WINDREAM_VIEWColumn),String) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_WINDREAM_VIEWColumn) = value End Set End Property _ Public Property ADD_RECORDS() As Boolean Get Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADD_RECORDSColumn),Boolean) End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADD_RECORDSColumn) = value End Set End Property _ Public Property TBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")),TBPMO_FORM_CONSTRUCTORRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")) End Set End Property _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_CONNECTIONRow Inherits Global.System.Data.DataRow Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable) End Sub _ Public Property GUID() As Short Get Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) End Get Set Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value End Set End Property _ Public Property BEZEICHNUNG() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value End Set End Property _ Public Property SQL_PROVIDER() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value End Set End Property _ Public Property SERVER() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value End Set End Property _ Public Property DATENBANK() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value End Set End Property _ Public Property USERNAME() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value End Set End Property _ Public Property PASSWORD() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value End Set End Property _ Public Property BEMERKUNG() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value End Set End Property _ Public Property AKTIV() As Boolean Get Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) End Get Set Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value End Set End Property _ Public Property ERSTELLTWER() As String Get Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) End Get Set Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value End Set End Property _ Public Property ERSTELLTWANN() As Date Get Try Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value End Set End Property _ Public Property GEANDERTWER() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value End Set End Property _ Public Property GEAENDERTWANN() As Date Get Try Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value End Set End Property _ Public Function IsBEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) End Function _ Public Sub SetBEZEICHNUNGNull() Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSQL_PROVIDERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) End Function _ Public Sub SetSQL_PROVIDERNull() Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSERVERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) End Function _ Public Sub SetSERVERNull() Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDATENBANKNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) End Function _ Public Sub SetDATENBANKNull() Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUSERNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) End Function _ Public Sub SetUSERNAMENull() Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPASSWORDNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) End Function _ Public Sub SetPASSWORDNull() Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBEMERKUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) End Function _ Public Sub SetBEMERKUNGNull() Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsERSTELLTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) End Function _ Public Sub SetERSTELLTWANNNull() Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) End Function _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) End Function _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWTEMPQUICKVIEWRow Inherits Global.System.Data.DataRow Private tableVWTEMPQUICKVIEW As VWTEMPQUICKVIEWDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWTEMPQUICKVIEW = CType(Me.Table,VWTEMPQUICKVIEWDataTable) End Sub _ Public Property _Record_ID() As Integer Get Return CType(Me(Me.tableVWTEMPQUICKVIEW._Record_IDColumn),Integer) End Get Set Me(Me.tableVWTEMPQUICKVIEW._Record_IDColumn) = value End Set End Property _ Public Property Aktenzeichen() As String Get Try Return CType(Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktenzeichen in Tabelle VWTEMPQUICKVIEW ist DBNull.", e) End Try End Get Set Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) = value End Set End Property _ Public Property _Wiedergabe_der_Marke__Bild_() As Byte() Get Try Return CType(Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column),Byte()) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Wiedergabe der Marke (Bild) in Tabelle VWTEMPQUICKVIEW ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) = value End Set End Property _ Public Property Tag_der_Eintragung_im_Register() As String Get Try Return CType(Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Tag der Eintragung im Register in Tabelle VWTEMPQUICKVIEW ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) = value End Set End Property _ Public Property Aktenzustand() As String Get Try Return CType(Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktenzustand in Tabelle VWTEMPQUICKVIEW ist DBNull.", e) End Try End Get Set Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) = value End Set End Property _ Public Function IsAktenzeichenNull() As Boolean Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) End Function _ Public Sub SetAktenzeichenNull() Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) = Global.System.Convert.DBNull End Sub _ Public Function Is_Wiedergabe_der_Marke__Bild_Null() As Boolean Return Me.IsNull(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) End Function _ Public Sub Set_Wiedergabe_der_Marke__Bild_Null() Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) = Global.System.Convert.DBNull End Sub _ Public Function IsTag_der_Eintragung_im_RegisterNull() As Boolean Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) End Function _ Public Sub SetTag_der_Eintragung_im_RegisterNull() Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsAktenzustandNull() As Boolean Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) End Function _ Public Sub SetAktenzustandNull() Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBWH_ENTITIESRow Inherits Global.System.Data.DataRow Private tableTBWH_ENTITIES As TBWH_ENTITIESDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_ENTITIES = CType(Me.Table,TBWH_ENTITIESDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWH_ENTITIES.GUIDColumn),Integer) End Get Set Me(Me.tableTBWH_ENTITIES.GUIDColumn) = value End Set End Property _ Public Property FORM_TITLE() As String Get Return CType(Me(Me.tableTBWH_ENTITIES.FORM_TITLEColumn),String) End Get Set Me(Me.tableTBWH_ENTITIES.FORM_TITLEColumn) = value End Set End Property _ Public Property CAPTION() As String Get Try Return CType(Me(Me.tableTBWH_ENTITIES.CAPTIONColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CAPTION in Tabelle TBWH_ENTITIES ist DBNull.", e) End Try End Get Set Me(Me.tableTBWH_ENTITIES.CAPTIONColumn) = value End Set End Property _ Public Function IsCAPTIONNull() As Boolean Return Me.IsNull(Me.tableTBWH_ENTITIES.CAPTIONColumn) End Function _ Public Sub SetCAPTIONNull() Me(Me.tableTBWH_ENTITIES.CAPTIONColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBWH_USER_GROUPSRow Inherits Global.System.Data.DataRow Private tableTBWH_USER_GROUPS As TBWH_USER_GROUPSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_USER_GROUPS = CType(Me.Table,TBWH_USER_GROUPSDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBWH_USER_GROUPS.GUIDColumn),Integer) End Get Set Me(Me.tableTBWH_USER_GROUPS.GUIDColumn) = value End Set End Property _ Public Property NAME() As String Get Try Return CType(Me(Me.tableTBWH_USER_GROUPS.NAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBWH_USER_GROUPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBWH_USER_GROUPS.NAMEColumn) = value End Set End Property _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBWH_USER_GROUPS.NAMEColumn) End Function _ Public Sub SetNAMENull() Me(Me.tableTBWH_USER_GROUPS.NAMEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_SAP_FUBARow Inherits Global.System.Data.DataRow Private tableTBPMO_SAP_FUBA As TBPMO_SAP_FUBADataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_SAP_FUBA = CType(Me.Table,TBPMO_SAP_FUBADataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_SAP_FUBA.GUIDColumn) = value End Set End Property _ Public Property NAME() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.NAMEColumn),String) End Get Set Me(Me.tableTBPMO_SAP_FUBA.NAMEColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBPMO_SAP_FUBA.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBPMO_SAP_FUBA ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_SAP_FUBA.COMMENTColumn) = value End Set End Property _ Public Property TableName() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.TableNameColumn),String) End Get Set Me(Me.tableTBPMO_SAP_FUBA.TableNameColumn) = value End Set End Property _ Public Property Host() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.HostColumn),String) End Get Set Me(Me.tableTBPMO_SAP_FUBA.HostColumn) = value End Set End Property _ Public Property SystemNumber() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.SystemNumberColumn),String) End Get Set Me(Me.tableTBPMO_SAP_FUBA.SystemNumberColumn) = value End Set End Property _ Public Property UserName() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.UserNameColumn),String) End Get Set Me(Me.tableTBPMO_SAP_FUBA.UserNameColumn) = value End Set End Property _ Public Property Password() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.PasswordColumn),String) End Get Set Me(Me.tableTBPMO_SAP_FUBA.PasswordColumn) = value End Set End Property _ Public Property Client() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.ClientColumn),String) End Get Set Me(Me.tableTBPMO_SAP_FUBA.ClientColumn) = value End Set End Property _ Public Property Language() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.LanguageColumn),String) End Get Set Me(Me.tableTBPMO_SAP_FUBA.LanguageColumn) = value End Set End Property _ Public Property TempTableName() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.TempTableNameColumn),String) End Get Set Me(Me.tableTBPMO_SAP_FUBA.TempTableNameColumn) = value End Set End Property _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.ACTIVEColumn),Boolean) End Get Set Me(Me.tableTBPMO_SAP_FUBA.ACTIVEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_SAP_FUBA ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_SAP_FUBA ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_SAP_FUBA ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn) = value End Set End Property _ Public Property WHERE_CLAUSE() As String Get Try Return CType(Me(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WHERE_CLAUSE in Tabelle TBPMO_SAP_FUBA ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn) = value End Set End Property _ Public Property Method() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.MethodColumn),String) End Get Set Me(Me.tableTBPMO_SAP_FUBA.MethodColumn) = value End Set End Property _ Public Property FuBa_SplitCharacter() As String Get Return CType(Me(Me.tableTBPMO_SAP_FUBA.FuBa_SplitCharacterColumn),String) End Get Set Me(Me.tableTBPMO_SAP_FUBA.FuBa_SplitCharacterColumn) = value End Set End Property _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBPMO_SAP_FUBA.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsWHERE_CLAUSENull() As Boolean Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn) End Function _ Public Sub SetWHERE_CLAUSENull() Me(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class USER_RIGHTSRow Inherits Global.System.Data.DataRow Private tableUSER_RIGHTS As USER_RIGHTSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableUSER_RIGHTS = CType(Me.Table,USER_RIGHTSDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableUSER_RIGHTS.GUIDColumn),Integer) End Get Set Me(Me.tableUSER_RIGHTS.GUIDColumn) = value End Set End Property _ Public Property FORM_TITLE() As String Get Try Return CType(Me(Me.tableUSER_RIGHTS.FORM_TITLEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle USER_RIGHTS ist DBNull.", e) End Try End Get Set Me(Me.tableUSER_RIGHTS.FORM_TITLEColumn) = value End Set End Property _ Public Property USERNAME() As String Get Return CType(Me(Me.tableUSER_RIGHTS.USERNAMEColumn),String) End Get Set Me(Me.tableUSER_RIGHTS.USERNAMEColumn) = value End Set End Property _ Public Property NAME() As String Get Try Return CType(Me(Me.tableUSER_RIGHTS.NAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle USER_RIGHTS ist DBNull.", e) End Try End Get Set Me(Me.tableUSER_RIGHTS.NAMEColumn) = value End Set End Property _ Public Property PRENAME() As String Get Try Return CType(Me(Me.tableUSER_RIGHTS.PRENAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle USER_RIGHTS ist DBNull.", e) End Try End Get Set Me(Me.tableUSER_RIGHTS.PRENAMEColumn) = value End Set End Property _ Public Property EDIT_REC() As Boolean Get Return CType(Me(Me.tableUSER_RIGHTS.EDIT_RECColumn),Boolean) End Get Set Me(Me.tableUSER_RIGHTS.EDIT_RECColumn) = value End Set End Property _ Public Property ADD_REC() As Boolean Get Return CType(Me(Me.tableUSER_RIGHTS.ADD_RECColumn),Boolean) End Get Set Me(Me.tableUSER_RIGHTS.ADD_RECColumn) = value End Set End Property _ Public Property DELETE_REC() As Boolean Get Return CType(Me(Me.tableUSER_RIGHTS.DELETE_RECColumn),Boolean) End Get Set Me(Me.tableUSER_RIGHTS.DELETE_RECColumn) = value End Set End Property _ Public Property ADD_DOC() As Boolean Get Return CType(Me(Me.tableUSER_RIGHTS.ADD_DOCColumn),Boolean) End Get Set Me(Me.tableUSER_RIGHTS.ADD_DOCColumn) = value End Set End Property _ Public Property READ_ONLY_DOC() As Boolean Get Return CType(Me(Me.tableUSER_RIGHTS.READ_ONLY_DOCColumn),Boolean) End Get Set Me(Me.tableUSER_RIGHTS.READ_ONLY_DOCColumn) = value End Set End Property _ Public Property DELETE_DOC() As Boolean Get Return CType(Me(Me.tableUSER_RIGHTS.DELETE_DOCColumn),Boolean) End Get Set Me(Me.tableUSER_RIGHTS.DELETE_DOCColumn) = value End Set End Property _ Public Property FILES_VISIBLE() As Boolean Get Return CType(Me(Me.tableUSER_RIGHTS.FILES_VISIBLEColumn),Boolean) End Get Set Me(Me.tableUSER_RIGHTS.FILES_VISIBLEColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableUSER_RIGHTS.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle USER_RIGHTS ist DBNull.", e) End Try End Get Set Me(Me.tableUSER_RIGHTS.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableUSER_RIGHTS.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle USER_RIGHTS ist DBNull.", e) End Try End Get Set Me(Me.tableUSER_RIGHTS.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsFORM_TITLENull() As Boolean Return Me.IsNull(Me.tableUSER_RIGHTS.FORM_TITLEColumn) End Function _ Public Sub SetFORM_TITLENull() Me(Me.tableUSER_RIGHTS.FORM_TITLEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableUSER_RIGHTS.NAMEColumn) End Function _ Public Sub SetNAMENull() Me(Me.tableUSER_RIGHTS.NAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPRENAMENull() As Boolean Return Me.IsNull(Me.tableUSER_RIGHTS.PRENAMEColumn) End Function _ Public Sub SetPRENAMENull() Me(Me.tableUSER_RIGHTS.PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableUSER_RIGHTS.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableUSER_RIGHTS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableUSER_RIGHTS.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableUSER_RIGHTS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow Inherits Global.System.Data.DataRow Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG = CType(Me.Table,TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.GUIDColumn) = value End Set End Property _ Public Property ENTITY_ID() As Integer Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ENTITY_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ENTITY_IDColumn) = value End Set End Property _ Public Property LANGUAGE() As String Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.LANGUAGEColumn),String) End Get Set Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.LANGUAGEColumn) = value End Set End Property _ Public Property COLUMN_VIEW() As String Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.COLUMN_VIEWColumn),String) End Get Set Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.COLUMN_VIEWColumn) = value End Set End Property _ Public Property HEADER_CAPTION() As String Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.HEADER_CAPTIONColumn),String) End Get Set Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.HEADER_CAPTIONColumn) = value End Set End Property _ Public Property WIDTH() As Integer Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.WIDTHColumn),Integer) End Get Set Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.WIDTHColumn) = value End Set End Property _ Public Property TYPE_ID() As Byte Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.TYPE_IDColumn),Byte) End Get Set Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.TYPE_IDColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG ist "& _ "DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) = value End Set End Property _ Public Property VISIBLE() As Boolean Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.VISIBLEColumn),Boolean) End Get Set Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.VISIBLEColumn) = value End Set End Property _ Public Property EDITABLE() As Boolean Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.EDITABLEColumn),Boolean) End Get Set Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.EDITABLEColumn) = value End Set End Property _ Public Property CONFIG_COLUMNS() As Boolean Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CONFIG_COLUMNSColumn),Boolean) End Get Set Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CONFIG_COLUMNSColumn) = value End Set End Property _ Public Property SEQUENCE() As Integer Get Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.SEQUENCEColumn),Integer) End Get Set Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.SEQUENCEColumn) = value End Set End Property _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBPMO_DOCRESULT_DROPDOWN_ITEMSRows() As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow() If (Me.Table.ChildRelations("FK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID") Is Nothing) Then Return New TBPMO_DOCRESULT_DROPDOWN_ITEMSRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID")),TBPMO_DOCRESULT_DROPDOWN_ITEMSRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWDD_LOGIN_USER_HISTORYRow Inherits Global.System.Data.DataRow Private tableVWDD_LOGIN_USER_HISTORY As VWDD_LOGIN_USER_HISTORYDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWDD_LOGIN_USER_HISTORY = CType(Me.Table,VWDD_LOGIN_USER_HISTORYDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.GUIDColumn),Integer) End Get Set Me(Me.tableVWDD_LOGIN_USER_HISTORY.GUIDColumn) = value End Set End Property _ Public Property _MODULE() As String Get Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.MODULEColumn),String) End Get Set Me(Me.tableVWDD_LOGIN_USER_HISTORY.MODULEColumn) = value End Set End Property _ Public Property USERNAME() As String Get Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.USERNAMEColumn),String) End Get Set Me(Me.tableVWDD_LOGIN_USER_HISTORY.USERNAMEColumn) = value End Set End Property _ Public Property NAME() As String Get Try Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.NAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWDD_LOGIN_USER_HISTORY ist DBNull.", e) End Try End Get Set Me(Me.tableVWDD_LOGIN_USER_HISTORY.NAMEColumn) = value End Set End Property _ Public Property PRENAME() As String Get Try Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.PRENAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle VWDD_LOGIN_USER_HISTORY ist DBNull.", e) End Try End Get Set Me(Me.tableVWDD_LOGIN_USER_HISTORY.PRENAMEColumn) = value End Set End Property _ Public Property USER_ID() As Integer Get Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.USER_IDColumn),Integer) End Get Set Me(Me.tableVWDD_LOGIN_USER_HISTORY.USER_IDColumn) = value End Set End Property _ Public Property CLIENT_ID() As Integer Get Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.CLIENT_IDColumn),Integer) End Get Set Me(Me.tableVWDD_LOGIN_USER_HISTORY.CLIENT_IDColumn) = value End Set End Property _ Public Property CLIENT_NAME() As String Get Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.CLIENT_NAMEColumn),String) End Get Set Me(Me.tableVWDD_LOGIN_USER_HISTORY.CLIENT_NAMEColumn) = value End Set End Property _ Public Property LOGIN() As Date Get Try Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.LOGINColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOGIN in Tabelle VWDD_LOGIN_USER_HISTORY ist DBNull.", e) End Try End Get Set Me(Me.tableVWDD_LOGIN_USER_HISTORY.LOGINColumn) = value End Set End Property _ Public Property LOGOUT() As Date Get Try Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.LOGOUTColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LOGOUT in Tabelle VWDD_LOGIN_USER_HISTORY ist DBNull.", e) End Try End Get Set Me(Me.tableVWDD_LOGIN_USER_HISTORY.LOGOUTColumn) = value End Set End Property _ Public Property VERSION_CLIENT() As String Get Try Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.VERSION_CLIENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VERSION_CLIENT in Tabelle VWDD_LOGIN_USER_HISTORY ist DBNull."& _ "", e) End Try End Get Set Me(Me.tableVWDD_LOGIN_USER_HISTORY.VERSION_CLIENTColumn) = value End Set End Property _ Public Property MACHINE_NAME() As String Get Return CType(Me(Me.tableVWDD_LOGIN_USER_HISTORY.MACHINE_NAMEColumn),String) End Get Set Me(Me.tableVWDD_LOGIN_USER_HISTORY.MACHINE_NAMEColumn) = value End Set End Property _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableVWDD_LOGIN_USER_HISTORY.NAMEColumn) End Function _ Public Sub SetNAMENull() Me(Me.tableVWDD_LOGIN_USER_HISTORY.NAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPRENAMENull() As Boolean Return Me.IsNull(Me.tableVWDD_LOGIN_USER_HISTORY.PRENAMEColumn) End Function _ Public Sub SetPRENAMENull() Me(Me.tableVWDD_LOGIN_USER_HISTORY.PRENAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLOGINNull() As Boolean Return Me.IsNull(Me.tableVWDD_LOGIN_USER_HISTORY.LOGINColumn) End Function _ Public Sub SetLOGINNull() Me(Me.tableVWDD_LOGIN_USER_HISTORY.LOGINColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsLOGOUTNull() As Boolean Return Me.IsNull(Me.tableVWDD_LOGIN_USER_HISTORY.LOGOUTColumn) End Function _ Public Sub SetLOGOUTNull() Me(Me.tableVWDD_LOGIN_USER_HISTORY.LOGOUTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsVERSION_CLIENTNull() As Boolean Return Me.IsNull(Me.tableVWDD_LOGIN_USER_HISTORY.VERSION_CLIENTColumn) End Function _ Public Sub SetVERSION_CLIENTNull() Me(Me.tableVWDD_LOGIN_USER_HISTORY.VERSION_CLIENTColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow Inherits Global.System.Data.DataRow Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID = CType(Me.Table,TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable) End Sub _ Public Property Name() As String Get Try Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.NameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Name in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID ist"& _ " DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.NameColumn) = value End Set End Property _ Public Property ID() As Byte Get Try Return CType(Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.IDColumn),Byte) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID ist D"& _ "BNull.", e) End Try End Get Set Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.IDColumn) = value End Set End Property _ Public Function IsNameNull() As Boolean Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.NameColumn) End Function _ Public Sub SetNameNull() Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.NameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.IDColumn) End Function _ Public Sub SetIDNull() Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.IDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_LOG_ESSENTIALSRow Inherits Global.System.Data.DataRow Private tableTBPMO_LOG_ESSENTIALS As TBPMO_LOG_ESSENTIALSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_LOG_ESSENTIALS = CType(Me.Table,TBPMO_LOG_ESSENTIALSDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_LOG_ESSENTIALS.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_LOG_ESSENTIALS.GUIDColumn) = value End Set End Property _ Public Property REFERENCE_KEY() As Integer Get Return CType(Me(Me.tableTBPMO_LOG_ESSENTIALS.REFERENCE_KEYColumn),Integer) End Get Set Me(Me.tableTBPMO_LOG_ESSENTIALS.REFERENCE_KEYColumn) = value End Set End Property _ Public Property REFERENCE_STRING() As String Get Return CType(Me(Me.tableTBPMO_LOG_ESSENTIALS.REFERENCE_STRINGColumn),String) End Get Set Me(Me.tableTBPMO_LOG_ESSENTIALS.REFERENCE_STRINGColumn) = value End Set End Property _ Public Property COMMENT() As String Get Return CType(Me(Me.tableTBPMO_LOG_ESSENTIALS.COMMENTColumn),String) End Get Set Me(Me.tableTBPMO_LOG_ESSENTIALS.COMMENTColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_LOG_ESSENTIALS.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_LOG_ESSENTIALS.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_LOG_ESSENTIALS.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_LOG_ESSENTIALS ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_LOG_ESSENTIALS.ADDED_WHENColumn) = value End Set End Property _ Public Property Selection() As Boolean Get Try Return CType(Me(Me.tableTBPMO_LOG_ESSENTIALS.SelectionColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Selection in Tabelle TBPMO_LOG_ESSENTIALS ist DBNull.", e) End Try End Get Set Me(Me.tableTBPMO_LOG_ESSENTIALS.SelectionColumn) = value End Set End Property _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_LOG_ESSENTIALS.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_LOG_ESSENTIALS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSelectionNull() As Boolean Return Me.IsNull(Me.tableTBPMO_LOG_ESSENTIALS.SelectionColumn) End Function _ Public Sub SetSelectionNull() Me(Me.tableTBPMO_LOG_ESSENTIALS.SelectionColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBPMO_DOCRESULT_DROPDOWN_ITEMSRow Inherits Global.System.Data.DataRow Private tableTBPMO_DOCRESULT_DROPDOWN_ITEMS As TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS = CType(Me.Table,TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.GUIDColumn),Integer) End Get Set Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.GUIDColumn) = value End Set End Property _ Public Property CONFIG_ID() As Integer Get Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CONFIG_IDColumn),Integer) End Get Set Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CONFIG_IDColumn) = value End Set End Property _ Public Property VALUE() As String Get Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.VALUEColumn),String) End Get Set Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.VALUEColumn) = value End Set End Property _ Public Property SEQUENCE() As Byte Get Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.SEQUENCEColumn),Byte) End Get Set Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.SEQUENCEColumn) = value End Set End Property _ Public Property _DEFAULT() As Boolean Get Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.DEFAULTColumn),Boolean) End Get Set Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.DEFAULTColumn) = value End Set End Property _ Public Property COLOR() As String Get Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.COLORColumn),String) End Get Set Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.COLORColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_DOCRESULT_DROPDOWN_ITEMS ist DBNu"& _ "ll.", e) End Try End Get Set Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_DOCRESULT_DROPDOWN_ITEMS ist DBN"& _ "ull.", e) End Try End Get Set Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_DOCRESULT_DROPDOWN_ITEMS ist DB"& _ "Null.", e) End Try End Get Set Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHENColumn) = value End Set End Property _ Public Property TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID")),TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_DOCRESULT_DROPDOWN_ITEMSCONFIG_ID")) End Set End Property _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_GROUPSRow Inherits Global.System.Data.DataRow Private tableTBDD_GROUPS As TBDD_GROUPSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_GROUPS = CType(Me.Table,TBDD_GROUPSDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS.GUIDColumn),Integer) End Get Set Me(Me.tableTBDD_GROUPS.GUIDColumn) = value End Set End Property _ Public Property NAME() As String Get Try Return CType(Me(Me.tableTBDD_GROUPS.NAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_GROUPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_GROUPS.NAMEColumn) = value End Set End Property _ Public Property ECM_FK_ID() As Integer Get Return CType(Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn),Integer) End Get Set Me(Me.tableTBDD_GROUPS.ECM_FK_IDColumn) = value End Set End Property _ Public Property AD_SYNC() As Boolean Get Return CType(Me(Me.tableTBDD_GROUPS.AD_SYNCColumn),Boolean) End Get Set Me(Me.tableTBDD_GROUPS.AD_SYNCColumn) = value End Set End Property _ Public Property INTERNAL() As Boolean Get Return CType(Me(Me.tableTBDD_GROUPS.INTERNALColumn),Boolean) End Get Set Me(Me.tableTBDD_GROUPS.INTERNALColumn) = value End Set End Property _ Public Property ACTIVE() As Boolean Get Return CType(Me(Me.tableTBDD_GROUPS.ACTIVEColumn),Boolean) End Get Set Me(Me.tableTBDD_GROUPS.ACTIVEColumn) = value End Set End Property _ Public Property COMMENT() As String Get Try Return CType(Me(Me.tableTBDD_GROUPS.COMMENTColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBDD_GROUPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_GROUPS.COMMENTColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_GROUPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_GROUPS ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.NAMEColumn) End Function _ Public Sub SetNAMENull() Me(Me.tableTBDD_GROUPS.NAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBDD_GROUPS.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWPMO_RIGHT_GROUPRow Inherits Global.System.Data.DataRow Private tableVWPMO_RIGHT_GROUP As VWPMO_RIGHT_GROUPDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWPMO_RIGHT_GROUP = CType(Me.Table,VWPMO_RIGHT_GROUPDataTable) End Sub _ Public Property ID() As Integer Get Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.IDColumn),Integer) End Get Set Me(Me.tableVWPMO_RIGHT_GROUP.IDColumn) = value End Set End Property _ Public Property ENTITY_ID() As Integer Get Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.ENTITY_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_RIGHT_GROUP.ENTITY_IDColumn) = value End Set End Property _ Public Property ENTITY_NAME() As String Get Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.ENTITY_NAMEColumn),String) End Get Set Me(Me.tableVWPMO_RIGHT_GROUP.ENTITY_NAMEColumn) = value End Set End Property _ Public Property GROUP_ID() As Integer Get Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.GROUP_IDColumn),Integer) End Get Set Me(Me.tableVWPMO_RIGHT_GROUP.GROUP_IDColumn) = value End Set End Property _ Public Property GROUP_NAME() As String Get Try Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.GROUP_NAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GROUP_NAME in Tabelle VWPMO_RIGHT_GROUP ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_RIGHT_GROUP.GROUP_NAMEColumn) = value End Set End Property _ Public Property EDIT_REC() As Boolean Get Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.EDIT_RECColumn),Boolean) End Get Set Me(Me.tableVWPMO_RIGHT_GROUP.EDIT_RECColumn) = value End Set End Property _ Public Property ADD_REC() As Boolean Get Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.ADD_RECColumn),Boolean) End Get Set Me(Me.tableVWPMO_RIGHT_GROUP.ADD_RECColumn) = value End Set End Property _ Public Property DELETE_REC() As Boolean Get Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.DELETE_RECColumn),Boolean) End Get Set Me(Me.tableVWPMO_RIGHT_GROUP.DELETE_RECColumn) = value End Set End Property _ Public Property ADD_DOC() As Boolean Get Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.ADD_DOCColumn),Boolean) End Get Set Me(Me.tableVWPMO_RIGHT_GROUP.ADD_DOCColumn) = value End Set End Property _ Public Property VIEW_DOC() As Boolean Get Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.VIEW_DOCColumn),Boolean) End Get Set Me(Me.tableVWPMO_RIGHT_GROUP.VIEW_DOCColumn) = value End Set End Property _ Public Property DELETE_DOC() As Boolean Get Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.DELETE_DOCColumn),Boolean) End Get Set Me(Me.tableVWPMO_RIGHT_GROUP.DELETE_DOCColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Try Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle VWPMO_RIGHT_GROUP ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle VWPMO_RIGHT_GROUP ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_RIGHT_GROUP ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_RIGHT_GROUP ist DBNull.", e) End Try End Get Set Me(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHENColumn) = value End Set End Property _ Public Function IsGROUP_NAMENull() As Boolean Return Me.IsNull(Me.tableVWPMO_RIGHT_GROUP.GROUP_NAMEColumn) End Function _ Public Sub SetGROUP_NAMENull() Me(Me.tableVWPMO_RIGHT_GROUP.GROUP_NAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHOColumn) End Function _ Public Sub SetADDED_WHONull() Me(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class DT_VORSCHAURow Inherits Global.System.Data.DataRow Private tableDT_VORSCHAU As DT_VORSCHAUDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableDT_VORSCHAU = CType(Me.Table,DT_VORSCHAUDataTable) End Sub _ Public Property VALUE() As String Get Try Return CType(Me(Me.tableDT_VORSCHAU.VALUEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle DT_VORSCHAU ist DBNull.", e) End Try End Get Set Me(Me.tableDT_VORSCHAU.VALUEColumn) = value End Set End Property _ Public Function IsVALUENull() As Boolean Return Me.IsNull(Me.tableDT_VORSCHAU.VALUEColumn) End Function _ Public Sub SetVALUENull() Me(Me.tableDT_VORSCHAU.VALUEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBAD_UsersRow Inherits Global.System.Data.DataRow Private tableTBAD_Users As TBAD_UsersDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBAD_Users = CType(Me.Table,TBAD_UsersDataTable) End Sub _ Public Property _Select() As Boolean Get Try Return CType(Me(Me.tableTBAD_Users.SelectColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set Me(Me.tableTBAD_Users.SelectColumn) = value End Set End Property _ Public Property Username() As String Get Try Return CType(Me(Me.tableTBAD_Users.UsernameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set Me(Me.tableTBAD_Users.UsernameColumn) = value End Set End Property _ Public Property Prename() As String Get Try Return CType(Me(Me.tableTBAD_Users.PrenameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set Me(Me.tableTBAD_Users.PrenameColumn) = value End Set End Property _ Public Property Surname() As String Get Try Return CType(Me(Me.tableTBAD_Users.SurnameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set Me(Me.tableTBAD_Users.SurnameColumn) = value End Set End Property _ Public Property Email() As String Get Try Return CType(Me(Me.tableTBAD_Users.EmailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set Me(Me.tableTBAD_Users.EmailColumn) = value End Set End Property _ Public Property ID() As Short Get Try Return CType(Me(Me.tableTBAD_Users.IDColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set Me(Me.tableTBAD_Users.IDColumn) = value End Set End Property _ Public Function Is_SelectNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.SelectColumn) End Function _ Public Sub Set_SelectNull() Me(Me.tableTBAD_Users.SelectColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUsernameNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.UsernameColumn) End Function _ Public Sub SetUsernameNull() Me(Me.tableTBAD_Users.UsernameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPrenameNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.PrenameColumn) End Function _ Public Sub SetPrenameNull() Me(Me.tableTBAD_Users.PrenameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSurnameNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.SurnameColumn) End Function _ Public Sub SetSurnameNull() Me(Me.tableTBAD_Users.SurnameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmailNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.EmailColumn) End Function _ Public Sub SetEmailNull() Me(Me.tableTBAD_Users.EmailColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.IDColumn) End Function _ Public Sub SetIDNull() Me(Me.tableTBAD_Users.IDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBWH_Users1Row Inherits Global.System.Data.DataRow Private tableTBWH_Users1 As TBWH_Users1DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_Users1 = CType(Me.Table,TBWH_Users1DataTable) End Sub _ Public Property _Select() As Boolean Get Try Return CType(Me(Me.tableTBWH_Users1.SelectColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBWH_Users1 ist DBNull.", e) End Try End Get Set Me(Me.tableTBWH_Users1.SelectColumn) = value End Set End Property _ Public Property Username() As String Get Try Return CType(Me(Me.tableTBWH_Users1.UsernameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBWH_Users1 ist DBNull.", e) End Try End Get Set Me(Me.tableTBWH_Users1.UsernameColumn) = value End Set End Property _ Public Property Prename() As String Get Try Return CType(Me(Me.tableTBWH_Users1.PrenameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBWH_Users1 ist DBNull.", e) End Try End Get Set Me(Me.tableTBWH_Users1.PrenameColumn) = value End Set End Property _ Public Property Surname() As String Get Try Return CType(Me(Me.tableTBWH_Users1.SurnameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBWH_Users1 ist DBNull.", e) End Try End Get Set Me(Me.tableTBWH_Users1.SurnameColumn) = value End Set End Property _ Public Property Email() As String Get Try Return CType(Me(Me.tableTBWH_Users1.EmailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBWH_Users1 ist DBNull.", e) End Try End Get Set Me(Me.tableTBWH_Users1.EmailColumn) = value End Set End Property _ Public Property ID() As Short Get Try Return CType(Me(Me.tableTBWH_Users1.IDColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBWH_Users1 ist DBNull.", e) End Try End Get Set Me(Me.tableTBWH_Users1.IDColumn) = value End Set End Property _ Public Function Is_SelectNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.SelectColumn) End Function _ Public Sub Set_SelectNull() Me(Me.tableTBWH_Users1.SelectColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUsernameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.UsernameColumn) End Function _ Public Sub SetUsernameNull() Me(Me.tableTBWH_Users1.UsernameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPrenameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.PrenameColumn) End Function _ Public Sub SetPrenameNull() Me(Me.tableTBWH_Users1.PrenameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSurnameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.SurnameColumn) End Function _ Public Sub SetSurnameNull() Me(Me.tableTBWH_Users1.SurnameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmailNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.EmailColumn) End Function _ Public Sub SetEmailNull() Me(Me.tableTBWH_Users1.EmailColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.IDColumn) End Function _ Public Sub SetIDNull() Me(Me.tableTBWH_Users1.IDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBWH_Users2Row Inherits Global.System.Data.DataRow Private tableTBWH_Users2 As TBWH_Users2DataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_Users2 = CType(Me.Table,TBWH_Users2DataTable) End Sub _ Public Property _Select() As Boolean Get Try Return CType(Me(Me.tableTBWH_Users2.SelectColumn),Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBWH_Users2 ist DBNull.", e) End Try End Get Set Me(Me.tableTBWH_Users2.SelectColumn) = value End Set End Property _ Public Property Username() As String Get Try Return CType(Me(Me.tableTBWH_Users2.UsernameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBWH_Users2 ist DBNull.", e) End Try End Get Set Me(Me.tableTBWH_Users2.UsernameColumn) = value End Set End Property _ Public Property Prename() As String Get Try Return CType(Me(Me.tableTBWH_Users2.PrenameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBWH_Users2 ist DBNull.", e) End Try End Get Set Me(Me.tableTBWH_Users2.PrenameColumn) = value End Set End Property _ Public Property Surname() As String Get Try Return CType(Me(Me.tableTBWH_Users2.SurnameColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBWH_Users2 ist DBNull.", e) End Try End Get Set Me(Me.tableTBWH_Users2.SurnameColumn) = value End Set End Property _ Public Property Email() As String Get Try Return CType(Me(Me.tableTBWH_Users2.EmailColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBWH_Users2 ist DBNull.", e) End Try End Get Set Me(Me.tableTBWH_Users2.EmailColumn) = value End Set End Property _ Public Property ID() As Short Get Try Return CType(Me(Me.tableTBWH_Users2.IDColumn),Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBWH_Users2 ist DBNull.", e) End Try End Get Set Me(Me.tableTBWH_Users2.IDColumn) = value End Set End Property _ Public Function Is_SelectNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.SelectColumn) End Function _ Public Sub Set_SelectNull() Me(Me.tableTBWH_Users2.SelectColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUsernameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.UsernameColumn) End Function _ Public Sub SetUsernameNull() Me(Me.tableTBWH_Users2.UsernameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPrenameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.PrenameColumn) End Function _ Public Sub SetPrenameNull() Me(Me.tableTBWH_Users2.PrenameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSurnameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.SurnameColumn) End Function _ Public Sub SetSurnameNull() Me(Me.tableTBWH_Users2.SurnameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmailNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.EmailColumn) End Function _ Public Sub SetEmailNull() Me(Me.tableTBWH_Users2.EmailColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.IDColumn) End Function _ Public Sub SetIDNull() Me(Me.tableTBWH_Users2.IDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' _ Public Class TBPMO_FORM_CONSTRUCTORRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_FORM_CONSTRUCTORRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTORRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTORRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTOR_DETAILRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBDD_CONNECTIONRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBDD_CONNECTIONRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBDD_CONNECTIONRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class VWTEMPQUICKVIEWRowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWTEMPQUICKVIEWRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWTEMPQUICKVIEWRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWTEMPQUICKVIEWRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBWH_ENTITIESRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBWH_ENTITIESRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBWH_ENTITIESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBWH_ENTITIESRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBWH_USER_GROUPSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBWH_USER_GROUPSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBWH_USER_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBWH_USER_GROUPSRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_SAP_FUBARowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_SAP_FUBARow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_SAP_FUBARow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_SAP_FUBARow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class USER_RIGHTSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As USER_RIGHTSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As USER_RIGHTSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As USER_RIGHTSRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class VWDD_LOGIN_USER_HISTORYRowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWDD_LOGIN_USER_HISTORYRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWDD_LOGIN_USER_HISTORYRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWDD_LOGIN_USER_HISTORYRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_LOG_ESSENTIALSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_LOG_ESSENTIALSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_LOG_ESSENTIALSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_LOG_ESSENTIALSRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBDD_GROUPSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBDD_GROUPSRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBDD_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBDD_GROUPSRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class VWPMO_RIGHT_GROUPRowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWPMO_RIGHT_GROUPRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As VWPMO_RIGHT_GROUPRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As VWPMO_RIGHT_GROUPRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class DT_VORSCHAURowChangeEvent Inherits Global.System.EventArgs Private eventRow As DT_VORSCHAURow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As DT_VORSCHAURow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As DT_VORSCHAURow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBAD_UsersRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBAD_UsersRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBAD_UsersRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBAD_UsersRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBWH_Users1RowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBWH_Users1Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBWH_Users1Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBWH_Users1Row Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBWH_Users2RowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBWH_Users2Row Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBWH_Users2Row, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBWH_Users2Row Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class End Class Namespace DD_ECMAdminTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_FORM_CONSTRUCTORTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_FORM_CONSTRUCTOR" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") tableMapping.ColumnMappings.Add("SEQUENCE_MENU", "SEQUENCE_MENU") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("MENU_IMG", "MENU_IMG") tableMapping.ColumnMappings.Add("SHORT_TITLE", "SHORT_TITLE") tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") tableMapping.ColumnMappings.Add("NODE_NAVIGATION", "NODE_NAVIGATION") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORM_TITLE, SEQUENC"& _ "E_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE, LANGUAGE, NODE_NAVIGATION)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ " (@FORM_TITLE,@SEQUENCE_MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE,@LANGUAGE,@NOD"& _ "E_NAVIGATION); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN"& _ ", CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR W"& _ "HERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NODE_NAVIGATION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "NODE_NAVIGATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FORM_TITLE = @FORM_TITLE,"& _ " SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IM"& _ "G, SHORT_TITLE = @SHORT_TITLE, LANGUAGE = @LANGUAGE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ "NODE_NAVIGATION = @NODE_NAVIGATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"S"& _ "ELECT GUID, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANG"& _ "ED_WHEN, MENU_IMG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NODE_NAVIGATION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "NODE_NAVIGATION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'CONSTR_MENUE' + CONVER"& _ "T(VARCHAR(5), GUID), @SCREEN_ID) AS FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_"& _ "WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, MENU_IMG, SHORT_TITL"& _ "E, LANGUAGE, NODE_NAVIGATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable, ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID,Integer) Dim dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable = New DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String, ByVal NODE_NAVIGATION As Boolean) As Integer If (FORM_TITLE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TITLE,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) End If If (MENU_IMG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(MENU_IMG,Byte()) End If If (SHORT_TITLE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(SHORT_TITLE,String) End If If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE,String) End If Me.Adapter.InsertCommand.Parameters(6).Value = CType(NODE_NAVIGATION,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String, ByVal NODE_NAVIGATION As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (FORM_TITLE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TITLE,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) End If If (MENU_IMG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MENU_IMG,Byte()) End If If (SHORT_TITLE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SHORT_TITLE,String) End If If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE,String) End If Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NODE_NAVIGATION,Boolean) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_FORM_CONSTRUCTOR_DETAIL" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("CONSTRUCT_ID", "CONSTRUCT_ID") tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") tableMapping.ColumnMappings.Add("LEVEL1_SELECT", "LEVEL1_SELECT") tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE1", "SQL_SELECT_EBENE1") tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE2", "SQL_SELECT_EBENE2") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("COLUMN_NAME1", "COLUMN_NAME1") tableMapping.ColumnMappings.Add("COLUMN_NAME2", "COLUMN_NAME2") tableMapping.ColumnMappings.Add("LOAD_DIRECT", "LOAD_DIRECT") tableMapping.ColumnMappings.Add("SQL_QUICK_VIEW", "SQL_QUICK_VIEW") tableMapping.ColumnMappings.Add("CONTROL_DOCTYPE_MATCH", "CONTROL_DOCTYPE_MATCH") tableMapping.ColumnMappings.Add("SQL_RIGHT_READ_AND_VIEW_ONLY", "SQL_RIGHT_READ_AND_VIEW_ONLY") tableMapping.ColumnMappings.Add("SQL_RIGHT_WINDREAM_VIEW", "SQL_RIGHT_WINDREAM_VIEW") tableMapping.ColumnMappings.Add("ADD_RECORDS", "ADD_RECORDS") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONSTRUCT_ID"& _ ", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE"& _ "NE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, CONTROL_DOCTYPE_MATCH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " SQL_RIGHT_READ_AND_VIEW_ONLY, SQL_RIGHT_WINDREAM_VIEW)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ " (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@SEQUENCE,@SQL_SELECT_EBEN"& _ "E1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_NAME2,@CONTROL_DOCTYPE_MA"& _ "TCH,@SQL_RIGHT_READ_AND_VIEW_ONLY,@SQL_RIGHT_WINDREAM_VIEW); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, "& _ "CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQ"& _ "L_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1,"& _ " COLUMN_NAME2 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY())"& _ "" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_DOCTYPE_MATCH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_DOCTYPE_MATCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONSTRUCT_ID = @CO"& _ "NSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_"& _ "SELECT, SEQUENCE = @SEQUENCE, SQL_SELECT_EBENE1 = @SQL_SELECT_EBENE1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_"& _ "WHO, COLUMN_NAME1 = @COLUMN_NAME1, COLUMN_NAME2 = @COLUMN_NAME2, LOAD_DIRECT = @"& _ "LOAD_DIRECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONTROL_DOCTYPE_MATCH = @CONTROL_DOCTYPE"& _ "_MATCH, SQL_RIGHT_READ_AND_VIEW_ONLY = @SQL_RIGHT_READ_AND_VIEW_ONLY, SQL_RIGHT_"& _ "WINDREAM_VIEW = @SQL_RIGHT_WINDREAM_VIEW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ADD_RECORDS"& _ " = @ADD_RECORDS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CON"& _ "STRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_S"& _ "ELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, CO"& _ "LUMN_NAME2 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_DOCTYPE_MATCH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_DOCTYPE_MATCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_WINDREAM_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_RECORDS", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_RECORDS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQ"& _ "L_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_"& _ "WHEN, COLUMN_NAME1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COLUMN_NAME2, LOAD_DIRECT, SQL_QU"& _ "ICK_VIEW, CONTROL_DOCTYPE_MATCH, SQL_RIGHT_READ_AND_VIEW_ONLY, SQL_RIGHT_WINDREA"& _ "M_VIEW, ADD_RECORDS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ " (GUID = @ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) Dim dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = New DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR_DETAIL") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal CONSTRUCT_ID As Integer, 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 COLUMN_NAME1 As String, ByVal COLUMN_NAME2 As String, ByVal CONTROL_DOCTYPE_MATCH As Integer, ByVal SQL_RIGHT_READ_AND_VIEW_ONLY As String, ByVal SQL_RIGHT_WINDREAM_VIEW As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(PARENT_ID,Integer) Me.Adapter.InsertCommand.Parameters(3).Value = CType(LEVEL1_SELECT,Boolean) Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE,Integer) If (SQL_SELECT_EBENE1 Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE1") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1,String) End If If (SQL_SELECT_EBENE2 Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2,String) End If If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String) End If If (COLUMN_NAME1 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME1") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(COLUMN_NAME1,String) End If If (COLUMN_NAME2 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME2") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(COLUMN_NAME2,String) End If Me.Adapter.InsertCommand.Parameters(10).Value = CType(CONTROL_DOCTYPE_MATCH,Integer) If (SQL_RIGHT_READ_AND_VIEW_ONLY Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RIGHT_READ_AND_VIEW_ONLY") Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(SQL_RIGHT_READ_AND_VIEW_ONLY,String) End If If (SQL_RIGHT_WINDREAM_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RIGHT_WINDREAM_VIEW") Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(SQL_RIGHT_WINDREAM_VIEW,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal CONSTRUCT_ID As Integer, _ 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 CHANGED_WHO As String, _ ByVal COLUMN_NAME1 As String, _ ByVal COLUMN_NAME2 As String, _ ByVal LOAD_DIRECT As Boolean, _ 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, _ ByVal Original_GUID As Integer, _ ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PARENT_ID,Integer) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LEVEL1_SELECT,Boolean) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE,Integer) If (SQL_SELECT_EBENE1 Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE1") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1,String) End If If (SQL_SELECT_EBENE2 Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2,String) End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) End If If (COLUMN_NAME1 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME1") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COLUMN_NAME1,String) End If If (COLUMN_NAME2 Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_NAME2") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(COLUMN_NAME2,String) End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(LOAD_DIRECT,Boolean) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CONTROL_DOCTYPE_MATCH,Integer) If (SQL_RIGHT_READ_AND_VIEW_ONLY Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RIGHT_READ_AND_VIEW_ONLY") Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SQL_RIGHT_READ_AND_VIEW_ONLY,String) End If If (SQL_RIGHT_WINDREAM_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_RIGHT_WINDREAM_VIEW") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SQL_RIGHT_WINDREAM_VIEW,String) End If Me.Adapter.UpdateCommand.Parameters(14).Value = CType(ADD_RECORDS,Boolean) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBDD_CONNECTIONTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBDD_CONNECTION" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") tableMapping.ColumnMappings.Add("SERVER", "SERVER") tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, SQL_PROVIDER,"& _ " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ " (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERK"& _ "UNG,@AKTIV,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATE"& _ "NBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERT"& _ "WER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, SQL_"& _ "PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @"& _ "USERNAME, PASSWORD = @PASSWORD, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" BEMERKUNG = @BEMERKUN"& _ "G, AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GU"& _ "ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASS"& _ "WORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FR"& _ "OM TBDD_CONNECTION WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBDD_CONNECTION.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CONNECTION" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBDD_CONNECTIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable = New DD_ECMAdmin.TBDD_CONNECTIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Short) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(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) As Integer If (BEZEICHNUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If If (SQL_PROVIDER Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) End If If (SERVER Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER,String) End If If (DATENBANK Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATENBANK,String) End If If (USERNAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME,String) End If If (PASSWORD Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD,String) End If If (BEMERKUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG,String) End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV,Boolean) If (ERSTELLTWER Is Nothing) Then Throw New Global.System.ArgumentNullException("ERSTELLTWER") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(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 GEANDERTWER As String, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer If (BEZEICHNUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If If (SQL_PROVIDER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) End If If (SERVER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER,String) End If If (DATENBANK Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATENBANK,String) End If If (USERNAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME,String) End If If (PASSWORD Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD,String) End If If (BEMERKUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV,Boolean) If (GEANDERTWER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEANDERTWER,String) End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Short) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Short) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class VWTEMPQUICKVIEWTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "VWTEMPQUICKVIEW" tableMapping.ColumnMappings.Add("Record-ID", "Record-ID") tableMapping.ColumnMappings.Add("Aktenzeichen", "Aktenzeichen") tableMapping.ColumnMappings.Add("Wiedergabe der Marke (Bild)", "Wiedergabe der Marke (Bild)") tableMapping.ColumnMappings.Add("Tag der Eintragung im Register", "Tag der Eintragung im Register") tableMapping.ColumnMappings.Add("Aktenzustand", "Aktenzustand") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT [Record-ID], Aktenzeichen, [Wiedergabe der Marke (Bild)], [Tag der "& _ "Eintragung im Register], Aktenzustand"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWTEMPQUICKVIEW" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable = New DD_ECMAdmin.VWTEMPQUICKVIEWDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBWH_ENTITIESTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBWH_ENTITIES" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") tableMapping.ColumnMappings.Add("CAPTION", "CAPTION") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT T.GUID, T1.FORM_TITLE, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'FORMV"& _ "IEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), @SCREEN) AS 'CAPTION'"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ " TBPMO_FORM AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM_VIEW AS T1 ON "& _ "T.GUID = T1.FORM_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELE"& _ "CT DISTINCT ENTITY_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBPMO_CLIE"& _ "NT_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (CLIENT_ID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " (SELECT CLIENT_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " FROM TBDD"& _ "_CLIENT_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHE"& _ "RE (USER_ID = @USER_ID)))))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY 'CAPTION'" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBWH_ENTITIESDataTable, ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN,Integer) Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) As DD_ECMAdmin.TBWH_ENTITIESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN,Integer) Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID,Integer) Dim dataTable As DD_ECMAdmin.TBWH_ENTITIESDataTable = New DD_ECMAdmin.TBWH_ENTITIESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBWH_USER_GROUPSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBWH_USER_GROUPS" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME", "NAME") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBWH_USER_GROUPSDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBWH_USER_GROUPSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBWH_USER_GROUPSDataTable = New DD_ECMAdmin.TBWH_USER_GROUPSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_SAP_FUBATableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_SAP_FUBA" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("TableName", "TableName") tableMapping.ColumnMappings.Add("Host", "Host") tableMapping.ColumnMappings.Add("SystemNumber", "SystemNumber") tableMapping.ColumnMappings.Add("UserName", "UserName") tableMapping.ColumnMappings.Add("Password", "Password") tableMapping.ColumnMappings.Add("Client", "Client") tableMapping.ColumnMappings.Add("Language", "Language") tableMapping.ColumnMappings.Add("TempTableName", "TempTableName") tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("WHERE_CLAUSE", "WHERE_CLAUSE") tableMapping.ColumnMappings.Add("Method", "Method") tableMapping.ColumnMappings.Add("FuBa_SplitCharacter", "FuBa_SplitCharacter") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_SAP_FUBA"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_SAP_FUBA"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, COMMENT, TableName, H"& _ "ost, SystemNumber, UserName, Password, Client, Language, TempTableName, ACTIVE, "& _ "ADDED_WHO, WHERE_CLAUSE, Method, FuBa_SplitCharacter)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@COM"& _ "MENT,@TableName,@Host,@SystemNumber,@UserName,@Password,@Client,@Language,@TempT"& _ "ableName,@ACTIVE,@ADDED_WHO,@WHERE_CLAUSE,@Method,@FuBa_SplitCharacter); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SE"& _ "LECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Password, Cli"& _ "ent, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ "D_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TableName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Host", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Host", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SystemNumber", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SystemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserName", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "UserName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Client", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Client", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Language", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "Language", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TempTableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TempTableName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHERE_CLAUSE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WHERE_CLAUSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Method", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "Method", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FuBa_SplitCharacter", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FuBa_SplitCharacter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_SAP_FUBA"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, COMMENT = @COMMENT,"& _ " TableName = @TableName, Host = @Host, SystemNumber = @SystemNumber, UserName = "& _ "@UserName, Password = @Password, Client = @Client, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" La"& _ "nguage = @Language, TempTableName = @TempTableName, ACTIVE = @ACTIVE, CHANGED_WH"& _ "O = @CHANGED_WHO, WHERE_CLAUSE = @WHERE_CLAUSE, Method = @Method, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " FuBa_SplitCharacter = @FuBa_SplitCharacter"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @O"& _ "riginal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, U"& _ "serName, Password, Client, Language, TempTableName, ACTIVE, ADDED_WHO, ADDED_WHE"& _ "N, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_SAP_FUBA WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TableName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Host", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Host", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SystemNumber", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SystemNumber", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UserName", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "UserName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Password", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Password", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Client", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "Client", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Language", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "Language", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TempTableName", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TempTableName", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHERE_CLAUSE", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WHERE_CLAUSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Method", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "Method", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FuBa_SplitCharacter", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FuBa_SplitCharacter", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, NAME, COMMENT, TableName, Host, SystemNumber, UserName, Passw"& _ "ord, Client, Language, TempTableName, WHERE_CLAUSE, ACTIVE, ADDED_WHO, ADDED_WHE"& _ "N, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, Method, FuBa_SplitChara"& _ "cter"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_SAP_FUBA" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_SAP_FUBADataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable = New DD_ECMAdmin.TBPMO_SAP_FUBADataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_SAP_FUBA") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal TableName As String, ByVal Host As String, ByVal SystemNumber As String, ByVal UserName As String, ByVal Password As String, ByVal Client As String, ByVal Language As String, ByVal TempTableName As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal WHERE_CLAUSE As String, ByVal Method As String, ByVal FuBa_SplitCharacter As String) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) End If If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(COMMENT,String) End If If (TableName Is Nothing) Then Throw New Global.System.ArgumentNullException("TableName") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(TableName,String) End If If (Host Is Nothing) Then Throw New Global.System.ArgumentNullException("Host") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(Host,String) End If If (SystemNumber Is Nothing) Then Throw New Global.System.ArgumentNullException("SystemNumber") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(SystemNumber,String) End If If (UserName Is Nothing) Then Throw New Global.System.ArgumentNullException("UserName") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(UserName,String) End If If (Password Is Nothing) Then Throw New Global.System.ArgumentNullException("Password") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(Password,String) End If If (Client Is Nothing) Then Throw New Global.System.ArgumentNullException("Client") Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(Client,String) End If If (Language Is Nothing) Then Throw New Global.System.ArgumentNullException("Language") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(Language,String) End If If (TempTableName Is Nothing) Then Throw New Global.System.ArgumentNullException("TempTableName") Else Me.Adapter.InsertCommand.Parameters(9).Value = CType(TempTableName,String) End If Me.Adapter.InsertCommand.Parameters(10).Value = CType(ACTIVE,Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(11).Value = CType(ADDED_WHO,String) End If If (WHERE_CLAUSE Is Nothing) Then Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(12).Value = CType(WHERE_CLAUSE,String) End If If (Method Is Nothing) Then Throw New Global.System.ArgumentNullException("Method") Else Me.Adapter.InsertCommand.Parameters(13).Value = CType(Method,String) End If If (FuBa_SplitCharacter Is Nothing) Then Throw New Global.System.ArgumentNullException("FuBa_SplitCharacter") Else Me.Adapter.InsertCommand.Parameters(14).Value = CType(FuBa_SplitCharacter,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal NAME As String, _ ByVal COMMENT As String, _ ByVal TableName As String, _ ByVal Host As String, _ ByVal SystemNumber As String, _ ByVal UserName As String, _ ByVal Password As String, _ ByVal Client As String, _ ByVal Language As String, _ ByVal TempTableName As String, _ ByVal ACTIVE As Boolean, _ ByVal CHANGED_WHO As String, _ ByVal WHERE_CLAUSE As String, _ ByVal Method As String, _ ByVal FuBa_SplitCharacter As String, _ ByVal Original_GUID As Integer, _ ByVal GUID As Integer) As Integer If (NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("NAME") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) End If If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(COMMENT,String) End If If (TableName Is Nothing) Then Throw New Global.System.ArgumentNullException("TableName") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(TableName,String) End If If (Host Is Nothing) Then Throw New Global.System.ArgumentNullException("Host") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Host,String) End If If (SystemNumber Is Nothing) Then Throw New Global.System.ArgumentNullException("SystemNumber") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SystemNumber,String) End If If (UserName Is Nothing) Then Throw New Global.System.ArgumentNullException("UserName") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(UserName,String) End If If (Password Is Nothing) Then Throw New Global.System.ArgumentNullException("Password") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Password,String) End If If (Client Is Nothing) Then Throw New Global.System.ArgumentNullException("Client") Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Client,String) End If If (Language Is Nothing) Then Throw New Global.System.ArgumentNullException("Language") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Language,String) End If If (TempTableName Is Nothing) Then Throw New Global.System.ArgumentNullException("TempTableName") Else Me.Adapter.UpdateCommand.Parameters(9).Value = CType(TempTableName,String) End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ACTIVE,Boolean) If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CHANGED_WHO,String) End If If (WHERE_CLAUSE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(12).Value = CType(WHERE_CLAUSE,String) End If If (Method Is Nothing) Then Throw New Global.System.ArgumentNullException("Method") Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Method,String) End If If (FuBa_SplitCharacter Is Nothing) Then Throw New Global.System.ArgumentNullException("FuBa_SplitCharacter") Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(FuBa_SplitCharacter,String) End If Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class USER_RIGHTSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "USER_RIGHTS" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") tableMapping.ColumnMappings.Add("EDIT_REC", "EDIT_REC") tableMapping.ColumnMappings.Add("ADD_REC", "ADD_REC") tableMapping.ColumnMappings.Add("DELETE_REC", "DELETE_REC") tableMapping.ColumnMappings.Add("ADD_DOC", "ADD_DOC") tableMapping.ColumnMappings.Add("READ_ONLY_DOC", "READ_ONLY_DOC") tableMapping.ColumnMappings.Add("DELETE_DOC", "DELETE_DOC") tableMapping.ColumnMappings.Add("FILES_VISIBLE", "FILES_VISIBLE") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT T.GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'FORMVIEW_TITLE' + CO"& _ "NVERT(VARCHAR(5), T3.GUID), 1) AS FORM_TITLE, T1.USERNAME, T1.NAME, T1.PRENAME, "& _ "T.EDIT_REC, T.ADD_REC, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" T.DELETE_REC, T.ADD_DOC, T.REA"& _ "D_ONLY_DOC, T.DELETE_DOC, T.FILES_VISIBLE, T.ADDED_WHEN, T.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ " TBPMO_RIGHT_USER AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER AS"& _ " T1 ON T.USER_ID = T1.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM AS T2"& _ " ON T.ENTITY_ID = T2.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM_VIEW A"& _ "S T3 ON T2.GUID = T3.FORM_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.GUID = @ENTITY_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.USER_RIGHTSDataTable, ByVal LANGUAGE As String, ByVal ENTITY_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal ENTITY_ID As Integer) As DD_ECMAdmin.USER_RIGHTSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) End If Me.Adapter.SelectCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) Dim dataTable As DD_ECMAdmin.USER_RIGHTSDataTable = New DD_ECMAdmin.USER_RIGHTSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_DOCSEARCH_RESULTLIST_CONFIG" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") tableMapping.ColumnMappings.Add("COLUMN_VIEW", "COLUMN_VIEW") tableMapping.ColumnMappings.Add("HEADER_CAPTION", "HEADER_CAPTION") tableMapping.ColumnMappings.Add("WIDTH", "WIDTH") tableMapping.ColumnMappings.Add("TYPE_ID", "TYPE_ID") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("VISIBLE", "VISIBLE") tableMapping.ColumnMappings.Add("EDITABLE", "EDITABLE") tableMapping.ColumnMappings.Add("CONFIG_COLUMNS", "CONFIG_COLUMNS") tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] WHERE ([GUID] = @Original_GUID) A"& _ "ND ([ENTITY_ID] = @Original_ENTITY_ID) AND ([LANGUAGE] = @Original_LANGUAGE) AND"& _ " ([COLUMN_VIEW] = @Original_COLUMN_VIEW) AND ([HEADER_CAPTION] = @Original_HEADE"& _ "R_CAPTION) AND ([WIDTH] = @Original_WIDTH) AND ([TYPE_ID] = @Original_TYPE_ID) A"& _ "ND ([ADDED_WHO] = @Original_ADDED_WHO) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WH"& _ "EN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO "& _ "= 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ("& _ "@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Origi"& _ "nal_CHANGED_WHEN)) AND ([VISIBLE] = @Original_VISIBLE) AND ([EDITABLE] = @Origin"& _ "al_EDITABLE) AND ([CONFIG_COLUMNS] = @Original_CONFIG_COLUMNS) AND ([SEQUENCE] ="& _ " @Original_SEQUENCE))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] ([ENTITY_ID], [LANGUAGE], [COLUMN"& _ "_VIEW], [HEADER_CAPTION], [WIDTH], [TYPE_ID], [ADDED_WHO], [ADDED_WHEN], [CHANGE"& _ "D_WHO], [CHANGED_WHEN], [VISIBLE], [EDITABLE], [CONFIG_COLUMNS], [SEQUENCE]) VAL"& _ "UES (@ENTITY_ID, @LANGUAGE, @COLUMN_VIEW, @HEADER_CAPTION, @WIDTH, @TYPE_ID, @AD"& _ "DED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @VISIBLE, @EDITABLE, @CONFIG_"& _ "COLUMNS, @SEQUENCE);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPT"& _ "ION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, "& _ "EDITABLE, CONFIG_COLUMNS, SEQUENCE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE "& _ "(GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_DOCSEARCH_RESULTLIST_CONFIG] SET [ENTITY_ID] = @ENTITY_ID, [LANGUAG"& _ "E] = @LANGUAGE, [COLUMN_VIEW] = @COLUMN_VIEW, [HEADER_CAPTION] = @HEADER_CAPTION"& _ ", [WIDTH] = @WIDTH, [TYPE_ID] = @TYPE_ID, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN]"& _ " = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [V"& _ "ISIBLE] = @VISIBLE, [EDITABLE] = @EDITABLE, [CONFIG_COLUMNS] = @CONFIG_COLUMNS, "& _ "[SEQUENCE] = @SEQUENCE WHERE ([GUID] = @Original_GUID) AND ([ENTITY_ID] = @Origi"& _ "nal_ENTITY_ID) AND ([LANGUAGE] = @Original_LANGUAGE) AND ([COLUMN_VIEW] = @Origi"& _ "nal_COLUMN_VIEW) AND ([HEADER_CAPTION] = @Original_HEADER_CAPTION) AND ([WIDTH] "& _ "= @Original_WIDTH) AND ([TYPE_ID] = @Original_TYPE_ID) AND ([ADDED_WHO] = @Origi"& _ "nal_ADDED_WHO) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_"& _ "WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS"& _ " NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1"& _ " AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ("& _ "[VISIBLE] = @Original_VISIBLE) AND ([EDITABLE] = @Original_EDITABLE) AND ([CONFI"& _ "G_COLUMNS] = @Original_CONFIG_COLUMNS) AND ([SEQUENCE] = @Original_SEQUENCE));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ "SELECT GUID, ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, A"& _ "DDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE, CONFIG_COLUM"& _ "NS, SEQUENCE FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ENTITY_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLUMN_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_VIEW", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HEADER_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HEADER_CAPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WIDTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WIDTH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VISIBLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VISIBLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EDITABLE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EDITABLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONFIG_COLUMNS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_COLUMNS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBPMO_DOCSEARCH_RESULTLIST_CONFIG.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_DOCSEARC"& _ "H_RESULTLIST_CONFIG" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable = New DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_DOCSEARCH_RESULTLIST_CONFIG") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_ENTITY_ID As Integer, ByVal Original_LANGUAGE As String, ByVal Original_COLUMN_VIEW As String, ByVal Original_HEADER_CAPTION As String, ByVal Original_WIDTH As Integer, ByVal Original_TYPE_ID As Byte, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal Original_VISIBLE As Boolean, ByVal Original_EDITABLE As Boolean, ByVal Original_CONFIG_COLUMNS As Boolean, ByVal Original_SEQUENCE As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_ENTITY_ID,Integer) If (Original_LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LANGUAGE") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_LANGUAGE,String) End If If (Original_COLUMN_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_COLUMN_VIEW") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_COLUMN_VIEW,String) End If If (Original_HEADER_CAPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_HEADER_CAPTION") Else Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_HEADER_CAPTION,String) End If Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_WIDTH,Integer) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_TYPE_ID,Byte) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_VISIBLE,Boolean) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_EDITABLE,Boolean) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CONFIG_COLUMNS,Boolean) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_SEQUENCE,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal ENTITY_ID As Integer, ByVal LANGUAGE As String, ByVal COLUMN_VIEW As String, ByVal HEADER_CAPTION As String, ByVal WIDTH As Integer, ByVal TYPE_ID As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal VISIBLE As Boolean, ByVal EDITABLE As Boolean, ByVal CONFIG_COLUMNS As Boolean, ByVal SEQUENCE As Integer) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(LANGUAGE,String) End If If (COLUMN_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_VIEW") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(COLUMN_VIEW,String) End If If (HEADER_CAPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("HEADER_CAPTION") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(HEADER_CAPTION,String) End If Me.Adapter.InsertCommand.Parameters(4).Value = CType(WIDTH,Integer) Me.Adapter.InsertCommand.Parameters(5).Value = CType(TYPE_ID,Byte) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(10).Value = CType(VISIBLE,Boolean) Me.Adapter.InsertCommand.Parameters(11).Value = CType(EDITABLE,Boolean) Me.Adapter.InsertCommand.Parameters(12).Value = CType(CONFIG_COLUMNS,Boolean) Me.Adapter.InsertCommand.Parameters(13).Value = CType(SEQUENCE,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal ENTITY_ID As Integer, _ ByVal LANGUAGE As String, _ ByVal COLUMN_VIEW As String, _ ByVal HEADER_CAPTION As String, _ ByVal WIDTH As Integer, _ ByVal TYPE_ID As Byte, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal VISIBLE As Boolean, _ ByVal EDITABLE As Boolean, _ ByVal CONFIG_COLUMNS As Boolean, _ ByVal SEQUENCE As Integer, _ ByVal Original_GUID As Integer, _ ByVal Original_ENTITY_ID As Integer, _ ByVal Original_LANGUAGE As String, _ ByVal Original_COLUMN_VIEW As String, _ ByVal Original_HEADER_CAPTION As String, _ ByVal Original_WIDTH As Integer, _ ByVal Original_TYPE_ID As Byte, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_VISIBLE As Boolean, _ ByVal Original_EDITABLE As Boolean, _ ByVal Original_CONFIG_COLUMNS As Boolean, _ ByVal Original_SEQUENCE As Integer, _ ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LANGUAGE,String) End If If (COLUMN_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("COLUMN_VIEW") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COLUMN_VIEW,String) End If If (HEADER_CAPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("HEADER_CAPTION") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(HEADER_CAPTION,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(WIDTH,Integer) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TYPE_ID,Byte) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(VISIBLE,Boolean) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(EDITABLE,Boolean) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(CONFIG_COLUMNS,Boolean) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SEQUENCE,Integer) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ENTITY_ID,Integer) If (Original_LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_LANGUAGE") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_LANGUAGE,String) End If If (Original_COLUMN_VIEW Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_COLUMN_VIEW") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_COLUMN_VIEW,String) End If If (Original_HEADER_CAPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_HEADER_CAPTION") Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_HEADER_CAPTION,String) End If Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_WIDTH,Integer) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_TYPE_ID,Byte) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_VISIBLE,Boolean) Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_EDITABLE,Boolean) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_CONFIG_COLUMNS,Boolean) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_SEQUENCE,Integer) Me.Adapter.UpdateCommand.Parameters(32).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal ENTITY_ID As Integer, _ ByVal LANGUAGE As String, _ ByVal COLUMN_VIEW As String, _ ByVal HEADER_CAPTION As String, _ ByVal WIDTH As Integer, _ ByVal TYPE_ID As Byte, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal VISIBLE As Boolean, _ ByVal EDITABLE As Boolean, _ ByVal CONFIG_COLUMNS As Boolean, _ ByVal SEQUENCE As Integer, _ ByVal Original_GUID As Integer, _ ByVal Original_ENTITY_ID As Integer, _ ByVal Original_LANGUAGE As String, _ ByVal Original_COLUMN_VIEW As String, _ ByVal Original_HEADER_CAPTION As String, _ ByVal Original_WIDTH As Integer, _ ByVal Original_TYPE_ID As Byte, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_VISIBLE As Boolean, _ ByVal Original_EDITABLE As Boolean, _ ByVal Original_CONFIG_COLUMNS As Boolean, _ ByVal Original_SEQUENCE As Integer) As Integer Return Me.Update(ENTITY_ID, LANGUAGE, COLUMN_VIEW, HEADER_CAPTION, WIDTH, TYPE_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, VISIBLE, EDITABLE, CONFIG_COLUMNS, SEQUENCE, Original_GUID, Original_ENTITY_ID, Original_LANGUAGE, Original_COLUMN_VIEW, Original_HEADER_CAPTION, Original_WIDTH, Original_TYPE_ID, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_VISIBLE, Original_EDITABLE, Original_CONFIG_COLUMNS, Original_SEQUENCE, Original_GUID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class VWDD_LOGIN_USER_HISTORYTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "VWDD_LOGIN_USER_HISTORY" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("MODULE", "MODULE") tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") tableMapping.ColumnMappings.Add("CLIENT_ID", "CLIENT_ID") tableMapping.ColumnMappings.Add("CLIENT_NAME", "CLIENT_NAME") tableMapping.ColumnMappings.Add("LOGIN", "LOGIN") tableMapping.ColumnMappings.Add("LOGOUT", "LOGOUT") tableMapping.ColumnMappings.Add("VERSION_CLIENT", "VERSION_CLIENT") tableMapping.ColumnMappings.Add("MACHINE_NAME", "MACHINE_NAME") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, MODULE, USERNAME, NAME, PRENAME, USER_ID, CLIENT_ID, CLIENT_N"& _ "AME, LOGIN, LOGOUT, VERSION_CLIENT, MACHINE_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDD_LOGIN_USE"& _ "R_HISTORY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MODULE = 'Record-Organizer')"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY GUID DESC" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable = New DD_ECMAdmin.VWDD_LOGIN_USER_HISTORYDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID" tableMapping.ColumnMappings.Add("Name", "Name") tableMapping.ColumnMappings.Add("ID", "ID") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT CONVERT(TINYINT, 1) AS ID, 'TextBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ "CONVERT(TINYINT, 2) AS ID, 'CheckBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT(TINY"& _ "INT, 3) AS ID, 'ComboBox' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"UNION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT(TINYINT, 4) AS I"& _ "D, 'DatePicker' AS Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_DOCSEARCH_RESULTLIST_CONFIG" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable = New DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_LOG_ESSENTIALSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_LOG_ESSENTIALS" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("REFERENCE_KEY", "REFERENCE_KEY") tableMapping.ColumnMappings.Add("REFERENCE_STRING", "REFERENCE_STRING") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("Selection", "Selection") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_LOG_ESSENTIALS] WHERE ([GUID] = @Original_GUID))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_LOG_ESSENTIALS] ([REFERENCE_KEY], [REFERENCE_STRING], [COMMENT"& _ "], [ADDED_WHO], [ADDED_WHEN]) VALUES (@REFERENCE_KEY, @REFERENCE_STRING, @COMMEN"& _ "T, @ADDED_WHO, @ADDED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT (BIT, 0) AS Selection, GUID, REFERE"& _ "NCE_KEY, REFERENCE_STRING, COMMENT, ADDED_WHO, ADDED_WHEN FROM TBPMO_LOG_ESSENTI"& _ "ALS WHERE (GUID = SCOPE_IDENTITY()) ORDER BY GUID DESC" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REFERENCE_KEY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REFERENCE_KEY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REFERENCE_STRING", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REFERENCE_STRING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_LOG_ESSENTIALS] SET [REFERENCE_KEY] = @REFERENCE_KEY, [REFERENCE_ST"& _ "RING] = @REFERENCE_STRING, [COMMENT] = @COMMENT, [ADDED_WHO] = @ADDED_WHO, [ADDE"& _ "D_WHEN] = @ADDED_WHEN WHERE ([GUID] = @Original_GUID));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT CONVERT (BIT, 0)"& _ " AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING, COMMENT, ADDED_WHO, ADDED_"& _ "WHEN FROM TBPMO_LOG_ESSENTIALS WHERE (GUID = @GUID) ORDER BY GUID DESC" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REFERENCE_KEY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REFERENCE_KEY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REFERENCE_STRING", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REFERENCE_STRING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT CONVERT(BIT, 0) AS Selection, GUID, REFERENCE_KEY, REFERENCE_STRING"& _ ", COMMENT, ADDED_WHO, ADDED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_LOG_ESSENTIALS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY"& _ " GUID DESC" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_LOG_ESSENTIALSDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBPMO_LOG_ESSENTIALSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBPMO_LOG_ESSENTIALSDataTable = New DD_ECMAdmin.TBPMO_LOG_ESSENTIALSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_LOG_ESSENTIALSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_LOG_ESSENTIALS") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal REFERENCE_KEY As Integer, ByVal REFERENCE_STRING As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(REFERENCE_KEY,Integer) If (REFERENCE_STRING Is Nothing) Then Throw New Global.System.ArgumentNullException("REFERENCE_STRING") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(REFERENCE_STRING,String) End If If (COMMENT Is Nothing) Then Throw New Global.System.ArgumentNullException("COMMENT") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal REFERENCE_KEY As Integer, ByVal REFERENCE_STRING As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(REFERENCE_KEY,Integer) If (REFERENCE_STRING Is Nothing) Then Throw New Global.System.ArgumentNullException("REFERENCE_STRING") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(REFERENCE_STRING,String) End If If (COMMENT Is Nothing) Then Throw New Global.System.ArgumentNullException("COMMENT") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal REFERENCE_KEY As Integer, ByVal REFERENCE_STRING As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_GUID As Integer) As Integer Return Me.Update(REFERENCE_KEY, REFERENCE_STRING, COMMENT, ADDED_WHO, ADDED_WHEN, Original_GUID, Original_GUID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBPMO_DOCRESULT_DROPDOWN_ITEMS" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("CONFIG_ID", "CONFIG_ID") tableMapping.ColumnMappings.Add("VALUE", "VALUE") tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") tableMapping.ColumnMappings.Add("DEFAULT", "DEFAULT") tableMapping.ColumnMappings.Add("COLOR", "COLOR") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_DOCRESULT_DROPDOWN_ITEMS] WHERE ([GUID] = @Original_GUID) AND "& _ "([CONFIG_ID] = @Original_CONFIG_ID) AND ([VALUE] = @Original_VALUE) AND ([SEQUEN"& _ "CE] = @Original_SEQUENCE) AND ([DEFAULT] = @Original_DEFAULT) AND ([COLOR] = @Or"& _ "iginal_COLOR) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND (@IsNull_ADDED_WHEN = "& _ "1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNu"& _ "ll_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHAN"& _ "GED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED"& _ "_WHEN] = @Original_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONFIG_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DEFAULT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_DOCRESULT_DROPDOWN_ITEMS] ([CONFIG_ID], [VALUE], [SEQUENCE], ["& _ "DEFAULT], [COLOR], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VAL"& _ "UES (@CONFIG_ID, @VALUE, @SEQUENCE, @DEFAULT, @COLOR, @ADDED_WHO, @ADDED_WHEN, @"& _ "CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT]"& _ ", COLOR, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_DOCRESULT_D"& _ "ROPDOWN_ITEMS WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONFIG_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_DOCRESULT_DROPDOWN_ITEMS] SET [CONFIG_ID] = @CONFIG_ID, [VALUE] = @"& _ "VALUE, [SEQUENCE] = @SEQUENCE, [DEFAULT] = @DEFAULT, [COLOR] = @COLOR, [ADDED_WH"& _ "O] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHAN"& _ "GED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND ([CONFIG_ID] = @Or"& _ "iginal_CONFIG_ID) AND ([VALUE] = @Original_VALUE) AND ([SEQUENCE] = @Original_SE"& _ "QUENCE) AND ([DEFAULT] = @Original_DEFAULT) AND ([COLOR] = @Original_COLOR) AND "& _ "([ADDED_WHO] = @Original_ADDED_WHO) AND (@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN]"& _ " IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNull_CHANGED_WHO = 1"& _ " AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND (@Is"& _ "Null_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original"& _ "_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, AD"& _ "DED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_DOCRESULT_DROPDOWN_ITE"& _ "MS WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONFIG_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEFAULT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONFIG_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_VALUE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DEFAULT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DEFAULT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COLOR", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COLOR", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, CONFIG_ID, VALUE, SEQUENCE, [DEFAULT], COLOR, ADDED_WHO, ADDE"& _ "D_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_DOCRESULT_DROPDOWN_ITEM"& _ "S"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (CONFIG_ID = @CONFIG_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONFIG_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONFIG_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable, ByVal CONFIG_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONFIG_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal CONFIG_ID As Integer) As DD_ECMAdmin.TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONFIG_ID,Integer) Dim dataTable As DD_ECMAdmin.TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable = New DD_ECMAdmin.TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_DOCRESULT_DROPDOWN_ITEMS") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_CONFIG_ID As Integer, ByVal Original_VALUE As String, ByVal Original_SEQUENCE As Byte, ByVal Original_DEFAULT As Boolean, ByVal Original_COLOR As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_CONFIG_ID,Integer) If (Original_VALUE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_VALUE") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_VALUE,String) End If Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_SEQUENCE,Byte) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_DEFAULT,Boolean) If (Original_COLOR Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_COLOR") Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_COLOR,String) End If If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal CONFIG_ID As Integer, ByVal VALUE As String, ByVal SEQUENCE As Byte, ByVal _DEFAULT As Boolean, ByVal COLOR As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONFIG_ID,Integer) If (VALUE Is Nothing) Then Throw New Global.System.ArgumentNullException("VALUE") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(VALUE,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(SEQUENCE,Byte) Me.Adapter.InsertCommand.Parameters(3).Value = CType(_DEFAULT,Boolean) If (COLOR Is Nothing) Then Throw New Global.System.ArgumentNullException("COLOR") Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(COLOR,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal CONFIG_ID As Integer, _ ByVal VALUE As String, _ ByVal SEQUENCE As Byte, _ ByVal _DEFAULT As Boolean, _ ByVal COLOR As String, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Integer, _ ByVal Original_CONFIG_ID As Integer, _ ByVal Original_VALUE As String, _ ByVal Original_SEQUENCE As Byte, _ ByVal Original_DEFAULT As Boolean, _ ByVal Original_COLOR As String, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONFIG_ID,Integer) If (VALUE Is Nothing) Then Throw New Global.System.ArgumentNullException("VALUE") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(VALUE,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SEQUENCE,Byte) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(_DEFAULT,Boolean) If (COLOR Is Nothing) Then Throw New Global.System.ArgumentNullException("COLOR") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COLOR,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_CONFIG_ID,Integer) If (Original_VALUE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_VALUE") Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_VALUE,String) End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_SEQUENCE,Byte) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_DEFAULT,Boolean) If (Original_COLOR Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_COLOR") Else Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_COLOR,String) End If If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(16).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(22).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal CONFIG_ID As Integer, _ ByVal VALUE As String, _ ByVal SEQUENCE As Byte, _ ByVal _DEFAULT As Boolean, _ ByVal COLOR As String, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Integer, _ ByVal Original_CONFIG_ID As Integer, _ ByVal Original_VALUE As String, _ ByVal Original_SEQUENCE As Byte, _ ByVal Original_DEFAULT As Boolean, _ ByVal Original_COLOR As String, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Return Me.Update(CONFIG_ID, VALUE, SEQUENCE, _DEFAULT, COLOR, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_CONFIG_ID, Original_VALUE, Original_SEQUENCE, Original_DEFAULT, Original_COLOR, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBDD_GROUPSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBDD_GROUPS" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("ECM_FK_ID", "ECM_FK_ID") tableMapping.ColumnMappings.Add("AD_SYNC", "AD_SYNC") tableMapping.ColumnMappings.Add("INTERNAL", "INTERNAL") tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_GROUPS] WHERE ([GUID] = @Original_GUID) AND (@IsNull_NAME = 1 A"& _ "ND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([ECM_FK_ID] = @Original_EC"& _ "M_FK_ID) AND ([AD_SYNC] = @Original_AD_SYNC) AND ([INTERNAL] = @Original_INTERNA"& _ "L) AND ([ACTIVE] = @Original_ACTIVE) AND (@IsNull_COMMENT = 1 AND [COMMENT] IS N"& _ "ULL) OR ([COMMENT] = @Original_COMMENT)) AND (@IsNull_ADDED_WHO = 1 AND [ADDED_W"& _ "HO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND (@IsNull_ADDED_WHEN = 1"& _ " AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@IsNul"& _ "l_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANG"& _ "ED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_"& _ "WHEN] = @Original_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ECM_FK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ECM_FK_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AD_SYNC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AD_SYNC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INTERNAL", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_GROUPS] ([NAME], [ECM_FK_ID], [AD_SYNC], [INTERNAL], [ACTIVE], "& _ "[COMMENT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]) VALUES (@NA"& _ "ME, @ECM_FK_ID, @AD_SYNC, @INTERNAL, @ACTIVE, @COMMENT, @ADDED_WHO, @ADDED_WHEN,"& _ " @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL,"& _ " ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GRO"& _ "UPS WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ECM_FK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ECM_FK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AD_SYNC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AD_SYNC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERNAL", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_GROUPS] SET [NAME] = @NAME, [ECM_FK_ID] = @ECM_FK_ID, [AD_SYNC] = @A"& _ "D_SYNC, [INTERNAL] = @INTERNAL, [ACTIVE] = @ACTIVE, [COMMENT] = @COMMENT, [ADDED"& _ "_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [C"& _ "HANGED_WHEN] = @CHANGED_WHEN WHERE ([GUID] = @Original_GUID) AND (@IsNull_NAME ="& _ " 1 AND [NAME] IS NULL) OR ([NAME] = @Original_NAME)) AND ([ECM_FK_ID] = @Origina"& _ "l_ECM_FK_ID) AND ([AD_SYNC] = @Original_AD_SYNC) AND ([INTERNAL] = @Original_INT"& _ "ERNAL) AND ([ACTIVE] = @Original_ACTIVE) AND (@IsNull_COMMENT = 1 AND [COMMENT] "& _ "IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND (@IsNull_ADDED_WHO = 1 AND [ADD"& _ "ED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND (@IsNull_ADDED_WHEN"& _ " = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND (@I"& _ "sNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_C"& _ "HANGED_WHO)) AND (@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHAN"& _ "GED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, I"& _ "NTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM "& _ "TBDD_GROUPS WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ECM_FK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ECM_FK_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AD_SYNC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AD_SYNC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERNAL", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ECM_FK_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ECM_FK_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AD_SYNC", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AD_SYNC", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_INTERNAL", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WH"& _ "O, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBDD_GROUPSDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBDD_GROUPSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBDD_GROUPSDataTable = New DD_ECMAdmin.TBDD_GROUPSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBDD_GROUPSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBDD_GROUPS") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_NAME As String, ByVal Original_ECM_FK_ID As Integer, ByVal Original_AD_SYNC As Boolean, ByVal Original_INTERNAL As Boolean, ByVal Original_ACTIVE As Boolean, ByVal Original_COMMENT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) If (Original_NAME Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_NAME,String) End If Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ECM_FK_ID,Integer) Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_AD_SYNC,Boolean) Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_INTERNAL,Boolean) Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ACTIVE,Boolean) If (Original_COMMENT Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_COMMENT,String) End If If (Original_ADDED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal ECM_FK_ID As Integer, ByVal AD_SYNC As Boolean, ByVal INTERNAL As Boolean, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer If (NAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) End If Me.Adapter.InsertCommand.Parameters(1).Value = CType(ECM_FK_ID,Integer) Me.Adapter.InsertCommand.Parameters(2).Value = CType(AD_SYNC,Boolean) Me.Adapter.InsertCommand.Parameters(3).Value = CType(INTERNAL,Boolean) Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(COMMENT,String) End If If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal NAME As String, _ ByVal ECM_FK_ID As Integer, _ ByVal AD_SYNC As Boolean, _ ByVal INTERNAL As Boolean, _ ByVal ACTIVE As Boolean, _ ByVal COMMENT As String, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Integer, _ ByVal Original_NAME As String, _ ByVal Original_ECM_FK_ID As Integer, _ ByVal Original_AD_SYNC As Boolean, _ ByVal Original_INTERNAL As Boolean, _ ByVal Original_ACTIVE As Boolean, _ ByVal Original_COMMENT As String, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal GUID As Integer) As Integer If (NAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) End If Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ECM_FK_ID,Integer) Me.Adapter.UpdateCommand.Parameters(2).Value = CType(AD_SYNC,Boolean) Me.Adapter.UpdateCommand.Parameters(3).Value = CType(INTERNAL,Boolean) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) If (COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(COMMENT,String) End If If (ADDED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Integer) If (Original_NAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_NAME,String) End If Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_ECM_FK_ID,Integer) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_AD_SYNC,Boolean) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_INTERNAL,Boolean) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ACTIVE,Boolean) If (Original_COMMENT Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_COMMENT,String) End If If (Original_ADDED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(27).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal NAME As String, _ ByVal ECM_FK_ID As Integer, _ ByVal AD_SYNC As Boolean, _ ByVal INTERNAL As Boolean, _ ByVal ACTIVE As Boolean, _ ByVal COMMENT As String, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Integer, _ ByVal Original_NAME As String, _ ByVal Original_ECM_FK_ID As Integer, _ ByVal Original_AD_SYNC As Boolean, _ ByVal Original_INTERNAL As Boolean, _ ByVal Original_ACTIVE As Boolean, _ ByVal Original_COMMENT As String, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Return Me.Update(NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_NAME, Original_ECM_FK_ID, Original_AD_SYNC, Original_INTERNAL, Original_ACTIVE, Original_COMMENT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class VWPMO_RIGHT_GROUPTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "VWPMO_RIGHT_GROUP" tableMapping.ColumnMappings.Add("ID", "ID") tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") tableMapping.ColumnMappings.Add("ENTITY_NAME", "ENTITY_NAME") tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") tableMapping.ColumnMappings.Add("GROUP_NAME", "GROUP_NAME") tableMapping.ColumnMappings.Add("EDIT_REC", "EDIT_REC") tableMapping.ColumnMappings.Add("ADD_REC", "ADD_REC") tableMapping.ColumnMappings.Add("DELETE_REC", "DELETE_REC") tableMapping.ColumnMappings.Add("ADD_DOC", "ADD_DOC") tableMapping.ColumnMappings.Add("VIEW_DOC", "VIEW_DOC") tableMapping.ColumnMappings.Add("DELETE_DOC", "DELETE_DOC") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Record_Organizer.My.MySettings.Default.DD_DMSConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT * FROM VWPMO_RIGHT_GROUP" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.VWPMO_RIGHT_GROUPDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As DD_ECMAdmin.VWPMO_RIGHT_GROUPDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.VWPMO_RIGHT_GROUPDataTable = New DD_ECMAdmin.VWPMO_RIGHT_GROUPDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' _ Partial Public Class TableAdapterManager Inherits Global.System.ComponentModel.Component Private _updateOrder As UpdateOrderOption Private _tBPMO_FORM_CONSTRUCTORTableAdapter As TBPMO_FORM_CONSTRUCTORTableAdapter Private _tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter Private _tBDD_CONNECTIONTableAdapter As TBDD_CONNECTIONTableAdapter Private _tBPMO_SAP_FUBATableAdapter As TBPMO_SAP_FUBATableAdapter Private _tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter As TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter Private _tBPMO_LOG_ESSENTIALSTableAdapter As TBPMO_LOG_ESSENTIALSTableAdapter Private _tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter As TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter Private _tBDD_GROUPSTableAdapter As TBDD_GROUPSTableAdapter Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder End Get Set Me._updateOrder = value End Set End Property _ Public Property TBPMO_FORM_CONSTRUCTORTableAdapter() As TBPMO_FORM_CONSTRUCTORTableAdapter Get Return Me._tBPMO_FORM_CONSTRUCTORTableAdapter End Get Set Me._tBPMO_FORM_CONSTRUCTORTableAdapter = value End Set End Property _ Public Property TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter() As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter Get Return Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter End Get Set Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = value End Set End Property _ Public Property TBDD_CONNECTIONTableAdapter() As TBDD_CONNECTIONTableAdapter Get Return Me._tBDD_CONNECTIONTableAdapter End Get Set Me._tBDD_CONNECTIONTableAdapter = value End Set End Property _ Public Property TBPMO_SAP_FUBATableAdapter() As TBPMO_SAP_FUBATableAdapter Get Return Me._tBPMO_SAP_FUBATableAdapter End Get Set Me._tBPMO_SAP_FUBATableAdapter = value End Set End Property _ Public Property TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter Get Return Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter End Get Set Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter = value End Set End Property _ Public Property TBPMO_LOG_ESSENTIALSTableAdapter() As TBPMO_LOG_ESSENTIALSTableAdapter Get Return Me._tBPMO_LOG_ESSENTIALSTableAdapter End Get Set Me._tBPMO_LOG_ESSENTIALSTableAdapter = value End Set End Property _ Public Property TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter() As TBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter Get Return Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter End Get Set Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter = value End Set End Property _ Public Property TBDD_GROUPSTableAdapter() As TBDD_GROUPSTableAdapter Get Return Me._tBDD_GROUPSTableAdapter End Get Set Me._tBDD_GROUPSTableAdapter = value End Set End Property _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get Set Me._backupDataSetBeforeUpdate = value End Set End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get If (Not (Me._connection) Is Nothing) Then Return Me._connection End If If ((Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection End If If ((Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection End If If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_CONNECTIONTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_CONNECTIONTableAdapter.Connection End If If ((Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_SAP_FUBATableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_SAP_FUBATableAdapter.Connection End If If ((Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Connection End If If ((Not (Me._tBPMO_LOG_ESSENTIALSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_LOG_ESSENTIALSTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_LOG_ESSENTIALSTableAdapter.Connection End If If ((Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Connection End If If ((Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_GROUPSTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_GROUPSTableAdapter.Connection End If Return Nothing End Get Set Me._connection = value End Set End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_LOG_ESSENTIALSTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then count = (count + 1) End If Return count End Get End Property ''' '''Update rows in top-down order. ''' _ Private Function UpdateUpdatedRows(ByVal dataSet As DD_ECMAdmin, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCRESULT_DROPDOWN_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_LOG_ESSENTIALSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LOG_ESSENTIALS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_LOG_ESSENTIALSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_SAP_FUBA.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_SAP_FUBATableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBDD_GROUPSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If Return result End Function ''' '''Insert rows in top-down order. ''' _ Private Function UpdateInsertedRows(ByVal dataSet As DD_ECMAdmin, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCRESULT_DROPDOWN_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_LOG_ESSENTIALSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LOG_ESSENTIALS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_LOG_ESSENTIALSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_SAP_FUBA.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_SAP_FUBATableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_GROUPSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If Return result End Function ''' '''Delete rows in bottom-up order. ''' _ Private Function UpdateDeletedRows(ByVal dataSet As DD_ECMAdmin, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_GROUPSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_SAP_FUBA.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_SAP_FUBATableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_LOG_ESSENTIALSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LOG_ESSENTIALS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_LOG_ESSENTIALSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCRESULT_DROPDOWN_ITEMS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_DOCSEARCH_RESULTLIST_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If Return result End Function ''' '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then Return updatedRows End If If ((allAddedRows Is Nothing) _ OrElse (allAddedRows.Count < 1)) Then Return updatedRows End If Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim i As Integer = 0 Do While (i < updatedRows.Length) Dim row As Global.System.Data.DataRow = updatedRows(i) If (allAddedRows.Contains(row) = false) Then realUpdatedRows.Add(row) End If i = (i + 1) Loop Return realUpdatedRows.ToArray End Function ''' '''Update all changes to the dataset. ''' _ Public Overridable Function UpdateAll(ByVal dataSet As DD_ECMAdmin) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") End If If (dataSet.HasChanges = false) Then Return 0 End If If ((Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_CONNECTIONTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_SAP_FUBATableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_LOG_ESSENTIALSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_LOG_ESSENTIALSTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_GROUPSTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ "t.") End If Dim workConnOpened As Boolean = false If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ = Global.System.Data.ConnectionState.Broken) Then workConnection.Close End If If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then workConnection.Open workConnOpened = true End If Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction If (workTransaction Is Nothing) Then Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ "ion nicht zu.") End If Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() Dim result As Integer = 0 Dim backupDataSet As Global.System.Data.DataSet = Nothing If Me.BackupDataSetBeforeUpdate Then backupDataSet = New Global.System.Data.DataSet() backupDataSet.Merge(dataSet) End If Try '---- Prepare for update ----------- ' If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_FORM_CONSTRUCTORTableAdapter, Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter, Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter) End If End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_CONNECTIONTableAdapter, Me._tBDD_CONNECTIONTableAdapter.Connection) Me._tBDD_CONNECTIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBDD_CONNECTIONTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_CONNECTIONTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_SAP_FUBATableAdapter, Me._tBPMO_SAP_FUBATableAdapter.Connection) Me._tBPMO_SAP_FUBATableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_SAP_FUBATableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_SAP_FUBATableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_SAP_FUBATableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_SAP_FUBATableAdapter.Adapter) End If End If If (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter, Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Connection) Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_LOG_ESSENTIALSTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_LOG_ESSENTIALSTableAdapter, Me._tBPMO_LOG_ESSENTIALSTableAdapter.Connection) Me._tBPMO_LOG_ESSENTIALSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_LOG_ESSENTIALSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_LOG_ESSENTIALSTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_LOG_ESSENTIALSTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_LOG_ESSENTIALSTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter, Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Connection) Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Adapter) End If End If If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_GROUPSTableAdapter, Me._tBDD_GROUPSTableAdapter.Connection) Me._tBDD_GROUPSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBDD_GROUPSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBDD_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBDD_GROUPSTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_GROUPSTableAdapter.Adapter) End If End If ' '---- Perform updates ----------- ' If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) Else result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) End If result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) ' '---- Commit updates ----------- ' workTransaction.Commit If (0 < allAddedRows.Count) Then Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow allAddedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) row.AcceptChanges i = (i + 1) Loop End If If (0 < allChangedRows.Count) Then Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow allChangedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) row.AcceptChanges i = (i + 1) Loop End If Catch ex As Global.System.Exception workTransaction.Rollback '---- Restore the dataset ----------- If Me.BackupDataSetBeforeUpdate Then Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) dataSet.Clear dataSet.Merge(backupDataSet) Else If (0 < allAddedRows.Count) Then Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow allAddedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) row.AcceptChanges row.SetAdded i = (i + 1) Loop End If End If Throw ex Finally If workConnOpened Then workConnection.Close End If If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTORTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = Nothing End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Me._tBDD_CONNECTIONTableAdapter.Connection = CType(revertConnections(Me._tBDD_CONNECTIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_CONNECTIONTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_SAP_FUBATableAdapter) Is Nothing) Then Me._tBPMO_SAP_FUBATableAdapter.Connection = CType(revertConnections(Me._tBPMO_SAP_FUBATableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_SAP_FUBATableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter) Is Nothing) Then Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Connection = CType(revertConnections(Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_DOCSEARCH_RESULTLIST_CONFIGTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_LOG_ESSENTIALSTableAdapter) Is Nothing) Then Me._tBPMO_LOG_ESSENTIALSTableAdapter.Connection = CType(revertConnections(Me._tBPMO_LOG_ESSENTIALSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_LOG_ESSENTIALSTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter) Is Nothing) Then Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Connection = CType(revertConnections(Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_DOCRESULT_DROPDOWN_ITEMSTableAdapter.Transaction = Nothing End If If (Not (Me._tBDD_GROUPSTableAdapter) Is Nothing) Then Me._tBDD_GROUPSTableAdapter.Connection = CType(revertConnections(Me._tBDD_GROUPSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_GROUPSTableAdapter.Transaction = Nothing End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) Dim i As Integer = 0 Do While (i < adapters.Length) Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) adapter.AcceptChangesDuringUpdate = true i = (i + 1) Loop End If End Try Return result End Function _ Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) End Sub _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then Return true End If If ((Me.Connection Is Nothing) _ OrElse (inputConnection Is Nothing)) Then Return true End If If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then Return true End If Return false End Function ''' '''Update Order Option ''' _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 UpdateInsertDelete = 1 End Enum ''' '''Used to sort self-referenced table's rows ''' _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) Private _relation As Global.System.Data.DataRelation Private _childFirst As Integer _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation If childFirst Then Me._childFirst = -1 Else Me._childFirst = 1 End If End Sub _ Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row distance = 0 Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() traversedRows(row) = row Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) Do While ((Not (parent) Is Nothing) _ AndAlso (traversedRows.ContainsKey(parent) = false)) distance = (distance + 1) root = parent traversedRows(parent) = parent parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) Loop If (distance = 0) Then traversedRows.Clear traversedRows(row) = row parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) Do While ((Not (parent) Is Nothing) _ AndAlso (traversedRows.ContainsKey(parent) = false)) distance = (distance + 1) root = parent traversedRows(parent) = parent parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) Loop End If Return root End Function _ Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare If Object.ReferenceEquals(row1, row2) Then Return 0 End If If (row1 Is Nothing) Then Return -1 End If If (row2 Is Nothing) Then Return 1 End If Dim distance1 As Integer = 0 Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) Dim distance2 As Integer = 0 Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) If Object.ReferenceEquals(root1, root2) Then Return (Me._childFirst * distance1.CompareTo(distance2)) Else Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ AndAlso (Not (root2.Table) Is Nothing))) If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then Return -1 Else Return 1 End If End If End Function End Class End Class End Namespace