'------------------------------------------------------------------------------ ' ' Dieser Code wurde von einem Tool generiert. ' Laufzeitversion:4.0.30319.42000 ' ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' der Code erneut generiert wird. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On ''' '''Represents a strongly typed in-memory cache of data. ''' _ Partial Public Class MyDataset Inherits Global.System.Data.DataSet Private tableTBCW_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 tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable Private tableTBCW_PROF_REL_CONTROL As TBCW_PROF_REL_CONTROLDataTable 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_WINDOW_ID As Global.System.Data.DataRelation Private relationFK_PROCESS_ID As Global.System.Data.DataRelation Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ Public Sub New() MyBase.New Me.BeginInit Me.InitClass Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler Me.EndInit End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context, false) If (Me.IsBinarySerialized(info, context) = true) Then Me.InitVars(false) Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 Return End If Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) If (Not (ds.Tables("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("TBDD_CONNECTION")) Is Nothing) Then MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION"))) End If If (Not (ds.Tables("TBCW_PROF_REL_CONTROL")) Is Nothing) Then MyBase.Tables.Add(New TBCW_PROF_REL_CONTROLDataTable(ds.Tables("TBCW_PROF_REL_CONTROL"))) End If If (Not (ds.Tables("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 _ Public ReadOnly Property TBCW_PROFILES() As TBCW_PROFILESDataTable Get Return Me.tableTBCW_PROFILES End Get End Property _ Public ReadOnly Property TBCW_USER_PROFILE() As TBCW_USER_PROFILEDataTable Get Return Me.tableTBCW_USER_PROFILE End Get End Property _ Public ReadOnly Property VWUSER_PROFILE() As VWUSER_PROFILEDataTable Get Return Me.tableVWUSER_PROFILE End Get End Property _ Public ReadOnly Property TBCW_PROFILE_PROCESS() As TBCW_PROFILE_PROCESSDataTable Get Return Me.tableTBCW_PROFILE_PROCESS End Get End Property _ Public ReadOnly Property TBCW_PROF_DATA_SEARCH() As TBCW_PROF_DATA_SEARCHDataTable Get Return Me.tableTBCW_PROF_DATA_SEARCH End Get End Property _ Public ReadOnly Property TBCW_PROF_DOC_SEARCH() As TBCW_PROF_DOC_SEARCHDataTable Get Return Me.tableTBCW_PROF_DOC_SEARCH End Get End Property _ Public ReadOnly Property TBCW_GROUP_PROFILE() As TBCW_GROUP_PROFILEDataTable Get Return Me.tableTBCW_GROUP_PROFILE End Get End Property _ Public ReadOnly Property VWCW_GROUP_PROFILE() As VWCW_GROUP_PROFILEDataTable Get Return Me.tableVWCW_GROUP_PROFILE End Get End Property _ Public ReadOnly Property TBCW_PROF_REL_WINDOW() As TBCW_PROF_REL_WINDOWDataTable Get Return Me.tableTBCW_PROF_REL_WINDOW End Get End Property _ Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable Get Return Me.tableTBDD_CONNECTION End Get End Property _ Public ReadOnly Property TBCW_PROF_REL_CONTROL() As TBCW_PROF_REL_CONTROLDataTable Get Return Me.tableTBCW_PROF_REL_CONTROL End Get End Property _ Public ReadOnly Property TBWH_User() As TBWH_UserDataTable Get Return Me.tableTBWH_User End Get End Property _ Public ReadOnly Property TBWH_GROUP() As TBWH_GROUPDataTable Get Return Me.tableTBWH_GROUP End Get End Property _ Public ReadOnly Property TBWH_PROFILE_TYPE() As TBWH_PROFILE_TYPEDataTable Get Return Me.tableTBWH_PROFILE_TYPE End Get End Property _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get Set Me._schemaSerializationMode = value End Set End Property _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get Return MyBase.Tables End Get End Property _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get Return MyBase.Relations End Get End Property _ Protected Overrides Sub InitializeDerivedDataSet() Me.BeginInit Me.InitClass Me.EndInit End Sub _ Public Overrides Function Clone() As Global.System.Data.DataSet Dim cln As MyDataset = CType(MyBase.Clone,MyDataset) cln.InitVars cln.SchemaSerializationMode = Me.SchemaSerializationMode Return cln End Function _ Protected Overrides Function ShouldSerializeTables() As Boolean Return false End Function _ Protected Overrides Function ShouldSerializeRelations() As Boolean Return false End Function _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Me.Reset Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXml(reader) If (Not (ds.Tables("TBCW_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("TBDD_CONNECTION")) Is Nothing) Then MyBase.Tables.Add(New TBDD_CONNECTIONDataTable(ds.Tables("TBDD_CONNECTION"))) End If If (Not (ds.Tables("TBCW_PROF_REL_CONTROL")) Is Nothing) Then MyBase.Tables.Add(New TBCW_PROF_REL_CONTROLDataTable(ds.Tables("TBCW_PROF_REL_CONTROL"))) End If If (Not (ds.Tables("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 _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) stream.Position = 0 Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) End Function _ Friend Overloads Sub InitVars() Me.InitVars(true) End Sub _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) Me.tableTBCW_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.tableTBDD_CONNECTION = CType(MyBase.Tables("TBDD_CONNECTION"),TBDD_CONNECTIONDataTable) If (initTable = true) Then If (Not (Me.tableTBDD_CONNECTION) Is Nothing) Then Me.tableTBDD_CONNECTION.InitVars End If End If Me.tableTBCW_PROF_REL_CONTROL = CType(MyBase.Tables("TBCW_PROF_REL_CONTROL"),TBCW_PROF_REL_CONTROLDataTable) If (initTable = true) Then If (Not (Me.tableTBCW_PROF_REL_CONTROL) Is Nothing) Then Me.tableTBCW_PROF_REL_CONTROL.InitVars End If End If Me.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_WINDOW_ID = Me.Relations("FK_WINDOW_ID") Me.relationFK_PROCESS_ID = Me.Relations("FK_PROCESS_ID") End Sub _ Private Sub InitClass() Me.DataSetName = "MyDataset" Me.Prefix = "" Me.Namespace = "http://tempuri.org/MyDataset.xsd" Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableTBCW_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.tableTBDD_CONNECTION = New TBDD_CONNECTIONDataTable() MyBase.Tables.Add(Me.tableTBDD_CONNECTION) Me.tableTBCW_PROF_REL_CONTROL = New TBCW_PROF_REL_CONTROLDataTable() MyBase.Tables.Add(Me.tableTBCW_PROF_REL_CONTROL) 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_WINDOW_ID = New Global.System.Data.DataRelation("FK_WINDOW_ID", New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_REL_WINDOW.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_REL_CONTROL.WINDOW_IDColumn}, false) Me.Relations.Add(Me.relationFK_WINDOW_ID) Me.relationFK_PROCESS_ID = New Global.System.Data.DataRelation("FK_PROCESS_ID", New Global.System.Data.DataColumn() {Me.tableTBCW_PROFILE_PROCESS.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBCW_PROF_REL_WINDOW.PROCESS_IDColumn}, false) Me.Relations.Add(Me.relationFK_PROCESS_ID) End Sub _ Private Function ShouldSerializeTBCW_PROFILES() As Boolean Return false End Function _ Private Function ShouldSerializeTBCW_USER_PROFILE() As Boolean Return false End Function _ Private Function ShouldSerializeVWUSER_PROFILE() As Boolean Return false End Function _ Private Function ShouldSerializeTBCW_PROFILE_PROCESS() As Boolean Return false End Function _ Private Function ShouldSerializeTBCW_PROF_DATA_SEARCH() As Boolean Return false End Function _ Private Function ShouldSerializeTBCW_PROF_DOC_SEARCH() As Boolean Return false End Function _ Private Function ShouldSerializeTBCW_GROUP_PROFILE() As Boolean Return false End Function _ Private Function ShouldSerializeVWCW_GROUP_PROFILE() As Boolean Return false End Function _ Private Function ShouldSerializeTBCW_PROF_REL_WINDOW() As Boolean Return false End Function _ Private Function ShouldSerializeTBDD_CONNECTION() As Boolean Return false End Function _ Private Function ShouldSerializeTBCW_PROF_REL_CONTROL() As Boolean Return false End Function _ Private Function ShouldSerializeTBWH_User() As Boolean Return false End Function _ Private Function ShouldSerializeTBWH_GROUP() As Boolean Return false End Function _ Private Function ShouldSerializeTBWH_PROFILE_TYPE() As Boolean Return false End Function _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then Me.InitVars End If End Sub _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As MyDataset = New MyDataset() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any.Namespace = ds.Namespace sequence.Items.Add(any) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function _ Public Delegate Sub TBCW_PROFILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROFILESRowChangeEvent) _ Public Delegate Sub TBCW_USER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_USER_PROFILERowChangeEvent) _ Public Delegate Sub VWUSER_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As VWUSER_PROFILERowChangeEvent) _ Public Delegate Sub TBCW_PROFILE_PROCESSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROFILE_PROCESSRowChangeEvent) _ Public Delegate Sub TBCW_PROF_DATA_SEARCHRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_DATA_SEARCHRowChangeEvent) _ Public Delegate Sub TBCW_PROF_DOC_SEARCHRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_DOC_SEARCHRowChangeEvent) _ Public Delegate Sub TBCW_GROUP_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_GROUP_PROFILERowChangeEvent) _ Public Delegate Sub VWCW_GROUP_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As VWCW_GROUP_PROFILERowChangeEvent) _ Public Delegate Sub TBCW_PROF_REL_WINDOWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_REL_WINDOWRowChangeEvent) _ Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent) _ Public Delegate Sub TBCW_PROF_REL_CONTROLRowChangeEventHandler(ByVal sender As Object, ByVal e As TBCW_PROF_REL_CONTROLRowChangeEvent) _ Public Delegate Sub TBWH_UserRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_UserRowChangeEvent) _ Public Delegate Sub TBWH_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_GROUPRowChangeEvent) _ Public Delegate Sub TBWH_PROFILE_TYPERowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_PROFILE_TYPERowChangeEvent) ''' '''Represents the strongly named DataTable class. ''' _ 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 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 _ Public Sub New() MyBase.New Me.TableName = "TBCW_PROFILES" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property _ Public ReadOnly Property REGEX_EXPRESSIONColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX_EXPRESSION End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property _ Public ReadOnly Property PROFILE_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_TYPE End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROFILESRow Get Return CType(Me.Rows(index),TBCW_PROFILESRow) End Get End Property _ Public Event TBCW_PROFILESRowChanging As TBCW_PROFILESRowChangeEventHandler _ Public Event TBCW_PROFILESRowChanged As TBCW_PROFILESRowChangeEventHandler _ Public Event TBCW_PROFILESRowDeleting As TBCW_PROFILESRowChangeEventHandler _ Public Event TBCW_PROFILESRowDeleted As TBCW_PROFILESRowChangeEventHandler _ Public Overloads Sub AddTBCW_PROFILESRow(ByVal row As TBCW_PROFILESRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBCW_PROFILESRow(ByVal NAME As String, ByVal COMMENT 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, 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 _ Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROFILESRow Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROFILESRow) End Function _ 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 _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBCW_PROFILESDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") Me.columnCOMMENT = MyBase.Columns("COMMENT") 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 _ 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.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.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 _ Public Function NewTBCW_PROFILESRow() As TBCW_PROFILESRow Return CType(Me.NewRow,TBCW_PROFILESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBCW_PROFILESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBCW_PROFILESRow) End Function _ 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 _ 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 _ 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 _ 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 _ Public Sub RemoveTBCW_PROFILESRow(ByVal row As TBCW_PROFILESRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As MyDataset = New MyDataset() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBCW_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 ''' '''Represents the strongly named DataTable class. ''' _ 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 _ Public Sub New() MyBase.New Me.TableName = "TBCW_USER_PROFILE" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID End Get End Property _ Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnUSER_ID End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_USER_PROFILERow Get Return CType(Me.Rows(index),TBCW_USER_PROFILERow) End Get End Property _ Public Event TBCW_USER_PROFILERowChanging As TBCW_USER_PROFILERowChangeEventHandler _ Public Event TBCW_USER_PROFILERowChanged As TBCW_USER_PROFILERowChangeEventHandler _ Public Event TBCW_USER_PROFILERowDeleting As TBCW_USER_PROFILERowChangeEventHandler _ Public Event TBCW_USER_PROFILERowDeleted As TBCW_USER_PROFILERowChangeEventHandler _ Public Overloads Sub AddTBCW_USER_PROFILERow(ByVal row As TBCW_USER_PROFILERow) Me.Rows.Add(row) End Sub _ 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 _ Public Function FindByGUID(ByVal GUID As Integer) As TBCW_USER_PROFILERow Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_USER_PROFILERow) End Function _ 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 _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBCW_USER_PROFILEDataTable() End Function _ 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 _ 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 _ Public Function NewTBCW_USER_PROFILERow() As TBCW_USER_PROFILERow Return CType(Me.NewRow,TBCW_USER_PROFILERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBCW_USER_PROFILERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBCW_USER_PROFILERow) End Function _ 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 _ 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 _ 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 _ 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 _ Public Sub RemoveTBCW_USER_PROFILERow(ByVal row As TBCW_USER_PROFILERow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As MyDataset = New MyDataset() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBCW_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 ''' '''Represents the strongly named DataTable class. ''' _ 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 _ Public Sub New() MyBase.New Me.TableName = "VWUSER_PROFILE" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID End Get End Property _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPRENAME End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWUSER_PROFILERow Get Return CType(Me.Rows(index),VWUSER_PROFILERow) End Get End Property _ Public Event VWUSER_PROFILERowChanging As VWUSER_PROFILERowChangeEventHandler _ Public Event VWUSER_PROFILERowChanged As VWUSER_PROFILERowChangeEventHandler _ Public Event VWUSER_PROFILERowDeleting As VWUSER_PROFILERowChangeEventHandler _ Public Event VWUSER_PROFILERowDeleted As VWUSER_PROFILERowChangeEventHandler _ Public Overloads Sub AddVWUSER_PROFILERow(ByVal row As VWUSER_PROFILERow) Me.Rows.Add(row) End Sub _ 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 _ Public Function FindByGUID(ByVal GUID As Integer) As VWUSER_PROFILERow Return CType(Me.Rows.Find(New Object() {GUID}),VWUSER_PROFILERow) End Function _ 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 _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWUSER_PROFILEDataTable() End Function _ 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 _ 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 _ Public Function NewVWUSER_PROFILERow() As VWUSER_PROFILERow Return CType(Me.NewRow,VWUSER_PROFILERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWUSER_PROFILERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWUSER_PROFILERow) End Function _ 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 _ 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 _ 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 _ 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 _ Public Sub RemoveVWUSER_PROFILERow(ByVal row As VWUSER_PROFILERow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As MyDataset = New MyDataset() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "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 ''' '''Represents the strongly named DataTable class. ''' _ 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 _ Public Sub New() MyBase.New Me.TableName = "TBCW_PROFILE_PROCESS" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID End Get End Property _ Public ReadOnly Property PROC_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPROC_NAME End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROFILE_PROCESSRow Get Return CType(Me.Rows(index),TBCW_PROFILE_PROCESSRow) End Get End Property _ Public Event TBCW_PROFILE_PROCESSRowChanging As TBCW_PROFILE_PROCESSRowChangeEventHandler _ Public Event TBCW_PROFILE_PROCESSRowChanged As TBCW_PROFILE_PROCESSRowChangeEventHandler _ Public Event TBCW_PROFILE_PROCESSRowDeleting As TBCW_PROFILE_PROCESSRowChangeEventHandler _ Public Event TBCW_PROFILE_PROCESSRowDeleted As TBCW_PROFILE_PROCESSRowChangeEventHandler _ Public Overloads Sub AddTBCW_PROFILE_PROCESSRow(ByVal row As TBCW_PROFILE_PROCESSRow) Me.Rows.Add(row) End Sub _ 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 _ Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROFILE_PROCESSRow Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROFILE_PROCESSRow) End Function _ 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 _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBCW_PROFILE_PROCESSDataTable() End Function _ 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 _ 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.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 _ Public Function NewTBCW_PROFILE_PROCESSRow() As TBCW_PROFILE_PROCESSRow Return CType(Me.NewRow,TBCW_PROFILE_PROCESSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBCW_PROFILE_PROCESSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBCW_PROFILE_PROCESSRow) End Function _ 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 _ 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 _ 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 _ 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 _ Public Sub RemoveTBCW_PROFILE_PROCESSRow(ByVal row As TBCW_PROFILE_PROCESSRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As MyDataset = New MyDataset() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBCW_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 ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBCW_PROF_DATA_SEARCHDataTable Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DATA_SEARCHRow) Private columnGUID As Global.System.Data.DataColumn Private columnPROFILE_ID As Global.System.Data.DataColumn Private columnCONN_ID As Global.System.Data.DataColumn Private columnSQL_COMMAND As Global.System.Data.DataColumn Private 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 _ Public Sub New() MyBase.New Me.TableName = "TBCW_PROF_DATA_SEARCH" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID End Get End Property _ Public ReadOnly Property CONN_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONN_ID End Get End Property _ Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_COMMAND End Get End Property _ Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnTAB_INDEX End Get End Property _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property _ Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTAB_TITLE End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property COUNT_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnCOUNT_COMMAND End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_DATA_SEARCHRow Get Return CType(Me.Rows(index),TBCW_PROF_DATA_SEARCHRow) End Get End Property _ Public Event TBCW_PROF_DATA_SEARCHRowChanging As TBCW_PROF_DATA_SEARCHRowChangeEventHandler _ Public Event TBCW_PROF_DATA_SEARCHRowChanged As TBCW_PROF_DATA_SEARCHRowChangeEventHandler _ Public Event TBCW_PROF_DATA_SEARCHRowDeleting As TBCW_PROF_DATA_SEARCHRowChangeEventHandler _ Public Event TBCW_PROF_DATA_SEARCHRowDeleted As TBCW_PROF_DATA_SEARCHRowChangeEventHandler _ Public Overloads Sub AddTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBCW_PROF_DATA_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DATA_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal 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 _ Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DATA_SEARCHRow Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_DATA_SEARCHRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBCW_PROF_DATA_SEARCHDataTable = CType(MyBase.Clone,TBCW_PROF_DATA_SEARCHDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBCW_PROF_DATA_SEARCHDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") Me.columnCONN_ID = MyBase.Columns("CONN_ID") Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") Me.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 _ 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.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 _ Public Function NewTBCW_PROF_DATA_SEARCHRow() As TBCW_PROF_DATA_SEARCHRow Return CType(Me.NewRow,TBCW_PROF_DATA_SEARCHRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBCW_PROF_DATA_SEARCHRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBCW_PROF_DATA_SEARCHRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangedEvent) Is Nothing) Then RaiseEvent TBCW_PROF_DATA_SEARCHRowChanged(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBCW_PROF_DATA_SEARCHRowChangingEvent) Is Nothing) Then RaiseEvent TBCW_PROF_DATA_SEARCHRowChanging(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletedEvent) Is Nothing) Then RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleted(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBCW_PROF_DATA_SEARCHRowDeletingEvent) Is Nothing) Then RaiseEvent TBCW_PROF_DATA_SEARCHRowDeleting(Me, New TBCW_PROF_DATA_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DATA_SEARCHRow), e.Action)) End If End Sub _ Public Sub RemoveTBCW_PROF_DATA_SEARCHRow(ByVal row As TBCW_PROF_DATA_SEARCHRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As MyDataset = New MyDataset() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBCW_PROF_DATA_SEARCHDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBCW_PROF_DOC_SEARCHDataTable Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_DOC_SEARCHRow) Private columnGUID As Global.System.Data.DataColumn Private columnPROFILE_ID As Global.System.Data.DataColumn Private columnCONN_ID As Global.System.Data.DataColumn Private columnSQL_COMMAND As Global.System.Data.DataColumn Private 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 _ Public Sub New() MyBase.New Me.TableName = "TBCW_PROF_DOC_SEARCH" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID End Get End Property _ Public ReadOnly Property CONN_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnCONN_ID End Get End Property _ Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_COMMAND End Get End Property _ Public ReadOnly Property TAB_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnTAB_INDEX End Get End Property _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property _ Public ReadOnly Property TAB_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnTAB_TITLE End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property COUNT_COMMANDColumn() As Global.System.Data.DataColumn Get Return Me.columnCOUNT_COMMAND End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_DOC_SEARCHRow Get Return CType(Me.Rows(index),TBCW_PROF_DOC_SEARCHRow) End Get End Property _ Public Event TBCW_PROF_DOC_SEARCHRowChanging As TBCW_PROF_DOC_SEARCHRowChangeEventHandler _ Public Event TBCW_PROF_DOC_SEARCHRowChanged As TBCW_PROF_DOC_SEARCHRowChangeEventHandler _ Public Event TBCW_PROF_DOC_SEARCHRowDeleting As TBCW_PROF_DOC_SEARCHRowChangeEventHandler _ Public Event TBCW_PROF_DOC_SEARCHRowDeleted As TBCW_PROF_DOC_SEARCHRowChangeEventHandler _ Public Overloads Sub AddTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBCW_PROF_DOC_SEARCHRow(ByVal parentTBCW_PROFILESRowByFK_TBCW_PROF_DOC_SEARCH_PROF_IF As TBCW_PROFILESRow, ByVal CONN_ID As Byte, ByVal SQL_COMMAND As String, ByVal 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 _ Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_DOC_SEARCHRow Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_DOC_SEARCHRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBCW_PROF_DOC_SEARCHDataTable = CType(MyBase.Clone,TBCW_PROF_DOC_SEARCHDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBCW_PROF_DOC_SEARCHDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") Me.columnCONN_ID = MyBase.Columns("CONN_ID") Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") Me.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 _ 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.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 _ Public Function NewTBCW_PROF_DOC_SEARCHRow() As TBCW_PROF_DOC_SEARCHRow Return CType(Me.NewRow,TBCW_PROF_DOC_SEARCHRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBCW_PROF_DOC_SEARCHRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBCW_PROF_DOC_SEARCHRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangedEvent) Is Nothing) Then RaiseEvent TBCW_PROF_DOC_SEARCHRowChanged(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBCW_PROF_DOC_SEARCHRowChangingEvent) Is Nothing) Then RaiseEvent TBCW_PROF_DOC_SEARCHRowChanging(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBCW_PROF_DOC_SEARCHRowDeletedEvent) Is Nothing) Then RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleted(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBCW_PROF_DOC_SEARCHRowDeletingEvent) Is Nothing) Then RaiseEvent TBCW_PROF_DOC_SEARCHRowDeleting(Me, New TBCW_PROF_DOC_SEARCHRowChangeEvent(CType(e.Row,TBCW_PROF_DOC_SEARCHRow), e.Action)) End If End Sub _ Public Sub RemoveTBCW_PROF_DOC_SEARCHRow(ByVal row As TBCW_PROF_DOC_SEARCHRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As MyDataset = New MyDataset() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBCW_PROF_DOC_SEARCHDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBCW_GROUP_PROFILEDataTable Inherits Global.System.Data.TypedTableBase(Of TBCW_GROUP_PROFILERow) Private columnGUID As Global.System.Data.DataColumn Private columnPROFILE_ID As Global.System.Data.DataColumn Private columnGROUP_ID As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBCW_GROUP_PROFILE" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID End Get End Property _ Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnGROUP_ID End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_GROUP_PROFILERow Get Return CType(Me.Rows(index),TBCW_GROUP_PROFILERow) End Get End Property _ Public Event TBCW_GROUP_PROFILERowChanging As TBCW_GROUP_PROFILERowChangeEventHandler _ Public Event TBCW_GROUP_PROFILERowChanged As TBCW_GROUP_PROFILERowChangeEventHandler _ Public Event TBCW_GROUP_PROFILERowDeleting As TBCW_GROUP_PROFILERowChangeEventHandler _ Public Event TBCW_GROUP_PROFILERowDeleted As TBCW_GROUP_PROFILERowChangeEventHandler _ Public Overloads Sub AddTBCW_GROUP_PROFILERow(ByVal row As TBCW_GROUP_PROFILERow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBCW_GROUP_PROFILERow(ByVal PROFILE_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBCW_GROUP_PROFILERow Dim rowTBCW_GROUP_PROFILERow As TBCW_GROUP_PROFILERow = CType(Me.NewRow,TBCW_GROUP_PROFILERow) Dim columnValuesArray() As Object = New Object() {Nothing, PROFILE_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN} rowTBCW_GROUP_PROFILERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBCW_GROUP_PROFILERow) Return rowTBCW_GROUP_PROFILERow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBCW_GROUP_PROFILERow Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_GROUP_PROFILERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBCW_GROUP_PROFILEDataTable = CType(MyBase.Clone,TBCW_GROUP_PROFILEDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBCW_GROUP_PROFILEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROFILE_ID) Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGROUP_ID) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.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 _ Public Function NewTBCW_GROUP_PROFILERow() As TBCW_GROUP_PROFILERow Return CType(Me.NewRow,TBCW_GROUP_PROFILERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBCW_GROUP_PROFILERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBCW_GROUP_PROFILERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBCW_GROUP_PROFILERowChangedEvent) Is Nothing) Then RaiseEvent TBCW_GROUP_PROFILERowChanged(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBCW_GROUP_PROFILERowChangingEvent) Is Nothing) Then RaiseEvent TBCW_GROUP_PROFILERowChanging(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBCW_GROUP_PROFILERowDeletedEvent) Is Nothing) Then RaiseEvent TBCW_GROUP_PROFILERowDeleted(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBCW_GROUP_PROFILERowDeletingEvent) Is Nothing) Then RaiseEvent TBCW_GROUP_PROFILERowDeleting(Me, New TBCW_GROUP_PROFILERowChangeEvent(CType(e.Row,TBCW_GROUP_PROFILERow), e.Action)) End If End Sub _ Public Sub RemoveTBCW_GROUP_PROFILERow(ByVal row As TBCW_GROUP_PROFILERow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As MyDataset = New MyDataset() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBCW_GROUP_PROFILEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class 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 _ Public Sub New() MyBase.New Me.TableName = "VWCW_GROUP_PROFILE" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As VWCW_GROUP_PROFILERow Get Return CType(Me.Rows(index),VWCW_GROUP_PROFILERow) End Get End Property _ Public Event VWCW_GROUP_PROFILERowChanging As VWCW_GROUP_PROFILERowChangeEventHandler _ Public Event VWCW_GROUP_PROFILERowChanged As VWCW_GROUP_PROFILERowChangeEventHandler _ Public Event VWCW_GROUP_PROFILERowDeleting As VWCW_GROUP_PROFILERowChangeEventHandler _ Public Event VWCW_GROUP_PROFILERowDeleted As VWCW_GROUP_PROFILERowChangeEventHandler _ Public Overloads Sub AddVWCW_GROUP_PROFILERow(ByVal row As VWCW_GROUP_PROFILERow) Me.Rows.Add(row) End Sub _ 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 _ Public Function FindByGUID(ByVal GUID As Integer) As VWCW_GROUP_PROFILERow Return CType(Me.Rows.Find(New Object() {GUID}),VWCW_GROUP_PROFILERow) End Function _ 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 _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWCW_GROUP_PROFILEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AllowDBNull = false Me.columnGUID.Unique = true Me.columnNAME.MaxLength = 100 End Sub _ Public Function NewVWCW_GROUP_PROFILERow() As VWCW_GROUP_PROFILERow Return CType(Me.NewRow,VWCW_GROUP_PROFILERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWCW_GROUP_PROFILERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWCW_GROUP_PROFILERow) End Function _ 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 _ 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 _ 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 _ 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 _ Public Sub RemoveVWCW_GROUP_PROFILERow(ByVal row As VWCW_GROUP_PROFILERow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As MyDataset = New MyDataset() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "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 ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBCW_PROF_REL_WINDOWDataTable Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_REL_WINDOWRow) Private columnGUID As Global.System.Data.DataColumn Private columnDESCRIPTION As Global.System.Data.DataColumn Private columnREGEX As Global.System.Data.DataColumn Private columnSEQUENCE As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn Private columnPROCESS_ID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBCW_PROF_REL_WINDOW" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnDESCRIPTION End Get End Property _ Public ReadOnly Property REGEXColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX End Get End Property _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property PROCESS_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROCESS_ID End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_REL_WINDOWRow Get Return CType(Me.Rows(index),TBCW_PROF_REL_WINDOWRow) End Get End Property _ Public Event TBCW_PROF_REL_WINDOWRowChanging As TBCW_PROF_REL_WINDOWRowChangeEventHandler _ Public Event TBCW_PROF_REL_WINDOWRowChanged As TBCW_PROF_REL_WINDOWRowChangeEventHandler _ Public Event TBCW_PROF_REL_WINDOWRowDeleting As TBCW_PROF_REL_WINDOWRowChangeEventHandler _ Public Event TBCW_PROF_REL_WINDOWRowDeleted As TBCW_PROF_REL_WINDOWRowChangeEventHandler _ Public Overloads Sub AddTBCW_PROF_REL_WINDOWRow(ByVal row As TBCW_PROF_REL_WINDOWRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBCW_PROF_REL_WINDOWRow(ByVal DESCRIPTION As String, ByVal REGEX As String, ByVal SEQUENCE As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal parentTBCW_PROFILE_PROCESSRowByFK_PROCESS_ID As TBCW_PROFILE_PROCESSRow) 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, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Nothing} If (Not (parentTBCW_PROFILE_PROCESSRowByFK_PROCESS_ID) Is Nothing) Then columnValuesArray(8) = parentTBCW_PROFILE_PROCESSRowByFK_PROCESS_ID(0) End If rowTBCW_PROF_REL_WINDOWRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBCW_PROF_REL_WINDOWRow) Return rowTBCW_PROF_REL_WINDOWRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_REL_WINDOWRow Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_REL_WINDOWRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBCW_PROF_REL_WINDOWDataTable = CType(MyBase.Clone,TBCW_PROF_REL_WINDOWDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBCW_PROF_REL_WINDOWDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") Me.columnREGEX = MyBase.Columns("REGEX") Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnPROCESS_ID = MyBase.Columns("PROCESS_ID") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDESCRIPTION) Me.columnREGEX = New Global.System.Data.DataColumn("REGEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnREGEX) Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEQUENCE) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.columnPROCESS_ID = New Global.System.Data.DataColumn("PROCESS_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPROCESS_ID) 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.columnDESCRIPTION.AllowDBNull = false Me.columnDESCRIPTION.MaxLength = 250 Me.columnREGEX.AllowDBNull = false Me.columnREGEX.MaxLength = 500 Me.columnSEQUENCE.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnPROCESS_ID.AllowDBNull = false End Sub _ Public Function NewTBCW_PROF_REL_WINDOWRow() As TBCW_PROF_REL_WINDOWRow Return CType(Me.NewRow,TBCW_PROF_REL_WINDOWRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBCW_PROF_REL_WINDOWRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBCW_PROF_REL_WINDOWRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBCW_PROF_REL_WINDOWRowChangedEvent) Is Nothing) Then RaiseEvent TBCW_PROF_REL_WINDOWRowChanged(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBCW_PROF_REL_WINDOWRowChangingEvent) Is Nothing) Then RaiseEvent TBCW_PROF_REL_WINDOWRowChanging(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBCW_PROF_REL_WINDOWRowDeletedEvent) Is Nothing) Then RaiseEvent TBCW_PROF_REL_WINDOWRowDeleted(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBCW_PROF_REL_WINDOWRowDeletingEvent) Is Nothing) Then RaiseEvent TBCW_PROF_REL_WINDOWRowDeleting(Me, New TBCW_PROF_REL_WINDOWRowChangeEvent(CType(e.Row,TBCW_PROF_REL_WINDOWRow), e.Action)) End If End Sub _ Public Sub RemoveTBCW_PROF_REL_WINDOWRow(ByVal row As TBCW_PROF_REL_WINDOWRow) Me.Rows.Remove(row) End Sub _ 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 ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBDD_CONNECTIONDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_CONNECTIONRow) Private columnGUID As Global.System.Data.DataColumn Private columnBEZEICHNUNG As Global.System.Data.DataColumn Private columnSQL_PROVIDER As Global.System.Data.DataColumn Private columnSERVER As Global.System.Data.DataColumn Private columnDATENBANK As Global.System.Data.DataColumn Private columnUSERNAME As Global.System.Data.DataColumn Private columnPASSWORD As Global.System.Data.DataColumn Private columnBEMERKUNG As Global.System.Data.DataColumn Private columnAKTIV As Global.System.Data.DataColumn Private columnERSTELLTWER As Global.System.Data.DataColumn Private columnERSTELLTWANN As Global.System.Data.DataColumn Private columnGEANDERTWER As Global.System.Data.DataColumn Private columnGEAENDERTWANN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBDD_CONNECTION" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG End Get End Property _ Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_PROVIDER End Get End Property _ Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn Get Return Me.columnSERVER End Get End Property _ Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn Get Return Me.columnDATENBANK End Get End Property _ Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnUSERNAME End Get End Property _ Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn Get Return Me.columnPASSWORD End Get End Property _ Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEMERKUNG End Get End Property _ Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get Return Me.columnAKTIV End Get End Property _ Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWER End Get End Property _ Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnERSTELLTWANN End Get End Property _ Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get Return Me.columnGEANDERTWER End Get End Property _ Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get Return Me.columnGEAENDERTWANN End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CONNECTIONRow Get Return CType(Me.Rows(index),TBDD_CONNECTIONRow) End Get End Property _ Public Event TBDD_CONNECTIONRowChanging As TBDD_CONNECTIONRowChangeEventHandler _ Public Event TBDD_CONNECTIONRowChanged As TBDD_CONNECTIONRowChangeEventHandler _ Public Event TBDD_CONNECTIONRowDeleting As TBDD_CONNECTIONRowChangeEventHandler _ Public Event TBDD_CONNECTIONRowDeleted As TBDD_CONNECTIONRowChangeEventHandler _ Public Overloads Sub AddTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBDD_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_CONNECTIONRow Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow,TBDD_CONNECTIONRow) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} rowTBDD_CONNECTIONRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_CONNECTIONRow) Return rowTBDD_CONNECTIONRow End Function _ Public Function FindByGUID(ByVal GUID As Short) As TBDD_CONNECTIONRow Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CONNECTIONRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone,TBDD_CONNECTIONDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_CONNECTIONDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") Me.columnSERVER = MyBase.Columns("SERVER") Me.columnDATENBANK = MyBase.Columns("DATENBANK") Me.columnUSERNAME = MyBase.Columns("USERNAME") Me.columnPASSWORD = MyBase.Columns("PASSWORD") Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") Me.columnAKTIV = MyBase.Columns("AKTIV") Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBEZEICHNUNG) Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSQL_PROVIDER) Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSERVER) Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDATENBANK) Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnUSERNAME) Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPASSWORD) Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBEMERKUNG) Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAKTIV) Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnERSTELLTWER) Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnERSTELLTWANN) Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGEANDERTWER) Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGEAENDERTWANN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true Me.columnBEZEICHNUNG.MaxLength = 100 Me.columnSQL_PROVIDER.MaxLength = 50 Me.columnSERVER.MaxLength = 150 Me.columnDATENBANK.MaxLength = 100 Me.columnUSERNAME.MaxLength = 100 Me.columnPASSWORD.MaxLength = 100 Me.columnBEMERKUNG.MaxLength = 400 Me.columnAKTIV.AllowDBNull = false Me.columnERSTELLTWER.AllowDBNull = false Me.columnERSTELLTWER.MaxLength = 50 Me.columnGEANDERTWER.MaxLength = 50 End Sub _ Public Function NewTBDD_CONNECTIONRow() As TBDD_CONNECTIONRow Return CType(Me.NewRow,TBDD_CONNECTIONRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_CONNECTIONRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_CONNECTIONRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_CONNECTIONRowChangedEvent) Is Nothing) Then RaiseEvent TBDD_CONNECTIONRowChanged(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_CONNECTIONRowChangingEvent) Is Nothing) Then RaiseEvent TBDD_CONNECTIONRowChanging(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_CONNECTIONRowDeletedEvent) Is Nothing) Then RaiseEvent TBDD_CONNECTIONRowDeleted(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_CONNECTIONRowDeletingEvent) Is Nothing) Then RaiseEvent TBDD_CONNECTIONRowDeleting(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) End If End Sub _ Public Sub RemoveTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As 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 = "TBDD_CONNECTIONDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBCW_PROF_REL_CONTROLDataTable Inherits Global.System.Data.TypedTableBase(Of TBCW_PROF_REL_CONTROLRow) Private columnGUID As Global.System.Data.DataColumn Private columnWINDOW_ID As Global.System.Data.DataColumn Private columnDESCRIPTION As Global.System.Data.DataColumn Private columnREGEX As Global.System.Data.DataColumn Private columnSEQUENCE As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn Private columnCHANGED_WHEN As Global.System.Data.DataColumn Private columnTOPLEFT_TOP As Global.System.Data.DataColumn Private columnTOPLEFT_LEFT As Global.System.Data.DataColumn Private columnTOPLEFT_RIGHT As Global.System.Data.DataColumn Private columnTOPLEFT_BOTTOM As Global.System.Data.DataColumn Private columnTOPRIGHT_TOP As Global.System.Data.DataColumn Private columnTOPRIGHT_LEFT As Global.System.Data.DataColumn Private columnTOPRIGHT_RIGHT As Global.System.Data.DataColumn Private columnTOPRIGHT_BOTTOM As Global.System.Data.DataColumn Private columnBOTTOMLEFT_TOP As Global.System.Data.DataColumn Private columnBOTTOMLEFT_LEFT As Global.System.Data.DataColumn Private columnBOTTOMLEFT_RIGHT As Global.System.Data.DataColumn Private columnBOTTOMLEFT_BOTTOM As Global.System.Data.DataColumn Private columnBOTTOMRIGHT_TOP As Global.System.Data.DataColumn Private columnBOTTOMRIGHT_LEFT As Global.System.Data.DataColumn Private columnBOTTOMRIGHT_RIGHT As Global.System.Data.DataColumn Private columnBOTTOMRIGHT_BOTTOM As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBCW_PROF_REL_CONTROL" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property _ Public ReadOnly Property WINDOW_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnWINDOW_ID End Get End Property _ Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn Get Return Me.columnDESCRIPTION End Get End Property _ Public ReadOnly Property REGEXColumn() As Global.System.Data.DataColumn Get Return Me.columnREGEX End Get End Property _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE End Get End Property _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property _ Public ReadOnly Property TOPLEFT_TOPColumn() As Global.System.Data.DataColumn Get Return Me.columnTOPLEFT_TOP End Get End Property _ Public ReadOnly Property TOPLEFT_LEFTColumn() As Global.System.Data.DataColumn Get Return Me.columnTOPLEFT_LEFT End Get End Property _ Public ReadOnly Property TOPLEFT_RIGHTColumn() As Global.System.Data.DataColumn Get Return Me.columnTOPLEFT_RIGHT End Get End Property _ Public ReadOnly Property TOPLEFT_BOTTOMColumn() As Global.System.Data.DataColumn Get Return Me.columnTOPLEFT_BOTTOM End Get End Property _ Public ReadOnly Property TOPRIGHT_TOPColumn() As Global.System.Data.DataColumn Get Return Me.columnTOPRIGHT_TOP End Get End Property _ Public ReadOnly Property TOPRIGHT_LEFTColumn() As Global.System.Data.DataColumn Get Return Me.columnTOPRIGHT_LEFT End Get End Property _ Public ReadOnly Property TOPRIGHT_RIGHTColumn() As Global.System.Data.DataColumn Get Return Me.columnTOPRIGHT_RIGHT End Get End Property _ Public ReadOnly Property TOPRIGHT_BOTTOMColumn() As Global.System.Data.DataColumn Get Return Me.columnTOPRIGHT_BOTTOM End Get End Property _ Public ReadOnly Property BOTTOMLEFT_TOPColumn() As Global.System.Data.DataColumn Get Return Me.columnBOTTOMLEFT_TOP End Get End Property _ Public ReadOnly Property BOTTOMLEFT_LEFTColumn() As Global.System.Data.DataColumn Get Return Me.columnBOTTOMLEFT_LEFT End Get End Property _ Public ReadOnly Property BOTTOMLEFT_RIGHTColumn() As Global.System.Data.DataColumn Get Return Me.columnBOTTOMLEFT_RIGHT End Get End Property _ Public ReadOnly Property BOTTOMLEFT_BOTTOMColumn() As Global.System.Data.DataColumn Get Return Me.columnBOTTOMLEFT_BOTTOM End Get End Property _ Public ReadOnly Property BOTTOMRIGHT_TOPColumn() As Global.System.Data.DataColumn Get Return Me.columnBOTTOMRIGHT_TOP End Get End Property _ Public ReadOnly Property BOTTOMRIGHT_LEFTColumn() As Global.System.Data.DataColumn Get Return Me.columnBOTTOMRIGHT_LEFT End Get End Property _ Public ReadOnly Property BOTTOMRIGHT_RIGHTColumn() As Global.System.Data.DataColumn Get Return Me.columnBOTTOMRIGHT_RIGHT End Get End Property _ Public ReadOnly Property BOTTOMRIGHT_BOTTOMColumn() As Global.System.Data.DataColumn Get Return Me.columnBOTTOMRIGHT_BOTTOM End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBCW_PROF_REL_CONTROLRow Get Return CType(Me.Rows(index),TBCW_PROF_REL_CONTROLRow) End Get End Property _ Public Event TBCW_PROF_REL_CONTROLRowChanging As TBCW_PROF_REL_CONTROLRowChangeEventHandler _ Public Event TBCW_PROF_REL_CONTROLRowChanged As TBCW_PROF_REL_CONTROLRowChangeEventHandler _ Public Event TBCW_PROF_REL_CONTROLRowDeleting As TBCW_PROF_REL_CONTROLRowChangeEventHandler _ Public Event TBCW_PROF_REL_CONTROLRowDeleted As TBCW_PROF_REL_CONTROLRowChangeEventHandler _ Public Overloads Sub AddTBCW_PROF_REL_CONTROLRow(ByVal row As TBCW_PROF_REL_CONTROLRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBCW_PROF_REL_CONTROLRow( _ ByVal parentTBCW_PROF_REL_WINDOWRowByFK_WINDOW_ID As TBCW_PROF_REL_WINDOWRow, _ ByVal DESCRIPTION As String, _ ByVal REGEX As String, _ ByVal SEQUENCE As Byte, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Date, _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Date, _ ByVal TOPLEFT_TOP As Integer, _ ByVal TOPLEFT_LEFT As Integer, _ ByVal TOPLEFT_RIGHT As Integer, _ ByVal TOPLEFT_BOTTOM As Integer, _ ByVal TOPRIGHT_TOP As Integer, _ ByVal TOPRIGHT_LEFT As Integer, _ ByVal TOPRIGHT_RIGHT As Integer, _ ByVal TOPRIGHT_BOTTOM As Integer, _ ByVal BOTTOMLEFT_TOP As Integer, _ ByVal BOTTOMLEFT_LEFT As Integer, _ ByVal BOTTOMLEFT_RIGHT As Integer, _ ByVal BOTTOMLEFT_BOTTOM As Integer, _ ByVal BOTTOMRIGHT_TOP As Integer, _ ByVal BOTTOMRIGHT_LEFT As Integer, _ ByVal BOTTOMRIGHT_RIGHT As Integer, _ ByVal BOTTOMRIGHT_BOTTOM As Integer) As TBCW_PROF_REL_CONTROLRow Dim rowTBCW_PROF_REL_CONTROLRow As TBCW_PROF_REL_CONTROLRow = CType(Me.NewRow,TBCW_PROF_REL_CONTROLRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM} If (Not (parentTBCW_PROF_REL_WINDOWRowByFK_WINDOW_ID) Is Nothing) Then columnValuesArray(1) = parentTBCW_PROF_REL_WINDOWRowByFK_WINDOW_ID(0) End If rowTBCW_PROF_REL_CONTROLRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBCW_PROF_REL_CONTROLRow) Return rowTBCW_PROF_REL_CONTROLRow End Function _ Public Function FindByGUID(ByVal GUID As Integer) As TBCW_PROF_REL_CONTROLRow Return CType(Me.Rows.Find(New Object() {GUID}),TBCW_PROF_REL_CONTROLRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable Dim cln As TBCW_PROF_REL_CONTROLDataTable = CType(MyBase.Clone,TBCW_PROF_REL_CONTROLDataTable) cln.InitVars Return cln End Function _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBCW_PROF_REL_CONTROLDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnWINDOW_ID = MyBase.Columns("WINDOW_ID") Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") Me.columnREGEX = MyBase.Columns("REGEX") Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnTOPLEFT_TOP = MyBase.Columns("TOPLEFT_TOP") Me.columnTOPLEFT_LEFT = MyBase.Columns("TOPLEFT_LEFT") Me.columnTOPLEFT_RIGHT = MyBase.Columns("TOPLEFT_RIGHT") Me.columnTOPLEFT_BOTTOM = MyBase.Columns("TOPLEFT_BOTTOM") Me.columnTOPRIGHT_TOP = MyBase.Columns("TOPRIGHT_TOP") Me.columnTOPRIGHT_LEFT = MyBase.Columns("TOPRIGHT_LEFT") Me.columnTOPRIGHT_RIGHT = MyBase.Columns("TOPRIGHT_RIGHT") Me.columnTOPRIGHT_BOTTOM = MyBase.Columns("TOPRIGHT_BOTTOM") Me.columnBOTTOMLEFT_TOP = MyBase.Columns("BOTTOMLEFT_TOP") Me.columnBOTTOMLEFT_LEFT = MyBase.Columns("BOTTOMLEFT_LEFT") Me.columnBOTTOMLEFT_RIGHT = MyBase.Columns("BOTTOMLEFT_RIGHT") Me.columnBOTTOMLEFT_BOTTOM = MyBase.Columns("BOTTOMLEFT_BOTTOM") Me.columnBOTTOMRIGHT_TOP = MyBase.Columns("BOTTOMRIGHT_TOP") Me.columnBOTTOMRIGHT_LEFT = MyBase.Columns("BOTTOMRIGHT_LEFT") Me.columnBOTTOMRIGHT_RIGHT = MyBase.Columns("BOTTOMRIGHT_RIGHT") Me.columnBOTTOMRIGHT_BOTTOM = MyBase.Columns("BOTTOMRIGHT_BOTTOM") End Sub _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) Me.columnWINDOW_ID = New Global.System.Data.DataColumn("WINDOW_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWINDOW_ID) Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnDESCRIPTION) Me.columnREGEX = New Global.System.Data.DataColumn("REGEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnREGEX) Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnSEQUENCE) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.columnTOPLEFT_TOP = New Global.System.Data.DataColumn("TOPLEFT_TOP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTOPLEFT_TOP) Me.columnTOPLEFT_LEFT = New Global.System.Data.DataColumn("TOPLEFT_LEFT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTOPLEFT_LEFT) Me.columnTOPLEFT_RIGHT = New Global.System.Data.DataColumn("TOPLEFT_RIGHT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTOPLEFT_RIGHT) Me.columnTOPLEFT_BOTTOM = New Global.System.Data.DataColumn("TOPLEFT_BOTTOM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTOPLEFT_BOTTOM) Me.columnTOPRIGHT_TOP = New Global.System.Data.DataColumn("TOPRIGHT_TOP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTOPRIGHT_TOP) Me.columnTOPRIGHT_LEFT = New Global.System.Data.DataColumn("TOPRIGHT_LEFT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTOPRIGHT_LEFT) Me.columnTOPRIGHT_RIGHT = New Global.System.Data.DataColumn("TOPRIGHT_RIGHT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTOPRIGHT_RIGHT) Me.columnTOPRIGHT_BOTTOM = New Global.System.Data.DataColumn("TOPRIGHT_BOTTOM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnTOPRIGHT_BOTTOM) Me.columnBOTTOMLEFT_TOP = New Global.System.Data.DataColumn("BOTTOMLEFT_TOP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBOTTOMLEFT_TOP) Me.columnBOTTOMLEFT_LEFT = New Global.System.Data.DataColumn("BOTTOMLEFT_LEFT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBOTTOMLEFT_LEFT) Me.columnBOTTOMLEFT_RIGHT = New Global.System.Data.DataColumn("BOTTOMLEFT_RIGHT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBOTTOMLEFT_RIGHT) Me.columnBOTTOMLEFT_BOTTOM = New Global.System.Data.DataColumn("BOTTOMLEFT_BOTTOM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBOTTOMLEFT_BOTTOM) Me.columnBOTTOMRIGHT_TOP = New Global.System.Data.DataColumn("BOTTOMRIGHT_TOP", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBOTTOMRIGHT_TOP) Me.columnBOTTOMRIGHT_LEFT = New Global.System.Data.DataColumn("BOTTOMRIGHT_LEFT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBOTTOMRIGHT_LEFT) Me.columnBOTTOMRIGHT_RIGHT = New Global.System.Data.DataColumn("BOTTOMRIGHT_RIGHT", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBOTTOMRIGHT_RIGHT) Me.columnBOTTOMRIGHT_BOTTOM = New Global.System.Data.DataColumn("BOTTOMRIGHT_BOTTOM", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBOTTOMRIGHT_BOTTOM) Me.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.columnWINDOW_ID.AllowDBNull = false Me.columnDESCRIPTION.AllowDBNull = false Me.columnDESCRIPTION.MaxLength = 250 Me.columnREGEX.AllowDBNull = false Me.columnREGEX.MaxLength = 500 Me.columnSEQUENCE.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnTOPLEFT_TOP.AllowDBNull = false Me.columnTOPLEFT_LEFT.AllowDBNull = false Me.columnTOPLEFT_RIGHT.AllowDBNull = false Me.columnTOPLEFT_BOTTOM.AllowDBNull = false Me.columnTOPRIGHT_TOP.AllowDBNull = false Me.columnTOPRIGHT_LEFT.AllowDBNull = false Me.columnTOPRIGHT_RIGHT.AllowDBNull = false Me.columnTOPRIGHT_BOTTOM.AllowDBNull = false Me.columnBOTTOMLEFT_TOP.AllowDBNull = false Me.columnBOTTOMLEFT_LEFT.AllowDBNull = false Me.columnBOTTOMLEFT_RIGHT.AllowDBNull = false Me.columnBOTTOMLEFT_BOTTOM.AllowDBNull = false Me.columnBOTTOMRIGHT_TOP.AllowDBNull = false Me.columnBOTTOMRIGHT_LEFT.AllowDBNull = false Me.columnBOTTOMRIGHT_RIGHT.AllowDBNull = false Me.columnBOTTOMRIGHT_BOTTOM.AllowDBNull = false End Sub _ Public Function NewTBCW_PROF_REL_CONTROLRow() As TBCW_PROF_REL_CONTROLRow Return CType(Me.NewRow,TBCW_PROF_REL_CONTROLRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBCW_PROF_REL_CONTROLRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBCW_PROF_REL_CONTROLRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBCW_PROF_REL_CONTROLRowChangedEvent) Is Nothing) Then RaiseEvent TBCW_PROF_REL_CONTROLRowChanged(Me, New TBCW_PROF_REL_CONTROLRowChangeEvent(CType(e.Row,TBCW_PROF_REL_CONTROLRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBCW_PROF_REL_CONTROLRowChangingEvent) Is Nothing) Then RaiseEvent TBCW_PROF_REL_CONTROLRowChanging(Me, New TBCW_PROF_REL_CONTROLRowChangeEvent(CType(e.Row,TBCW_PROF_REL_CONTROLRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBCW_PROF_REL_CONTROLRowDeletedEvent) Is Nothing) Then RaiseEvent TBCW_PROF_REL_CONTROLRowDeleted(Me, New TBCW_PROF_REL_CONTROLRowChangeEvent(CType(e.Row,TBCW_PROF_REL_CONTROLRow), e.Action)) End If End Sub _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBCW_PROF_REL_CONTROLRowDeletingEvent) Is Nothing) Then RaiseEvent TBCW_PROF_REL_CONTROLRowDeleting(Me, New TBCW_PROF_REL_CONTROLRowChangeEvent(CType(e.Row,TBCW_PROF_REL_CONTROLRow), e.Action)) End If End Sub _ Public Sub RemoveTBCW_PROF_REL_CONTROLRow(ByVal row As TBCW_PROF_REL_CONTROLRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As MyDataset = New MyDataset() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "TBCW_PROF_REL_CONTROLDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) Loop If (s1.Position = s1.Length) Then Return type End If End If Loop Finally If (Not (s1) Is Nothing) Then s1.Close End If If (Not (s2) Is Nothing) Then s2.Close End If End Try End If xs.Add(dsSchema) Return type End Function End Class ''' '''Represents the strongly named DataTable class. ''' _ Partial Public Class TBWH_UserDataTable Inherits Global.System.Data.TypedTableBase(Of TBWH_UserRow) Private columnUsername As Global.System.Data.DataColumn Private columnPrename As Global.System.Data.DataColumn Private columnSurname As Global.System.Data.DataColumn Private columnEmail As Global.System.Data.DataColumn Private columnID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New Me.TableName = "TBWH_User" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get Return Me.columnUsername End Get End Property _ Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn Get Return Me.columnPrename End Get End Property _ Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn Get Return Me.columnSurname End Get End Property _ Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn Get Return Me.columnEmail End Get End Property _ Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_UserRow Get Return CType(Me.Rows(index),TBWH_UserRow) End Get End Property _ Public Event TBWH_UserRowChanging As TBWH_UserRowChangeEventHandler _ Public Event TBWH_UserRowChanged As TBWH_UserRowChangeEventHandler _ Public Event TBWH_UserRowDeleting As TBWH_UserRowChangeEventHandler _ Public Event TBWH_UserRowDeleted As TBWH_UserRowChangeEventHandler _ Public Overloads Sub AddTBWH_UserRow(ByVal row As TBWH_UserRow) Me.Rows.Add(row) End Sub _ Public Overloads Function AddTBWH_UserRow(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() {Username, Prename, Surname, Email, ID} rowTBWH_UserRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBWH_UserRow) Return rowTBWH_UserRow End Function _ 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 _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_UserDataTable() End Function _ Friend Sub InitVars() Me.columnUsername = MyBase.Columns("Username") Me.columnPrename = MyBase.Columns("Prename") Me.columnSurname = MyBase.Columns("Surname") Me.columnEmail = MyBase.Columns("Email") Me.columnID = MyBase.Columns("ID") End Sub _ Private Sub InitClass() Me.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) End Sub _ Public Function NewTBWH_UserRow() As TBWH_UserRow Return CType(Me.NewRow,TBWH_UserRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_UserRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_UserRow) End Function _ 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 _ 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 _ 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 _ 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 _ Public Sub RemoveTBWH_UserRow(ByVal row As TBWH_UserRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As MyDataset = New MyDataset() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "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 ''' '''Represents the strongly named DataTable class. ''' _ 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 _ Public Sub New() MyBase.New Me.TableName = "TBWH_GROUP" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID End Get End Property _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_GROUPRow Get Return CType(Me.Rows(index),TBWH_GROUPRow) End Get End Property _ Public Event TBWH_GROUPRowChanging As TBWH_GROUPRowChangeEventHandler _ Public Event TBWH_GROUPRowChanged As TBWH_GROUPRowChangeEventHandler _ Public Event TBWH_GROUPRowDeleting As TBWH_GROUPRowChangeEventHandler _ Public Event TBWH_GROUPRowDeleted As TBWH_GROUPRowChangeEventHandler _ Public Overloads Sub AddTBWH_GROUPRow(ByVal row As TBWH_GROUPRow) Me.Rows.Add(row) End Sub _ 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 _ 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 _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_GROUPDataTable() End Function _ Friend Sub InitVars() Me.columnID = MyBase.Columns("ID") Me.columnNAME = MyBase.Columns("NAME") End Sub _ 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 _ Public Function NewTBWH_GROUPRow() As TBWH_GROUPRow Return CType(Me.NewRow,TBWH_GROUPRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_GROUPRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_GROUPRow) End Function _ 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 _ 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 _ 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 _ 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 _ Public Sub RemoveTBWH_GROUPRow(ByVal row As TBWH_GROUPRow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As 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 ''' '''Represents the strongly named DataTable class. ''' _ 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 _ Public Sub New() MyBase.New Me.TableName = "TBWH_PROFILE_TYPE" Me.BeginInit Me.InitClass Me.EndInit End Sub _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive End If If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then Me.Locale = table.Locale End If If (table.Namespace <> table.DataSet.Namespace) Then Me.Namespace = table.Namespace End If Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) Me.InitVars End Sub _ Public ReadOnly Property TYPE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnTYPE_ID End Get End Property _ Public ReadOnly Property TYPE_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnTYPE_NAME End Get End Property _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property _ Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_PROFILE_TYPERow Get Return CType(Me.Rows(index),TBWH_PROFILE_TYPERow) End Get End Property _ Public Event TBWH_PROFILE_TYPERowChanging As TBWH_PROFILE_TYPERowChangeEventHandler _ Public Event TBWH_PROFILE_TYPERowChanged As TBWH_PROFILE_TYPERowChangeEventHandler _ Public Event TBWH_PROFILE_TYPERowDeleting As TBWH_PROFILE_TYPERowChangeEventHandler _ Public Event TBWH_PROFILE_TYPERowDeleted As TBWH_PROFILE_TYPERowChangeEventHandler _ Public Overloads Sub AddTBWH_PROFILE_TYPERow(ByVal row As TBWH_PROFILE_TYPERow) Me.Rows.Add(row) End Sub _ 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 _ 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 _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_PROFILE_TYPEDataTable() End Function _ Friend Sub InitVars() Me.columnTYPE_ID = MyBase.Columns("TYPE_ID") Me.columnTYPE_NAME = MyBase.Columns("TYPE_NAME") End Sub _ 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 _ Public Function NewTBWH_PROFILE_TYPERow() As TBWH_PROFILE_TYPERow Return CType(Me.NewRow,TBWH_PROFILE_TYPERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_PROFILE_TYPERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_PROFILE_TYPERow) End Function _ 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 _ 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 _ 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 _ 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 _ Public Sub RemoveTBWH_PROFILE_TYPERow(ByVal row As TBWH_PROFILE_TYPERow) Me.Rows.Remove(row) End Sub _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim ds As MyDataset = New MyDataset() Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any1.Namespace = "http://www.w3.org/2001/XMLSchema" any1.MinOccurs = New Decimal(0) any1.MaxOccurs = Decimal.MaxValue any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any1) Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" any2.MinOccurs = New Decimal(1) any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax sequence.Items.Add(any2) Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute1.Name = "namespace" attribute1.FixedValue = ds.Namespace type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" attribute2.FixedValue = "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 ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBCW_PROFILESRow Inherits Global.System.Data.DataRow Private tableTBCW_PROFILES As TBCW_PROFILESDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBCW_PROFILES = CType(Me.Table,TBCW_PROFILESDataTable) End Sub _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROFILES.COMMENTColumn) End Function _ Public Sub SetCOMMENTNull() Me(Me.tableTBCW_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROFILES.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBCW_PROFILES.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBCW_PROFILES.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBCW_PROFILES.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ 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 _ 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 End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBCW_USER_PROFILERow Inherits Global.System.Data.DataRow Private tableTBCW_USER_PROFILE As TBCW_USER_PROFILEDataTable _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBCW_USER_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWUSER_PROFILERow Inherits Global.System.Data.DataRow Private tableVWUSER_PROFILE As VWUSER_PROFILEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableVWUSER_PROFILE = CType(Me.Table,VWUSER_PROFILEDataTable) End Sub _ 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 _ 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 _ 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 _ 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 _ 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 _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableVWUSER_PROFILE.NAMEColumn) End Function _ Public Sub SetNAMENull() Me(Me.tableVWUSER_PROFILE.NAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPRENAMENull() As Boolean Return Me.IsNull(Me.tableVWUSER_PROFILE.PRENAMEColumn) End Function _ Public Sub SetPRENAMENull() Me(Me.tableVWUSER_PROFILE.PRENAMEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBCW_PROFILE_PROCESSRow Inherits Global.System.Data.DataRow Private tableTBCW_PROFILE_PROCESS As TBCW_PROFILE_PROCESSDataTable _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBCW_PROFILE_PROCESS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBCW_PROF_REL_WINDOWRows() As TBCW_PROF_REL_WINDOWRow() If (Me.Table.ChildRelations("FK_PROCESS_ID") Is Nothing) Then Return New TBCW_PROF_REL_WINDOWRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_PROCESS_ID")),TBCW_PROF_REL_WINDOWRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBCW_PROF_DATA_SEARCHRow Inherits Global.System.Data.DataRow Private tableTBCW_PROF_DATA_SEARCH As TBCW_PROF_DATA_SEARCHDataTable _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBCW_PROF_DATA_SEARCH.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBCW_PROF_DATA_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBCW_PROF_DOC_SEARCHRow Inherits Global.System.Data.DataRow Private tableTBCW_PROF_DOC_SEARCH As TBCW_PROF_DOC_SEARCHDataTable _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBCW_PROF_DOC_SEARCH.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBCW_PROF_DOC_SEARCH.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCOUNT_COMMANDNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) End Function _ Public Sub SetCOUNT_COMMANDNull() Me(Me.tableTBCW_PROF_DOC_SEARCH.COUNT_COMMANDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBCW_GROUP_PROFILERow Inherits Global.System.Data.DataRow Private tableTBCW_GROUP_PROFILE As TBCW_GROUP_PROFILEDataTable _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_GROUP_PROFILE.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBCW_GROUP_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWCW_GROUP_PROFILERow Inherits Global.System.Data.DataRow Private tableVWCW_GROUP_PROFILE As VWCW_GROUP_PROFILEDataTable _ 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 _ 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 _ 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 _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableVWCW_GROUP_PROFILE.NAMEColumn) End Function _ Public Sub SetNAMENull() Me(Me.tableVWCW_GROUP_PROFILE.NAMEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBCW_PROF_REL_WINDOWRow Inherits Global.System.Data.DataRow Private tableTBCW_PROF_REL_WINDOW As TBCW_PROF_REL_WINDOWDataTable _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ Public Property PROCESS_ID() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_WINDOW.PROCESS_IDColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_WINDOW.PROCESS_IDColumn) = value End Set End Property _ Public Property TBCW_PROFILE_PROCESSRow() As TBCW_PROFILE_PROCESSRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_PROCESS_ID")),TBCW_PROFILE_PROCESSRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_PROCESS_ID")) End Set End Property _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBCW_PROF_REL_WINDOW.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBCW_PROF_REL_WINDOW.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function GetTBCW_PROF_REL_CONTROLRows() As TBCW_PROF_REL_CONTROLRow() If (Me.Table.ChildRelations("FK_WINDOW_ID") Is Nothing) Then Return New TBCW_PROF_REL_CONTROLRow(-1) {} Else Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_WINDOW_ID")),TBCW_PROF_REL_CONTROLRow()) End If End Function End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_CONNECTIONRow Inherits Global.System.Data.DataRow Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBDD_CONNECTION = CType(Me.Table,TBDD_CONNECTIONDataTable) End Sub _ Public Property GUID() As Short Get Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) End Get Set Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value End Set End Property _ Public Property BEZEICHNUNG() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value End Set End Property _ Public Property SQL_PROVIDER() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value End Set End Property _ Public Property SERVER() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value End Set End Property _ Public Property DATENBANK() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value End Set End Property _ Public Property USERNAME() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value End Set End Property _ Public Property PASSWORD() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value End Set End Property _ Public Property BEMERKUNG() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value End Set End Property _ Public Property AKTIV() As Boolean Get Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn),Boolean) End Get Set Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value End Set End Property _ Public Property ERSTELLTWER() As String Get Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) End Get Set Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value End Set End Property _ Public Property ERSTELLTWANN() As Date Get Try Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value End Set End Property _ Public Property GEANDERTWER() As String Get Try Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value End Set End Property _ Public Property GEAENDERTWANN() As Date Get Try Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn),Date) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value End Set End Property _ Public Function IsBEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) End Function _ Public Sub SetBEZEICHNUNGNull() Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSQL_PROVIDERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) End Function _ Public Sub SetSQL_PROVIDERNull() Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSERVERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) End Function _ Public Sub SetSERVERNull() Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsDATENBANKNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) End Function _ Public Sub SetDATENBANKNull() Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsUSERNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) End Function _ Public Sub SetUSERNAMENull() Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPASSWORDNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) End Function _ Public Sub SetPASSWORDNull() Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsBEMERKUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) End Function _ Public Sub SetBEMERKUNGNull() Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsERSTELLTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) End Function _ Public Sub SetERSTELLTWANNNull() Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) End Function _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) End Function _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBCW_PROF_REL_CONTROLRow Inherits Global.System.Data.DataRow Private tableTBCW_PROF_REL_CONTROL As TBCW_PROF_REL_CONTROLDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBCW_PROF_REL_CONTROL = CType(Me.Table,TBCW_PROF_REL_CONTROLDataTable) End Sub _ Public Property GUID() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.GUIDColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.GUIDColumn) = value End Set End Property _ Public Property WINDOW_ID() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.WINDOW_IDColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.WINDOW_IDColumn) = value End Set End Property _ Public Property DESCRIPTION() As String Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.DESCRIPTIONColumn),String) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.DESCRIPTIONColumn) = value End Set End Property _ Public Property REGEX() As String Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.REGEXColumn),String) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.REGEXColumn) = value End Set End Property _ Public Property SEQUENCE() As Byte Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.SEQUENCEColumn),Byte) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.SEQUENCEColumn) = value End Set End Property _ Public Property ADDED_WHO() As String Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.ADDED_WHOColumn),String) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.ADDED_WHOColumn) = value End Set End Property _ Public Property ADDED_WHEN() As Date Get Try Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.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_CONTROL ist DBNull.", e) End Try End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.ADDED_WHENColumn) = value End Set End Property _ Public Property CHANGED_WHO() As String Get Try Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.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_CONTROL ist DBNull.", e) End Try End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHOColumn) = value End Set End Property _ Public Property CHANGED_WHEN() As Date Get Try Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.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_CONTROL ist DBNull.", e) End Try End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHENColumn) = value End Set End Property _ Public Property TOPLEFT_TOP() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_TOPColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_TOPColumn) = value End Set End Property _ Public Property TOPLEFT_LEFT() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_LEFTColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_LEFTColumn) = value End Set End Property _ Public Property TOPLEFT_RIGHT() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_RIGHTColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_RIGHTColumn) = value End Set End Property _ Public Property TOPLEFT_BOTTOM() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_BOTTOMColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.TOPLEFT_BOTTOMColumn) = value End Set End Property _ Public Property TOPRIGHT_TOP() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_TOPColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_TOPColumn) = value End Set End Property _ Public Property TOPRIGHT_LEFT() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_LEFTColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_LEFTColumn) = value End Set End Property _ Public Property TOPRIGHT_RIGHT() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_RIGHTColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_RIGHTColumn) = value End Set End Property _ Public Property TOPRIGHT_BOTTOM() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_BOTTOMColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.TOPRIGHT_BOTTOMColumn) = value End Set End Property _ Public Property BOTTOMLEFT_TOP() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_TOPColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_TOPColumn) = value End Set End Property _ Public Property BOTTOMLEFT_LEFT() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_LEFTColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_LEFTColumn) = value End Set End Property _ Public Property BOTTOMLEFT_RIGHT() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_RIGHTColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_RIGHTColumn) = value End Set End Property _ Public Property BOTTOMLEFT_BOTTOM() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_BOTTOMColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMLEFT_BOTTOMColumn) = value End Set End Property _ Public Property BOTTOMRIGHT_TOP() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_TOPColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_TOPColumn) = value End Set End Property _ Public Property BOTTOMRIGHT_LEFT() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_LEFTColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_LEFTColumn) = value End Set End Property _ Public Property BOTTOMRIGHT_RIGHT() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_RIGHTColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_RIGHTColumn) = value End Set End Property _ Public Property BOTTOMRIGHT_BOTTOM() As Integer Get Return CType(Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_BOTTOMColumn),Integer) End Get Set Me(Me.tableTBCW_PROF_REL_CONTROL.BOTTOMRIGHT_BOTTOMColumn) = value End Set End Property _ Public Property TBCW_PROF_REL_WINDOWRow() As TBCW_PROF_REL_WINDOWRow Get Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_WINDOW_ID")),TBCW_PROF_REL_WINDOWRow) End Get Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_WINDOW_ID")) End Set End Property _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_REL_CONTROL.ADDED_WHENColumn) End Function _ Public Sub SetADDED_WHENNull() Me(Me.tableTBCW_PROF_REL_CONTROL.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHOColumn) End Function _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHENColumn) End Function _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBCW_PROF_REL_CONTROL.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBWH_UserRow Inherits Global.System.Data.DataRow Private tableTBWH_User As TBWH_UserDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_User = CType(Me.Table,TBWH_UserDataTable) End Sub _ 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 _ 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 _ 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 _ 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 _ 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 _ Public Function IsUsernameNull() As Boolean Return Me.IsNull(Me.tableTBWH_User.UsernameColumn) End Function _ Public Sub SetUsernameNull() Me(Me.tableTBWH_User.UsernameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsPrenameNull() As Boolean Return Me.IsNull(Me.tableTBWH_User.PrenameColumn) End Function _ Public Sub SetPrenameNull() Me(Me.tableTBWH_User.PrenameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsSurnameNull() As Boolean Return Me.IsNull(Me.tableTBWH_User.SurnameColumn) End Function _ Public Sub SetSurnameNull() Me(Me.tableTBWH_User.SurnameColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsEmailNull() As Boolean Return Me.IsNull(Me.tableTBWH_User.EmailColumn) End Function _ Public Sub SetEmailNull() Me(Me.tableTBWH_User.EmailColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBWH_User.IDColumn) End Function _ Public Sub SetIDNull() Me(Me.tableTBWH_User.IDColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBWH_GROUPRow Inherits Global.System.Data.DataRow Private tableTBWH_GROUP As TBWH_GROUPDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) Me.tableTBWH_GROUP = CType(Me.Table,TBWH_GROUPDataTable) End Sub _ 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 _ 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 _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBWH_GROUP.IDColumn) End Function _ Public Sub SetIDNull() Me(Me.tableTBWH_GROUP.IDColumn) = Global.System.Convert.DBNull End Sub _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBWH_GROUP.NAMEColumn) End Function _ Public Sub SetNAMENull() Me(Me.tableTBWH_GROUP.NAMEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBWH_PROFILE_TYPERow Inherits Global.System.Data.DataRow Private tableTBWH_PROFILE_TYPE As TBWH_PROFILE_TYPEDataTable _ 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 _ 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 _ 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 _ Public Function IsTYPE_NAMENull() As Boolean Return Me.IsNull(Me.tableTBWH_PROFILE_TYPE.TYPE_NAMEColumn) End Function _ Public Sub SetTYPE_NAMENull() Me(Me.tableTBWH_PROFILE_TYPE.TYPE_NAMEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Row event argument class ''' _ Public Class TBCW_PROFILESRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBCW_PROFILESRow Private eventAction As Global.System.Data.DataRowAction _ 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 _ Public ReadOnly Property Row() As TBCW_PROFILESRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBCW_USER_PROFILERowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBCW_USER_PROFILERow Private eventAction As Global.System.Data.DataRowAction _ 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 _ Public ReadOnly Property Row() As TBCW_USER_PROFILERow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class VWUSER_PROFILERowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWUSER_PROFILERow Private eventAction As Global.System.Data.DataRowAction _ 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 _ Public ReadOnly Property Row() As VWUSER_PROFILERow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBCW_PROFILE_PROCESSRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBCW_PROFILE_PROCESSRow Private eventAction As Global.System.Data.DataRowAction _ 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 _ Public ReadOnly Property Row() As TBCW_PROFILE_PROCESSRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBCW_PROF_DATA_SEARCHRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBCW_PROF_DATA_SEARCHRow Private eventAction As Global.System.Data.DataRowAction _ 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 _ Public ReadOnly Property Row() As TBCW_PROF_DATA_SEARCHRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBCW_PROF_DOC_SEARCHRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBCW_PROF_DOC_SEARCHRow Private eventAction As Global.System.Data.DataRowAction _ 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 _ Public ReadOnly Property Row() As TBCW_PROF_DOC_SEARCHRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBCW_GROUP_PROFILERowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBCW_GROUP_PROFILERow Private eventAction As Global.System.Data.DataRowAction _ 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 _ Public ReadOnly Property Row() As TBCW_GROUP_PROFILERow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class VWCW_GROUP_PROFILERowChangeEvent Inherits Global.System.EventArgs Private eventRow As VWCW_GROUP_PROFILERow Private eventAction As Global.System.Data.DataRowAction _ 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 _ Public ReadOnly Property Row() As VWCW_GROUP_PROFILERow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBCW_PROF_REL_WINDOWRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBCW_PROF_REL_WINDOWRow Private eventAction As Global.System.Data.DataRowAction _ 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 _ Public ReadOnly Property Row() As TBCW_PROF_REL_WINDOWRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBDD_CONNECTIONRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBDD_CONNECTIONRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBDD_CONNECTIONRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBCW_PROF_REL_CONTROLRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBCW_PROF_REL_CONTROLRow Private eventAction As Global.System.Data.DataRowAction _ Public Sub New(ByVal row As TBCW_PROF_REL_CONTROLRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub _ Public ReadOnly Property Row() As TBCW_PROF_REL_CONTROLRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBWH_UserRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBWH_UserRow Private eventAction As Global.System.Data.DataRowAction _ 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 _ Public ReadOnly Property Row() As TBWH_UserRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBWH_GROUPRowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBWH_GROUPRow Private eventAction As Global.System.Data.DataRowAction _ 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 _ Public ReadOnly Property Row() As TBWH_GROUPRow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class ''' '''Row event argument class ''' _ Public Class TBWH_PROFILE_TYPERowChangeEvent Inherits Global.System.EventArgs Private eventRow As TBWH_PROFILE_TYPERow Private eventAction As Global.System.Data.DataRowAction _ 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 _ Public ReadOnly Property Row() As TBWH_PROFILE_TYPERow Get Return Me.eventRow End Get End Property _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class End Class Namespace MyDatasetTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. ''' _ 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 _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBCW_PROFILES" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") 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)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBCW_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, COMMENT, REGEX_EXPRESS"& _ "ION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VA"& _ "LUES (@NAME,@COMMENT,@REGEX_EXPRESSION,@ADDED_WHO,@ADDED_WHEN,@CHANGED_WH"& _ "O,@CHANGED_WHEN,@ACTIVE,@PROFILE_TYPE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, COMMENT, REGEX_EXPR"& _ "ESSION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE F"& _ "ROM 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, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, 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, 50, 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, 8, 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, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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 = 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, "& _ "REGEX_EXPRESSION = @REGEX_EXPRESSION, CHANGED_WHO = @CHANGED_WHO, ACTIVE = @ACTI"& _ "VE, PROFILE_TYPE = @PROFILE_TYPE"&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, 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("@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 _ 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 _ 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, REGEX_EXPRESSION, ADDED_WHO, ADDED_WHEN, CHANG"& _ "ED_WHO, CHANGED_WHEN, ACTIVE, PROFILE_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROFILES" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ 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 _ 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 _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROFILESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBCW_PROFILES") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal COMMENT As String, ByVal 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 (REGEX_EXPRESSION Is Nothing) Then Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") Else Me.Adapter.InsertCommand.Parameters(2).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(3).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(ACTIVE,Boolean) Me.Adapter.InsertCommand.Parameters(8).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 _ Public Overloads Overridable Function Update(ByVal NAME As String, ByVal COMMENT 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 (REGEX_EXPRESSION Is Nothing) Then Throw New Global.System.ArgumentNullException("REGEX_EXPRESSION") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(REGEX_EXPRESSION,String) End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) End If Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PROFILE_TYPE,Short) Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class 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 _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "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 _ 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 _ 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 _ 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 _ 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 _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_USER_PROFILEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBCW_USER_PROFILE") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal 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 _ 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 ''' '''Represents the connection and commands used to retrieve and save data. ''' _ 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 _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "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 _ 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 _ 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 _ 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 _ 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 _ 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 ''' '''Represents the connection and commands used to retrieve and save data. ''' _ 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 _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "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 _ 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 _ 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 _ 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 _ 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 _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROFILE_PROCESSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBCW_PROFILE_PROCESS") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ 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 _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "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"&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_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 _ 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 _ 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 _ 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 _ 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 _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROF_DATA_SEARCHDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBCW_PROF_DATA_SEARCH") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal PROFILE_ID As Integer, 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 Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal COUNT_COMMAND As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(CONN_ID,Byte) If (SQL_COMMAND Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_COMMAND") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(SQL_COMMAND,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) If (TAB_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("TAB_TITLE") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(TAB_TITLE,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (COUNT_COMMAND Is Nothing) Then Throw New Global.System.ArgumentNullException("COUNT_COMMAND") Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(COUNT_COMMAND,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal PROFILE_ID As Integer, _ 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 Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal COUNT_COMMAND As String, _ ByVal Original_GUID As Integer, _ ByVal Original_PROFILE_ID As Integer, _ ByVal Original_CONN_ID As Byte, _ ByVal Original_TAB_INDEX As Byte, _ ByVal Original_ACTIVE As Boolean, _ ByVal Original_TAB_TITLE As String, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CONN_ID,Byte) If (SQL_COMMAND Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_COMMAND") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SQL_COMMAND,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) If (TAB_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("TAB_TITLE") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TAB_TITLE,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (COUNT_COMMAND Is Nothing) Then Throw New Global.System.ArgumentNullException("COUNT_COMMAND") Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(COUNT_COMMAND,String) End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PROFILE_ID,Integer) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CONN_ID,Byte) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_TAB_INDEX,Byte) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ACTIVE,Boolean) If (Original_TAB_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_TAB_TITLE") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_TAB_TITLE,String) End If If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(24).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal PROFILE_ID As Integer, _ 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 Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal COUNT_COMMAND As String, _ ByVal Original_GUID As Integer, _ ByVal Original_PROFILE_ID As Integer, _ ByVal Original_CONN_ID As Byte, _ ByVal Original_TAB_INDEX As Byte, _ ByVal Original_ACTIVE As Boolean, _ ByVal Original_TAB_TITLE As String, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Return Me.Update(PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND, Original_GUID, Original_PROFILE_ID, Original_CONN_ID, Original_TAB_INDEX, Original_ACTIVE, Original_TAB_TITLE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class 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 _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "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"&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_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 _ 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 _ 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 _ 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 _ 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 _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROF_DOC_SEARCHDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBCW_PROF_DOC_SEARCH") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal PROFILE_ID As Integer, 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 Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal COUNT_COMMAND As String) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) Me.Adapter.InsertCommand.Parameters(1).Value = CType(CONN_ID,Byte) If (SQL_COMMAND Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_COMMAND") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(SQL_COMMAND,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) If (TAB_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("TAB_TITLE") Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(TAB_TITLE,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (COUNT_COMMAND Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(COUNT_COMMAND,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal PROFILE_ID As Integer, _ 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 Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal COUNT_COMMAND As String, _ ByVal Original_GUID As Integer, _ ByVal Original_PROFILE_ID As Integer, _ ByVal Original_CONN_ID As Byte, _ ByVal Original_TAB_INDEX As Byte, _ ByVal Original_ACTIVE As Boolean, _ ByVal Original_TAB_TITLE As String, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CONN_ID,Byte) If (SQL_COMMAND Is Nothing) Then Throw New Global.System.ArgumentNullException("SQL_COMMAND") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SQL_COMMAND,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(TAB_INDEX,Byte) Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) If (TAB_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("TAB_TITLE") Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(TAB_TITLE,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (COUNT_COMMAND Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(COUNT_COMMAND,String) End If Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PROFILE_ID,Integer) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CONN_ID,Byte) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_TAB_INDEX,Byte) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_ACTIVE,Boolean) If (Original_TAB_TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_TAB_TITLE") Else Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_TAB_TITLE,String) End If If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(18).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(18).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(24).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal PROFILE_ID As Integer, _ 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 Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal COUNT_COMMAND As String, _ ByVal Original_GUID As Integer, _ ByVal Original_PROFILE_ID As Integer, _ ByVal Original_CONN_ID As Byte, _ ByVal Original_TAB_INDEX As Byte, _ ByVal Original_ACTIVE As Boolean, _ ByVal Original_TAB_TITLE As String, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Return Me.Update(PROFILE_ID, CONN_ID, SQL_COMMAND, TAB_INDEX, ACTIVE, TAB_TITLE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COUNT_COMMAND, Original_GUID, Original_PROFILE_ID, Original_CONN_ID, Original_TAB_INDEX, Original_ACTIVE, Original_TAB_TITLE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class 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 _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "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 _ 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 _ 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 _ 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 _ 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 _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_GROUP_PROFILEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBCW_GROUP_PROFILE") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ 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 _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "VWCW_GROUP_PROFILE" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME", "NAME") Me._adapter.TableMappings.Add(tableMapping) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString End Sub _ 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 _ 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 _ 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 _ 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 ''' '''Represents the connection and commands used to retrieve and save data. ''' _ 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 _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBCW_PROF_REL_WINDOW" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") tableMapping.ColumnMappings.Add("REGEX", "REGEX") tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") 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("PROCESS_ID", "PROCESS_ID") 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"&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_PROF_REL_WINDOW] ([DESCRIPTION], [REGEX], [SEQUENCE], [ADDED_WH"& _ "O], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [PROCESS_ID]) VALUES (@DESCRIPT"& _ "ION, @REGEX, @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @P"& _ "ROCESS_ID);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, C"& _ "HANGED_WHO, CHANGED_WHEN, PROCESS_ID FROM TBCW_PROF_REL_WINDOW WHERE (GUID = SCO"& _ "PE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text 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("@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("@PROCESS_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_ID", 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"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DESCRIPTION = @DESCRIPTION,"& _ " REGEX = @REGEX, SEQUENCE = @SEQUENCE, ADDED_WHO = @ADDED_WHO, ADDED_WHEN = @ADD"& _ "ED_WHEN, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN = @"& _ "CHANGED_WHEN, PROCESS_ID = @PROCESS_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, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ "HANGED_WHEN, PROCESS_ID FROM TBCW_PROF_REL_WINDOW WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, 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, 500, 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, 1, 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("@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.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, 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, 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("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 8, 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("@PROCESS_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_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 _ 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 _ 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, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_"& _ "WHO, CHANGED_WHEN, PROCESS_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROF_REL_WINDOW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ " (PROCESS_ID = @PROCESS_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_REL_WINDOWDataTable, ByVal PROCESS_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROCESS_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal PROCESS_ID As Integer) As MyDataset.TBCW_PROF_REL_WINDOWDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROCESS_ID,Integer) Dim dataTable As MyDataset.TBCW_PROF_REL_WINDOWDataTable = New MyDataset.TBCW_PROF_REL_WINDOWDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROF_REL_WINDOWDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBCW_PROF_REL_WINDOW") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal DESCRIPTION As String, ByVal REGEX As String, ByVal SEQUENCE As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal PROCESS_ID As Integer) As Integer If (DESCRIPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("DESCRIPTION") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(DESCRIPTION,String) End If If (REGEX Is Nothing) Then Throw New Global.System.ArgumentNullException("REGEX") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(REGEX,String) End If Me.Adapter.InsertCommand.Parameters(2).Value = CType(SEQUENCE,Byte) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(PROCESS_ID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update(ByVal DESCRIPTION As String, ByVal REGEX As String, ByVal SEQUENCE As Byte, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), ByVal PROCESS_ID As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (DESCRIPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("DESCRIPTION") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DESCRIPTION,String) End If If (REGEX Is Nothing) Then Throw New Global.System.ArgumentNullException("REGEX") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(REGEX,String) End If Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SEQUENCE,Byte) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(PROCESS_ID,Integer) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBDD_CONNECTIONTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBDD_CONNECTION" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") tableMapping.ColumnMappings.Add("SERVER", "SERVER") tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_CONNECTION] ([BEZEICHNUNG], [SQL_PROVIDER], [SERVER], [DATENBAN"& _ "K], [USERNAME], [PASSWORD], [BEMERKUNG], [AKTIV], [ERSTELLTWER], [ERSTELLTWANN],"& _ " [GEANDERTWER], [GEAENDERTWANN]) VALUES (@BEZEICHNUNG, @SQL_PROVIDER, @SERVER, @"& _ "DATENBANK, @USERNAME, @PASSWORD, @BEMERKUNG, @AKTIV, @ERSTELLTWER, @ERSTELLTWANN"& _ ", @GEANDERTWER, @GEAENDERTWANN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER"& _ ", DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GE"& _ "ANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_CONNECTION] SET [BEZEICHNUNG] = @BEZEICHNUNG, [SQL_PROVIDER] = @SQL_"& _ "PROVIDER, [SERVER] = @SERVER, [DATENBANK] = @DATENBANK, [USERNAME] = @USERNAME, "& _ "[PASSWORD] = @PASSWORD, [BEMERKUNG] = @BEMERKUNG, [AKTIV] = @AKTIV, [ERSTELLTWER"& _ "] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN, [GEANDERTWER] = @GEANDERTWER, "& _ "[GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_"& _ "BEZEICHNUNG = 1 AND [BEZEICHNUNG] IS NULL) OR ([BEZEICHNUNG] = @Original_BEZEICH"& _ "NUNG)) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVI"& _ "DER] = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) O"& _ "R ([SERVER] = @Original_SERVER)) AND ((@IsNull_DATENBANK = 1 AND [DATENBANK] IS "& _ "NULL) OR ([DATENBANK] = @Original_DATENBANK)) AND ((@IsNull_USERNAME = 1 AND [US"& _ "ERNAME] IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = "& _ "1 AND [PASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_BE"& _ "MERKUNG = 1 AND [BEMERKUNG] IS NULL) OR ([BEMERKUNG] = @Original_BEMERKUNG)) AND"& _ " ([AKTIV] = @Original_AKTIV) AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ((@"& _ "IsNull_ERSTELLTWANN = 1 AND [ERSTELLTWANN] IS NULL) OR ([ERSTELLTWANN] = @Origin"& _ "al_ERSTELLTWANN)) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR (["& _ "GEANDERTWER] = @Original_GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAE"& _ "NDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GU"& _ "ID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG,"& _ " AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTI"& _ "ON WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEZEICHNUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_PROVIDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERVER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DATENBANK", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATENBANK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_USERNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PASSWORD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BEMERKUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ERSTELLTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEANDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ 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 _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT TBDD_CONNECTION.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CONNECTION" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBDD_CONNECTIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData() As MyDataset.TBDD_CONNECTIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBDD_CONNECTIONDataTable = New MyDataset.TBDD_CONNECTIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBDD_CONNECTIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete(ByVal Original_GUID As Short) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer If (BEZEICHNUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If If (SQL_PROVIDER Is Nothing) Then Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) End If If (SERVER Is Nothing) Then Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER,String) End If If (DATENBANK Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATENBANK,String) End If If (USERNAME Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME,String) End If If (PASSWORD Is Nothing) Then Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD,String) End If If (BEMERKUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG,String) End If Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV,Boolean) If (ERSTELLTWER Is Nothing) Then Throw New Global.System.ArgumentNullException("ERSTELLTWER") Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER,String) End If If (ERSTELLTWANN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(9).Value = CType(ERSTELLTWANN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (GEANDERTWER Is Nothing) Then Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(10).Value = CType(GEANDERTWER,String) End If If (GEAENDERTWANN.HasValue = true) Then Me.Adapter.InsertCommand.Parameters(11).Value = CType(GEAENDERTWANN.Value,Date) Else Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal BEZEICHNUNG As String, _ ByVal SQL_PROVIDER As String, _ ByVal SERVER As String, _ ByVal DATENBANK As String, _ ByVal USERNAME As String, _ ByVal PASSWORD As String, _ ByVal BEMERKUNG As String, _ ByVal AKTIV As Boolean, _ ByVal ERSTELLTWER As String, _ ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), _ ByVal GEANDERTWER As String, _ ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Short, _ ByVal Original_BEZEICHNUNG As String, _ ByVal Original_SQL_PROVIDER As String, _ ByVal Original_SERVER As String, _ ByVal Original_DATENBANK As String, _ ByVal Original_USERNAME As String, _ ByVal Original_PASSWORD As String, _ ByVal Original_BEMERKUNG As String, _ ByVal Original_AKTIV As Boolean, _ ByVal Original_ERSTELLTWER As String, _ ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), _ ByVal Original_GEANDERTWER As String, _ ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), _ ByVal GUID As Short) As Integer If (BEZEICHNUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If If (SQL_PROVIDER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) End If If (SERVER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER,String) End If If (DATENBANK Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATENBANK,String) End If If (USERNAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME,String) End If If (PASSWORD Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD,String) End If If (BEMERKUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG,String) End If Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV,Boolean) If (ERSTELLTWER Is Nothing) Then Throw New Global.System.ArgumentNullException("ERSTELLTWER") Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ERSTELLTWER,String) End If If (ERSTELLTWANN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ERSTELLTWANN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value End If If (GEANDERTWER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GEANDERTWER,String) End If If (GEAENDERTWANN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GEAENDERTWANN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Short) If (Original_BEZEICHNUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_BEZEICHNUNG,String) End If If (Original_SQL_PROVIDER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_SQL_PROVIDER,String) End If If (Original_SERVER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_SERVER,String) End If If (Original_DATENBANK Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_DATENBANK,String) End If If (Original_USERNAME Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_USERNAME,String) End If If (Original_PASSWORD Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_PASSWORD,String) End If If (Original_BEMERKUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_BEMERKUNG,String) End If Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_AKTIV,Boolean) If (Original_ERSTELLTWER Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ERSTELLTWER") Else Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_ERSTELLTWER,String) End If If (Original_ERSTELLTWANN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_ERSTELLTWANN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value End If If (Original_GEANDERTWER Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_GEANDERTWER,String) End If If (Original_GEAENDERTWANN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_GEAENDERTWANN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(35).Value = CType(GUID,Short) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal BEZEICHNUNG As String, _ ByVal SQL_PROVIDER As String, _ ByVal SERVER As String, _ ByVal DATENBANK As String, _ ByVal USERNAME As String, _ ByVal PASSWORD As String, _ ByVal BEMERKUNG As String, _ ByVal AKTIV As Boolean, _ ByVal ERSTELLTWER As String, _ ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), _ ByVal GEANDERTWER As String, _ ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), _ ByVal Original_GUID As Short, _ ByVal Original_BEZEICHNUNG As String, _ ByVal Original_SQL_PROVIDER As String, _ ByVal Original_SERVER As String, _ ByVal Original_DATENBANK As String, _ ByVal Original_USERNAME As String, _ ByVal Original_PASSWORD As String, _ ByVal Original_BEMERKUNG As String, _ ByVal Original_AKTIV As Boolean, _ ByVal Original_ERSTELLTWER As String, _ ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), _ ByVal Original_GEANDERTWER As String, _ ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer Return Me.Update(BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, Original_GUID, Original_BEZEICHNUNG, Original_SQL_PROVIDER, Original_SERVER, Original_DATENBANK, Original_USERNAME, Original_PASSWORD, Original_BEMERKUNG, Original_AKTIV, Original_ERSTELLTWER, Original_ERSTELLTWANN, Original_GEANDERTWER, Original_GEAENDERTWANN, Original_GUID) End Function End Class ''' '''Represents the connection and commands used to retrieve and save data. ''' _ Partial Public Class TBCW_PROF_REL_CONTROLTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter Private _connection As Global.System.Data.SqlClient.SqlConnection Private _transaction As Global.System.Data.SqlClient.SqlTransaction Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand Private _clearBeforeFill As Boolean _ Public Sub New() MyBase.New Me.ClearBeforeFill = true End Sub _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then Me.InitAdapter End If Return Me._adapter End Get End Property _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then Me.InitConnection End If Return Me._connection End Get Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then Me.InitCommandCollection End If Return Me._commandCollection End Get End Property _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set Me._clearBeforeFill = value End Set End Property _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" tableMapping.DataSetTable = "TBCW_PROF_REL_CONTROL" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("WINDOW_ID", "WINDOW_ID") tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") tableMapping.ColumnMappings.Add("REGEX", "REGEX") tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") 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("TOPLEFT_TOP", "TOPLEFT_TOP") tableMapping.ColumnMappings.Add("TOPLEFT_LEFT", "TOPLEFT_LEFT") tableMapping.ColumnMappings.Add("TOPLEFT_RIGHT", "TOPLEFT_RIGHT") tableMapping.ColumnMappings.Add("TOPLEFT_BOTTOM", "TOPLEFT_BOTTOM") tableMapping.ColumnMappings.Add("TOPRIGHT_TOP", "TOPRIGHT_TOP") tableMapping.ColumnMappings.Add("TOPRIGHT_LEFT", "TOPRIGHT_LEFT") tableMapping.ColumnMappings.Add("TOPRIGHT_RIGHT", "TOPRIGHT_RIGHT") tableMapping.ColumnMappings.Add("TOPRIGHT_BOTTOM", "TOPRIGHT_BOTTOM") tableMapping.ColumnMappings.Add("BOTTOMLEFT_TOP", "BOTTOMLEFT_TOP") tableMapping.ColumnMappings.Add("BOTTOMLEFT_LEFT", "BOTTOMLEFT_LEFT") tableMapping.ColumnMappings.Add("BOTTOMLEFT_RIGHT", "BOTTOMLEFT_RIGHT") tableMapping.ColumnMappings.Add("BOTTOMLEFT_BOTTOM", "BOTTOMLEFT_BOTTOM") tableMapping.ColumnMappings.Add("BOTTOMRIGHT_TOP", "BOTTOMRIGHT_TOP") tableMapping.ColumnMappings.Add("BOTTOMRIGHT_LEFT", "BOTTOMRIGHT_LEFT") tableMapping.ColumnMappings.Add("BOTTOMRIGHT_RIGHT", "BOTTOMRIGHT_RIGHT") tableMapping.ColumnMappings.Add("BOTTOMRIGHT_BOTTOM", "BOTTOMRIGHT_BOTTOM") 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_CONTROL] WHERE (([GUID] = @Original_GUID) AND ([WINDOW"& _ "_ID] = @Original_WINDOW_ID) AND ([DESCRIPTION] = @Original_DESCRIPTION) AND ([RE"& _ "GEX] = @Original_REGEX) AND ([SEQUENCE] = @Original_SEQUENCE) 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 [CHANGE"& _ "D_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGE"& _ "D_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WH"& _ "EN)) AND ([TOPLEFT_TOP] = @Original_TOPLEFT_TOP) AND ([TOPLEFT_LEFT] = @Original"& _ "_TOPLEFT_LEFT) AND ([TOPLEFT_RIGHT] = @Original_TOPLEFT_RIGHT) AND ([TOPLEFT_BOT"& _ "TOM] = @Original_TOPLEFT_BOTTOM) AND ([TOPRIGHT_TOP] = @Original_TOPRIGHT_TOP) A"& _ "ND ([TOPRIGHT_LEFT] = @Original_TOPRIGHT_LEFT) AND ([TOPRIGHT_RIGHT] = @Original"& _ "_TOPRIGHT_RIGHT) AND ([TOPRIGHT_BOTTOM] = @Original_TOPRIGHT_BOTTOM) AND ([BOTTO"& _ "MLEFT_TOP] = @Original_BOTTOMLEFT_TOP) AND ([BOTTOMLEFT_LEFT] = @Original_BOTTOM"& _ "LEFT_LEFT) AND ([BOTTOMLEFT_RIGHT] = @Original_BOTTOMLEFT_RIGHT) AND ([BOTTOMLEF"& _ "T_BOTTOM] = @Original_BOTTOMLEFT_BOTTOM) AND ([BOTTOMRIGHT_TOP] = @Original_BOTT"& _ "OMRIGHT_TOP) AND ([BOTTOMRIGHT_LEFT] = @Original_BOTTOMRIGHT_LEFT) AND ([BOTTOMR"& _ "IGHT_RIGHT] = @Original_BOTTOMRIGHT_RIGHT) AND ([BOTTOMRIGHT_BOTTOM] = @Original"& _ "_BOTTOMRIGHT_BOTTOM))" 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_WINDOW_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", 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_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_TOPLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_BOTTOM", 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_CONTROL] ([WINDOW_ID], [DESCRIPTION], [REGEX], [SEQUEN"& _ "CE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [TOPLEFT_TOP], [T"& _ "OPLEFT_LEFT], [TOPLEFT_RIGHT], [TOPLEFT_BOTTOM], [TOPRIGHT_TOP], [TOPRIGHT_LEFT]"& _ ", [TOPRIGHT_RIGHT], [TOPRIGHT_BOTTOM], [BOTTOMLEFT_TOP], [BOTTOMLEFT_LEFT], [BOT"& _ "TOMLEFT_RIGHT], [BOTTOMLEFT_BOTTOM], [BOTTOMRIGHT_TOP], [BOTTOMRIGHT_LEFT], [BOT"& _ "TOMRIGHT_RIGHT], [BOTTOMRIGHT_BOTTOM]) VALUES (@WINDOW_ID, @DESCRIPTION, @REGEX,"& _ " @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @TOPLEFT_TOP, "& _ "@TOPLEFT_LEFT, @TOPLEFT_RIGHT, @TOPLEFT_BOTTOM, @TOPRIGHT_TOP, @TOPRIGHT_LEFT, @"& _ "TOPRIGHT_RIGHT, @TOPRIGHT_BOTTOM, @BOTTOMLEFT_TOP, @BOTTOMLEFT_LEFT, @BOTTOMLEFT"& _ "_RIGHT, @BOTTOMLEFT_BOTTOM, @BOTTOMRIGHT_TOP, @BOTTOMRIGHT_LEFT, @BOTTOMRIGHT_RI"& _ "GHT, @BOTTOMRIGHT_BOTTOM);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE"& _ ", ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, T"& _ "OPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRI"& _ "GHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM"& _ ", BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM FROM "& _ "TBCW_PROF_REL_CONTROL WHERE (GUID = SCOPE_IDENTITY()) ORDER BY SEQUENCE" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", 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("@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("@TOPLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_BOTTOM", 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_CONTROL] SET [WINDOW_ID] = @WINDOW_ID, [DESCRIPTION] = @DES"& _ "CRIPTION, [REGEX] = @REGEX, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [A"& _ "DDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGE"& _ "D_WHEN, [TOPLEFT_TOP] = @TOPLEFT_TOP, [TOPLEFT_LEFT] = @TOPLEFT_LEFT, [TOPLEFT_R"& _ "IGHT] = @TOPLEFT_RIGHT, [TOPLEFT_BOTTOM] = @TOPLEFT_BOTTOM, [TOPRIGHT_TOP] = @TO"& _ "PRIGHT_TOP, [TOPRIGHT_LEFT] = @TOPRIGHT_LEFT, [TOPRIGHT_RIGHT] = @TOPRIGHT_RIGHT"& _ ", [TOPRIGHT_BOTTOM] = @TOPRIGHT_BOTTOM, [BOTTOMLEFT_TOP] = @BOTTOMLEFT_TOP, [BOT"& _ "TOMLEFT_LEFT] = @BOTTOMLEFT_LEFT, [BOTTOMLEFT_RIGHT] = @BOTTOMLEFT_RIGHT, [BOTTO"& _ "MLEFT_BOTTOM] = @BOTTOMLEFT_BOTTOM, [BOTTOMRIGHT_TOP] = @BOTTOMRIGHT_TOP, [BOTTO"& _ "MRIGHT_LEFT] = @BOTTOMRIGHT_LEFT, [BOTTOMRIGHT_RIGHT] = @BOTTOMRIGHT_RIGHT, [BOT"& _ "TOMRIGHT_BOTTOM] = @BOTTOMRIGHT_BOTTOM WHERE (([GUID] = @Original_GUID) AND ([WI"& _ "NDOW_ID] = @Original_WINDOW_ID) AND ([DESCRIPTION] = @Original_DESCRIPTION) AND "& _ "([REGEX] = @Original_REGEX) AND ([SEQUENCE] = @Original_SEQUENCE) AND ([ADDED_WH"& _ "O] = @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 [CH"& _ "ANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CH"& _ "ANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGE"& _ "D_WHEN)) AND ([TOPLEFT_TOP] = @Original_TOPLEFT_TOP) AND ([TOPLEFT_LEFT] = @Orig"& _ "inal_TOPLEFT_LEFT) AND ([TOPLEFT_RIGHT] = @Original_TOPLEFT_RIGHT) AND ([TOPLEFT"& _ "_BOTTOM] = @Original_TOPLEFT_BOTTOM) AND ([TOPRIGHT_TOP] = @Original_TOPRIGHT_TO"& _ "P) AND ([TOPRIGHT_LEFT] = @Original_TOPRIGHT_LEFT) AND ([TOPRIGHT_RIGHT] = @Orig"& _ "inal_TOPRIGHT_RIGHT) AND ([TOPRIGHT_BOTTOM] = @Original_TOPRIGHT_BOTTOM) AND ([B"& _ "OTTOMLEFT_TOP] = @Original_BOTTOMLEFT_TOP) AND ([BOTTOMLEFT_LEFT] = @Original_BO"& _ "TTOMLEFT_LEFT) AND ([BOTTOMLEFT_RIGHT] = @Original_BOTTOMLEFT_RIGHT) AND ([BOTTO"& _ "MLEFT_BOTTOM] = @Original_BOTTOMLEFT_BOTTOM) AND ([BOTTOMRIGHT_TOP] = @Original_"& _ "BOTTOMRIGHT_TOP) AND ([BOTTOMRIGHT_LEFT] = @Original_BOTTOMRIGHT_LEFT) AND ([BOT"& _ "TOMRIGHT_RIGHT] = @Original_BOTTOMRIGHT_RIGHT) AND ([BOTTOMRIGHT_BOTTOM] = @Orig"& _ "inal_BOTTOMRIGHT_BOTTOM));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE"& _ ", ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, T"& _ "OPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRI"& _ "GHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM"& _ ", BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM FROM "& _ "TBCW_PROF_REL_CONTROL WHERE (GUID = @GUID) ORDER BY SEQUENCE" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", 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("@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("@TOPLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TOPRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_BOTTOM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_TOP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_LEFT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_RIGHT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOTTOMRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_BOTTOM", 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_WINDOW_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", 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_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPLEFT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TOPRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TOPRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMLEFT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMLEFT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_TOP", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_TOP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_LEFT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_LEFT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_RIGHT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_RIGHT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOTTOMRIGHT_BOTTOM", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOTTOMRIGHT_BOTTOM", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.DD_Clipboard_Watcher.My.MySettings.Default.DD_ECMConnectionString End Sub _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHE"& _ "N, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_"& _ "BOTTOM, TOPRIGHT_TOP, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TOPRIGHT_LEFT, TOPRIGHT_RIGHT, "& _ "TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_B"& _ "OTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ " BOTTOMRIGHT_BOTTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBCW_PROF_REL_CONTROL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ "(WINDOW_ID = @WINDOW_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQUENCE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDOW_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDOW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBCW_PROF_REL_CONTROLDataTable, ByVal WINDOW_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(WINDOW_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function _ Public Overloads Overridable Function GetData(ByVal WINDOW_ID As Integer) As MyDataset.TBCW_PROF_REL_CONTROLDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Me.Adapter.SelectCommand.Parameters(0).Value = CType(WINDOW_ID,Integer) Dim dataTable As MyDataset.TBCW_PROF_REL_CONTROLDataTable = New MyDataset.TBCW_PROF_REL_CONTROLDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBCW_PROF_REL_CONTROLDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function _ Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBCW_PROF_REL_CONTROL") End Function _ Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function _ Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function _ Public Overloads Overridable Function Delete( _ ByVal Original_GUID As Integer, _ ByVal Original_WINDOW_ID As Integer, _ ByVal Original_DESCRIPTION As String, _ ByVal Original_REGEX As String, _ ByVal Original_SEQUENCE As Byte, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_TOPLEFT_TOP As Integer, _ ByVal Original_TOPLEFT_LEFT As Integer, _ ByVal Original_TOPLEFT_RIGHT As Integer, _ ByVal Original_TOPLEFT_BOTTOM As Integer, _ ByVal Original_TOPRIGHT_TOP As Integer, _ ByVal Original_TOPRIGHT_LEFT As Integer, _ ByVal Original_TOPRIGHT_RIGHT As Integer, _ ByVal Original_TOPRIGHT_BOTTOM As Integer, _ ByVal Original_BOTTOMLEFT_TOP As Integer, _ ByVal Original_BOTTOMLEFT_LEFT As Integer, _ ByVal Original_BOTTOMLEFT_RIGHT As Integer, _ ByVal Original_BOTTOMLEFT_BOTTOM As Integer, _ ByVal Original_BOTTOMRIGHT_TOP As Integer, _ ByVal Original_BOTTOMRIGHT_LEFT As Integer, _ ByVal Original_BOTTOMRIGHT_RIGHT As Integer, _ ByVal Original_BOTTOMRIGHT_BOTTOM As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_WINDOW_ID,Integer) If (Original_DESCRIPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_DESCRIPTION") Else Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_DESCRIPTION,String) End If If (Original_REGEX Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_REGEX") Else Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_REGEX,String) End If Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SEQUENCE,Byte) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value Else Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value End If Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_TOPLEFT_TOP,Integer) Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_TOPLEFT_LEFT,Integer) Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_TOPLEFT_RIGHT,Integer) Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_TOPLEFT_BOTTOM,Integer) Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_TOPRIGHT_TOP,Integer) Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_TOPRIGHT_LEFT,Integer) Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_TOPRIGHT_RIGHT,Integer) Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_TOPRIGHT_BOTTOM,Integer) Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_BOTTOMLEFT_TOP,Integer) Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_BOTTOMLEFT_LEFT,Integer) Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_BOTTOMLEFT_RIGHT,Integer) Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_BOTTOMLEFT_BOTTOM,Integer) Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_BOTTOMRIGHT_TOP,Integer) Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_BOTTOMRIGHT_LEFT,Integer) Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_BOTTOMRIGHT_RIGHT,Integer) Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_BOTTOMRIGHT_BOTTOM,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.DeleteCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Insert( _ ByVal WINDOW_ID As Integer, _ ByVal DESCRIPTION As String, _ ByVal REGEX As String, _ ByVal SEQUENCE As Byte, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal TOPLEFT_TOP As Integer, _ ByVal TOPLEFT_LEFT As Integer, _ ByVal TOPLEFT_RIGHT As Integer, _ ByVal TOPLEFT_BOTTOM As Integer, _ ByVal TOPRIGHT_TOP As Integer, _ ByVal TOPRIGHT_LEFT As Integer, _ ByVal TOPRIGHT_RIGHT As Integer, _ ByVal TOPRIGHT_BOTTOM As Integer, _ ByVal BOTTOMLEFT_TOP As Integer, _ ByVal BOTTOMLEFT_LEFT As Integer, _ ByVal BOTTOMLEFT_RIGHT As Integer, _ ByVal BOTTOMLEFT_BOTTOM As Integer, _ ByVal BOTTOMRIGHT_TOP As Integer, _ ByVal BOTTOMRIGHT_LEFT As Integer, _ ByVal BOTTOMRIGHT_RIGHT As Integer, _ ByVal BOTTOMRIGHT_BOTTOM As Integer) As Integer Me.Adapter.InsertCommand.Parameters(0).Value = CType(WINDOW_ID,Integer) If (DESCRIPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("DESCRIPTION") Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(DESCRIPTION,String) End If If (REGEX Is Nothing) Then Throw New Global.System.ArgumentNullException("REGEX") Else Me.Adapter.InsertCommand.Parameters(2).Value = CType(REGEX,String) End If Me.Adapter.InsertCommand.Parameters(3).Value = CType(SEQUENCE,Byte) 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(TOPLEFT_TOP,Integer) Me.Adapter.InsertCommand.Parameters(9).Value = CType(TOPLEFT_LEFT,Integer) Me.Adapter.InsertCommand.Parameters(10).Value = CType(TOPLEFT_RIGHT,Integer) Me.Adapter.InsertCommand.Parameters(11).Value = CType(TOPLEFT_BOTTOM,Integer) Me.Adapter.InsertCommand.Parameters(12).Value = CType(TOPRIGHT_TOP,Integer) Me.Adapter.InsertCommand.Parameters(13).Value = CType(TOPRIGHT_LEFT,Integer) Me.Adapter.InsertCommand.Parameters(14).Value = CType(TOPRIGHT_RIGHT,Integer) Me.Adapter.InsertCommand.Parameters(15).Value = CType(TOPRIGHT_BOTTOM,Integer) Me.Adapter.InsertCommand.Parameters(16).Value = CType(BOTTOMLEFT_TOP,Integer) Me.Adapter.InsertCommand.Parameters(17).Value = CType(BOTTOMLEFT_LEFT,Integer) Me.Adapter.InsertCommand.Parameters(18).Value = CType(BOTTOMLEFT_RIGHT,Integer) Me.Adapter.InsertCommand.Parameters(19).Value = CType(BOTTOMLEFT_BOTTOM,Integer) Me.Adapter.InsertCommand.Parameters(20).Value = CType(BOTTOMRIGHT_TOP,Integer) Me.Adapter.InsertCommand.Parameters(21).Value = CType(BOTTOMRIGHT_LEFT,Integer) Me.Adapter.InsertCommand.Parameters(22).Value = CType(BOTTOMRIGHT_RIGHT,Integer) Me.Adapter.InsertCommand.Parameters(23).Value = CType(BOTTOMRIGHT_BOTTOM,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.InsertCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal WINDOW_ID As Integer, _ ByVal DESCRIPTION As String, _ ByVal REGEX As String, _ ByVal SEQUENCE As Byte, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal TOPLEFT_TOP As Integer, _ ByVal TOPLEFT_LEFT As Integer, _ ByVal TOPLEFT_RIGHT As Integer, _ ByVal TOPLEFT_BOTTOM As Integer, _ ByVal TOPRIGHT_TOP As Integer, _ ByVal TOPRIGHT_LEFT As Integer, _ ByVal TOPRIGHT_RIGHT As Integer, _ ByVal TOPRIGHT_BOTTOM As Integer, _ ByVal BOTTOMLEFT_TOP As Integer, _ ByVal BOTTOMLEFT_LEFT As Integer, _ ByVal BOTTOMLEFT_RIGHT As Integer, _ ByVal BOTTOMLEFT_BOTTOM As Integer, _ ByVal BOTTOMRIGHT_TOP As Integer, _ ByVal BOTTOMRIGHT_LEFT As Integer, _ ByVal BOTTOMRIGHT_RIGHT As Integer, _ ByVal BOTTOMRIGHT_BOTTOM As Integer, _ ByVal Original_GUID As Integer, _ ByVal Original_WINDOW_ID As Integer, _ ByVal Original_DESCRIPTION As String, _ ByVal Original_REGEX As String, _ ByVal Original_SEQUENCE As Byte, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_TOPLEFT_TOP As Integer, _ ByVal Original_TOPLEFT_LEFT As Integer, _ ByVal Original_TOPLEFT_RIGHT As Integer, _ ByVal Original_TOPLEFT_BOTTOM As Integer, _ ByVal Original_TOPRIGHT_TOP As Integer, _ ByVal Original_TOPRIGHT_LEFT As Integer, _ ByVal Original_TOPRIGHT_RIGHT As Integer, _ ByVal Original_TOPRIGHT_BOTTOM As Integer, _ ByVal Original_BOTTOMLEFT_TOP As Integer, _ ByVal Original_BOTTOMLEFT_LEFT As Integer, _ ByVal Original_BOTTOMLEFT_RIGHT As Integer, _ ByVal Original_BOTTOMLEFT_BOTTOM As Integer, _ ByVal Original_BOTTOMRIGHT_TOP As Integer, _ ByVal Original_BOTTOMRIGHT_LEFT As Integer, _ ByVal Original_BOTTOMRIGHT_RIGHT As Integer, _ ByVal Original_BOTTOMRIGHT_BOTTOM As Integer, _ ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(WINDOW_ID,Integer) If (DESCRIPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("DESCRIPTION") Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(DESCRIPTION,String) End If If (REGEX Is Nothing) Then Throw New Global.System.ArgumentNullException("REGEX") Else Me.Adapter.UpdateCommand.Parameters(2).Value = CType(REGEX,String) End If Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SEQUENCE,Byte) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHO,String) End If If (ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value End If If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) End If If (CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(8).Value = CType(TOPLEFT_TOP,Integer) Me.Adapter.UpdateCommand.Parameters(9).Value = CType(TOPLEFT_LEFT,Integer) Me.Adapter.UpdateCommand.Parameters(10).Value = CType(TOPLEFT_RIGHT,Integer) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TOPLEFT_BOTTOM,Integer) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(TOPRIGHT_TOP,Integer) Me.Adapter.UpdateCommand.Parameters(13).Value = CType(TOPRIGHT_LEFT,Integer) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(TOPRIGHT_RIGHT,Integer) Me.Adapter.UpdateCommand.Parameters(15).Value = CType(TOPRIGHT_BOTTOM,Integer) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(BOTTOMLEFT_TOP,Integer) Me.Adapter.UpdateCommand.Parameters(17).Value = CType(BOTTOMLEFT_LEFT,Integer) Me.Adapter.UpdateCommand.Parameters(18).Value = CType(BOTTOMLEFT_RIGHT,Integer) Me.Adapter.UpdateCommand.Parameters(19).Value = CType(BOTTOMLEFT_BOTTOM,Integer) Me.Adapter.UpdateCommand.Parameters(20).Value = CType(BOTTOMRIGHT_TOP,Integer) Me.Adapter.UpdateCommand.Parameters(21).Value = CType(BOTTOMRIGHT_LEFT,Integer) Me.Adapter.UpdateCommand.Parameters(22).Value = CType(BOTTOMRIGHT_RIGHT,Integer) Me.Adapter.UpdateCommand.Parameters(23).Value = CType(BOTTOMRIGHT_BOTTOM,Integer) Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_GUID,Integer) Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_WINDOW_ID,Integer) If (Original_DESCRIPTION Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_DESCRIPTION") Else Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_DESCRIPTION,String) End If If (Original_REGEX Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_REGEX") Else Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_REGEX,String) End If Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_SEQUENCE,Byte) If (Original_ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") Else Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_ADDED_WHO,String) End If If (Original_ADDED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_ADDED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_CHANGED_WHO,String) End If If (Original_CHANGED_WHEN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_CHANGED_WHEN.Value,Date) Else Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value End If Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_TOPLEFT_TOP,Integer) Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_TOPLEFT_LEFT,Integer) Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_TOPLEFT_RIGHT,Integer) Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_TOPLEFT_BOTTOM,Integer) Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_TOPRIGHT_TOP,Integer) Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_TOPRIGHT_LEFT,Integer) Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_TOPRIGHT_RIGHT,Integer) Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_TOPRIGHT_BOTTOM,Integer) Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_BOTTOMLEFT_TOP,Integer) Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_BOTTOMLEFT_LEFT,Integer) Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_BOTTOMLEFT_RIGHT,Integer) Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_BOTTOMLEFT_BOTTOM,Integer) Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_BOTTOMRIGHT_TOP,Integer) Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_BOTTOMRIGHT_LEFT,Integer) Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_BOTTOMRIGHT_RIGHT,Integer) Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_BOTTOMRIGHT_BOTTOM,Integer) Me.Adapter.UpdateCommand.Parameters(52).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.UpdateCommand.Connection.Open End If Try Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then Me.Adapter.UpdateCommand.Connection.Close End If End Try End Function _ Public Overloads Overridable Function Update( _ ByVal WINDOW_ID As Integer, _ ByVal DESCRIPTION As String, _ ByVal REGEX As String, _ ByVal SEQUENCE As Byte, _ ByVal ADDED_WHO As String, _ ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal TOPLEFT_TOP As Integer, _ ByVal TOPLEFT_LEFT As Integer, _ ByVal TOPLEFT_RIGHT As Integer, _ ByVal TOPLEFT_BOTTOM As Integer, _ ByVal TOPRIGHT_TOP As Integer, _ ByVal TOPRIGHT_LEFT As Integer, _ ByVal TOPRIGHT_RIGHT As Integer, _ ByVal TOPRIGHT_BOTTOM As Integer, _ ByVal BOTTOMLEFT_TOP As Integer, _ ByVal BOTTOMLEFT_LEFT As Integer, _ ByVal BOTTOMLEFT_RIGHT As Integer, _ ByVal BOTTOMLEFT_BOTTOM As Integer, _ ByVal BOTTOMRIGHT_TOP As Integer, _ ByVal BOTTOMRIGHT_LEFT As Integer, _ ByVal BOTTOMRIGHT_RIGHT As Integer, _ ByVal BOTTOMRIGHT_BOTTOM As Integer, _ ByVal Original_GUID As Integer, _ ByVal Original_WINDOW_ID As Integer, _ ByVal Original_DESCRIPTION As String, _ ByVal Original_REGEX As String, _ ByVal Original_SEQUENCE As Byte, _ ByVal Original_ADDED_WHO As String, _ ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_CHANGED_WHO As String, _ ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal Original_TOPLEFT_TOP As Integer, _ ByVal Original_TOPLEFT_LEFT As Integer, _ ByVal Original_TOPLEFT_RIGHT As Integer, _ ByVal Original_TOPLEFT_BOTTOM As Integer, _ ByVal Original_TOPRIGHT_TOP As Integer, _ ByVal Original_TOPRIGHT_LEFT As Integer, _ ByVal Original_TOPRIGHT_RIGHT As Integer, _ ByVal Original_TOPRIGHT_BOTTOM As Integer, _ ByVal Original_BOTTOMLEFT_TOP As Integer, _ ByVal Original_BOTTOMLEFT_LEFT As Integer, _ ByVal Original_BOTTOMLEFT_RIGHT As Integer, _ ByVal Original_BOTTOMLEFT_BOTTOM As Integer, _ ByVal Original_BOTTOMRIGHT_TOP As Integer, _ ByVal Original_BOTTOMRIGHT_LEFT As Integer, _ ByVal Original_BOTTOMRIGHT_RIGHT As Integer, _ ByVal Original_BOTTOMRIGHT_BOTTOM As Integer) As Integer Return Me.Update(WINDOW_ID, DESCRIPTION, REGEX, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TOPLEFT_TOP, TOPLEFT_LEFT, TOPLEFT_RIGHT, TOPLEFT_BOTTOM, TOPRIGHT_TOP, TOPRIGHT_LEFT, TOPRIGHT_RIGHT, TOPRIGHT_BOTTOM, BOTTOMLEFT_TOP, BOTTOMLEFT_LEFT, BOTTOMLEFT_RIGHT, BOTTOMLEFT_BOTTOM, BOTTOMRIGHT_TOP, BOTTOMRIGHT_LEFT, BOTTOMRIGHT_RIGHT, BOTTOMRIGHT_BOTTOM, Original_GUID, Original_WINDOW_ID, Original_DESCRIPTION, Original_REGEX, Original_SEQUENCE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_TOPLEFT_TOP, Original_TOPLEFT_LEFT, Original_TOPLEFT_RIGHT, Original_TOPLEFT_BOTTOM, Original_TOPRIGHT_TOP, Original_TOPRIGHT_LEFT, Original_TOPRIGHT_RIGHT, Original_TOPRIGHT_BOTTOM, Original_BOTTOMLEFT_TOP, Original_BOTTOMLEFT_LEFT, Original_BOTTOMLEFT_RIGHT, Original_BOTTOMLEFT_BOTTOM, Original_BOTTOMRIGHT_TOP, Original_BOTTOMRIGHT_LEFT, Original_BOTTOMRIGHT_RIGHT, Original_BOTTOMRIGHT_BOTTOM, Original_GUID) End Function End Class ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' _ Partial Public Class TableAdapterManager Inherits Global.System.ComponentModel.Component Private _updateOrder As UpdateOrderOption Private _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 _tBDD_CONNECTIONTableAdapter As TBDD_CONNECTIONTableAdapter Private _tBCW_PROF_REL_CONTROLTableAdapter As TBCW_PROF_REL_CONTROLTableAdapter Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder End Get Set Me._updateOrder = value End Set End Property _ Public Property TBCW_PROFILESTableAdapter() As TBCW_PROFILESTableAdapter Get Return Me._tBCW_PROFILESTableAdapter End Get Set Me._tBCW_PROFILESTableAdapter = value End Set End Property _ 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 _ 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 _ 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 _ 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 _ 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 _ 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 _ Public Property TBDD_CONNECTIONTableAdapter() As TBDD_CONNECTIONTableAdapter Get Return Me._tBDD_CONNECTIONTableAdapter End Get Set Me._tBDD_CONNECTIONTableAdapter = value End Set End Property _ Public Property TBCW_PROF_REL_CONTROLTableAdapter() As TBCW_PROF_REL_CONTROLTableAdapter Get Return Me._tBCW_PROF_REL_CONTROLTableAdapter End Get Set Me._tBCW_PROF_REL_CONTROLTableAdapter = value End Set End Property _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get Set Me._backupDataSetBeforeUpdate = value End Set End Property _ Public Property Connection() As Global.System.Data.IDbConnection Get If (Not (Me._connection) Is Nothing) Then Return Me._connection End If If ((Not (Me._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 If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_CONNECTIONTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_CONNECTIONTableAdapter.Connection End If If ((Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter.Connection) Is Nothing)) Then Return Me._tBCW_PROF_REL_CONTROLTableAdapter.Connection End If Return Nothing End Get Set Me._connection = value End Set End Property _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 If (Not (Me._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 If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then count = (count + 1) End If If (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) Then count = (count + 1) End If Return count End Get End Property ''' '''Update rows in top-down order. ''' _ Private Function UpdateUpdatedRows(ByVal dataSet As 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_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_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_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 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_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._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If If (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_CONTROL.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_CONTROLTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If Return result End Function ''' '''Insert rows in top-down order. ''' _ Private Function UpdateInsertedRows(ByVal dataSet As 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_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_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_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 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_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._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If If (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_CONTROL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBCW_PROF_REL_CONTROLTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If Return result End Function ''' '''Delete rows in bottom-up order. ''' _ Private Function UpdateDeletedRows(ByVal dataSet As 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_CONTROLTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBCW_PROF_REL_CONTROL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBCW_PROF_REL_CONTROLTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If If (Not (Me._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_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_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_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 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 Return result End Function ''' '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' _ Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then Return updatedRows End If If ((allAddedRows Is Nothing) _ OrElse (allAddedRows.Count < 1)) Then Return updatedRows End If Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim i As Integer = 0 Do While (i < updatedRows.Length) Dim row As Global.System.Data.DataRow = updatedRows(i) If (allAddedRows.Contains(row) = false) Then realUpdatedRows.Add(row) End If i = (i + 1) Loop Return realUpdatedRows.ToArray End Function ''' '''Update all changes to the dataset. ''' _ Public Overridable Function UpdateAll(ByVal dataSet As 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 If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_CONNECTIONTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If If ((Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBCW_PROF_REL_CONTROLTableAdapter.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 If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_CONNECTIONTableAdapter, Me._tBDD_CONNECTIONTableAdapter.Connection) Me._tBDD_CONNECTIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBDD_CONNECTIONTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_CONNECTIONTableAdapter.Adapter) End If End If If (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBCW_PROF_REL_CONTROLTableAdapter, Me._tBCW_PROF_REL_CONTROLTableAdapter.Connection) Me._tBCW_PROF_REL_CONTROLTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) Me._tBCW_PROF_REL_CONTROLTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) If Me._tBCW_PROF_REL_CONTROLTableAdapter.Adapter.AcceptChangesDuringUpdate Then Me._tBCW_PROF_REL_CONTROLTableAdapter.Adapter.AcceptChangesDuringUpdate = false adaptersWithAcceptChangesDuringUpdate.Add(Me._tBCW_PROF_REL_CONTROLTableAdapter.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 (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Me._tBDD_CONNECTIONTableAdapter.Connection = CType(revertConnections(Me._tBDD_CONNECTIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_CONNECTIONTableAdapter.Transaction = Nothing End If If (Not (Me._tBCW_PROF_REL_CONTROLTableAdapter) Is Nothing) Then Me._tBCW_PROF_REL_CONTROLTableAdapter.Connection = CType(revertConnections(Me._tBCW_PROF_REL_CONTROLTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBCW_PROF_REL_CONTROLTableAdapter.Transaction = Nothing End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) Dim i As Integer = 0 Do While (i < adapters.Length) Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) adapter.AcceptChangesDuringUpdate = true i = (i + 1) Loop End If End Try Return result End Function _ Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) End Sub _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then Return true End If If ((Me.Connection Is Nothing) _ OrElse (inputConnection Is Nothing)) Then Return true End If If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then Return true End If Return false End Function ''' '''Update Order Option ''' _ Public Enum UpdateOrderOption InsertUpdateDelete = 0 UpdateInsertDelete = 1 End Enum ''' '''Used to sort self-referenced table's rows ''' _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) Private _relation As Global.System.Data.DataRelation Private _childFirst As Integer _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) MyBase.New Me._relation = relation If childFirst Then Me._childFirst = -1 Else Me._childFirst = 1 End If End Sub _ Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row distance = 0 Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() traversedRows(row) = row Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) Do While ((Not (parent) Is Nothing) _ AndAlso (traversedRows.ContainsKey(parent) = false)) distance = (distance + 1) root = parent traversedRows(parent) = parent parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) Loop If (distance = 0) Then traversedRows.Clear traversedRows(row) = row parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) Do While ((Not (parent) Is Nothing) _ AndAlso (traversedRows.ContainsKey(parent) = false)) distance = (distance + 1) root = parent traversedRows(parent) = parent parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) Loop End If Return root End Function _ Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare If Object.ReferenceEquals(row1, row2) Then Return 0 End If If (row1 Is Nothing) Then Return -1 End If If (row2 Is Nothing) Then Return 1 End If Dim distance1 As Integer = 0 Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) Dim distance2 As Integer = 0 Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) If Object.ReferenceEquals(root1, root2) Then Return (Me._childFirst * distance1.CompareTo(distance2)) Else Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ AndAlso (Not (root2.Table) Is Nothing))) If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then Return -1 Else Return 1 End If End If End Function End Class End Class End Namespace