RecordOrganizer/app/DD-Record-Organizer/DD_ECMAdmin.Designer.vb

18529 lines
1.1 MiB

'------------------------------------------------------------------------------
' <auto-generated>
' 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.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
'''<summary>
'''Represents a strongly typed in-memory cache of data.
'''</summary>
<Global.System.Serializable(), _
Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedDataSetSchema"), _
Global.System.Xml.Serialization.XmlRootAttribute("DD_ECMAdmin"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR() As TBPMO_FORM_CONSTRUCTORDataTable
Get
Return Me.tableTBPMO_FORM_CONSTRUCTOR
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR_DETAIL() As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable
Get
Return Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable
Get
Return Me.tableTBDD_CONNECTION
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property VWTEMPQUICKVIEW() As VWTEMPQUICKVIEWDataTable
Get
Return Me.tableVWTEMPQUICKVIEW
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBWH_ENTITIES() As TBWH_ENTITIESDataTable
Get
Return Me.tableTBWH_ENTITIES
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBWH_USER_GROUPS() As TBWH_USER_GROUPSDataTable
Get
Return Me.tableTBWH_USER_GROUPS
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBPMO_SAP_FUBA() As TBPMO_SAP_FUBADataTable
Get
Return Me.tableTBPMO_SAP_FUBA
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property USER_RIGHTS() As USER_RIGHTSDataTable
Get
Return Me.tableUSER_RIGHTS
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBPMO_DOCSEARCH_RESULTLIST_CONFIG() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable
Get
Return Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property VWDD_LOGIN_USER_HISTORY() As VWDD_LOGIN_USER_HISTORYDataTable
Get
Return Me.tableVWDD_LOGIN_USER_HISTORY
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBPMO_LOG_ESSENTIALS() As TBPMO_LOG_ESSENTIALSDataTable
Get
Return Me.tableTBPMO_LOG_ESSENTIALS
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBPMO_DOCRESULT_DROPDOWN_ITEMS() As TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable
Get
Return Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBDD_GROUPS() As TBDD_GROUPSDataTable
Get
Return Me.tableTBDD_GROUPS
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property VWPMO_RIGHT_GROUP() As VWPMO_RIGHT_GROUPDataTable
Get
Return Me.tableVWPMO_RIGHT_GROUP
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property DT_VORSCHAU() As DT_VORSCHAUDataTable
Get
Return Me.tableDT_VORSCHAU
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBAD_Users() As TBAD_UsersDataTable
Get
Return Me.tableTBAD_Users
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBWH_Users1() As TBWH_Users1DataTable
Get
Return Me.tableTBWH_Users1
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBWH_Users2() As TBWH_Users2DataTable
Get
Return Me.tableTBWH_Users2
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.BrowsableAttribute(true), _
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
Get
Return Me._schemaSerializationMode
End Get
Set
Me._schemaSerializationMode = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
Get
Return MyBase.Tables
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
Get
Return MyBase.Relations
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Sub InitializeDerivedDataSet()
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function ShouldSerializeTables() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function ShouldSerializeRelations() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Friend Overloads Sub InitVars()
Me.InitVars(true)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR_DETAIL() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeTBDD_CONNECTION() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeVWTEMPQUICKVIEW() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeTBWH_ENTITIES() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeTBWH_USER_GROUPS() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeTBPMO_SAP_FUBA() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeUSER_RIGHTS() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeTBPMO_DOCSEARCH_RESULTLIST_CONFIG() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeVWDD_LOGIN_USER_HISTORY() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeTBPMO_LOG_ESSENTIALS() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeTBPMO_DOCRESULT_DROPDOWN_ITEMS() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeTBDD_GROUPS() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeVWPMO_RIGHT_GROUP() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeDT_VORSCHAU() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeTBAD_Users() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeTBWH_Users1() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Private Function ShouldSerializeTBWH_Users2() As Boolean
Return false
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub TBPMO_FORM_CONSTRUCTORRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTORRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub VWTEMPQUICKVIEWRowChangeEventHandler(ByVal sender As Object, ByVal e As VWTEMPQUICKVIEWRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub TBWH_ENTITIESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_ENTITIESRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub TBWH_USER_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_USER_GROUPSRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub TBPMO_SAP_FUBARowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_SAP_FUBARowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub USER_RIGHTSRowChangeEventHandler(ByVal sender As Object, ByVal e As USER_RIGHTSRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub VWDD_LOGIN_USER_HISTORYRowChangeEventHandler(ByVal sender As Object, ByVal e As VWDD_LOGIN_USER_HISTORYRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub TBPMO_LOG_ESSENTIALSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_LOG_ESSENTIALSRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub TBDD_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_GROUPSRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub VWPMO_RIGHT_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_RIGHT_GROUPRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub DT_VORSCHAURowChangeEventHandler(ByVal sender As Object, ByVal e As DT_VORSCHAURowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub TBAD_UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As TBAD_UsersRowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub TBWH_Users1RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_Users1RowChangeEvent)
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Delegate Sub TBWH_Users2RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_Users2RowChangeEvent)
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBPMO_FORM_CONSTRUCTOR"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFORM_TITLE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SEQUENCE_MENUColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSEQUENCE_MENU
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHO
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHO
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property MENU_IMGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnMENU_IMG
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SHORT_TITLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSHORT_TITLE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLANGUAGE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property NODE_NAVIGATIONColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNODE_NAVIGATION
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_FORM_CONSTRUCTORRowChanging As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_FORM_CONSTRUCTORRowChanged As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_FORM_CONSTRUCTORRowDeleting As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_FORM_CONSTRUCTORRowDeleted As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTORRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTORRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBPMO_FORM_CONSTRUCTORDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function NewTBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow
Return CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBPMO_FORM_CONSTRUCTORRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBPMO_FORM_CONSTRUCTORRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBPMO_FORM_CONSTRUCTOR_DETAIL"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CONSTRUCT_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCONSTRUCT_ID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFORM_ID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPARENT_ID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property LEVEL1_SELECTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLEVEL1_SELECT
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSEQUENCE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SQL_SELECT_EBENE1Column() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_SELECT_EBENE1
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SQL_SELECT_EBENE2Column() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_SELECT_EBENE2
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHO
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHO
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property COLUMN_NAME1Column() As Global.System.Data.DataColumn
Get
Return Me.columnCOLUMN_NAME1
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property COLUMN_NAME2Column() As Global.System.Data.DataColumn
Get
Return Me.columnCOLUMN_NAME2
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property LOAD_DIRECTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLOAD_DIRECT
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SQL_QUICK_VIEWColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_QUICK_VIEW
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CONTROL_DOCTYPE_MATCHColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCONTROL_DOCTYPE_MATCH
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SQL_RIGHT_WINDREAM_VIEWColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_RIGHT_WINDREAM_VIEW
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADD_RECORDSColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADD_RECORDS
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function NewTBPMO_FORM_CONSTRUCTOR_DETAILRow() As TBPMO_FORM_CONSTRUCTOR_DETAILRow
Return CType(Me.NewRow,TBPMO_FORM_CONSTRUCTOR_DETAILRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBPMO_FORM_CONSTRUCTOR_DETAILRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBDD_CONNECTION"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBEZEICHNUNG
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_PROVIDER
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSERVER
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDATENBANK
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUSERNAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPASSWORD
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnBEMERKUNG
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn
Get
Return Me.columnAKTIV
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn
Get
Return Me.columnERSTELLTWER
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn
Get
Return Me.columnERSTELLTWANN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGEANDERTWER
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGEAENDERTWANN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CONNECTIONRow
Get
Return CType(Me.Rows(index),TBDD_CONNECTIONRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBDD_CONNECTIONRowChanging As TBDD_CONNECTIONRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBDD_CONNECTIONRowChanged As TBDD_CONNECTIONRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBDD_CONNECTIONRowDeleting As TBDD_CONNECTIONRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBDD_CONNECTIONRowDeleted As TBDD_CONNECTIONRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function FindByGUID(ByVal GUID As Short) As TBDD_CONNECTIONRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CONNECTIONRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBDD_CONNECTIONDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function NewTBDD_CONNECTIONRow() As TBDD_CONNECTIONRow
Return CType(Me.NewRow,TBDD_CONNECTIONRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBDD_CONNECTIONRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBDD_CONNECTIONRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "VWTEMPQUICKVIEW"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property _Record_IDColumn() As Global.System.Data.DataColumn
Get
Return Me._columnRecord_ID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property AktenzeichenColumn() As Global.System.Data.DataColumn
Get
Return Me.columnAktenzeichen
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property _Wiedergabe_der_Marke__Bild_Column() As Global.System.Data.DataColumn
Get
Return Me._columnWiedergabe_der_Marke__Bild_
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property AktenzustandColumn() As Global.System.Data.DataColumn
Get
Return Me.columnAktenzustand
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As VWTEMPQUICKVIEWRow
Get
Return CType(Me.Rows(index),VWTEMPQUICKVIEWRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event VWTEMPQUICKVIEWRowChanging As VWTEMPQUICKVIEWRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event VWTEMPQUICKVIEWRowChanged As VWTEMPQUICKVIEWRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event VWTEMPQUICKVIEWRowDeleting As VWTEMPQUICKVIEWRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event VWTEMPQUICKVIEWRowDeleted As VWTEMPQUICKVIEWRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddVWTEMPQUICKVIEWRow(ByVal row As VWTEMPQUICKVIEWRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function FindBy_Record_ID(ByVal _Record_ID As Integer) As VWTEMPQUICKVIEWRow
Return CType(Me.Rows.Find(New Object() {_Record_ID}),VWTEMPQUICKVIEWRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As VWTEMPQUICKVIEWDataTable = CType(MyBase.Clone,VWTEMPQUICKVIEWDataTable)
cln.InitVars
Return cln
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New VWTEMPQUICKVIEWDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function NewVWTEMPQUICKVIEWRow() As VWTEMPQUICKVIEWRow
Return CType(Me.NewRow,VWTEMPQUICKVIEWRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New VWTEMPQUICKVIEWRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(VWTEMPQUICKVIEWRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveVWTEMPQUICKVIEWRow(ByVal row As VWTEMPQUICKVIEWRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBWH_ENTITIES"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFORM_TITLE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CAPTIONColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCAPTION
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_ENTITIESRow
Get
Return CType(Me.Rows(index),TBWH_ENTITIESRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBWH_ENTITIESRowChanging As TBWH_ENTITIESRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBWH_ENTITIESRowChanged As TBWH_ENTITIESRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBWH_ENTITIESRowDeleting As TBWH_ENTITIESRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBWH_ENTITIESRowDeleted As TBWH_ENTITIESRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddTBWH_ENTITIESRow(ByVal row As TBWH_ENTITIESRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function FindByGUID(ByVal GUID As Integer) As TBWH_ENTITIESRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_ENTITIESRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBWH_ENTITIESDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE")
Me.columnCAPTION = MyBase.Columns("CAPTION")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function NewTBWH_ENTITIESRow() As TBWH_ENTITIESRow
Return CType(Me.NewRow,TBWH_ENTITIESRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBWH_ENTITIESRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBWH_ENTITIESRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveTBWH_ENTITIESRow(ByVal row As TBWH_ENTITIESRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBWH_USER_GROUPS"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBWH_USER_GROUPSRowChanging As TBWH_USER_GROUPSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBWH_USER_GROUPSRowChanged As TBWH_USER_GROUPSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBWH_USER_GROUPSRowDeleting As TBWH_USER_GROUPSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBWH_USER_GROUPSRowDeleted As TBWH_USER_GROUPSRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddTBWH_USER_GROUPSRow(ByVal row As TBWH_USER_GROUPSRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function FindByGUID(ByVal GUID As Integer) As TBWH_USER_GROUPSRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_USER_GROUPSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBWH_USER_GROUPSDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Friend Sub InitVars()
Me.columnGUID = MyBase.Columns("GUID")
Me.columnNAME = MyBase.Columns("NAME")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function NewTBWH_USER_GROUPSRow() As TBWH_USER_GROUPSRow
Return CType(Me.NewRow,TBWH_USER_GROUPSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBWH_USER_GROUPSRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBWH_USER_GROUPSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveTBWH_USER_GROUPSRow(ByVal row As TBWH_USER_GROUPSRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBPMO_SAP_FUBA"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOMMENT
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property TableNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTableName
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property HostColumn() As Global.System.Data.DataColumn
Get
Return Me.columnHost
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SystemNumberColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSystemNumber
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property UserNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUserName
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property PasswordColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPassword
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ClientColumn() As Global.System.Data.DataColumn
Get
Return Me.columnClient
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property LanguageColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLanguage
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property TempTableNameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTempTableName
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnACTIVE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHO
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHO
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property WHERE_CLAUSEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnWHERE_CLAUSE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property MethodColumn() As Global.System.Data.DataColumn
Get
Return Me.columnMethod
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property FuBa_SplitCharacterColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFuBa_SplitCharacter
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_SAP_FUBARowChanging As TBPMO_SAP_FUBARowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_SAP_FUBARowChanged As TBPMO_SAP_FUBARowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_SAP_FUBARowDeleting As TBPMO_SAP_FUBARowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_SAP_FUBARowDeleted As TBPMO_SAP_FUBARowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddTBPMO_SAP_FUBARow(ByVal row As TBPMO_SAP_FUBARow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_SAP_FUBARow
Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_SAP_FUBARow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBPMO_SAP_FUBADataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function NewTBPMO_SAP_FUBARow() As TBPMO_SAP_FUBARow
Return CType(Me.NewRow,TBPMO_SAP_FUBARow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBPMO_SAP_FUBARow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBPMO_SAP_FUBARow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveTBPMO_SAP_FUBARow(ByVal row As TBPMO_SAP_FUBARow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "USER_RIGHTS"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFORM_TITLE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUSERNAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPRENAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property EDIT_RECColumn() As Global.System.Data.DataColumn
Get
Return Me.columnEDIT_REC
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADD_RECColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADD_REC
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property DELETE_RECColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDELETE_REC
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADD_DOCColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADD_DOC
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property READ_ONLY_DOCColumn() As Global.System.Data.DataColumn
Get
Return Me.columnREAD_ONLY_DOC
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property DELETE_DOCColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDELETE_DOC
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property FILES_VISIBLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnFILES_VISIBLE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As USER_RIGHTSRow
Get
Return CType(Me.Rows(index),USER_RIGHTSRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event USER_RIGHTSRowChanging As USER_RIGHTSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event USER_RIGHTSRowChanged As USER_RIGHTSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event USER_RIGHTSRowDeleting As USER_RIGHTSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event USER_RIGHTSRowDeleted As USER_RIGHTSRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddUSER_RIGHTSRow(ByVal row As USER_RIGHTSRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function FindByGUID(ByVal GUID As Integer) As USER_RIGHTSRow
Return CType(Me.Rows.Find(New Object() {GUID}),USER_RIGHTSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New USER_RIGHTSDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function NewUSER_RIGHTSRow() As USER_RIGHTSRow
Return CType(Me.NewRow,USER_RIGHTSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New USER_RIGHTSRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(USER_RIGHTSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveUSER_RIGHTSRow(ByVal row As USER_RIGHTSRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBPMO_DOCSEARCH_RESULTLIST_CONFIG"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnENTITY_ID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLANGUAGE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property COLUMN_VIEWColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOLUMN_VIEW
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property HEADER_CAPTIONColumn() As Global.System.Data.DataColumn
Get
Return Me.columnHEADER_CAPTION
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property WIDTHColumn() As Global.System.Data.DataColumn
Get
Return Me.columnWIDTH
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property TYPE_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnTYPE_ID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHO
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHO
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property VISIBLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnVISIBLE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property EDITABLEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnEDITABLE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CONFIG_COLUMNSColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCONFIG_COLUMNS
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSEQUENCE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanging As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChanged As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleting As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowDeleted As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function NewTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow
Return CType(Me.NewRow,TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveTBPMO_DOCSEARCH_RESULTLIST_CONFIGRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "VWDD_LOGIN_USER_HISTORY"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property MODULEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnMODULE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUSERNAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPRENAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUSER_ID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CLIENT_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCLIENT_ID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CLIENT_NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCLIENT_NAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property LOGINColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLOGIN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property LOGOUTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnLOGOUT
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property VERSION_CLIENTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnVERSION_CLIENT
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property MACHINE_NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnMACHINE_NAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event VWDD_LOGIN_USER_HISTORYRowChanging As VWDD_LOGIN_USER_HISTORYRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event VWDD_LOGIN_USER_HISTORYRowChanged As VWDD_LOGIN_USER_HISTORYRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event VWDD_LOGIN_USER_HISTORYRowDeleting As VWDD_LOGIN_USER_HISTORYRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event VWDD_LOGIN_USER_HISTORYRowDeleted As VWDD_LOGIN_USER_HISTORYRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddVWDD_LOGIN_USER_HISTORYRow(ByVal row As VWDD_LOGIN_USER_HISTORYRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New VWDD_LOGIN_USER_HISTORYDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function NewVWDD_LOGIN_USER_HISTORYRow() As VWDD_LOGIN_USER_HISTORYRow
Return CType(Me.NewRow,VWDD_LOGIN_USER_HISTORYRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(VWDD_LOGIN_USER_HISTORYRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveVWDD_LOGIN_USER_HISTORYRow(ByVal row As VWDD_LOGIN_USER_HISTORYRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property NameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnName
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanging As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChanged As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleting As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowDeleted As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Friend Sub InitVars()
Me.columnName = MyBase.Columns("Name")
Me.columnID = MyBase.Columns("ID")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow(ByVal row As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBPMO_LOG_ESSENTIALS"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property REFERENCE_KEYColumn() As Global.System.Data.DataColumn
Get
Return Me.columnREFERENCE_KEY
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property REFERENCE_STRINGColumn() As Global.System.Data.DataColumn
Get
Return Me.columnREFERENCE_STRING
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOMMENT
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHO
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SelectionColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSelection
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_LOG_ESSENTIALSRowChanging As TBPMO_LOG_ESSENTIALSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_LOG_ESSENTIALSRowChanged As TBPMO_LOG_ESSENTIALSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_LOG_ESSENTIALSRowDeleting As TBPMO_LOG_ESSENTIALSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_LOG_ESSENTIALSRowDeleted As TBPMO_LOG_ESSENTIALSRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddTBPMO_LOG_ESSENTIALSRow(ByVal row As TBPMO_LOG_ESSENTIALSRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_LOG_ESSENTIALSRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_LOG_ESSENTIALSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBPMO_LOG_ESSENTIALSDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function NewTBPMO_LOG_ESSENTIALSRow() As TBPMO_LOG_ESSENTIALSRow
Return CType(Me.NewRow,TBPMO_LOG_ESSENTIALSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBPMO_LOG_ESSENTIALSRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBPMO_LOG_ESSENTIALSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveTBPMO_LOG_ESSENTIALSRow(ByVal row As TBPMO_LOG_ESSENTIALSRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBPMO_DOCRESULT_DROPDOWN_ITEMS"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CONFIG_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCONFIG_ID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnVALUE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSEQUENCE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property DEFAULTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDEFAULT
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOLOR
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHO
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHO
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChanging As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChanged As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeleting As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBPMO_DOCRESULT_DROPDOWN_ITEMSRowDeleted As TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddTBPMO_DOCRESULT_DROPDOWN_ITEMSRow(ByVal row As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function NewTBPMO_DOCRESULT_DROPDOWN_ITEMSRow() As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow
Return CType(Me.NewRow,TBPMO_DOCRESULT_DROPDOWN_ITEMSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBPMO_DOCRESULT_DROPDOWN_ITEMSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveTBPMO_DOCRESULT_DROPDOWN_ITEMSRow(ByVal row As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBDD_GROUPS"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGUID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnNAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ECM_FK_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnECM_FK_ID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property AD_SYNCColumn() As Global.System.Data.DataColumn
Get
Return Me.columnAD_SYNC
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property INTERNALColumn() As Global.System.Data.DataColumn
Get
Return Me.columnINTERNAL
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnACTIVE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCOMMENT
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHO
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHO
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPSRow
Get
Return CType(Me.Rows(index),TBDD_GROUPSRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBDD_GROUPSRowChanging As TBDD_GROUPSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBDD_GROUPSRowChanged As TBDD_GROUPSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBDD_GROUPSRowDeleting As TBDD_GROUPSRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBDD_GROUPSRowDeleted As TBDD_GROUPSRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPSRow
Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBDD_GROUPSDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function NewTBDD_GROUPSRow() As TBDD_GROUPSRow
Return CType(Me.NewRow,TBDD_GROUPSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBDD_GROUPSRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBDD_GROUPSRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "VWPMO_RIGHT_GROUP"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnENTITY_ID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ENTITY_NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnENTITY_NAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGROUP_ID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property GROUP_NAMEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnGROUP_NAME
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property EDIT_RECColumn() As Global.System.Data.DataColumn
Get
Return Me.columnEDIT_REC
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADD_RECColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADD_REC
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property DELETE_RECColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDELETE_REC
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADD_DOCColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADD_DOC
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property VIEW_DOCColumn() As Global.System.Data.DataColumn
Get
Return Me.columnVIEW_DOC
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property DELETE_DOCColumn() As Global.System.Data.DataColumn
Get
Return Me.columnDELETE_DOC
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHO
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnADDED_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHO
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn
Get
Return Me.columnCHANGED_WHEN
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event VWPMO_RIGHT_GROUPRowChanging As VWPMO_RIGHT_GROUPRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event VWPMO_RIGHT_GROUPRowChanged As VWPMO_RIGHT_GROUPRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event VWPMO_RIGHT_GROUPRowDeleting As VWPMO_RIGHT_GROUPRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event VWPMO_RIGHT_GROUPRowDeleted As VWPMO_RIGHT_GROUPRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddVWPMO_RIGHT_GROUPRow(ByVal row As VWPMO_RIGHT_GROUPRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New VWPMO_RIGHT_GROUPDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function NewVWPMO_RIGHT_GROUPRow() As VWPMO_RIGHT_GROUPRow
Return CType(Me.NewRow,VWPMO_RIGHT_GROUPRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New VWPMO_RIGHT_GROUPRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(VWPMO_RIGHT_GROUPRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveVWPMO_RIGHT_GROUPRow(ByVal row As VWPMO_RIGHT_GROUPRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class DT_VORSCHAUDataTable
Inherits Global.System.Data.TypedTableBase(Of DT_VORSCHAURow)
Private columnVALUE As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "DT_VORSCHAU"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnVALUE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As DT_VORSCHAURow
Get
Return CType(Me.Rows(index),DT_VORSCHAURow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event DT_VORSCHAURowChanging As DT_VORSCHAURowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event DT_VORSCHAURowChanged As DT_VORSCHAURowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event DT_VORSCHAURowDeleting As DT_VORSCHAURowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event DT_VORSCHAURowDeleted As DT_VORSCHAURowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddDT_VORSCHAURow(ByVal row As DT_VORSCHAURow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New DT_VORSCHAUDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Friend Sub InitVars()
Me.columnVALUE = MyBase.Columns("VALUE")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function NewDT_VORSCHAURow() As DT_VORSCHAURow
Return CType(Me.NewRow,DT_VORSCHAURow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New DT_VORSCHAURow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(DT_VORSCHAURow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveDT_VORSCHAURow(ByVal row As DT_VORSCHAURow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBAD_Users"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSelect
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUsername
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPrename
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSurname
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn
Get
Return Me.columnEmail
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As TBAD_UsersRow
Get
Return CType(Me.Rows(index),TBAD_UsersRow)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBAD_UsersRowChanging As TBAD_UsersRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBAD_UsersRowChanged As TBAD_UsersRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBAD_UsersRowDeleting As TBAD_UsersRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBAD_UsersRowDeleted As TBAD_UsersRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddTBAD_UsersRow(ByVal row As TBAD_UsersRow)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBAD_UsersDataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function NewTBAD_UsersRow() As TBAD_UsersRow
Return CType(Me.NewRow,TBAD_UsersRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBAD_UsersRow(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBAD_UsersRow)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveTBAD_UsersRow(ByVal row As TBAD_UsersRow)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBWH_Users1"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSelect
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUsername
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPrename
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSurname
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn
Get
Return Me.columnEmail
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_Users1Row
Get
Return CType(Me.Rows(index),TBWH_Users1Row)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBWH_Users1RowChanging As TBWH_Users1RowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBWH_Users1RowChanged As TBWH_Users1RowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBWH_Users1RowDeleting As TBWH_Users1RowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBWH_Users1RowDeleted As TBWH_Users1RowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddTBWH_Users1Row(ByVal row As TBWH_Users1Row)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBWH_Users1DataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function NewTBWH_Users1Row() As TBWH_Users1Row
Return CType(Me.NewRow,TBWH_Users1Row)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBWH_Users1Row(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBWH_Users1Row)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveTBWH_Users1Row(ByVal row As TBWH_Users1Row)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents the strongly named DataTable class.
'''</summary>
<Global.System.Serializable(), _
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.TableName = "TBWH_Users2"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSelect
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnUsername
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnPrename
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSurname
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn
Get
Return Me.columnEmail
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn
Get
Return Me.columnID
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_Users2Row
Get
Return CType(Me.Rows(index),TBWH_Users2Row)
End Get
End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBWH_Users2RowChanging As TBWH_Users2RowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBWH_Users2RowChanged As TBWH_Users2RowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBWH_Users2RowDeleting As TBWH_Users2RowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Event TBWH_Users2RowDeleted As TBWH_Users2RowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Overloads Sub AddTBWH_Users2Row(ByVal row As TBWH_Users2Row)
Me.Rows.Add(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBWH_Users2DataTable()
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function NewTBWH_Users2Row() As TBWH_Users2Row
Return CType(Me.NewRow,TBWH_Users2Row)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBWH_Users2Row(builder)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBWH_Users2Row)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub RemoveTBWH_Users2Row(ByVal row As TBWH_Users2Row)
Me.Rows.Remove(row)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBPMO_FORM_CONSTRUCTORRow
Inherits Global.System.Data.DataRow
Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsFORM_TITLENull() As Boolean
Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetFORM_TITLENull()
Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCHANGED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetCHANGED_WHONull()
Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCHANGED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetCHANGED_WHENNull()
Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsMENU_IMGNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetMENU_IMGNull()
Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsSHORT_TITLENull() As Boolean
Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetSHORT_TITLENull()
Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRow
Inherits Global.System.Data.DataRow
Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsADDED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetADDED_WHONull()
Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetADDED_WHENNull()
Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCHANGED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetCHANGED_WHONull()
Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCHANGED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetCHANGED_WHENNull()
Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBDD_CONNECTIONRow
Inherits Global.System.Data.DataRow
Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsBEZEICHNUNGNull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetBEZEICHNUNGNull()
Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsSQL_PROVIDERNull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetSQL_PROVIDERNull()
Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsSERVERNull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetSERVERNull()
Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsDATENBANKNull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetDATENBANKNull()
Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsUSERNAMENull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetUSERNAMENull()
Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsPASSWORDNull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetPASSWORDNull()
Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsBEMERKUNGNull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetBEMERKUNGNull()
Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsERSTELLTWANNNull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetERSTELLTWANNNull()
Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsGEANDERTWERNull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetGEANDERTWERNull()
Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsGEAENDERTWANNNull() As Boolean
Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetGEAENDERTWANNNull()
Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class VWTEMPQUICKVIEWRow
Inherits Global.System.Data.DataRow
Private tableVWTEMPQUICKVIEW As VWTEMPQUICKVIEWDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableVWTEMPQUICKVIEW = CType(Me.Table,VWTEMPQUICKVIEWDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsAktenzeichenNull() As Boolean
Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetAktenzeichenNull()
Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function Is_Wiedergabe_der_Marke__Bild_Null() As Boolean
Return Me.IsNull(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub Set_Wiedergabe_der_Marke__Bild_Null()
Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsTag_der_Eintragung_im_RegisterNull() As Boolean
Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetTag_der_Eintragung_im_RegisterNull()
Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsAktenzustandNull() As Boolean
Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetAktenzustandNull()
Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBWH_ENTITIESRow
Inherits Global.System.Data.DataRow
Private tableTBWH_ENTITIES As TBWH_ENTITIESDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBWH_ENTITIES = CType(Me.Table,TBWH_ENTITIESDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCAPTIONNull() As Boolean
Return Me.IsNull(Me.tableTBWH_ENTITIES.CAPTIONColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetCAPTIONNull()
Me(Me.tableTBWH_ENTITIES.CAPTIONColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBWH_USER_GROUPSRow
Inherits Global.System.Data.DataRow
Private tableTBWH_USER_GROUPS As TBWH_USER_GROUPSDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsNAMENull() As Boolean
Return Me.IsNull(Me.tableTBWH_USER_GROUPS.NAMEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetNAMENull()
Me(Me.tableTBWH_USER_GROUPS.NAMEColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBPMO_SAP_FUBARow
Inherits Global.System.Data.DataRow
Private tableTBPMO_SAP_FUBA As TBPMO_SAP_FUBADataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCOMMENTNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.COMMENTColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetCOMMENTNull()
Me(Me.tableTBPMO_SAP_FUBA.COMMENTColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetADDED_WHENNull()
Me(Me.tableTBPMO_SAP_FUBA.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCHANGED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetCHANGED_WHONull()
Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHOColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCHANGED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetCHANGED_WHENNull()
Me(Me.tableTBPMO_SAP_FUBA.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsWHERE_CLAUSENull() As Boolean
Return Me.IsNull(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetWHERE_CLAUSENull()
Me(Me.tableTBPMO_SAP_FUBA.WHERE_CLAUSEColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class USER_RIGHTSRow
Inherits Global.System.Data.DataRow
Private tableUSER_RIGHTS As USER_RIGHTSDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableUSER_RIGHTS = CType(Me.Table,USER_RIGHTSDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsFORM_TITLENull() As Boolean
Return Me.IsNull(Me.tableUSER_RIGHTS.FORM_TITLEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetFORM_TITLENull()
Me(Me.tableUSER_RIGHTS.FORM_TITLEColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsNAMENull() As Boolean
Return Me.IsNull(Me.tableUSER_RIGHTS.NAMEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetNAMENull()
Me(Me.tableUSER_RIGHTS.NAMEColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsPRENAMENull() As Boolean
Return Me.IsNull(Me.tableUSER_RIGHTS.PRENAMEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetPRENAMENull()
Me(Me.tableUSER_RIGHTS.PRENAMEColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableUSER_RIGHTS.ADDED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetADDED_WHENNull()
Me(Me.tableUSER_RIGHTS.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCHANGED_WHENNull() As Boolean
Return Me.IsNull(Me.tableUSER_RIGHTS.CHANGED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetCHANGED_WHENNull()
Me(Me.tableUSER_RIGHTS.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow
Inherits Global.System.Data.DataRow
Private tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG As TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetADDED_WHENNull()
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCHANGED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetCHANGED_WHONull()
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHOColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCHANGED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetCHANGED_WHENNull()
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class VWDD_LOGIN_USER_HISTORYRow
Inherits Global.System.Data.DataRow
Private tableVWDD_LOGIN_USER_HISTORY As VWDD_LOGIN_USER_HISTORYDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsNAMENull() As Boolean
Return Me.IsNull(Me.tableVWDD_LOGIN_USER_HISTORY.NAMEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetNAMENull()
Me(Me.tableVWDD_LOGIN_USER_HISTORY.NAMEColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsPRENAMENull() As Boolean
Return Me.IsNull(Me.tableVWDD_LOGIN_USER_HISTORY.PRENAMEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetPRENAMENull()
Me(Me.tableVWDD_LOGIN_USER_HISTORY.PRENAMEColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsLOGINNull() As Boolean
Return Me.IsNull(Me.tableVWDD_LOGIN_USER_HISTORY.LOGINColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetLOGINNull()
Me(Me.tableVWDD_LOGIN_USER_HISTORY.LOGINColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsLOGOUTNull() As Boolean
Return Me.IsNull(Me.tableVWDD_LOGIN_USER_HISTORY.LOGOUTColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetLOGOUTNull()
Me(Me.tableVWDD_LOGIN_USER_HISTORY.LOGOUTColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsVERSION_CLIENTNull() As Boolean
Return Me.IsNull(Me.tableVWDD_LOGIN_USER_HISTORY.VERSION_CLIENTColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetVERSION_CLIENTNull()
Me(Me.tableVWDD_LOGIN_USER_HISTORY.VERSION_CLIENTColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsNameNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.NameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetNameNull()
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.NameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsIDNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.IDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetIDNull()
Me(Me.tableTBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_ID.IDColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBPMO_LOG_ESSENTIALSRow
Inherits Global.System.Data.DataRow
Private tableTBPMO_LOG_ESSENTIALS As TBPMO_LOG_ESSENTIALSDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_LOG_ESSENTIALS.ADDED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetADDED_WHENNull()
Me(Me.tableTBPMO_LOG_ESSENTIALS.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsSelectionNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_LOG_ESSENTIALS.SelectionColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetSelectionNull()
Me(Me.tableTBPMO_LOG_ESSENTIALS.SelectionColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBPMO_DOCRESULT_DROPDOWN_ITEMSRow
Inherits Global.System.Data.DataRow
Private tableTBPMO_DOCRESULT_DROPDOWN_ITEMS As TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetADDED_WHENNull()
Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCHANGED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetCHANGED_WHONull()
Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHOColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCHANGED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetCHANGED_WHENNull()
Me(Me.tableTBPMO_DOCRESULT_DROPDOWN_ITEMS.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBDD_GROUPSRow
Inherits Global.System.Data.DataRow
Private tableTBDD_GROUPS As TBDD_GROUPSDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBDD_GROUPS = CType(Me.Table,TBDD_GROUPSDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsNAMENull() As Boolean
Return Me.IsNull(Me.tableTBDD_GROUPS.NAMEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetNAMENull()
Me(Me.tableTBDD_GROUPS.NAMEColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCOMMENTNull() As Boolean
Return Me.IsNull(Me.tableTBDD_GROUPS.COMMENTColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetCOMMENTNull()
Me(Me.tableTBDD_GROUPS.COMMENTColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsADDED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetADDED_WHONull()
Me(Me.tableTBDD_GROUPS.ADDED_WHOColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBDD_GROUPS.ADDED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetADDED_WHENNull()
Me(Me.tableTBDD_GROUPS.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCHANGED_WHONull() As Boolean
Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetCHANGED_WHONull()
Me(Me.tableTBDD_GROUPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCHANGED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBDD_GROUPS.CHANGED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetCHANGED_WHENNull()
Me(Me.tableTBDD_GROUPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class VWPMO_RIGHT_GROUPRow
Inherits Global.System.Data.DataRow
Private tableVWPMO_RIGHT_GROUP As VWPMO_RIGHT_GROUPDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsGROUP_NAMENull() As Boolean
Return Me.IsNull(Me.tableVWPMO_RIGHT_GROUP.GROUP_NAMEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetGROUP_NAMENull()
Me(Me.tableVWPMO_RIGHT_GROUP.GROUP_NAMEColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsADDED_WHONull() As Boolean
Return Me.IsNull(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetADDED_WHONull()
Me(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHOColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetADDED_WHENNull()
Me(Me.tableVWPMO_RIGHT_GROUP.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCHANGED_WHONull() As Boolean
Return Me.IsNull(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHOColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetCHANGED_WHONull()
Me(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHOColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsCHANGED_WHENNull() As Boolean
Return Me.IsNull(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetCHANGED_WHENNull()
Me(Me.tableVWPMO_RIGHT_GROUP.CHANGED_WHENColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class DT_VORSCHAURow
Inherits Global.System.Data.DataRow
Private tableDT_VORSCHAU As DT_VORSCHAUDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableDT_VORSCHAU = CType(Me.Table,DT_VORSCHAUDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsVALUENull() As Boolean
Return Me.IsNull(Me.tableDT_VORSCHAU.VALUEColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetVALUENull()
Me(Me.tableDT_VORSCHAU.VALUEColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBAD_UsersRow
Inherits Global.System.Data.DataRow
Private tableTBAD_Users As TBAD_UsersDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBAD_Users = CType(Me.Table,TBAD_UsersDataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function Is_SelectNull() As Boolean
Return Me.IsNull(Me.tableTBAD_Users.SelectColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub Set_SelectNull()
Me(Me.tableTBAD_Users.SelectColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsUsernameNull() As Boolean
Return Me.IsNull(Me.tableTBAD_Users.UsernameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetUsernameNull()
Me(Me.tableTBAD_Users.UsernameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsPrenameNull() As Boolean
Return Me.IsNull(Me.tableTBAD_Users.PrenameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetPrenameNull()
Me(Me.tableTBAD_Users.PrenameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsSurnameNull() As Boolean
Return Me.IsNull(Me.tableTBAD_Users.SurnameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetSurnameNull()
Me(Me.tableTBAD_Users.SurnameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsEmailNull() As Boolean
Return Me.IsNull(Me.tableTBAD_Users.EmailColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetEmailNull()
Me(Me.tableTBAD_Users.EmailColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsIDNull() As Boolean
Return Me.IsNull(Me.tableTBAD_Users.IDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetIDNull()
Me(Me.tableTBAD_Users.IDColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBWH_Users1Row
Inherits Global.System.Data.DataRow
Private tableTBWH_Users1 As TBWH_Users1DataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBWH_Users1 = CType(Me.Table,TBWH_Users1DataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function Is_SelectNull() As Boolean
Return Me.IsNull(Me.tableTBWH_Users1.SelectColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub Set_SelectNull()
Me(Me.tableTBWH_Users1.SelectColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsUsernameNull() As Boolean
Return Me.IsNull(Me.tableTBWH_Users1.UsernameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetUsernameNull()
Me(Me.tableTBWH_Users1.UsernameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsPrenameNull() As Boolean
Return Me.IsNull(Me.tableTBWH_Users1.PrenameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetPrenameNull()
Me(Me.tableTBWH_Users1.PrenameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsSurnameNull() As Boolean
Return Me.IsNull(Me.tableTBWH_Users1.SurnameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetSurnameNull()
Me(Me.tableTBWH_Users1.SurnameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsEmailNull() As Boolean
Return Me.IsNull(Me.tableTBWH_Users1.EmailColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetEmailNull()
Me(Me.tableTBWH_Users1.EmailColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsIDNull() As Boolean
Return Me.IsNull(Me.tableTBWH_Users1.IDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetIDNull()
Me(Me.tableTBWH_Users1.IDColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Represents strongly named DataRow class.
'''</summary>
Partial Public Class TBWH_Users2Row
Inherits Global.System.Data.DataRow
Private tableTBWH_Users2 As TBWH_Users2DataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb)
Me.tableTBWH_Users2 = CType(Me.Table,TBWH_Users2DataTable)
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function Is_SelectNull() As Boolean
Return Me.IsNull(Me.tableTBWH_Users2.SelectColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub Set_SelectNull()
Me(Me.tableTBWH_Users2.SelectColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsUsernameNull() As Boolean
Return Me.IsNull(Me.tableTBWH_Users2.UsernameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetUsernameNull()
Me(Me.tableTBWH_Users2.UsernameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsPrenameNull() As Boolean
Return Me.IsNull(Me.tableTBWH_Users2.PrenameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetPrenameNull()
Me(Me.tableTBWH_Users2.PrenameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsSurnameNull() As Boolean
Return Me.IsNull(Me.tableTBWH_Users2.SurnameColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetSurnameNull()
Me(Me.tableTBWH_Users2.SurnameColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsEmailNull() As Boolean
Return Me.IsNull(Me.tableTBWH_Users2.EmailColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetEmailNull()
Me(Me.tableTBWH_Users2.EmailColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Function IsIDNull() As Boolean
Return Me.IsNull(Me.tableTBWH_Users2.IDColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub SetIDNull()
Me(Me.tableTBWH_Users2.IDColumn) = Global.System.Convert.DBNull
End Sub
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Class TBPMO_FORM_CONSTRUCTORRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBPMO_FORM_CONSTRUCTORRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTORRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTOR_DETAILRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Class TBDD_CONNECTIONRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBDD_CONNECTIONRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As TBDD_CONNECTIONRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Class VWTEMPQUICKVIEWRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As VWTEMPQUICKVIEWRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New(ByVal row As VWTEMPQUICKVIEWRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New
Me.eventRow = row
Me.eventAction = action
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As VWTEMPQUICKVIEWRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Class TBWH_ENTITIESRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBWH_ENTITIESRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As TBWH_ENTITIESRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Class TBWH_USER_GROUPSRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBWH_USER_GROUPSRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As TBWH_USER_GROUPSRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Class TBPMO_SAP_FUBARowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBPMO_SAP_FUBARow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As TBPMO_SAP_FUBARow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Class USER_RIGHTSRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As USER_RIGHTSRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As USER_RIGHTSRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Class TBPMO_DOCSEARCH_RESULTLIST_CONFIGRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As TBPMO_DOCSEARCH_RESULTLIST_CONFIGRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Class VWDD_LOGIN_USER_HISTORYRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As VWDD_LOGIN_USER_HISTORYRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As VWDD_LOGIN_USER_HISTORYRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As TBPMO_DOCSEARCH_RESULTLIST_CONFIG_TYPE_IDRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Class TBPMO_LOG_ESSENTIALSRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBPMO_LOG_ESSENTIALSRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As TBPMO_LOG_ESSENTIALSRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Class TBPMO_DOCRESULT_DROPDOWN_ITEMSRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As TBPMO_DOCRESULT_DROPDOWN_ITEMSRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Class TBDD_GROUPSRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBDD_GROUPSRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As TBDD_GROUPSRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Class VWPMO_RIGHT_GROUPRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As VWPMO_RIGHT_GROUPRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As VWPMO_RIGHT_GROUPRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Class DT_VORSCHAURowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As DT_VORSCHAURow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As DT_VORSCHAURow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Class TBAD_UsersRowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBAD_UsersRow
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As TBAD_UsersRow
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Class TBWH_Users1RowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBWH_Users1Row
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As TBWH_Users1Row
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
'''<summary>
'''Row event argument class
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Class TBWH_Users2RowChangeEvent
Inherits Global.System.EventArgs
Private eventRow As TBWH_Users2Row
Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Row() As TBWH_Users2Row
Get
Return Me.eventRow
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get
Return Me.eventAction
End Get
End Property
End Class
End Class
Namespace DD_ECMAdminTableAdapters
'''<summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.ComponentModel.DataObjectAttribute(true), _
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer
Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR")
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
Return Me.Adapter.Update(dataRows)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
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
'''<summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.ComponentModel.DataObjectAttribute(true), _
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer
Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR_DETAIL")
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
Return Me.Adapter.Update(dataRows)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
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
'''<summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.ComponentModel.DataObjectAttribute(true), _
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer
Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION")
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
Return Me.Adapter.Update(dataRows)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
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
'''<summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.ComponentModel.DataObjectAttribute(true), _
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
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
'''<summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.ComponentModel.DataObjectAttribute(true), _
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
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
'''<summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.ComponentModel.DataObjectAttribute(true), _
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
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
'''<summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.ComponentModel.DataObjectAttribute(true), _
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_SAP_FUBADataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer
Return Me.Adapter.Update(dataSet, "TBPMO_SAP_FUBA")
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
Return Me.Adapter.Update(dataRows)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
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
'''<summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.ComponentModel.DataObjectAttribute(true), _
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
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
'''<summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.ComponentModel.DataObjectAttribute(true), _
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCSEARCH_RESULTLIST_CONFIGDataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer
Return Me.Adapter.Update(dataSet, "TBPMO_DOCSEARCH_RESULTLIST_CONFIG")
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
Return Me.Adapter.Update(dataRows)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
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
'''<summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.ComponentModel.DataObjectAttribute(true), _
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
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
'''<summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.ComponentModel.DataObjectAttribute(true), _
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
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
'''<summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.ComponentModel.DataObjectAttribute(true), _
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_LOG_ESSENTIALSDataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer
Return Me.Adapter.Update(dataSet, "TBPMO_LOG_ESSENTIALS")
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
Return Me.Adapter.Update(dataRows)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
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
'''<summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.ComponentModel.DataObjectAttribute(true), _
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_DOCRESULT_DROPDOWN_ITEMSDataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer
Return Me.Adapter.Update(dataSet, "TBPMO_DOCRESULT_DROPDOWN_ITEMS")
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
Return Me.Adapter.Update(dataRows)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
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
'''<summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.ComponentModel.DataObjectAttribute(true), _
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBDD_GROUPSDataTable) As Integer
Return Me.Adapter.Update(dataTable)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer
Return Me.Adapter.Update(dataSet, "TBDD_GROUPS")
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer
Return Me.Adapter.Update(dataRows)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
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
'''<summary>
'''Represents the connection and commands used to retrieve and save data.
'''</summary>
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.ComponentModel.DataObjectAttribute(true), _
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _
", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Sub New()
MyBase.New
Me.ClearBeforeFill = true
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property ClearBeforeFill() As Boolean
Get
Return Me._clearBeforeFill
End Get
Set
Me._clearBeforeFill = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _
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
'''<summary>
'''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios
'''</summary>
<Global.System.ComponentModel.DesignerCategoryAttribute("code"), _
Global.System.ComponentModel.ToolboxItem(true), _
Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerDesigner, Microsoft.VSD"& _
"esigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapterManager")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property UpdateOrder() As UpdateOrderOption
Get
Return Me._updateOrder
End Get
Set
Me._updateOrder = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
"a", "System.Drawing.Design.UITypeEditor")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
"a", "System.Drawing.Design.UITypeEditor")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
"a", "System.Drawing.Design.UITypeEditor")> _
Public Property TBDD_CONNECTIONTableAdapter() As TBDD_CONNECTIONTableAdapter
Get
Return Me._tBDD_CONNECTIONTableAdapter
End Get
Set
Me._tBDD_CONNECTIONTableAdapter = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
"a", "System.Drawing.Design.UITypeEditor")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
"a", "System.Drawing.Design.UITypeEditor")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
"a", "System.Drawing.Design.UITypeEditor")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
"a", "System.Drawing.Design.UITypeEditor")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.EditorAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterManagerPropertyEditor, Microso"& _
"ft.VSDesigner, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3"& _
"a", "System.Drawing.Design.UITypeEditor")> _
Public Property TBDD_GROUPSTableAdapter() As TBDD_GROUPSTableAdapter
Get
Return Me._tBDD_GROUPSTableAdapter
End Get
Set
Me._tBDD_GROUPSTableAdapter = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Property BackupDataSetBeforeUpdate() As Boolean
Get
Return Me._backupDataSetBeforeUpdate
End Get
Set
Me._backupDataSetBeforeUpdate = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
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
'''<summary>
'''Update rows in top-down order.
'''</summary>
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Insert rows in top-down order.
'''</summary>
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Delete rows in bottom-up order.
'''</summary>
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first
'''</summary>
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Update all changes to the dataset.
'''</summary>
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
'''<summary>
'''Update Order Option
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
Public Enum UpdateOrderOption
InsertUpdateDelete = 0
UpdateInsertDelete = 1
End Enum
'''<summary>
'''Used to sort self-referenced table's rows
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "17.0.0.0")> _
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