10170 lines
615 KiB
VB.net
10170 lines
615 KiB
VB.net
'------------------------------------------------------------------------------
|
|
' <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("MyDataset"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.DataSet")> _
|
|
Partial Public Class MyDataset
|
|
Inherits Global.System.Data.DataSet
|
|
|
|
Private tableTBCW_PROFILES As TBCW_PROFILESDataTable
|
|
|
|
Private tableTBCW_USER_PROFILE As TBCW_USER_PROFILEDataTable
|
|
|
|
Private tableVWUSER_PROFILE As VWUSER_PROFILEDataTable
|
|
|
|
Private tableTBCW_PROFILE_PROCESS As TBCW_PROFILE_PROCESSDataTable
|
|
|
|
Private tableTBCW_PROF_DATA_SEARCH As TBCW_PROF_DATA_SEARCHDataTable
|
|
|
|
Private tableTBCW_PROF_DOC_SEARCH As TBCW_PROF_DOC_SEARCHDataTable
|
|
|
|
Private tableTBCW_GROUP_PROFILE As TBCW_GROUP_PROFILEDataTable
|
|
|
|
Private tableVWCW_GROUP_PROFILE As VWCW_GROUP_PROFILEDataTable
|
|
|
|
Private tableTBCW_PROF_REL_WINDOW As TBCW_PROF_REL_WINDOWDataTable
|
|
|
|
Private tableTBWH_User As TBWH_UserDataTable
|
|
|
|
Private tableTBWH_GROUP As TBWH_GROUPDataTable
|
|
|
|
Private tableTBWH_PROFILE_TYPE As TBWH_PROFILE_TYPEDataTable
|
|
|
|
Private relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF As Global.System.Data.DataRelation
|
|
|
|
Private relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF As Global.System.Data.DataRelation
|
|
|
|
Private relationFK_TBCW_PROF_REL_CONTROL_PROF_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", "15.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", "15.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("TBCW_PROFILES")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBCW_PROFILESDataTable(ds.Tables("TBCW_PROFILES")))
|
|
End If
|
|
If (Not (ds.Tables("TBCW_USER_PROFILE")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBCW_USER_PROFILEDataTable(ds.Tables("TBCW_USER_PROFILE")))
|
|
End If
|
|
If (Not (ds.Tables("VWUSER_PROFILE")) Is Nothing) Then
|
|
MyBase.Tables.Add(New VWUSER_PROFILEDataTable(ds.Tables("VWUSER_PROFILE")))
|
|
End If
|
|
If (Not (ds.Tables("TBCW_PROFILE_PROCESS")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBCW_PROFILE_PROCESSDataTable(ds.Tables("TBCW_PROFILE_PROCESS")))
|
|
End If
|
|
If (Not (ds.Tables("TBCW_PROF_DATA_SEARCH")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBCW_PROF_DATA_SEARCHDataTable(ds.Tables("TBCW_PROF_DATA_SEARCH")))
|
|
End If
|
|
If (Not (ds.Tables("TBCW_PROF_DOC_SEARCH")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBCW_PROF_DOC_SEARCHDataTable(ds.Tables("TBCW_PROF_DOC_SEARCH")))
|
|
End If
|
|
If (Not (ds.Tables("TBCW_GROUP_PROFILE")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBCW_GROUP_PROFILEDataTable(ds.Tables("TBCW_GROUP_PROFILE")))
|
|
End If
|
|
If (Not (ds.Tables("VWCW_GROUP_PROFILE")) Is Nothing) Then
|
|
MyBase.Tables.Add(New VWCW_GROUP_PROFILEDataTable(ds.Tables("VWCW_GROUP_PROFILE")))
|
|
End If
|
|
If (Not (ds.Tables("TBCW_PROF_REL_WINDOW")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBCW_PROF_REL_WINDOWDataTable(ds.Tables("TBCW_PROF_REL_WINDOW")))
|
|
End If
|
|
If (Not (ds.Tables("TBWH_User")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBWH_UserDataTable(ds.Tables("TBWH_User")))
|
|
End If
|
|
If (Not (ds.Tables("TBWH_GROUP")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBWH_GROUPDataTable(ds.Tables("TBWH_GROUP")))
|
|
End If
|
|
If (Not (ds.Tables("TBWH_PROFILE_TYPE")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBWH_PROFILE_TYPEDataTable(ds.Tables("TBWH_PROFILE_TYPE")))
|
|
End If
|
|
Me.DataSetName = ds.DataSetName
|
|
Me.Prefix = ds.Prefix
|
|
Me.Namespace = ds.Namespace
|
|
Me.Locale = ds.Locale
|
|
Me.CaseSensitive = ds.CaseSensitive
|
|
Me.EnforceConstraints = ds.EnforceConstraints
|
|
Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
|
|
Me.InitVars
|
|
Else
|
|
Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
|
|
End If
|
|
Me.GetSerializationData(info, context)
|
|
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
|
|
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
|
|
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBCW_PROFILES() As TBCW_PROFILESDataTable
|
|
Get
|
|
Return Me.tableTBCW_PROFILES
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBCW_USER_PROFILE() As TBCW_USER_PROFILEDataTable
|
|
Get
|
|
Return Me.tableTBCW_USER_PROFILE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property VWUSER_PROFILE() As VWUSER_PROFILEDataTable
|
|
Get
|
|
Return Me.tableVWUSER_PROFILE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBCW_PROFILE_PROCESS() As TBCW_PROFILE_PROCESSDataTable
|
|
Get
|
|
Return Me.tableTBCW_PROFILE_PROCESS
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBCW_PROF_DATA_SEARCH() As TBCW_PROF_DATA_SEARCHDataTable
|
|
Get
|
|
Return Me.tableTBCW_PROF_DATA_SEARCH
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBCW_PROF_DOC_SEARCH() As TBCW_PROF_DOC_SEARCHDataTable
|
|
Get
|
|
Return Me.tableTBCW_PROF_DOC_SEARCH
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBCW_GROUP_PROFILE() As TBCW_GROUP_PROFILEDataTable
|
|
Get
|
|
Return Me.tableTBCW_GROUP_PROFILE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property VWCW_GROUP_PROFILE() As VWCW_GROUP_PROFILEDataTable
|
|
Get
|
|
Return Me.tableVWCW_GROUP_PROFILE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBCW_PROF_REL_WINDOW() As TBCW_PROF_REL_WINDOWDataTable
|
|
Get
|
|
Return Me.tableTBCW_PROF_REL_WINDOW
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBWH_User() As TBWH_UserDataTable
|
|
Get
|
|
Return Me.tableTBWH_User
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBWH_GROUP() As TBWH_GROUPDataTable
|
|
Get
|
|
Return Me.tableTBWH_GROUP
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false), _
|
|
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
|
|
Public ReadOnly Property TBWH_PROFILE_TYPE() As TBWH_PROFILE_TYPEDataTable
|
|
Get
|
|
Return Me.tableTBWH_PROFILE_TYPE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataSet
|
|
Dim cln As MyDataset = CType(MyBase.Clone,MyDataset)
|
|
cln.InitVars
|
|
cln.SchemaSerializationMode = Me.SchemaSerializationMode
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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("TBCW_PROFILES")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBCW_PROFILESDataTable(ds.Tables("TBCW_PROFILES")))
|
|
End If
|
|
If (Not (ds.Tables("TBCW_USER_PROFILE")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBCW_USER_PROFILEDataTable(ds.Tables("TBCW_USER_PROFILE")))
|
|
End If
|
|
If (Not (ds.Tables("VWUSER_PROFILE")) Is Nothing) Then
|
|
MyBase.Tables.Add(New VWUSER_PROFILEDataTable(ds.Tables("VWUSER_PROFILE")))
|
|
End If
|
|
If (Not (ds.Tables("TBCW_PROFILE_PROCESS")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBCW_PROFILE_PROCESSDataTable(ds.Tables("TBCW_PROFILE_PROCESS")))
|
|
End If
|
|
If (Not (ds.Tables("TBCW_PROF_DATA_SEARCH")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBCW_PROF_DATA_SEARCHDataTable(ds.Tables("TBCW_PROF_DATA_SEARCH")))
|
|
End If
|
|
If (Not (ds.Tables("TBCW_PROF_DOC_SEARCH")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBCW_PROF_DOC_SEARCHDataTable(ds.Tables("TBCW_PROF_DOC_SEARCH")))
|
|
End If
|
|
If (Not (ds.Tables("TBCW_GROUP_PROFILE")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBCW_GROUP_PROFILEDataTable(ds.Tables("TBCW_GROUP_PROFILE")))
|
|
End If
|
|
If (Not (ds.Tables("VWCW_GROUP_PROFILE")) Is Nothing) Then
|
|
MyBase.Tables.Add(New VWCW_GROUP_PROFILEDataTable(ds.Tables("VWCW_GROUP_PROFILE")))
|
|
End If
|
|
If (Not (ds.Tables("TBCW_PROF_REL_WINDOW")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBCW_PROF_REL_WINDOWDataTable(ds.Tables("TBCW_PROF_REL_WINDOW")))
|
|
End If
|
|
If (Not (ds.Tables("TBWH_User")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBWH_UserDataTable(ds.Tables("TBWH_User")))
|
|
End If
|
|
If (Not (ds.Tables("TBWH_GROUP")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBWH_GROUPDataTable(ds.Tables("TBWH_GROUP")))
|
|
End If
|
|
If (Not (ds.Tables("TBWH_PROFILE_TYPE")) Is Nothing) Then
|
|
MyBase.Tables.Add(New TBWH_PROFILE_TYPEDataTable(ds.Tables("TBWH_PROFILE_TYPE")))
|
|
End If
|
|
Me.DataSetName = ds.DataSetName
|
|
Me.Prefix = ds.Prefix
|
|
Me.Namespace = ds.Namespace
|
|
Me.Locale = ds.Locale
|
|
Me.CaseSensitive = ds.CaseSensitive
|
|
Me.EnforceConstraints = ds.EnforceConstraints
|
|
Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
|
|
Me.InitVars
|
|
Else
|
|
Me.ReadXml(reader)
|
|
Me.InitVars
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.0.0.0")> _
|
|
Friend Overloads Sub InitVars(ByVal initTable As Boolean)
|
|
Me.tableTBCW_PROFILES = CType(MyBase.Tables("TBCW_PROFILES"),TBCW_PROFILESDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBCW_PROFILES) Is Nothing) Then
|
|
Me.tableTBCW_PROFILES.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBCW_USER_PROFILE = CType(MyBase.Tables("TBCW_USER_PROFILE"),TBCW_USER_PROFILEDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBCW_USER_PROFILE) Is Nothing) Then
|
|
Me.tableTBCW_USER_PROFILE.InitVars
|
|
End If
|
|
End If
|
|
Me.tableVWUSER_PROFILE = CType(MyBase.Tables("VWUSER_PROFILE"),VWUSER_PROFILEDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableVWUSER_PROFILE) Is Nothing) Then
|
|
Me.tableVWUSER_PROFILE.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBCW_PROFILE_PROCESS = CType(MyBase.Tables("TBCW_PROFILE_PROCESS"),TBCW_PROFILE_PROCESSDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBCW_PROFILE_PROCESS) Is Nothing) Then
|
|
Me.tableTBCW_PROFILE_PROCESS.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBCW_PROF_DATA_SEARCH = CType(MyBase.Tables("TBCW_PROF_DATA_SEARCH"),TBCW_PROF_DATA_SEARCHDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBCW_PROF_DATA_SEARCH) Is Nothing) Then
|
|
Me.tableTBCW_PROF_DATA_SEARCH.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBCW_PROF_DOC_SEARCH = CType(MyBase.Tables("TBCW_PROF_DOC_SEARCH"),TBCW_PROF_DOC_SEARCHDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBCW_PROF_DOC_SEARCH) Is Nothing) Then
|
|
Me.tableTBCW_PROF_DOC_SEARCH.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBCW_GROUP_PROFILE = CType(MyBase.Tables("TBCW_GROUP_PROFILE"),TBCW_GROUP_PROFILEDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBCW_GROUP_PROFILE) Is Nothing) Then
|
|
Me.tableTBCW_GROUP_PROFILE.InitVars
|
|
End If
|
|
End If
|
|
Me.tableVWCW_GROUP_PROFILE = CType(MyBase.Tables("VWCW_GROUP_PROFILE"),VWCW_GROUP_PROFILEDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableVWCW_GROUP_PROFILE) Is Nothing) Then
|
|
Me.tableVWCW_GROUP_PROFILE.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBCW_PROF_REL_WINDOW = CType(MyBase.Tables("TBCW_PROF_REL_WINDOW"),TBCW_PROF_REL_WINDOWDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBCW_PROF_REL_WINDOW) Is Nothing) Then
|
|
Me.tableTBCW_PROF_REL_WINDOW.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBWH_User = CType(MyBase.Tables("TBWH_User"),TBWH_UserDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBWH_User) Is Nothing) Then
|
|
Me.tableTBWH_User.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBWH_GROUP = CType(MyBase.Tables("TBWH_GROUP"),TBWH_GROUPDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBWH_GROUP) Is Nothing) Then
|
|
Me.tableTBWH_GROUP.InitVars
|
|
End If
|
|
End If
|
|
Me.tableTBWH_PROFILE_TYPE = CType(MyBase.Tables("TBWH_PROFILE_TYPE"),TBWH_PROFILE_TYPEDataTable)
|
|
If (initTable = true) Then
|
|
If (Not (Me.tableTBWH_PROFILE_TYPE) Is Nothing) Then
|
|
Me.tableTBWH_PROFILE_TYPE.InitVars
|
|
End If
|
|
End If
|
|
Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF = Me.Relations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")
|
|
Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF = Me.Relations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")
|
|
Me.relationFK_TBCW_PROF_REL_CONTROL_PROF_ID = Me.Relations("FK_TBCW_PROF_REL_CONTROL_PROF_ID")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.DataSetName = "MyDataset"
|
|
Me.Prefix = ""
|
|
Me.Namespace = "http://tempuri.org/MyDataset.xsd"
|
|
Me.EnforceConstraints = true
|
|
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
|
|
Me.tableTBCW_PROFILES = New TBCW_PROFILESDataTable()
|
|
MyBase.Tables.Add(Me.tableTBCW_PROFILES)
|
|
Me.tableTBCW_USER_PROFILE = New TBCW_USER_PROFILEDataTable()
|
|
MyBase.Tables.Add(Me.tableTBCW_USER_PROFILE)
|
|
Me.tableVWUSER_PROFILE = New VWUSER_PROFILEDataTable()
|
|
MyBase.Tables.Add(Me.tableVWUSER_PROFILE)
|
|
Me.tableTBCW_PROFILE_PROCESS = New TBCW_PROFILE_PROCESSDataTable()
|
|
MyBase.Tables.Add(Me.tableTBCW_PROFILE_PROCESS)
|
|
Me.tableTBCW_PROF_DATA_SEARCH = New TBCW_PROF_DATA_SEARCHDataTable()
|
|
MyBase.Tables.Add(Me.tableTBCW_PROF_DATA_SEARCH)
|
|
Me.tableTBCW_PROF_DOC_SEARCH = New TBCW_PROF_DOC_SEARCHDataTable()
|
|
MyBase.Tables.Add(Me.tableTBCW_PROF_DOC_SEARCH)
|
|
Me.tableTBCW_GROUP_PROFILE = New TBCW_GROUP_PROFILEDataTable()
|
|
MyBase.Tables.Add(Me.tableTBCW_GROUP_PROFILE)
|
|
Me.tableVWCW_GROUP_PROFILE = New VWCW_GROUP_PROFILEDataTable()
|
|
MyBase.Tables.Add(Me.tableVWCW_GROUP_PROFILE)
|
|
Me.tableTBCW_PROF_REL_WINDOW = New TBCW_PROF_REL_WINDOWDataTable()
|
|
MyBase.Tables.Add(Me.tableTBCW_PROF_REL_WINDOW)
|
|
Me.tableTBWH_User = New TBWH_UserDataTable()
|
|
MyBase.Tables.Add(Me.tableTBWH_User)
|
|
Me.tableTBWH_GROUP = New TBWH_GROUPDataTable()
|
|
MyBase.Tables.Add(Me.tableTBWH_GROUP)
|
|
Me.tableTBWH_PROFILE_TYPE = New TBWH_PROFILE_TYPEDataTable()
|
|
MyBase.Tables.Add(Me.tableTBWH_PROFILE_TYPE)
|
|
Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF = New Global.System.Data.DataRelation("FK_TBCW_PROF_DATA_SEARCH_PROF_IF", New Global.System.Data.DataColumn() {Me.tableTBCW_PROFILES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn}, false)
|
|
Me.Relations.Add(Me.relationFK_TBCW_PROF_DATA_SEARCH_PROF_IF)
|
|
Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF = New Global.System.Data.DataRelation("FK_TBCW_PROF_DOC_SEARCH_PROF_IF", New Global.System.Data.DataColumn() {Me.tableTBCW_PROFILES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn}, false)
|
|
Me.Relations.Add(Me.relationFK_TBCW_PROF_DOC_SEARCH_PROF_IF)
|
|
Me.relationFK_TBCW_PROF_REL_CONTROL_PROF_ID = New Global.System.Data.DataRelation("FK_TBCW_PROF_REL_CONTROL_PROF_ID", New Global.System.Data.DataColumn() {Me.tableTBCW_PROFILES.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_REL_WINDOW.PROFILE_IDColumn}, false)
|
|
Me.Relations.Add(Me.relationFK_TBCW_PROF_REL_CONTROL_PROF_ID)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBCW_PROFILES() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBCW_USER_PROFILE() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeVWUSER_PROFILE() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBCW_PROFILE_PROCESS() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBCW_PROF_DATA_SEARCH() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBCW_PROF_DOC_SEARCH() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBCW_GROUP_PROFILE() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeVWCW_GROUP_PROFILE() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBCW_PROF_REL_WINDOW() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBWH_User() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBWH_GROUP() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Function ShouldSerializeTBWH_PROFILE_TYPE() As Boolean
|
|
Return false
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
|
|
Dim ds As MyDataset = New MyDataset()
|
|
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
|
|
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
|
|
Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any.Namespace = ds.Namespace
|
|
sequence.Items.Add(any)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBCW_PROFILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROFILESRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBCW_USER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_USER_PROFILERowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub VWUSER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As VWUSER_PROFILERowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBCW_PROFILE_PROCESSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROFILE_PROCESSRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBCW_PROF_DATA_SEARCHRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_DATA_SEARCHRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBCW_PROF_DOC_SEARCHRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_DOC_SEARCHRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBCW_GROUP_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_GROUP_PROFILERowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub VWCW_GROUP_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As VWCW_GROUP_PROFILERowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBCW_PROF_REL_WINDOWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_REL_WINDOWRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBWH_UserRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_UserRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBWH_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_GROUPRowChangeEvent)
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Delegate Sub TBWH_PROFILE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_PROFILE_TYPERowChangeEvent)
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class TBCW_PROFILESDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBCW_PROFILESRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnNAME As Global.System.Data.DataColumn
|
|
|
|
Private columnCOMMENT As Global.System.Data.DataColumn
|
|
|
|
Private columnWD_SEARCH As Global.System.Data.DataColumn
|
|
|
|
Private columnREGEX_EXPRESSION As Global.System.Data.DataColumn
|
|
|
|
Private columnADDED_WHO As Global.System.Data.DataColumn
|
|
|
|
Private columnADDED_WHEN As Global.System.Data.DataColumn
|
|
|
|
Private columnCHANGED_WHO As Global.System.Data.DataColumn
|
|
|
|
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
|
|
|
|
Private columnACTIVE As Global.System.Data.DataColumn
|
|
|
|
Private columnPROFILE_TYPE As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBCW_PROFILES"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnWD_SEARCH
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property REGEX_EXPRESSIONColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnREGEX_EXPRESSION
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property PROFILE_TYPEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPROFILE_TYPE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROFILESRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBCW_PROFILESRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROFILESRowChanging As TBCW_PROFILESRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROFILESRowChanged As TBCW_PROFILESRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROFILESRowDeleting As TBCW_PROFILESRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROFILESRowDeleted As TBCW_PROFILESRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBCW_PROFILESRow(ByVal row As TBCW_PROFILESRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBCW_PROFILESRow(ByVal NAME As String, ByVal COMMENT As String, ByVal WD_SEARCH As String, ByVal REGEX_EXPRESSION As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ACTIVE As Boolean, ByVal PROFILE_TYPE As Short) As TBCW_PROFILESRow
|
|
Dim rowTBCW_PROFILESRow As TBCW_PROFILESRow = CType(Me.NewRow,TBCW_PROFILESRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, COMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE}
|
|
rowTBCW_PROFILESRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBCW_PROFILESRow)
|
|
Return rowTBCW_PROFILESRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROFILESRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROFILESRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBCW_PROFILESDataTable = CType(MyBase.Clone,TBCW_PROFILESDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBCW_PROFILESDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnNAME = MyBase.Columns("NAME")
|
|
Me.columnCOMMENT = MyBase.Columns("COMMENT")
|
|
Me.columnWD_SEARCH = MyBase.Columns("WD_SEARCH")
|
|
Me.columnREGEX_EXPRESSION = MyBase.Columns("REGEX_EXPRESSION")
|
|
Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
|
|
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
|
|
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
|
|
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
|
|
Me.columnACTIVE = MyBase.Columns("ACTIVE")
|
|
Me.columnPROFILE_TYPE = MyBase.Columns("PROFILE_TYPE")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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.columnWD_SEARCH = New Global.System.Data.DataColumn("WD_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnWD_SEARCH)
|
|
Me.columnREGEX_EXPRESSION = New Global.System.Data.DataColumn("REGEX_EXPRESSION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnREGEX_EXPRESSION)
|
|
Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnADDED_WHO)
|
|
Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnADDED_WHEN)
|
|
Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCHANGED_WHO)
|
|
Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCHANGED_WHEN)
|
|
Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnACTIVE)
|
|
Me.columnPROFILE_TYPE = New Global.System.Data.DataColumn("PROFILE_TYPE", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPROFILE_TYPE)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnNAME.AllowDBNull = false
|
|
Me.columnNAME.MaxLength = 100
|
|
Me.columnCOMMENT.MaxLength = 500
|
|
Me.columnWD_SEARCH.AllowDBNull = false
|
|
Me.columnWD_SEARCH.MaxLength = 250
|
|
Me.columnREGEX_EXPRESSION.AllowDBNull = false
|
|
Me.columnREGEX_EXPRESSION.DefaultValue = CType("",String)
|
|
Me.columnREGEX_EXPRESSION.MaxLength = 100
|
|
Me.columnADDED_WHO.AllowDBNull = false
|
|
Me.columnADDED_WHO.MaxLength = 50
|
|
Me.columnCHANGED_WHO.MaxLength = 50
|
|
Me.columnACTIVE.AllowDBNull = false
|
|
Me.columnACTIVE.DefaultValue = CType(false,Boolean)
|
|
Me.columnPROFILE_TYPE.AllowDBNull = false
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBCW_PROFILESRow() As TBCW_PROFILESRow
|
|
Return CType(Me.NewRow,TBCW_PROFILESRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBCW_PROFILESRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBCW_PROFILESRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBCW_PROFILESRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROFILESRowChanged(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBCW_PROFILESRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROFILESRowChanging(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBCW_PROFILESRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROFILESRowDeleted(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBCW_PROFILESRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROFILESRowDeleting(Me, New TBCW_PROFILESRowChangeEvent(CType(e.Row,TBCW_PROFILESRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBCW_PROFILESRow(ByVal row As TBCW_PROFILESRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "TBCW_PROFILESDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class TBCW_USER_PROFILEDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBCW_USER_PROFILERow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnPROFILE_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnUSER_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnADDED_WHO As Global.System.Data.DataColumn
|
|
|
|
Private columnADDED_WHEN As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBCW_USER_PROFILE"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPROFILE_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_USER_PROFILERow
|
|
Get
|
|
Return CType(Me.Rows(index),TBCW_USER_PROFILERow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_USER_PROFILERowChanging As TBCW_USER_PROFILERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_USER_PROFILERowChanged As TBCW_USER_PROFILERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_USER_PROFILERowDeleting As TBCW_USER_PROFILERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_USER_PROFILERowDeleted As TBCW_USER_PROFILERowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBCW_USER_PROFILERow(ByVal row As TBCW_USER_PROFILERow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBCW_USER_PROFILERow(ByVal PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBCW_USER_PROFILERow
|
|
Dim rowTBCW_USER_PROFILERow As TBCW_USER_PROFILERow = CType(Me.NewRow,TBCW_USER_PROFILERow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, USER_ID, ADDED_WHO, ADDED_WHEN}
|
|
rowTBCW_USER_PROFILERow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBCW_USER_PROFILERow)
|
|
Return rowTBCW_USER_PROFILERow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBCW_USER_PROFILERow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_USER_PROFILERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBCW_USER_PROFILEDataTable = CType(MyBase.Clone,TBCW_USER_PROFILEDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBCW_USER_PROFILEDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID")
|
|
Me.columnUSER_ID = MyBase.Columns("USER_ID")
|
|
Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
|
|
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPROFILE_ID)
|
|
Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnUSER_ID)
|
|
Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnADDED_WHO)
|
|
Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnADDED_WHEN)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnPROFILE_ID.AllowDBNull = false
|
|
Me.columnUSER_ID.AllowDBNull = false
|
|
Me.columnADDED_WHO.AllowDBNull = false
|
|
Me.columnADDED_WHO.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBCW_USER_PROFILERow() As TBCW_USER_PROFILERow
|
|
Return CType(Me.NewRow,TBCW_USER_PROFILERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBCW_USER_PROFILERow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBCW_USER_PROFILERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBCW_USER_PROFILERowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_USER_PROFILERowChanged(Me, New TBCW_USER_PROFILERowChangeEvent(CType(e.Row,TBCW_USER_PROFILERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBCW_USER_PROFILERowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_USER_PROFILERowChanging(Me, New TBCW_USER_PROFILERowChangeEvent(CType(e.Row,TBCW_USER_PROFILERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBCW_USER_PROFILERowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_USER_PROFILERowDeleted(Me, New TBCW_USER_PROFILERowChangeEvent(CType(e.Row,TBCW_USER_PROFILERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBCW_USER_PROFILERowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_USER_PROFILERowDeleting(Me, New TBCW_USER_PROFILERowChangeEvent(CType(e.Row,TBCW_USER_PROFILERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBCW_USER_PROFILERow(ByVal row As TBCW_USER_PROFILERow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "TBCW_USER_PROFILEDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class VWUSER_PROFILEDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of VWUSER_PROFILERow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnPROFILE_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnUSERNAME As Global.System.Data.DataColumn
|
|
|
|
Private columnNAME As Global.System.Data.DataColumn
|
|
|
|
Private columnPRENAME As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "VWUSER_PROFILE"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPROFILE_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As VWUSER_PROFILERow
|
|
Get
|
|
Return CType(Me.Rows(index),VWUSER_PROFILERow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWUSER_PROFILERowChanging As VWUSER_PROFILERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWUSER_PROFILERowChanged As VWUSER_PROFILERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWUSER_PROFILERowDeleting As VWUSER_PROFILERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWUSER_PROFILERowDeleted As VWUSER_PROFILERowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddVWUSER_PROFILERow(ByVal row As VWUSER_PROFILERow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddVWUSER_PROFILERow(ByVal PROFILE_ID As Integer, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String) As VWUSER_PROFILERow
|
|
Dim rowVWUSER_PROFILERow As VWUSER_PROFILERow = CType(Me.NewRow,VWUSER_PROFILERow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, USERNAME, NAME, PRENAME}
|
|
rowVWUSER_PROFILERow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowVWUSER_PROFILERow)
|
|
Return rowVWUSER_PROFILERow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As VWUSER_PROFILERow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),VWUSER_PROFILERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As VWUSER_PROFILEDataTable = CType(MyBase.Clone,VWUSER_PROFILEDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New VWUSER_PROFILEDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID")
|
|
Me.columnUSERNAME = MyBase.Columns("USERNAME")
|
|
Me.columnNAME = MyBase.Columns("NAME")
|
|
Me.columnPRENAME = MyBase.Columns("PRENAME")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPROFILE_ID)
|
|
Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnUSERNAME)
|
|
Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnNAME)
|
|
Me.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPRENAME)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AutoIncrementSeed = -1
|
|
Me.columnGUID.AutoIncrementStep = -1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnPROFILE_ID.AllowDBNull = false
|
|
Me.columnUSERNAME.AllowDBNull = false
|
|
Me.columnUSERNAME.MaxLength = 50
|
|
Me.columnNAME.MaxLength = 50
|
|
Me.columnPRENAME.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewVWUSER_PROFILERow() As VWUSER_PROFILERow
|
|
Return CType(Me.NewRow,VWUSER_PROFILERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New VWUSER_PROFILERow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(VWUSER_PROFILERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.VWUSER_PROFILERowChangedEvent) Is Nothing) Then
|
|
RaiseEvent VWUSER_PROFILERowChanged(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row,VWUSER_PROFILERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.VWUSER_PROFILERowChangingEvent) Is Nothing) Then
|
|
RaiseEvent VWUSER_PROFILERowChanging(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row,VWUSER_PROFILERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.VWUSER_PROFILERowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent VWUSER_PROFILERowDeleted(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row,VWUSER_PROFILERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.VWUSER_PROFILERowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent VWUSER_PROFILERowDeleting(Me, New VWUSER_PROFILERowChangeEvent(CType(e.Row,VWUSER_PROFILERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveVWUSER_PROFILERow(ByVal row As VWUSER_PROFILERow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "VWUSER_PROFILEDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class TBCW_PROFILE_PROCESSDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBCW_PROFILE_PROCESSRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnPROFILE_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnPROC_NAME As Global.System.Data.DataColumn
|
|
|
|
Private columnADDED_WHO As Global.System.Data.DataColumn
|
|
|
|
Private columnADDED_WHEN As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBCW_PROFILE_PROCESS"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPROFILE_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property PROC_NAMEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPROC_NAME
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROFILE_PROCESSRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBCW_PROFILE_PROCESSRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROFILE_PROCESSRowChanging As TBCW_PROFILE_PROCESSRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROFILE_PROCESSRowChanged As TBCW_PROFILE_PROCESSRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROFILE_PROCESSRowDeleting As TBCW_PROFILE_PROCESSRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROFILE_PROCESSRowDeleted As TBCW_PROFILE_PROCESSRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBCW_PROFILE_PROCESSRow(ByVal row As TBCW_PROFILE_PROCESSRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBCW_PROFILE_PROCESSRow(ByVal PROFILE_ID As Integer, ByVal PROC_NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBCW_PROFILE_PROCESSRow
|
|
Dim rowTBCW_PROFILE_PROCESSRow As TBCW_PROFILE_PROCESSRow = CType(Me.NewRow,TBCW_PROFILE_PROCESSRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN}
|
|
rowTBCW_PROFILE_PROCESSRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBCW_PROFILE_PROCESSRow)
|
|
Return rowTBCW_PROFILE_PROCESSRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROFILE_PROCESSRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROFILE_PROCESSRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBCW_PROFILE_PROCESSDataTable = CType(MyBase.Clone,TBCW_PROFILE_PROCESSDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBCW_PROFILE_PROCESSDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID")
|
|
Me.columnPROC_NAME = MyBase.Columns("PROC_NAME")
|
|
Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
|
|
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPROFILE_ID)
|
|
Me.columnPROC_NAME = New Global.System.Data.DataColumn("PROC_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPROC_NAME)
|
|
Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnADDED_WHO)
|
|
Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnADDED_WHEN)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AutoIncrementSeed = -1
|
|
Me.columnGUID.AutoIncrementStep = -1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnPROFILE_ID.AllowDBNull = false
|
|
Me.columnPROC_NAME.AllowDBNull = false
|
|
Me.columnPROC_NAME.MaxLength = 100
|
|
Me.columnADDED_WHO.AllowDBNull = false
|
|
Me.columnADDED_WHO.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBCW_PROFILE_PROCESSRow() As TBCW_PROFILE_PROCESSRow
|
|
Return CType(Me.NewRow,TBCW_PROFILE_PROCESSRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBCW_PROFILE_PROCESSRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBCW_PROFILE_PROCESSRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBCW_PROFILE_PROCESSRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROFILE_PROCESSRowChanged(Me, New TBCW_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCW_PROFILE_PROCESSRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBCW_PROFILE_PROCESSRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROFILE_PROCESSRowChanging(Me, New TBCW_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCW_PROFILE_PROCESSRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBCW_PROFILE_PROCESSRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROFILE_PROCESSRowDeleted(Me, New TBCW_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCW_PROFILE_PROCESSRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBCW_PROFILE_PROCESSRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROFILE_PROCESSRowDeleting(Me, New TBCW_PROFILE_PROCESSRowChangeEvent(CType(e.Row,TBCW_PROFILE_PROCESSRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBCW_PROFILE_PROCESSRow(ByVal row As TBCW_PROFILE_PROCESSRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "TBCW_PROFILE_PROCESSDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class TBCW_PROF_DATA_SEARCHDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DATA_SEARCHRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnPROFILE_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnCONN_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnSQL_COMMAND As Global.System.Data.DataColumn
|
|
|
|
Private columnTAB_INDEX As Global.System.Data.DataColumn
|
|
|
|
Private columnACTIVE As Global.System.Data.DataColumn
|
|
|
|
Private columnTAB_TITLE As Global.System.Data.DataColumn
|
|
|
|
Private columnADDED_WHO As Global.System.Data.DataColumn
|
|
|
|
Private columnADDED_WHEN As Global.System.Data.DataColumn
|
|
|
|
Private columnCHANGED_WHO As Global.System.Data.DataColumn
|
|
|
|
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
|
|
|
|
Private columnCOUNT_COMMAND As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBCW_PROF_DATA_SEARCH"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPROFILE_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property CONN_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnCONN_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSQL_COMMAND
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnTAB_INDEX
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnTAB_TITLE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property COUNT_COMMANDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnCOUNT_COMMAND
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_DATA_SEARCHRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBCW_PROF_DATA_SEARCHRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROF_DATA_SEARCHRowChanging As TBCW_PROF_DATA_SEARCHRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROF_DATA_SEARCHRowChanged As TBCW_PROF_DATA_SEARCHRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROF_DATA_SEARCHRowDeleting As TBCW_PROF_DATA_SEARCHRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROF_DATA_SEARCHRowDeleted As TBCW_PROF_DATA_SEARCHRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBCW_PROF_DATA_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COUNT_COMMAND As String) As TBCW_PROF_DATA_SEARCHRow
|
|
Dim rowTBCW_PROF_DATA_SEARCHRow As TBCW_PROF_DATA_SEARCHRow = CType(Me.NewRow,TBCW_PROF_DATA_SEARCHRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND}
|
|
If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF) Is Nothing) Then
|
|
columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF(0)
|
|
End If
|
|
rowTBCW_PROF_DATA_SEARCHRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBCW_PROF_DATA_SEARCHRow)
|
|
Return rowTBCW_PROF_DATA_SEARCHRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DATA_SEARCHRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_DATA_SEARCHRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBCW_PROF_DATA_SEARCHDataTable = CType(MyBase.Clone,TBCW_PROF_DATA_SEARCHDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBCW_PROF_DATA_SEARCHDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID")
|
|
Me.columnCONN_ID = MyBase.Columns("CONN_ID")
|
|
Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND")
|
|
Me.columnTAB_INDEX = MyBase.Columns("TAB_INDEX")
|
|
Me.columnACTIVE = MyBase.Columns("ACTIVE")
|
|
Me.columnTAB_TITLE = MyBase.Columns("TAB_TITLE")
|
|
Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
|
|
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
|
|
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
|
|
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
|
|
Me.columnCOUNT_COMMAND = MyBase.Columns("COUNT_COMMAND")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPROFILE_ID)
|
|
Me.columnCONN_ID = New Global.System.Data.DataColumn("CONN_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCONN_ID)
|
|
Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSQL_COMMAND)
|
|
Me.columnTAB_INDEX = New Global.System.Data.DataColumn("TAB_INDEX", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnTAB_INDEX)
|
|
Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnACTIVE)
|
|
Me.columnTAB_TITLE = New Global.System.Data.DataColumn("TAB_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnTAB_TITLE)
|
|
Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnADDED_WHO)
|
|
Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnADDED_WHEN)
|
|
Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCHANGED_WHO)
|
|
Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCHANGED_WHEN)
|
|
Me.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCOUNT_COMMAND)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AutoIncrementSeed = -1
|
|
Me.columnGUID.AutoIncrementStep = -1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnPROFILE_ID.AllowDBNull = false
|
|
Me.columnCONN_ID.AllowDBNull = false
|
|
Me.columnSQL_COMMAND.AllowDBNull = false
|
|
Me.columnSQL_COMMAND.MaxLength = 2147483647
|
|
Me.columnTAB_INDEX.AllowDBNull = false
|
|
Me.columnACTIVE.AllowDBNull = false
|
|
Me.columnTAB_TITLE.AllowDBNull = false
|
|
Me.columnTAB_TITLE.MaxLength = 100
|
|
Me.columnADDED_WHO.AllowDBNull = false
|
|
Me.columnADDED_WHO.MaxLength = 50
|
|
Me.columnCHANGED_WHO.MaxLength = 50
|
|
Me.columnCOUNT_COMMAND.AllowDBNull = false
|
|
Me.columnCOUNT_COMMAND.DefaultValue = CType(" ",String)
|
|
Me.columnCOUNT_COMMAND.MaxLength = 2147483647
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBCW_PROF_DATA_SEARCHRow() As TBCW_PROF_DATA_SEARCHRow
|
|
Return CType(Me.NewRow,TBCW_PROF_DATA_SEARCHRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBCW_PROF_DATA_SEARCHRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBCW_PROF_DATA_SEARCHRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROF_DATA_SEARCHRowChanged(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROF_DATA_SEARCHRowChanging(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleted(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleting(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "TBCW_PROF_DATA_SEARCHDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class TBCW_PROF_DOC_SEARCHDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DOC_SEARCHRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnPROFILE_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnCONN_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnSQL_COMMAND As Global.System.Data.DataColumn
|
|
|
|
Private columnTAB_INDEX As Global.System.Data.DataColumn
|
|
|
|
Private columnACTIVE As Global.System.Data.DataColumn
|
|
|
|
Private columnTAB_TITLE As Global.System.Data.DataColumn
|
|
|
|
Private columnADDED_WHO As Global.System.Data.DataColumn
|
|
|
|
Private columnADDED_WHEN As Global.System.Data.DataColumn
|
|
|
|
Private columnCHANGED_WHO As Global.System.Data.DataColumn
|
|
|
|
Private columnCHANGED_WHEN As Global.System.Data.DataColumn
|
|
|
|
Private columnCOUNT_COMMAND As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBCW_PROF_DOC_SEARCH"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPROFILE_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property CONN_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnCONN_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnSQL_COMMAND
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnTAB_INDEX
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnTAB_TITLE
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property COUNT_COMMANDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnCOUNT_COMMAND
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_DOC_SEARCHRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBCW_PROF_DOC_SEARCHRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROF_DOC_SEARCHRowChanging As TBCW_PROF_DOC_SEARCHRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROF_DOC_SEARCHRowChanged As TBCW_PROF_DOC_SEARCHRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROF_DOC_SEARCHRowDeleting As TBCW_PROF_DOC_SEARCHRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROF_DOC_SEARCHRowDeleted As TBCW_PROF_DOC_SEARCHRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBCW_PROF_DOC_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal TAB_INDEX As Byte, ByVal ACTIVE As Boolean, ByVal TAB_TITLE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COUNT_COMMAND As String) As TBCW_PROF_DOC_SEARCHRow
|
|
Dim rowTBCW_PROF_DOC_SEARCHRow As TBCW_PROF_DOC_SEARCHRow = CType(Me.NewRow,TBCW_PROF_DOC_SEARCHRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND}
|
|
If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF) Is Nothing) Then
|
|
columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF(0)
|
|
End If
|
|
rowTBCW_PROF_DOC_SEARCHRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBCW_PROF_DOC_SEARCHRow)
|
|
Return rowTBCW_PROF_DOC_SEARCHRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DOC_SEARCHRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_DOC_SEARCHRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBCW_PROF_DOC_SEARCHDataTable = CType(MyBase.Clone,TBCW_PROF_DOC_SEARCHDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBCW_PROF_DOC_SEARCHDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID")
|
|
Me.columnCONN_ID = MyBase.Columns("CONN_ID")
|
|
Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND")
|
|
Me.columnTAB_INDEX = MyBase.Columns("TAB_INDEX")
|
|
Me.columnACTIVE = MyBase.Columns("ACTIVE")
|
|
Me.columnTAB_TITLE = MyBase.Columns("TAB_TITLE")
|
|
Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
|
|
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
|
|
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
|
|
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
|
|
Me.columnCOUNT_COMMAND = MyBase.Columns("COUNT_COMMAND")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPROFILE_ID)
|
|
Me.columnCONN_ID = New Global.System.Data.DataColumn("CONN_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCONN_ID)
|
|
Me.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSQL_COMMAND)
|
|
Me.columnTAB_INDEX = New Global.System.Data.DataColumn("TAB_INDEX", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnTAB_INDEX)
|
|
Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnACTIVE)
|
|
Me.columnTAB_TITLE = New Global.System.Data.DataColumn("TAB_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnTAB_TITLE)
|
|
Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnADDED_WHO)
|
|
Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnADDED_WHEN)
|
|
Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCHANGED_WHO)
|
|
Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCHANGED_WHEN)
|
|
Me.columnCOUNT_COMMAND = New Global.System.Data.DataColumn("COUNT_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnCOUNT_COMMAND)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AutoIncrementSeed = -1
|
|
Me.columnGUID.AutoIncrementStep = -1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnPROFILE_ID.AllowDBNull = false
|
|
Me.columnCONN_ID.AllowDBNull = false
|
|
Me.columnSQL_COMMAND.AllowDBNull = false
|
|
Me.columnSQL_COMMAND.MaxLength = 2147483647
|
|
Me.columnTAB_INDEX.AllowDBNull = false
|
|
Me.columnACTIVE.AllowDBNull = false
|
|
Me.columnTAB_TITLE.AllowDBNull = false
|
|
Me.columnTAB_TITLE.MaxLength = 100
|
|
Me.columnADDED_WHO.AllowDBNull = false
|
|
Me.columnADDED_WHO.MaxLength = 50
|
|
Me.columnCHANGED_WHO.MaxLength = 50
|
|
Me.columnCOUNT_COMMAND.MaxLength = 2147483647
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBCW_PROF_DOC_SEARCHRow() As TBCW_PROF_DOC_SEARCHRow
|
|
Return CType(Me.NewRow,TBCW_PROF_DOC_SEARCHRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBCW_PROF_DOC_SEARCHRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBCW_PROF_DOC_SEARCHRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROF_DOC_SEARCHRowChanged(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROF_DOC_SEARCHRowChanging(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBCW_PROF_DOC_SEARCHRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleted(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBCW_PROF_DOC_SEARCHRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleting(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "TBCW_PROF_DOC_SEARCHDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class TBCW_GROUP_PROFILEDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBCW_GROUP_PROFILERow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnPROFILE_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnGROUP_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnADDED_WHO As Global.System.Data.DataColumn
|
|
|
|
Private columnADDED_WHEN As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBCW_GROUP_PROFILE"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPROFILE_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_GROUP_PROFILERow
|
|
Get
|
|
Return CType(Me.Rows(index),TBCW_GROUP_PROFILERow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_GROUP_PROFILERowChanging As TBCW_GROUP_PROFILERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_GROUP_PROFILERowChanged As TBCW_GROUP_PROFILERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_GROUP_PROFILERowDeleting As TBCW_GROUP_PROFILERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_GROUP_PROFILERowDeleted As TBCW_GROUP_PROFILERowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBCW_GROUP_PROFILERow(ByVal row As TBCW_GROUP_PROFILERow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBCW_GROUP_PROFILERow(ByVal PROFILE_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBCW_GROUP_PROFILERow
|
|
Dim rowTBCW_GROUP_PROFILERow As TBCW_GROUP_PROFILERow = CType(Me.NewRow,TBCW_GROUP_PROFILERow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN}
|
|
rowTBCW_GROUP_PROFILERow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBCW_GROUP_PROFILERow)
|
|
Return rowTBCW_GROUP_PROFILERow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBCW_GROUP_PROFILERow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_GROUP_PROFILERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBCW_GROUP_PROFILEDataTable = CType(MyBase.Clone,TBCW_GROUP_PROFILEDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBCW_GROUP_PROFILEDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID")
|
|
Me.columnGROUP_ID = MyBase.Columns("GROUP_ID")
|
|
Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO")
|
|
Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPROFILE_ID)
|
|
Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnGROUP_ID)
|
|
Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnADDED_WHO)
|
|
Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnADDED_WHEN)
|
|
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
|
|
Me.columnGUID.AutoIncrement = true
|
|
Me.columnGUID.AutoIncrementSeed = -1
|
|
Me.columnGUID.AutoIncrementStep = -1
|
|
Me.columnGUID.AllowDBNull = false
|
|
Me.columnGUID.ReadOnly = true
|
|
Me.columnGUID.Unique = true
|
|
Me.columnPROFILE_ID.AllowDBNull = false
|
|
Me.columnGROUP_ID.AllowDBNull = false
|
|
Me.columnADDED_WHO.AllowDBNull = false
|
|
Me.columnADDED_WHO.MaxLength = 50
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBCW_GROUP_PROFILERow() As TBCW_GROUP_PROFILERow
|
|
Return CType(Me.NewRow,TBCW_GROUP_PROFILERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBCW_GROUP_PROFILERow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBCW_GROUP_PROFILERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBCW_GROUP_PROFILERowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_GROUP_PROFILERowChanged(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBCW_GROUP_PROFILERowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_GROUP_PROFILERowChanging(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBCW_GROUP_PROFILERowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_GROUP_PROFILERowDeleted(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBCW_GROUP_PROFILERowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_GROUP_PROFILERowDeleting(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBCW_GROUP_PROFILERow(ByVal row As TBCW_GROUP_PROFILERow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "TBCW_GROUP_PROFILEDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class VWCW_GROUP_PROFILEDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of VWCW_GROUP_PROFILERow)
|
|
|
|
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", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "VWCW_GROUP_PROFILE"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As VWCW_GROUP_PROFILERow
|
|
Get
|
|
Return CType(Me.Rows(index),VWCW_GROUP_PROFILERow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWCW_GROUP_PROFILERowChanging As VWCW_GROUP_PROFILERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWCW_GROUP_PROFILERowChanged As VWCW_GROUP_PROFILERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWCW_GROUP_PROFILERowDeleting As VWCW_GROUP_PROFILERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event VWCW_GROUP_PROFILERowDeleted As VWCW_GROUP_PROFILERowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddVWCW_GROUP_PROFILERow(ByVal row As VWCW_GROUP_PROFILERow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddVWCW_GROUP_PROFILERow(ByVal GUID As Integer, ByVal NAME As String) As VWCW_GROUP_PROFILERow
|
|
Dim rowVWCW_GROUP_PROFILERow As VWCW_GROUP_PROFILERow = CType(Me.NewRow,VWCW_GROUP_PROFILERow)
|
|
Dim columnValuesArray() As Object = New Object() {GUID, NAME}
|
|
rowVWCW_GROUP_PROFILERow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowVWCW_GROUP_PROFILERow)
|
|
Return rowVWCW_GROUP_PROFILERow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As VWCW_GROUP_PROFILERow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),VWCW_GROUP_PROFILERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As VWCW_GROUP_PROFILEDataTable = CType(MyBase.Clone,VWCW_GROUP_PROFILEDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New VWCW_GROUP_PROFILEDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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.AllowDBNull = false
|
|
Me.columnGUID.Unique = true
|
|
Me.columnNAME.MaxLength = 100
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewVWCW_GROUP_PROFILERow() As VWCW_GROUP_PROFILERow
|
|
Return CType(Me.NewRow,VWCW_GROUP_PROFILERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New VWCW_GROUP_PROFILERow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(VWCW_GROUP_PROFILERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.VWCW_GROUP_PROFILERowChangedEvent) Is Nothing) Then
|
|
RaiseEvent VWCW_GROUP_PROFILERowChanged(Me, New VWCW_GROUP_PROFILERowChangeEvent(CType(e.Row,VWCW_GROUP_PROFILERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.VWCW_GROUP_PROFILERowChangingEvent) Is Nothing) Then
|
|
RaiseEvent VWCW_GROUP_PROFILERowChanging(Me, New VWCW_GROUP_PROFILERowChangeEvent(CType(e.Row,VWCW_GROUP_PROFILERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.VWCW_GROUP_PROFILERowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent VWCW_GROUP_PROFILERowDeleted(Me, New VWCW_GROUP_PROFILERowChangeEvent(CType(e.Row,VWCW_GROUP_PROFILERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.VWCW_GROUP_PROFILERowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent VWCW_GROUP_PROFILERowDeleting(Me, New VWCW_GROUP_PROFILERowChangeEvent(CType(e.Row,VWCW_GROUP_PROFILERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveVWCW_GROUP_PROFILERow(ByVal row As VWCW_GROUP_PROFILERow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "VWCW_GROUP_PROFILEDataTable"
|
|
type.Attributes.Add(attribute2)
|
|
type.Particle = sequence
|
|
Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable
|
|
If xs.Contains(dsSchema.TargetNamespace) Then
|
|
Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
|
|
Try
|
|
Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing
|
|
dsSchema.Write(s1)
|
|
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
|
|
Do While schemas.MoveNext
|
|
schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
|
|
s2.SetLength(0)
|
|
schema.Write(s2)
|
|
If (s1.Length = s2.Length) Then
|
|
s1.Position = 0
|
|
s2.Position = 0
|
|
|
|
Do While ((s1.Position <> s1.Length) _
|
|
AndAlso (s1.ReadByte = s2.ReadByte))
|
|
|
|
|
|
Loop
|
|
If (s1.Position = s1.Length) Then
|
|
Return type
|
|
End If
|
|
End If
|
|
|
|
Loop
|
|
Finally
|
|
If (Not (s1) Is Nothing) Then
|
|
s1.Close
|
|
End If
|
|
If (Not (s2) Is Nothing) Then
|
|
s2.Close
|
|
End If
|
|
End Try
|
|
End If
|
|
xs.Add(dsSchema)
|
|
Return type
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents the strongly named DataTable class.
|
|
'''</summary>
|
|
<Global.System.Serializable(), _
|
|
Global.System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
|
|
Partial Public Class TBCW_PROF_REL_WINDOWDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_REL_WINDOWRow)
|
|
|
|
Private columnGUID As Global.System.Data.DataColumn
|
|
|
|
Private columnPROFILE_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnPROCESS_NAME As Global.System.Data.DataColumn
|
|
|
|
Private columnDESCRIPTION As Global.System.Data.DataColumn
|
|
|
|
Private columnREGEX As Global.System.Data.DataColumn
|
|
|
|
Private columnSEQUENCE As Global.System.Data.DataColumn
|
|
|
|
Private columnREGEX_CLIPBOARD 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", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBCW_PROF_REL_WINDOW"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPROFILE_ID
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property PROCESS_NAMEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnPROCESS_NAME
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnDESCRIPTION
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public ReadOnly Property REGEXColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnREGEX
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property REGEX_CLIPBOARDColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnREGEX_CLIPBOARD
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_REL_WINDOWRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBCW_PROF_REL_WINDOWRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROF_REL_WINDOWRowChanging As TBCW_PROF_REL_WINDOWRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROF_REL_WINDOWRowChanged As TBCW_PROF_REL_WINDOWRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROF_REL_WINDOWRowDeleting As TBCW_PROF_REL_WINDOWRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBCW_PROF_REL_WINDOWRowDeleted As TBCW_PROF_REL_WINDOWRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBCW_PROF_REL_WINDOWRow(ByVal row As TBCW_PROF_REL_WINDOWRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBCW_PROF_REL_WINDOWRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_REL_CONTROL_PROF_ID As TBCW_PROFILESRow, ByVal PROCESS_NAME As String, ByVal DESCRIPTION As String, ByVal REGEX As String, ByVal SEQUENCE As Byte, ByVal REGEX_CLIPBOARD As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBCW_PROF_REL_WINDOWRow
|
|
Dim rowTBCW_PROF_REL_WINDOWRow As TBCW_PROF_REL_WINDOWRow = CType(Me.NewRow,TBCW_PROF_REL_WINDOWRow)
|
|
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, REGEX_CLIPBOARD, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN}
|
|
If (Not (parentTBCW_PROFILESRowByFK_TBCW_PROF_REL_CONTROL_PROF_ID) Is Nothing) Then
|
|
columnValuesArray(1) = parentTBCW_PROFILESRowByFK_TBCW_PROF_REL_CONTROL_PROF_ID(0)
|
|
End If
|
|
rowTBCW_PROF_REL_WINDOWRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBCW_PROF_REL_WINDOWRow)
|
|
Return rowTBCW_PROF_REL_WINDOWRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_REL_WINDOWRow
|
|
Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_REL_WINDOWRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBCW_PROF_REL_WINDOWDataTable = CType(MyBase.Clone,TBCW_PROF_REL_WINDOWDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBCW_PROF_REL_WINDOWDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnGUID = MyBase.Columns("GUID")
|
|
Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID")
|
|
Me.columnPROCESS_NAME = MyBase.Columns("PROCESS_NAME")
|
|
Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION")
|
|
Me.columnREGEX = MyBase.Columns("REGEX")
|
|
Me.columnSEQUENCE = MyBase.Columns("SEQUENCE")
|
|
Me.columnREGEX_CLIPBOARD = MyBase.Columns("REGEX_CLIPBOARD")
|
|
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", "15.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.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPROFILE_ID)
|
|
Me.columnPROCESS_NAME = New Global.System.Data.DataColumn("PROCESS_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnPROCESS_NAME)
|
|
Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnDESCRIPTION)
|
|
Me.columnREGEX = New Global.System.Data.DataColumn("REGEX", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnREGEX)
|
|
Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnSEQUENCE)
|
|
Me.columnREGEX_CLIPBOARD = New Global.System.Data.DataColumn("REGEX_CLIPBOARD", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnREGEX_CLIPBOARD)
|
|
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.columnPROFILE_ID.AllowDBNull = false
|
|
Me.columnPROCESS_NAME.AllowDBNull = false
|
|
Me.columnPROCESS_NAME.MaxLength = 250
|
|
Me.columnDESCRIPTION.AllowDBNull = false
|
|
Me.columnDESCRIPTION.MaxLength = 250
|
|
Me.columnREGEX.AllowDBNull = false
|
|
Me.columnREGEX.MaxLength = 500
|
|
Me.columnSEQUENCE.AllowDBNull = false
|
|
Me.columnREGEX_CLIPBOARD.AllowDBNull = false
|
|
Me.columnREGEX_CLIPBOARD.MaxLength = 500
|
|
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", "15.0.0.0")> _
|
|
Public Function NewTBCW_PROF_REL_WINDOWRow() As TBCW_PROF_REL_WINDOWRow
|
|
Return CType(Me.NewRow,TBCW_PROF_REL_WINDOWRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBCW_PROF_REL_WINDOWRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBCW_PROF_REL_WINDOWRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBCW_PROF_REL_WINDOWRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROF_REL_WINDOWRowChanged(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBCW_PROF_REL_WINDOWRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROF_REL_WINDOWRowChanging(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBCW_PROF_REL_WINDOWRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROF_REL_WINDOWRowDeleted(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBCW_PROF_REL_WINDOWRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBCW_PROF_REL_WINDOWRowDeleting(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBCW_PROF_REL_WINDOWRow(ByVal row As TBCW_PROF_REL_WINDOWRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "TBCW_PROF_REL_WINDOWDataTable"
|
|
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_UserDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBWH_UserRow)
|
|
|
|
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", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBWH_User"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_UserRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBWH_UserRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBWH_UserRowChanging As TBWH_UserRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBWH_UserRowChanged As TBWH_UserRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBWH_UserRowDeleting As TBWH_UserRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBWH_UserRowDeleted As TBWH_UserRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBWH_UserRow(ByVal row As TBWH_UserRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBWH_UserRow(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_UserRow
|
|
Dim rowTBWH_UserRow As TBWH_UserRow = CType(Me.NewRow,TBWH_UserRow)
|
|
Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID}
|
|
rowTBWH_UserRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBWH_UserRow)
|
|
Return rowTBWH_UserRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBWH_UserDataTable = CType(MyBase.Clone,TBWH_UserDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBWH_UserDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.0.0.0")> _
|
|
Public Function NewTBWH_UserRow() As TBWH_UserRow
|
|
Return CType(Me.NewRow,TBWH_UserRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBWH_UserRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBWH_UserRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBWH_UserRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBWH_UserRowChanged(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBWH_UserRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBWH_UserRowChanging(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBWH_UserRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBWH_UserRowDeleted(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBWH_UserRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBWH_UserRowDeleting(Me, New TBWH_UserRowChangeEvent(CType(e.Row,TBWH_UserRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBWH_UserRow(ByVal row As TBWH_UserRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "TBWH_UserDataTable"
|
|
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_GROUPDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBWH_GROUPRow)
|
|
|
|
Private columnID 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", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBWH_GROUP"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_GROUPRow
|
|
Get
|
|
Return CType(Me.Rows(index),TBWH_GROUPRow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBWH_GROUPRowChanging As TBWH_GROUPRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBWH_GROUPRowChanged As TBWH_GROUPRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBWH_GROUPRowDeleting As TBWH_GROUPRowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBWH_GROUPRowDeleted As TBWH_GROUPRowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBWH_GROUPRow(ByVal row As TBWH_GROUPRow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBWH_GROUPRow(ByVal ID As String, ByVal NAME As String) As TBWH_GROUPRow
|
|
Dim rowTBWH_GROUPRow As TBWH_GROUPRow = CType(Me.NewRow,TBWH_GROUPRow)
|
|
Dim columnValuesArray() As Object = New Object() {ID, NAME}
|
|
rowTBWH_GROUPRow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBWH_GROUPRow)
|
|
Return rowTBWH_GROUPRow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBWH_GROUPDataTable = CType(MyBase.Clone,TBWH_GROUPDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBWH_GROUPDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnID = MyBase.Columns("ID")
|
|
Me.columnNAME = MyBase.Columns("NAME")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnID = New Global.System.Data.DataColumn("ID", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnID)
|
|
Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnNAME)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBWH_GROUPRow() As TBWH_GROUPRow
|
|
Return CType(Me.NewRow,TBWH_GROUPRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBWH_GROUPRow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBWH_GROUPRow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBWH_GROUPRowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBWH_GROUPRowChanged(Me, New TBWH_GROUPRowChangeEvent(CType(e.Row,TBWH_GROUPRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBWH_GROUPRowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBWH_GROUPRowChanging(Me, New TBWH_GROUPRowChangeEvent(CType(e.Row,TBWH_GROUPRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBWH_GROUPRowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBWH_GROUPRowDeleted(Me, New TBWH_GROUPRowChangeEvent(CType(e.Row,TBWH_GROUPRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBWH_GROUPRowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBWH_GROUPRowDeleting(Me, New TBWH_GROUPRowChangeEvent(CType(e.Row,TBWH_GROUPRow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBWH_GROUPRow(ByVal row As TBWH_GROUPRow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "TBWH_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 TBWH_PROFILE_TYPEDataTable
|
|
Inherits Global.System.Data.TypedTableBase(Of TBWH_PROFILE_TYPERow)
|
|
|
|
Private columnTYPE_ID As Global.System.Data.DataColumn
|
|
|
|
Private columnTYPE_NAME As Global.System.Data.DataColumn
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.TableName = "TBWH_PROFILE_TYPE"
|
|
Me.BeginInit
|
|
Me.InitClass
|
|
Me.EndInit
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.0.0.0")> _
|
|
Public ReadOnly Property TYPE_NAMEColumn() As Global.System.Data.DataColumn
|
|
Get
|
|
Return Me.columnTYPE_NAME
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_PROFILE_TYPERow
|
|
Get
|
|
Return CType(Me.Rows(index),TBWH_PROFILE_TYPERow)
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBWH_PROFILE_TYPERowChanging As TBWH_PROFILE_TYPERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBWH_PROFILE_TYPERowChanged As TBWH_PROFILE_TYPERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBWH_PROFILE_TYPERowDeleting As TBWH_PROFILE_TYPERowChangeEventHandler
|
|
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Event TBWH_PROFILE_TYPERowDeleted As TBWH_PROFILE_TYPERowChangeEventHandler
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Sub AddTBWH_PROFILE_TYPERow(ByVal row As TBWH_PROFILE_TYPERow)
|
|
Me.Rows.Add(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overloads Function AddTBWH_PROFILE_TYPERow(ByVal TYPE_ID As Short, ByVal TYPE_NAME As String) As TBWH_PROFILE_TYPERow
|
|
Dim rowTBWH_PROFILE_TYPERow As TBWH_PROFILE_TYPERow = CType(Me.NewRow,TBWH_PROFILE_TYPERow)
|
|
Dim columnValuesArray() As Object = New Object() {TYPE_ID, TYPE_NAME}
|
|
rowTBWH_PROFILE_TYPERow.ItemArray = columnValuesArray
|
|
Me.Rows.Add(rowTBWH_PROFILE_TYPERow)
|
|
Return rowTBWH_PROFILE_TYPERow
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Overrides Function Clone() As Global.System.Data.DataTable
|
|
Dim cln As TBWH_PROFILE_TYPEDataTable = CType(MyBase.Clone,TBWH_PROFILE_TYPEDataTable)
|
|
cln.InitVars
|
|
Return cln
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
|
|
Return New TBWH_PROFILE_TYPEDataTable()
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub InitVars()
|
|
Me.columnTYPE_ID = MyBase.Columns("TYPE_ID")
|
|
Me.columnTYPE_NAME = MyBase.Columns("TYPE_NAME")
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitClass()
|
|
Me.columnTYPE_ID = New Global.System.Data.DataColumn("TYPE_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnTYPE_ID)
|
|
Me.columnTYPE_NAME = New Global.System.Data.DataColumn("TYPE_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element)
|
|
MyBase.Columns.Add(Me.columnTYPE_NAME)
|
|
Me.columnTYPE_ID.AllowDBNull = false
|
|
Me.columnTYPE_ID.DefaultValue = CType(0,Short)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function NewTBWH_PROFILE_TYPERow() As TBWH_PROFILE_TYPERow
|
|
Return CType(Me.NewRow,TBWH_PROFILE_TYPERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
|
|
Return New TBWH_PROFILE_TYPERow(builder)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Function GetRowType() As Global.System.Type
|
|
Return GetType(TBWH_PROFILE_TYPERow)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanged(e)
|
|
If (Not (Me.TBWH_PROFILE_TYPERowChangedEvent) Is Nothing) Then
|
|
RaiseEvent TBWH_PROFILE_TYPERowChanged(Me, New TBWH_PROFILE_TYPERowChangeEvent(CType(e.Row,TBWH_PROFILE_TYPERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowChanging(e)
|
|
If (Not (Me.TBWH_PROFILE_TYPERowChangingEvent) Is Nothing) Then
|
|
RaiseEvent TBWH_PROFILE_TYPERowChanging(Me, New TBWH_PROFILE_TYPERowChangeEvent(CType(e.Row,TBWH_PROFILE_TYPERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleted(e)
|
|
If (Not (Me.TBWH_PROFILE_TYPERowDeletedEvent) Is Nothing) Then
|
|
RaiseEvent TBWH_PROFILE_TYPERowDeleted(Me, New TBWH_PROFILE_TYPERowChangeEvent(CType(e.Row,TBWH_PROFILE_TYPERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
|
|
MyBase.OnRowDeleting(e)
|
|
If (Not (Me.TBWH_PROFILE_TYPERowDeletingEvent) Is Nothing) Then
|
|
RaiseEvent TBWH_PROFILE_TYPERowDeleting(Me, New TBWH_PROFILE_TYPERowChangeEvent(CType(e.Row,TBWH_PROFILE_TYPERow), e.Action))
|
|
End If
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub RemoveTBWH_PROFILE_TYPERow(ByVal row As TBWH_PROFILE_TYPERow)
|
|
Me.Rows.Remove(row)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset = New MyDataset()
|
|
Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any1.Namespace = "http://www.w3.org/2001/XMLSchema"
|
|
any1.MinOccurs = New Decimal(0)
|
|
any1.MaxOccurs = Decimal.MaxValue
|
|
any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any1)
|
|
Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny()
|
|
any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1"
|
|
any2.MinOccurs = New Decimal(1)
|
|
any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax
|
|
sequence.Items.Add(any2)
|
|
Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute1.Name = "namespace"
|
|
attribute1.FixedValue = ds.Namespace
|
|
type.Attributes.Add(attribute1)
|
|
Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute()
|
|
attribute2.Name = "tableTypeName"
|
|
attribute2.FixedValue = "TBWH_PROFILE_TYPEDataTable"
|
|
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 TBCW_PROFILESRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBCW_PROFILES As TBCW_PROFILESDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBCW_PROFILES = CType(Me.Table,TBCW_PROFILESDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROFILES.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROFILES.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property NAME() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROFILES.NAMEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROFILES.NAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property COMMENT() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBCW_PROFILES.COMMENTColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBCW_PROFILES ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROFILES.COMMENTColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property WD_SEARCH() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROFILES.WD_SEARCHColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROFILES.WD_SEARCHColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property REGEX_EXPRESSION() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROFILES.REGEX_EXPRESSIONColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ADDED_WHO() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROFILES.ADDED_WHOColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ADDED_WHEN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROFILES ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property CHANGED_WHO() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROFILES ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property CHANGED_WHEN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROFILES ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ACTIVE() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROFILES.ACTIVEColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROFILES.ACTIVEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PROFILE_TYPE() As Short
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn),Short)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROFILES.PROFILE_TYPEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsCOMMENTNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBCW_PROFILES.COMMENTColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetCOMMENTNull()
|
|
Me(Me.tableTBCW_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsADDED_WHENNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBCW_PROFILES.ADDED_WHENColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetADDED_WHENNull()
|
|
Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsCHANGED_WHONull() As Boolean
|
|
Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHOColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetCHANGED_WHONull()
|
|
Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsCHANGED_WHENNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHENColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetCHANGED_WHENNull()
|
|
Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function GetTBCW_PROF_DATA_SEARCHRows() As TBCW_PROF_DATA_SEARCHRow()
|
|
If (Me.Table.ChildRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF") Is Nothing) Then
|
|
Return New TBCW_PROF_DATA_SEARCHRow(-1) {}
|
|
Else
|
|
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")),TBCW_PROF_DATA_SEARCHRow())
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function GetTBCW_PROF_DOC_SEARCHRows() As TBCW_PROF_DOC_SEARCHRow()
|
|
If (Me.Table.ChildRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF") Is Nothing) Then
|
|
Return New TBCW_PROF_DOC_SEARCHRow(-1) {}
|
|
Else
|
|
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")),TBCW_PROF_DOC_SEARCHRow())
|
|
End If
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function GetTBCW_PROF_REL_WINDOWRows() As TBCW_PROF_REL_WINDOWRow()
|
|
If (Me.Table.ChildRelations("FK_TBCW_PROF_REL_CONTROL_PROF_ID") Is Nothing) Then
|
|
Return New TBCW_PROF_REL_WINDOWRow(-1) {}
|
|
Else
|
|
Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBCW_PROF_REL_CONTROL_PROF_ID")),TBCW_PROF_REL_WINDOWRow())
|
|
End If
|
|
End Function
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBCW_USER_PROFILERow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBCW_USER_PROFILE As TBCW_USER_PROFILEDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBCW_USER_PROFILE = CType(Me.Table,TBCW_USER_PROFILEDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_USER_PROFILE.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_USER_PROFILE.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PROFILE_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_USER_PROFILE.PROFILE_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_USER_PROFILE.PROFILE_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property USER_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_USER_PROFILE.USER_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_USER_PROFILE.USER_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ADDED_WHO() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_USER_PROFILE.ADDED_WHOColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_USER_PROFILE.ADDED_WHOColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ADDED_WHEN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_USER_PROFILE ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsADDED_WHENNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetADDED_WHENNull()
|
|
Me(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class VWUSER_PROFILERow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableVWUSER_PROFILE As VWUSER_PROFILEDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableVWUSER_PROFILE = CType(Me.Table,VWUSER_PROFILEDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableVWUSER_PROFILE.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWUSER_PROFILE.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PROFILE_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableVWUSER_PROFILE.PROFILE_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWUSER_PROFILE.PROFILE_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property USERNAME() As String
|
|
Get
|
|
Return CType(Me(Me.tableVWUSER_PROFILE.USERNAMEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWUSER_PROFILE.USERNAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property NAME() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWUSER_PROFILE.NAMEColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWUSER_PROFILE ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWUSER_PROFILE.NAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PRENAME() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWUSER_PROFILE.PRENAMEColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PRENAME in Tabelle VWUSER_PROFILE ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWUSER_PROFILE.PRENAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsNAMENull() As Boolean
|
|
Return Me.IsNull(Me.tableVWUSER_PROFILE.NAMEColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetNAMENull()
|
|
Me(Me.tableVWUSER_PROFILE.NAMEColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsPRENAMENull() As Boolean
|
|
Return Me.IsNull(Me.tableVWUSER_PROFILE.PRENAMEColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetPRENAMENull()
|
|
Me(Me.tableVWUSER_PROFILE.PRENAMEColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBCW_PROFILE_PROCESSRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBCW_PROFILE_PROCESS As TBCW_PROFILE_PROCESSDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBCW_PROFILE_PROCESS = CType(Me.Table,TBCW_PROFILE_PROCESSDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROFILE_PROCESS.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PROFILE_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.PROFILE_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROFILE_PROCESS.PROFILE_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PROC_NAME() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.PROC_NAMEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROFILE_PROCESS.PROC_NAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ADDED_WHO() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHOColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHOColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ADDED_WHEN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROFILE_PROCESS ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsADDED_WHENNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetADDED_WHENNull()
|
|
Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBCW_PROF_DATA_SEARCHRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBCW_PROF_DATA_SEARCH As TBCW_PROF_DATA_SEARCHDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBCW_PROF_DATA_SEARCH = CType(Me.Table,TBCW_PROF_DATA_SEARCHDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DATA_SEARCH.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PROFILE_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DATA_SEARCH.PROFILE_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property CONN_ID() As Byte
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CONN_IDColumn),Byte)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DATA_SEARCH.CONN_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property SQL_COMMAND() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.SQL_COMMANDColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DATA_SEARCH.SQL_COMMANDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property TAB_INDEX() As Byte
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_INDEXColumn),Byte)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_INDEXColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ACTIVE() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ACTIVEColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DATA_SEARCH.ACTIVEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property TAB_TITLE() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_TITLEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DATA_SEARCH.TAB_TITLEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ADDED_WHO() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHOColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ADDED_WHEN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property CHANGED_WHO() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property CHANGED_WHEN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_DATA_SEARCH ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property COUNT_COMMAND() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_DATA_SEARCH.COUNT_COMMANDColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DATA_SEARCH.COUNT_COMMANDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property TBCW_PROFILESRow() As TBCW_PROFILESRow
|
|
Get
|
|
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF")),TBCW_PROFILESRow)
|
|
End Get
|
|
Set
|
|
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBCW_PROF_DATA_SEARCH_PROF_IF"))
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsADDED_WHENNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetADDED_WHENNull()
|
|
Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsCHANGED_WHONull() As Boolean
|
|
Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetCHANGED_WHONull()
|
|
Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsCHANGED_WHENNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetCHANGED_WHENNull()
|
|
Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBCW_PROF_DOC_SEARCHRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBCW_PROF_DOC_SEARCH As TBCW_PROF_DOC_SEARCHDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBCW_PROF_DOC_SEARCH = CType(Me.Table,TBCW_PROF_DOC_SEARCHDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DOC_SEARCH.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PROFILE_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DOC_SEARCH.PROFILE_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property CONN_ID() As Byte
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CONN_IDColumn),Byte)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DOC_SEARCH.CONN_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property SQL_COMMAND() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.SQL_COMMANDColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DOC_SEARCH.SQL_COMMANDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property TAB_INDEX() As Byte
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_INDEXColumn),Byte)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_INDEXColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ACTIVE() As Boolean
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ACTIVEColumn),Boolean)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DOC_SEARCH.ACTIVEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property TAB_TITLE() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_TITLEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DOC_SEARCH.TAB_TITLEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ADDED_WHO() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHOColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ADDED_WHEN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property CHANGED_WHO() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property CHANGED_WHEN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property COUNT_COMMAND() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COUNT_COMMAND in Tabelle TBCW_PROF_DOC_SEARCH ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property TBCW_PROFILESRow() As TBCW_PROFILESRow
|
|
Get
|
|
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF")),TBCW_PROFILESRow)
|
|
End Get
|
|
Set
|
|
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBCW_PROF_DOC_SEARCH_PROF_IF"))
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsADDED_WHENNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetADDED_WHENNull()
|
|
Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsCHANGED_WHONull() As Boolean
|
|
Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetCHANGED_WHONull()
|
|
Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsCHANGED_WHENNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetCHANGED_WHENNull()
|
|
Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsCOUNT_COMMANDNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetCOUNT_COMMANDNull()
|
|
Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBCW_GROUP_PROFILERow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBCW_GROUP_PROFILE As TBCW_GROUP_PROFILEDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBCW_GROUP_PROFILE = CType(Me.Table,TBCW_GROUP_PROFILEDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_GROUP_PROFILE.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_GROUP_PROFILE.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PROFILE_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_GROUP_PROFILE.PROFILE_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_GROUP_PROFILE.PROFILE_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GROUP_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_GROUP_PROFILE.GROUP_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_GROUP_PROFILE.GROUP_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ADDED_WHO() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHOColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHOColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ADDED_WHEN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHENColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_GROUP_PROFILE ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsADDED_WHENNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBCW_GROUP_PROFILE.ADDED_WHENColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetADDED_WHENNull()
|
|
Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class VWCW_GROUP_PROFILERow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableVWCW_GROUP_PROFILE As VWCW_GROUP_PROFILEDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableVWCW_GROUP_PROFILE = CType(Me.Table,VWCW_GROUP_PROFILEDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableVWCW_GROUP_PROFILE.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWCW_GROUP_PROFILE.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property NAME() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableVWCW_GROUP_PROFILE.NAMEColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle VWCW_GROUP_PROFILE ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableVWCW_GROUP_PROFILE.NAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsNAMENull() As Boolean
|
|
Return Me.IsNull(Me.tableVWCW_GROUP_PROFILE.NAMEColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetNAMENull()
|
|
Me(Me.tableVWCW_GROUP_PROFILE.NAMEColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBCW_PROF_REL_WINDOWRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBCW_PROF_REL_WINDOW As TBCW_PROF_REL_WINDOWDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBCW_PROF_REL_WINDOW = CType(Me.Table,TBCW_PROF_REL_WINDOWDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property GUID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.GUIDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_REL_WINDOW.GUIDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PROFILE_ID() As Integer
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.PROFILE_IDColumn),Integer)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_REL_WINDOW.PROFILE_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property PROCESS_NAME() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.PROCESS_NAMEColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_REL_WINDOW.PROCESS_NAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property DESCRIPTION() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.DESCRIPTIONColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_REL_WINDOW.DESCRIPTIONColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property REGEX() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.REGEXColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_REL_WINDOW.REGEXColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property SEQUENCE() As Byte
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.SEQUENCEColumn),Byte)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_REL_WINDOW.SEQUENCEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property REGEX_CLIPBOARD() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.REGEX_CLIPBOARDColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_REL_WINDOW.REGEX_CLIPBOARDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ADDED_WHO() As String
|
|
Get
|
|
Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHOColumn),String)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHOColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ADDED_WHEN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHENColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBCW_PROF_REL_WINDOW ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property CHANGED_WHO() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHOColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBCW_PROF_REL_WINDOW ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHOColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property CHANGED_WHEN() As Date
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHENColumn),Date)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBCW_PROF_REL_WINDOW ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHENColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property TBCW_PROFILESRow() As TBCW_PROFILESRow
|
|
Get
|
|
Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBCW_PROF_REL_CONTROL_PROF_ID")),TBCW_PROFILESRow)
|
|
End Get
|
|
Set
|
|
Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBCW_PROF_REL_CONTROL_PROF_ID"))
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsADDED_WHENNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHENColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetADDED_WHENNull()
|
|
Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHENColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsCHANGED_WHONull() As Boolean
|
|
Return Me.IsNull(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHOColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetCHANGED_WHONull()
|
|
Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHOColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsCHANGED_WHENNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHENColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetCHANGED_WHENNull()
|
|
Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHENColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBWH_UserRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBWH_User As TBWH_UserDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBWH_User = CType(Me.Table,TBWH_UserDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property _Select() As Boolean
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBWH_User.SelectColumn),Boolean)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBWH_User ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBWH_User.SelectColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property Username() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBWH_User.UsernameColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBWH_User ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBWH_User.UsernameColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property Prename() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBWH_User.PrenameColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBWH_User ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBWH_User.PrenameColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property Surname() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBWH_User.SurnameColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBWH_User ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBWH_User.SurnameColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property Email() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBWH_User.EmailColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBWH_User ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBWH_User.EmailColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ID() As Short
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBWH_User.IDColumn),Short)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBWH_User ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBWH_User.IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function Is_SelectNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBWH_User.SelectColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub Set_SelectNull()
|
|
Me(Me.tableTBWH_User.SelectColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsUsernameNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBWH_User.UsernameColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetUsernameNull()
|
|
Me(Me.tableTBWH_User.UsernameColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsPrenameNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBWH_User.PrenameColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetPrenameNull()
|
|
Me(Me.tableTBWH_User.PrenameColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsSurnameNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBWH_User.SurnameColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetSurnameNull()
|
|
Me(Me.tableTBWH_User.SurnameColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsEmailNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBWH_User.EmailColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetEmailNull()
|
|
Me(Me.tableTBWH_User.EmailColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsIDNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBWH_User.IDColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetIDNull()
|
|
Me(Me.tableTBWH_User.IDColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBWH_GROUPRow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBWH_GROUP As TBWH_GROUPDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBWH_GROUP = CType(Me.Table,TBWH_GROUPDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property ID() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBWH_GROUP.IDColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBWH_GROUP ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBWH_GROUP.IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property NAME() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBWH_GROUP.NAMEColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBWH_GROUP ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBWH_GROUP.NAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsIDNull() As Boolean
|
|
Return Me.IsNull(Me.tableTBWH_GROUP.IDColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetIDNull()
|
|
Me(Me.tableTBWH_GROUP.IDColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsNAMENull() As Boolean
|
|
Return Me.IsNull(Me.tableTBWH_GROUP.NAMEColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetNAMENull()
|
|
Me(Me.tableTBWH_GROUP.NAMEColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Represents strongly named DataRow class.
|
|
'''</summary>
|
|
Partial Public Class TBWH_PROFILE_TYPERow
|
|
Inherits Global.System.Data.DataRow
|
|
|
|
Private tableTBWH_PROFILE_TYPE As TBWH_PROFILE_TYPEDataTable
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
|
|
MyBase.New(rb)
|
|
Me.tableTBWH_PROFILE_TYPE = CType(Me.Table,TBWH_PROFILE_TYPEDataTable)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property TYPE_ID() As Short
|
|
Get
|
|
Return CType(Me(Me.tableTBWH_PROFILE_TYPE.TYPE_IDColumn),Short)
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBWH_PROFILE_TYPE.TYPE_IDColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Property TYPE_NAME() As String
|
|
Get
|
|
Try
|
|
Return CType(Me(Me.tableTBWH_PROFILE_TYPE.TYPE_NAMEColumn),String)
|
|
Catch e As Global.System.InvalidCastException
|
|
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYPE_NAME in Tabelle TBWH_PROFILE_TYPE ist DBNull.", e)
|
|
End Try
|
|
End Get
|
|
Set
|
|
Me(Me.tableTBWH_PROFILE_TYPE.TYPE_NAMEColumn) = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Function IsTYPE_NAMENull() As Boolean
|
|
Return Me.IsNull(Me.tableTBWH_PROFILE_TYPE.TYPE_NAMEColumn)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub SetTYPE_NAMENull()
|
|
Me(Me.tableTBWH_PROFILE_TYPE.TYPE_NAMEColumn) = Global.System.Convert.DBNull
|
|
End Sub
|
|
End Class
|
|
|
|
'''<summary>
|
|
'''Row event argument class
|
|
'''</summary>
|
|
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Class TBCW_PROFILESRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBCW_PROFILESRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBCW_PROFILESRow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBCW_PROFILESRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class TBCW_USER_PROFILERowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBCW_USER_PROFILERow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBCW_USER_PROFILERow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBCW_USER_PROFILERow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class VWUSER_PROFILERowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As VWUSER_PROFILERow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As VWUSER_PROFILERow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As VWUSER_PROFILERow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class TBCW_PROFILE_PROCESSRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBCW_PROFILE_PROCESSRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBCW_PROFILE_PROCESSRow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBCW_PROFILE_PROCESSRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class TBCW_PROF_DATA_SEARCHRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBCW_PROF_DATA_SEARCHRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBCW_PROF_DATA_SEARCHRow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBCW_PROF_DATA_SEARCHRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class TBCW_PROF_DOC_SEARCHRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBCW_PROF_DOC_SEARCHRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBCW_PROF_DOC_SEARCHRow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBCW_PROF_DOC_SEARCHRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class TBCW_GROUP_PROFILERowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBCW_GROUP_PROFILERow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBCW_GROUP_PROFILERow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBCW_GROUP_PROFILERow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class VWCW_GROUP_PROFILERowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As VWCW_GROUP_PROFILERow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As VWCW_GROUP_PROFILERow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As VWCW_GROUP_PROFILERow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class TBCW_PROF_REL_WINDOWRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBCW_PROF_REL_WINDOWRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBCW_PROF_REL_WINDOWRow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBCW_PROF_REL_WINDOWRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class TBWH_UserRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBWH_UserRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBWH_UserRow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBWH_UserRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class TBWH_GROUPRowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBWH_GROUPRow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBWH_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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBWH_GROUPRow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.0.0.0")> _
|
|
Public Class TBWH_PROFILE_TYPERowChangeEvent
|
|
Inherits Global.System.EventArgs
|
|
|
|
Private eventRow As TBWH_PROFILE_TYPERow
|
|
|
|
Private eventAction As Global.System.Data.DataRowAction
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Public Sub New(ByVal row As TBWH_PROFILE_TYPERow, 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", "15.0.0.0")> _
|
|
Public ReadOnly Property Row() As TBWH_PROFILE_TYPERow
|
|
Get
|
|
Return Me.eventRow
|
|
End Get
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDatasetTableAdapters
|
|
|
|
'''<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 TBCW_PROFILESTableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "TBCW_PROFILES"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("NAME", "NAME")
|
|
tableMapping.ColumnMappings.Add("COMMENT", "COMMENT")
|
|
tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH")
|
|
tableMapping.ColumnMappings.Add("REGEX_EXPRESSION", "REGEX_EXPRESSION")
|
|
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("ACTIVE", "ACTIVE")
|
|
tableMapping.ColumnMappings.Add("PROFILE_TYPE", "PROFILE_TYPE")
|
|
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 [TBCW_PROFILES] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Origi"& _
|
|
"nal_NAME) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Orig"& _
|
|
"inal_COMMENT)) AND ([WD_SEARCH] = @Original_WD_SEARCH) AND ([REGEX_EXPRESSION] ="& _
|
|
" @Original_REGEX_EXPRESSION) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNu"& _
|
|
"ll_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_W"& _
|
|
"HEN)) 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 ([ACTIVE] = @Original_AC"& _
|
|
"TIVE) AND ([PROFILE_TYPE] = @Original_PROFILE_TYPE))"
|
|
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_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("@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("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", 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_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("@Original_PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", 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 [TBCW_PROFILES] ([NAME], [COMMENT], [WD_SEARCH], [REGEX_EXPRESSION], "& _
|
|
"[ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [ACTIVE], [PROFILE_TYP"& _
|
|
"E]) VALUES (@NAME, @COMMENT, @WD_SEARCH, @REGEX_EXPRESSION, @ADDED_WHO, @ADDED_W"& _
|
|
"HEN, @CHANGED_WHO, @CHANGED_WHEN, @ACTIVE, @PROFILE_TYPE);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, C"& _
|
|
"OMMENT, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _
|
|
"_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES 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("@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("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", 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("@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("@PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", 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 TBCW_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, COMMENT = @COMMENT, "& _
|
|
"WD_SEARCH = @WD_SEARCH, REGEX_EXPRESSION = @REGEX_EXPRESSION, CHANGED_WHO = @CHA"& _
|
|
"NGED_WHO, ACTIVE = @ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PROFILE_TYPE = @PROFILE_T"& _
|
|
"YPE"&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, NAME, COMMENT, WD"& _
|
|
"_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM"& _
|
|
" TBCW_PROFILES 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("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX_EXPRESSION", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_EXPRESSION", 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("@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("@PROFILE_TYPE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_TYPE", 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", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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, WD_SEARCH, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, C"& _
|
|
"HANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE FROM TBCW_PROFILES"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.TBCW_PROFILESDataTable) 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", "15.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 MyDataset.TBCW_PROFILESDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As MyDataset.TBCW_PROFILESDataTable = New MyDataset.TBCW_PROFILESDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROFILESDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBCW_PROFILES")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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_COMMENT As String, ByVal Original_WD_SEARCH As String, ByVal Original_REGEX_EXPRESSION 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 Original_ACTIVE As Boolean, ByVal Original_PROFILE_TYPE As Short) As Integer
|
|
Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer)
|
|
If (Original_NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_NAME")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME,String)
|
|
End If
|
|
If (Original_COMMENT Is Nothing) Then
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(1,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(2).Value = CType(0,Object)
|
|
Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_COMMENT,String)
|
|
End If
|
|
If (Original_WD_SEARCH Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_WD_SEARCH")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_WD_SEARCH,String)
|
|
End If
|
|
If (Original_REGEX_EXPRESSION Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("Original_REGEX_EXPRESSION")
|
|
Else
|
|
Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_REGEX_EXPRESSION,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
|
|
Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_ACTIVE,Boolean)
|
|
Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_PROFILE_TYPE,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", "15.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 WD_SEARCH As String, ByVal REGEX_EXPRESSION 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 ACTIVE As Boolean, ByVal PROFILE_TYPE As Short) 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 (WD_SEARCH Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("WD_SEARCH")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(2).Value = CType(WD_SEARCH,String)
|
|
End If
|
|
If (REGEX_EXPRESSION Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(3).Value = CType(REGEX_EXPRESSION,String)
|
|
End If
|
|
If (ADDED_WHO Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("ADDED_WHO")
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHO,String)
|
|
End If
|
|
If (ADDED_WHEN.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHEN.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value
|
|
End If
|
|
If (CHANGED_WHO Is Nothing) Then
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHO,String)
|
|
End If
|
|
If (CHANGED_WHEN.HasValue = true) Then
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHEN.Value,Date)
|
|
Else
|
|
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
|
|
End If
|
|
Me.Adapter.InsertCommand.Parameters(8).Value = CType(ACTIVE,Boolean)
|
|
Me.Adapter.InsertCommand.Parameters(9).Value = CType(PROFILE_TYPE,Short)
|
|
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", "15.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 WD_SEARCH As String, ByVal REGEX_EXPRESSION As String, ByVal CHANGED_WHO As String, ByVal ACTIVE As Boolean, ByVal PROFILE_TYPE As Short, 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 (WD_SEARCH Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("WD_SEARCH")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(WD_SEARCH,String)
|
|
End If
|
|
If (REGEX_EXPRESSION Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION")
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(3).Value = CType(REGEX_EXPRESSION,String)
|
|
End If
|
|
If (CHANGED_WHO Is Nothing) Then
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value
|
|
Else
|
|
Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String)
|
|
End If
|
|
Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean)
|
|
Me.Adapter.UpdateCommand.Parameters(6).Value = CType(PROFILE_TYPE,Short)
|
|
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 TBCW_USER_PROFILETableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "TBCW_USER_PROFILE"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID")
|
|
tableMapping.ColumnMappings.Add("USER_ID", "USER_ID")
|
|
tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO")
|
|
tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_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 TBCW_USER_PROFILE"&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 TBCW_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_ID, USER_ID, ADD"& _
|
|
"ED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE_ID,@USER_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE"& _
|
|
"_ID, USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_USER_PROFILE WHERE (GUID = SCOPE_I"& _
|
|
"DENTITY())"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_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, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", 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 TBCW_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFILE_ID = @PROFILE_ID, USER"& _
|
|
"_ID = @USER_ID"&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, PROFILE_ID,"& _
|
|
" USER_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_USER_PROFILE WHERE (GUID = @GUID)"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", 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", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 TBCW_USER_PROFILE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_USER_PROFILE"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.TBCW_USER_PROFILEDataTable) 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", "15.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 MyDataset.TBCW_USER_PROFILEDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As MyDataset.TBCW_USER_PROFILEDataTable = New MyDataset.TBCW_USER_PROFILEDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_USER_PROFILEDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBCW_USER_PROFILE")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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", "15.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", "15.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 PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal ADDED_WHO As String) As Integer
|
|
Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer)
|
|
Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_ID,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
|
|
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", "15.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 PROFILE_ID As Integer, ByVal USER_ID As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
|
|
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_ID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(1).Value = CType(USER_ID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer)
|
|
Me.Adapter.UpdateCommand.Parameters(3).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 VWUSER_PROFILETableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "VWUSER_PROFILE"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID")
|
|
tableMapping.ColumnMappings.Add("USERNAME", "USERNAME")
|
|
tableMapping.ColumnMappings.Add("NAME", "NAME")
|
|
tableMapping.ColumnMappings.Add("PRENAME", "PRENAME")
|
|
Me._adapter.TableMappings.Add(tableMapping)
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT T.GUID, T.PROFILE_ID, T1.USERNAME, T1.NAME, T1.PRENAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
|
|
" TBCW_USER_PROFILE AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_USER AS T1"& _
|
|
" ON T.USER_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.PROFILE_ID = @PROFILE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY T1."& _
|
|
"USERNAME"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(1).Connection = Me.Connection
|
|
Me._commandCollection(1).CommandText = "DELETE FROM TBCW_USER_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1).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", "15.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 MyDataset.VWUSER_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_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", "15.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 PROFILE_ID As Integer) As MyDataset.VWUSER_PROFILEDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer)
|
|
Dim dataTable As MyDataset.VWUSER_PROFILEDataTable = New MyDataset.VWUSER_PROFILEDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function cmdDelete(ByVal GUID As Integer) As Integer
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1)
|
|
command.Parameters(0).Value = CType(GUID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Integer
|
|
Try
|
|
returnValue = command.ExecuteNonQuery
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
Return returnValue
|
|
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 TBCW_PROFILE_PROCESSTableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "TBCW_PROFILE_PROCESS"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID")
|
|
tableMapping.ColumnMappings.Add("PROC_NAME", "PROC_NAME")
|
|
tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO")
|
|
tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_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 TBCW_PROFILE_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)"
|
|
Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.DeleteCommand.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, "", "", ""))
|
|
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_PROFILE_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_ID, PROC_NAME"& _
|
|
", ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE,@PROC_NAME,@ADDED_WHO)"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROC_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROC_NAME", 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, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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, PROFILE_ID, PROC_NAME, ADDED_WHO, ADDED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
|
|
" TBCW_PROFILE_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_ID = @PID)"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.TBCW_PROFILE_PROCESSDataTable, ByVal PID As Integer) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PID,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", "15.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 PID As Integer) As MyDataset.TBCW_PROFILE_PROCESSDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PID,Integer)
|
|
Dim dataTable As MyDataset.TBCW_PROFILE_PROCESSDataTable = New MyDataset.TBCW_PROFILE_PROCESSDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROFILE_PROCESSDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBCW_PROFILE_PROCESS")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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
|
|
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 TBCW_PROF_DATA_SEARCHTableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "TBCW_PROF_DATA_SEARCH"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID")
|
|
tableMapping.ColumnMappings.Add("CONN_ID", "CONN_ID")
|
|
tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND")
|
|
tableMapping.ColumnMappings.Add("TAB_INDEX", "TAB_INDEX")
|
|
tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE")
|
|
tableMapping.ColumnMappings.Add("TAB_TITLE", "TAB_TITLE")
|
|
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("COUNT_COMMAND", "COUNT_COMMAND")
|
|
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 [TBCW_PROF_DATA_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFIL"& _
|
|
"E_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDE"& _
|
|
"X] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @"& _
|
|
"Original_TAB_TITLE) 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] = @Origi"& _
|
|
"nal_CHANGED_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_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", 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("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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 [TBCW_PROF_DATA_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB"& _
|
|
"_INDEX], [ACTIVE], [TAB_TITLE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANG"& _
|
|
"ED_WHEN], [COUNT_COMMAND]) VALUES (@PROFILE_ID, @CONN_ID, @SQL_COMMAND, @TAB_IND"& _
|
|
"EX, @ACTIVE, @TAB_TITLE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @"& _
|
|
"COUNT_COMMAND);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIV"& _
|
|
"E, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FR"& _
|
|
"OM TBCW_PROF_DATA_SEARCH WHERE (GUID = SCOPE_IDENTITY())"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", 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("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", 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 [TBCW_PROF_DATA_SEARCH] SET [PROFILE_ID] = @PROFILE_ID, [CONN_ID] = @CONN_"& _
|
|
"ID, [SQL_COMMAND] = @SQL_COMMAND, [TAB_INDEX] = @TAB_INDEX, [ACTIVE] = @ACTIVE, "& _
|
|
"[TAB_TITLE] = @TAB_TITLE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, "& _
|
|
"[CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COUNT_COMMAND] = "& _
|
|
"@COUNT_COMMAND WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PR"& _
|
|
"OFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_I"& _
|
|
"NDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) "& _
|
|
"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_W"& _
|
|
"HO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AN"& _
|
|
"D ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @O"& _
|
|
"riginal_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_IND"& _
|
|
"EX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_C"& _
|
|
"OMMAND FROM TBCW_PROF_DATA_SEARCH WHERE (GUID = @GUID)"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", 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("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", 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_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", 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("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITL"& _
|
|
"E, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
|
|
" TBCW_PROF_DATA_SEARCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_ID = @PROFILE_ID)"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.TBCW_PROF_DATA_SEARCHDataTable, ByVal PROFILE_ID As Integer) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_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", "15.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 PROFILE_ID As Integer) As MyDataset.TBCW_PROF_DATA_SEARCHDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer)
|
|
Dim dataTable As MyDataset.TBCW_PROF_DATA_SEARCHDataTable = New MyDataset.TBCW_PROF_DATA_SEARCHDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROF_DATA_SEARCHDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBCW_PROF_DATA_SEARCH")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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
|
|
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 TBCW_PROF_DOC_SEARCHTableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "TBCW_PROF_DOC_SEARCH"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID")
|
|
tableMapping.ColumnMappings.Add("CONN_ID", "CONN_ID")
|
|
tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND")
|
|
tableMapping.ColumnMappings.Add("TAB_INDEX", "TAB_INDEX")
|
|
tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE")
|
|
tableMapping.ColumnMappings.Add("TAB_TITLE", "TAB_TITLE")
|
|
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("COUNT_COMMAND", "COUNT_COMMAND")
|
|
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 [TBCW_PROF_DOC_SEARCH] WHERE (([GUID] = @Original_GUID) AND ([PROFILE"& _
|
|
"_ID] = @Original_PROFILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX"& _
|
|
"] = @Original_TAB_INDEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @O"& _
|
|
"riginal_TAB_TITLE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_W"& _
|
|
"HEN = 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] = @Origin"& _
|
|
"al_CHANGED_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_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", 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("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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 [TBCW_PROF_DOC_SEARCH] ([PROFILE_ID], [CONN_ID], [SQL_COMMAND], [TAB_"& _
|
|
"INDEX], [ACTIVE], [TAB_TITLE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGE"& _
|
|
"D_WHEN], [COUNT_COMMAND]) VALUES (@PROFILE_ID, @CONN_ID, @SQL_COMMAND, @TAB_INDE"& _
|
|
"X, @ACTIVE, @TAB_TITLE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @C"& _
|
|
"OUNT_COMMAND);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE"& _
|
|
", TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND FRO"& _
|
|
"M TBCW_PROF_DOC_SEARCH WHERE (GUID = SCOPE_IDENTITY())"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", 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("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", 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 [TBCW_PROF_DOC_SEARCH] SET [PROFILE_ID] = @PROFILE_ID, [CONN_ID] = @CONN_I"& _
|
|
"D, [SQL_COMMAND] = @SQL_COMMAND, [TAB_INDEX] = @TAB_INDEX, [ACTIVE] = @ACTIVE, ["& _
|
|
"TAB_TITLE] = @TAB_TITLE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, ["& _
|
|
"CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [COUNT_COMMAND] = @"& _
|
|
"COUNT_COMMAND WHERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PRO"& _
|
|
"FILE_ID) AND ([CONN_ID] = @Original_CONN_ID) AND ([TAB_INDEX] = @Original_TAB_IN"& _
|
|
"DEX) AND ([ACTIVE] = @Original_ACTIVE) AND ([TAB_TITLE] = @Original_TAB_TITLE) A"& _
|
|
"ND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_W"& _
|
|
"HEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WH"& _
|
|
"O = 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] = @Or"& _
|
|
"iginal_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDE"& _
|
|
"X, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_CO"& _
|
|
"MMAND FROM TBCW_PROF_DOC_SEARCH WHERE (GUID = @GUID)"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", 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("@TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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("@COUNT_COMMAND", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COUNT_COMMAND", 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_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CONN_ID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CONN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TAB_INDEX", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_INDEX", 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("@Original_TAB_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TAB_TITLE", 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", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 *"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROF_DOC_SEARCH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFILE_ID = "& _
|
|
"@PROFILE_ID)"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.TBCW_PROF_DOC_SEARCHDataTable, ByVal PROFILE_ID As Integer) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_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", "15.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 PROFILE_ID As Integer) As MyDataset.TBCW_PROF_DOC_SEARCHDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer)
|
|
Dim dataTable As MyDataset.TBCW_PROF_DOC_SEARCHDataTable = New MyDataset.TBCW_PROF_DOC_SEARCHDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROF_DOC_SEARCHDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBCW_PROF_DOC_SEARCH")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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
|
|
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 TBCW_GROUP_PROFILETableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "TBCW_GROUP_PROFILE"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID")
|
|
tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID")
|
|
tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO")
|
|
tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_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 [TBCW_GROUP_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([PROFILE_I"& _
|
|
"D] = @Original_PROFILE_ID) AND ([GROUP_ID] = @Original_GROUP_ID) AND ([ADDED_WHO"& _
|
|
"] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) "& _
|
|
"OR ([ADDED_WHEN] = @Original_ADDED_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_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_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.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.InsertCommand.Connection = Me.Connection
|
|
Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBCW_GROUP_PROFILE] ([PROFILE_ID], [GROUP_ID], [ADDED_WHO], [ADDED_W"& _
|
|
"HEN]) VALUES (@PROFILE_ID, @GROUP_ID, @ADDED_WHO, @ADDED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PR"& _
|
|
"OFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_GROUP_PROFILE WHERE (GUID = "& _
|
|
"SCOPE_IDENTITY())"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_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.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._adapter.UpdateCommand.Connection = Me.Connection
|
|
Me._adapter.UpdateCommand.CommandText = "UPDATE [TBCW_GROUP_PROFILE] SET [PROFILE_ID] = @PROFILE_ID, [GROUP_ID] = @GROUP_I"& _
|
|
"D, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN WHERE (([GUID] = @Origin"& _
|
|
"al_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([GROUP_ID] = @Original_G"& _
|
|
"ROUP_ID) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AN"& _
|
|
"D [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _
|
|
", PROFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN FROM TBCW_GROUP_PROFILE WHERE (GUI"& _
|
|
"D = @GUID)"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_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("@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_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GROUP_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_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("@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", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 TBCW_GROUP_PROFILE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_GROUP_PROFILE"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.TBCW_GROUP_PROFILEDataTable) 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", "15.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 MyDataset.TBCW_GROUP_PROFILEDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Dim dataTable As MyDataset.TBCW_GROUP_PROFILEDataTable = New MyDataset.TBCW_GROUP_PROFILEDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_GROUP_PROFILEDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBCW_GROUP_PROFILE")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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
|
|
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 VWCW_GROUP_PROFILETableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "VWCW_GROUP_PROFILE"
|
|
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", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
|
Private Sub InitCommandCollection()
|
|
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {}
|
|
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(0).Connection = Me.Connection
|
|
Me._commandCollection(0).CommandText = "SELECT T.GUID, T1.NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_GROUP_PROFILE AS T INNER JOIN"& _
|
|
""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_GROUPS AS T1 ON T.GROUP_ID = T1.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
|
|
" (T.PROFILE_ID = @PROFILE_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY T1.NAME"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
|
|
Me._commandCollection(1).Connection = Me.Connection
|
|
Me._commandCollection(1).CommandText = "DELETE FROM TBCW_GROUP_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)"
|
|
Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(1).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", "15.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 MyDataset.VWCW_GROUP_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_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", "15.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 PROFILE_ID As Integer) As MyDataset.VWCW_GROUP_PROFILEDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer)
|
|
Dim dataTable As MyDataset.VWCW_GROUP_PROFILEDataTable = New MyDataset.VWCW_GROUP_PROFILEDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
|
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _
|
|
Public Overloads Overridable Function cmdDelete(ByVal GUID As Integer) As Integer
|
|
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1)
|
|
command.Parameters(0).Value = CType(GUID,Integer)
|
|
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
|
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
|
<> Global.System.Data.ConnectionState.Open) Then
|
|
command.Connection.Open
|
|
End If
|
|
Dim returnValue As Integer
|
|
Try
|
|
returnValue = command.ExecuteNonQuery
|
|
Finally
|
|
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
|
command.Connection.Close
|
|
End If
|
|
End Try
|
|
Return returnValue
|
|
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 TBCW_PROF_REL_WINDOWTableAdapter
|
|
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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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 = "TBCW_PROF_REL_WINDOW"
|
|
tableMapping.ColumnMappings.Add("GUID", "GUID")
|
|
tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID")
|
|
tableMapping.ColumnMappings.Add("PROCESS_NAME", "PROCESS_NAME")
|
|
tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION")
|
|
tableMapping.ColumnMappings.Add("REGEX", "REGEX")
|
|
tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE")
|
|
tableMapping.ColumnMappings.Add("REGEX_CLIPBOARD", "REGEX_CLIPBOARD")
|
|
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 [TBCW_PROF_REL_WINDOW] WHERE (([GUID] = @Original_GUID) AND ([PROFILE"& _
|
|
"_ID] = @Original_PROFILE_ID) AND ([PROCESS_NAME] = @Original_PROCESS_NAME) AND ("& _
|
|
"[DESCRIPTION] = @Original_DESCRIPTION) AND ([REGEX] = @Original_REGEX) AND ([SEQ"& _
|
|
"UENCE] = @Original_SEQUENCE) AND ([REGEX_CLIPBOARD] = @Original_REGEX_CLIPBOARD)"& _
|
|
" 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)) A"& _
|
|
"ND ((@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_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", 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_REGEX_CLIPBOARD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_CLIPBOARD", 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 [TBCW_PROF_REL_WINDOW] ([PROFILE_ID], [PROCESS_NAME], [DESCRIPTION], "& _
|
|
"[REGEX], [SEQUENCE], [REGEX_CLIPBOARD], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO]"& _
|
|
", [CHANGED_WHEN]) VALUES (@PROFILE_ID, @PROCESS_NAME, @DESCRIPTION, @REGEX, @SEQ"& _
|
|
"UENCE, @REGEX_CLIPBOARD, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, REGEX_CLIP"& _
|
|
"BOARD, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_WINDO"& _
|
|
"W WHERE (GUID = SCOPE_IDENTITY())"
|
|
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", 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("@REGEX_CLIPBOARD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_CLIPBOARD", 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 [TBCW_PROF_REL_WINDOW] SET [PROFILE_ID] = @PROFILE_ID, [PROCESS_NAME] = @P"& _
|
|
"ROCESS_NAME, [DESCRIPTION] = @DESCRIPTION, [REGEX] = @REGEX, [SEQUENCE] = @SEQUE"& _
|
|
"NCE, [REGEX_CLIPBOARD] = @REGEX_CLIPBOARD, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN"& _
|
|
"] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WH"& _
|
|
"ERE (([GUID] = @Original_GUID) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([P"& _
|
|
"ROCESS_NAME] = @Original_PROCESS_NAME) AND ([DESCRIPTION] = @Original_DESCRIPTIO"& _
|
|
"N) AND ([REGEX] = @Original_REGEX) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([R"& _
|
|
"EGEX_CLIPBOARD] = @Original_REGEX_CLIPBOARD) 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) O"& _
|
|
"R ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [C"& _
|
|
"HANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _
|
|
"ID, PROFILE_ID, PROCESS_NAME, DESCRIPTION, REGEX, SEQUENCE, REGEX_CLIPBOARD, ADD"& _
|
|
"ED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBCW_PROF_REL_WINDOW WHERE (G"& _
|
|
"UID = @GUID)"
|
|
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REGEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", 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("@REGEX_CLIPBOARD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_CLIPBOARD", 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_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
|
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REGEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX", 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_REGEX_CLIPBOARD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REGEX_CLIPBOARD", 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", "15.0.0.0")> _
|
|
Private Sub InitConnection()
|
|
Me._connection = New Global.System.Data.SqlClient.SqlConnection()
|
|
Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 TBCW_PROF_REL_WINDOW.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROF_REL_WINDOW WHERE "& _
|
|
"PROCESS_NAME = @PROCESS_NAME AND PROFILE_ID = @PROFILE_ID"
|
|
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
|
End Sub
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 MyDataset.TBCW_PROF_REL_WINDOWDataTable, ByVal PROCESS_NAME As String, ByVal PROFILE_ID As Integer) As Integer
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (PROCESS_NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("PROCESS_NAME")
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROCESS_NAME,String)
|
|
End If
|
|
Me.Adapter.SelectCommand.Parameters(1).Value = CType(PROFILE_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", "15.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 PROCESS_NAME As String, ByVal PROFILE_ID As Integer) As MyDataset.TBCW_PROF_REL_WINDOWDataTable
|
|
Me.Adapter.SelectCommand = Me.CommandCollection(0)
|
|
If (PROCESS_NAME Is Nothing) Then
|
|
Throw New Global.System.ArgumentNullException("PROCESS_NAME")
|
|
Else
|
|
Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROCESS_NAME,String)
|
|
End If
|
|
Me.Adapter.SelectCommand.Parameters(1).Value = CType(PROFILE_ID,Integer)
|
|
Dim dataTable As MyDataset.TBCW_PROF_REL_WINDOWDataTable = New MyDataset.TBCW_PROF_REL_WINDOWDataTable()
|
|
Me.Adapter.Fill(dataTable)
|
|
Return dataTable
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROF_REL_WINDOWDataTable) As Integer
|
|
Return Me.Adapter.Update(dataTable)
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
|
Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer
|
|
Return Me.Adapter.Update(dataSet, "TBCW_PROF_REL_WINDOW")
|
|
End Function
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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
|
|
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 _tBCW_PROFILESTableAdapter As TBCW_PROFILESTableAdapter
|
|
|
|
Private _tBCW_USER_PROFILETableAdapter As TBCW_USER_PROFILETableAdapter
|
|
|
|
Private _tBCW_PROFILE_PROCESSTableAdapter As TBCW_PROFILE_PROCESSTableAdapter
|
|
|
|
Private _tBCW_PROF_DATA_SEARCHTableAdapter As TBCW_PROF_DATA_SEARCHTableAdapter
|
|
|
|
Private _tBCW_PROF_DOC_SEARCHTableAdapter As TBCW_PROF_DOC_SEARCHTableAdapter
|
|
|
|
Private _tBCW_GROUP_PROFILETableAdapter As TBCW_GROUP_PROFILETableAdapter
|
|
|
|
Private _tBCW_PROF_REL_WINDOWTableAdapter As TBCW_PROF_REL_WINDOWTableAdapter
|
|
|
|
Private _backupDataSetBeforeUpdate As Boolean
|
|
|
|
Private _connection As Global.System.Data.IDbConnection
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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 TBCW_PROFILESTableAdapter() As TBCW_PROFILESTableAdapter
|
|
Get
|
|
Return Me._tBCW_PROFILESTableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBCW_PROFILESTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 TBCW_USER_PROFILETableAdapter() As TBCW_USER_PROFILETableAdapter
|
|
Get
|
|
Return Me._tBCW_USER_PROFILETableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBCW_USER_PROFILETableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 TBCW_PROFILE_PROCESSTableAdapter() As TBCW_PROFILE_PROCESSTableAdapter
|
|
Get
|
|
Return Me._tBCW_PROFILE_PROCESSTableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBCW_PROFILE_PROCESSTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 TBCW_PROF_DATA_SEARCHTableAdapter() As TBCW_PROF_DATA_SEARCHTableAdapter
|
|
Get
|
|
Return Me._tBCW_PROF_DATA_SEARCHTableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBCW_PROF_DATA_SEARCHTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 TBCW_PROF_DOC_SEARCHTableAdapter() As TBCW_PROF_DOC_SEARCHTableAdapter
|
|
Get
|
|
Return Me._tBCW_PROF_DOC_SEARCHTableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBCW_PROF_DOC_SEARCHTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 TBCW_GROUP_PROFILETableAdapter() As TBCW_GROUP_PROFILETableAdapter
|
|
Get
|
|
Return Me._tBCW_GROUP_PROFILETableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBCW_GROUP_PROFILETableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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 TBCW_PROF_REL_WINDOWTableAdapter() As TBCW_PROF_REL_WINDOWTableAdapter
|
|
Get
|
|
Return Me._tBCW_PROF_REL_WINDOWTableAdapter
|
|
End Get
|
|
Set
|
|
Me._tBCW_PROF_REL_WINDOWTableAdapter = value
|
|
End Set
|
|
End Property
|
|
|
|
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
|
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.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", "15.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._tBCW_PROFILESTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBCW_PROFILESTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBCW_PROFILESTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBCW_USER_PROFILETableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBCW_USER_PROFILETableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBCW_PROFILE_PROCESSTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBCW_PROFILE_PROCESSTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBCW_GROUP_PROFILETableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBCW_GROUP_PROFILETableAdapter.Connection
|
|
End If
|
|
If ((Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) _
|
|
AndAlso (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter.Connection) Is Nothing)) Then
|
|
Return Me._tBCW_PROF_REL_WINDOWTableAdapter.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", "15.0.0.0"), _
|
|
Global.System.ComponentModel.Browsable(false)> _
|
|
Public ReadOnly Property TableAdapterInstanceCount() As Integer
|
|
Get
|
|
Dim count As Integer = 0
|
|
If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then
|
|
count = (count + 1)
|
|
End If
|
|
If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) 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", "15.0.0.0")> _
|
|
Private Function UpdateUpdatedRows(ByVal dataSet As MyDataset, 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._tBCW_PROFILESTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILES.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._tBCW_PROFILESTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_USER_PROFILE.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._tBCW_USER_PROFILETableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILE_PROCESS.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._tBCW_PROFILE_PROCESSTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DATA_SEARCH.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._tBCW_PROF_DATA_SEARCHTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DOC_SEARCH.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._tBCW_PROF_DOC_SEARCHTableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_GROUP_PROFILE.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._tBCW_GROUP_PROFILETableAdapter.Update(updatedRows))
|
|
allChangedRows.AddRange(updatedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then
|
|
Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_WINDOW.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._tBCW_PROF_REL_WINDOWTableAdapter.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", "15.0.0.0")> _
|
|
Private Function UpdateInsertedRows(ByVal dataSet As MyDataset, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
|
|
Dim result As Integer = 0
|
|
If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBCW_PROFILESTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_USER_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBCW_USER_PROFILETableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILE_PROCESS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBCW_PROFILE_PROCESSTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DATA_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DOC_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_GROUP_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBCW_GROUP_PROFILETableAdapter.Update(addedRows))
|
|
allAddedRows.AddRange(addedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then
|
|
Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_WINDOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added)
|
|
If ((Not (addedRows) Is Nothing) _
|
|
AndAlso (0 < addedRows.Length)) Then
|
|
result = (result + Me._tBCW_PROF_REL_WINDOWTableAdapter.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", "15.0.0.0")> _
|
|
Private Function UpdateDeletedRows(ByVal dataSet As MyDataset, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer
|
|
Dim result As Integer = 0
|
|
If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_WINDOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBCW_PROF_REL_WINDOWTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_GROUP_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBCW_GROUP_PROFILETableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DOC_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBCW_PROF_DOC_SEARCHTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_DATA_SEARCH.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBCW_PROF_DATA_SEARCHTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILE_PROCESS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBCW_PROFILE_PROCESSTableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_USER_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBCW_USER_PROFILETableAdapter.Update(deletedRows))
|
|
allChangedRows.AddRange(deletedRows)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_PROFILESTableAdapter) Is Nothing) Then
|
|
Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROFILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted)
|
|
If ((Not (deletedRows) Is Nothing) _
|
|
AndAlso (0 < deletedRows.Length)) Then
|
|
result = (result + Me._tBCW_PROFILESTableAdapter.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", "15.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", "15.0.0.0")> _
|
|
Public Overridable Function UpdateAll(ByVal dataSet As MyDataset) 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._tBCW_PROFILESTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROFILESTableAdapter.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._tBCW_USER_PROFILETableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_USER_PROFILETableAdapter.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._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROFILE_PROCESSTableAdapter.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._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROF_DATA_SEARCHTableAdapter.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._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROF_DOC_SEARCHTableAdapter.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._tBCW_GROUP_PROFILETableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_GROUP_PROFILETableAdapter.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._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) _
|
|
AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROF_REL_WINDOWTableAdapter.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._tBCW_PROFILESTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBCW_PROFILESTableAdapter, Me._tBCW_PROFILESTableAdapter.Connection)
|
|
Me._tBCW_PROFILESTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBCW_PROFILESTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBCW_PROFILESTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBCW_PROFILESTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROFILESTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBCW_USER_PROFILETableAdapter, Me._tBCW_USER_PROFILETableAdapter.Connection)
|
|
Me._tBCW_USER_PROFILETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBCW_USER_PROFILETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBCW_USER_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBCW_USER_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_USER_PROFILETableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBCW_PROFILE_PROCESSTableAdapter, Me._tBCW_PROFILE_PROCESSTableAdapter.Connection)
|
|
Me._tBCW_PROFILE_PROCESSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBCW_PROFILE_PROCESSTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBCW_PROFILE_PROCESSTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBCW_PROFILE_PROCESSTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROFILE_PROCESSTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBCW_PROF_DATA_SEARCHTableAdapter, Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection)
|
|
Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBCW_PROF_DATA_SEARCHTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBCW_PROF_DATA_SEARCHTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBCW_PROF_DATA_SEARCHTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROF_DATA_SEARCHTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBCW_PROF_DOC_SEARCHTableAdapter, Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection)
|
|
Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBCW_PROF_DOC_SEARCHTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBCW_PROF_DOC_SEARCHTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBCW_PROF_DOC_SEARCHTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROF_DOC_SEARCHTableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBCW_GROUP_PROFILETableAdapter, Me._tBCW_GROUP_PROFILETableAdapter.Connection)
|
|
Me._tBCW_GROUP_PROFILETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBCW_GROUP_PROFILETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBCW_GROUP_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBCW_GROUP_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_GROUP_PROFILETableAdapter.Adapter)
|
|
End If
|
|
End If
|
|
If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then
|
|
revertConnections.Add(Me._tBCW_PROF_REL_WINDOWTableAdapter, Me._tBCW_PROF_REL_WINDOWTableAdapter.Connection)
|
|
Me._tBCW_PROF_REL_WINDOWTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBCW_PROF_REL_WINDOWTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction)
|
|
If Me._tBCW_PROF_REL_WINDOWTableAdapter.Adapter.AcceptChangesDuringUpdate Then
|
|
Me._tBCW_PROF_REL_WINDOWTableAdapter.Adapter.AcceptChangesDuringUpdate = false
|
|
adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROF_REL_WINDOWTableAdapter.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._tBCW_PROFILESTableAdapter) Is Nothing) Then
|
|
Me._tBCW_PROFILESTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROFILESTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBCW_PROFILESTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._tBCW_USER_PROFILETableAdapter) Is Nothing) Then
|
|
Me._tBCW_USER_PROFILETableAdapter.Connection = CType(revertConnections(Me._tBCW_USER_PROFILETableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBCW_USER_PROFILETableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._tBCW_PROFILE_PROCESSTableAdapter) Is Nothing) Then
|
|
Me._tBCW_PROFILE_PROCESSTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROFILE_PROCESSTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBCW_PROFILE_PROCESSTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._tBCW_PROF_DATA_SEARCHTableAdapter) Is Nothing) Then
|
|
Me._tBCW_PROF_DATA_SEARCHTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROF_DATA_SEARCHTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBCW_PROF_DATA_SEARCHTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._tBCW_PROF_DOC_SEARCHTableAdapter) Is Nothing) Then
|
|
Me._tBCW_PROF_DOC_SEARCHTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROF_DOC_SEARCHTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBCW_PROF_DOC_SEARCHTableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._tBCW_GROUP_PROFILETableAdapter) Is Nothing) Then
|
|
Me._tBCW_GROUP_PROFILETableAdapter.Connection = CType(revertConnections(Me._tBCW_GROUP_PROFILETableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBCW_GROUP_PROFILETableAdapter.Transaction = Nothing
|
|
End If
|
|
If (Not (Me._tBCW_PROF_REL_WINDOWTableAdapter) Is Nothing) Then
|
|
Me._tBCW_PROF_REL_WINDOWTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROF_REL_WINDOWTableAdapter),Global.System.Data.SqlClient.SqlConnection)
|
|
Me._tBCW_PROF_REL_WINDOWTableAdapter.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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", "15.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
|